Статичный Bornin : Супермаг Плюс (Супермаг 2000)

// получить BORNIN заказа
Функция ПолучитьBORNINДокумента(НомерЗаказа, МестоХранения)

        BORNIN = "";

        Соединение                                              = ЗапросыКСуперМаг.УстановитьСоединение(СокрЛП(МестоХранения.ИмяБД) );
        Command                                                 = Новый COMОбъект("ADODB.Command");
        Command.ActiveConnection                = Соединение;
        Command.CommandText = "select UTL_RAW.CAST_TO_VARCHAR2(UTL_ENCODE.Base64_ENCODE(Core.GetDbId)) as bornin from dual";
        Command.Parameters.Append(Command.CreateParameter(":id", 200, 1, 15, СокрЛП(НомерЗаказа) ) );
        Command.Prepared                                = True;
        Попытка
                RecordSet                                       = Command.Execute();
                BORNIN                                          = RecordSet.Fields("bornin").Value;
        Исключение
                ОбщиеФункции.ЗаписатьВЖурнал("ПересчетАвтозаказа", "Ошибка", "Невозможно получить идентефикатор базы." + ОписаниеОшибки());
        КонецПопытки;

        // закрываем соединение
        RecordSet       = Неопределено;
        Command         = Неопределено;
        Соединение.Close();
        Соединение      = Неопределено;

        Возврат СокрЛП(BORNIN);

КонецФункции

где

Функция УстановитьСоединение (ИмяБД) Экспорт

        Соединение = Новый COMОбъект("ADODB.Connection");
    СтрокаСоединения = "Provider=OraOLEDB.Oracle;Data Source=" + ИмяБД + ";User ID = supermag;Password = " + Пароль + "; Unicode=True;";
        Попытка
        Соединение.Open(СтрокаСоединения);
        Исключение
                Соединение = Неопределено;
        КонецПопытки;

        Возврат Соединение;

КонецФункции