09.02.2012 15:38
Офигевший
 
Вариант Андрея полностью устроил. Всем большое спасибо за помощь.
22.07.2012 09:50
OlegON
 
bornin в 1С от CrazyWolf:
Код:
// получить 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(СтрокаСоединения);
        Исключение
                Соединение = Неопределено;
        КонецПопытки;

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

КонецФункции
Часовой пояс GMT +3, время: 09:55.

Форум на базе vBulletin®
Copyright © Jelsoft Enterprises Ltd.
В случае заимствования информации гипертекстовая индексируемая ссылка на Форум обязательна.