[ТЕМА ЗАКРЫТА]
Опции темы
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(СтрокаСоединения);
        Исключение
                Соединение = Неопределено;
        КонецПопытки;

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

КонецФункции
 
"Спасибо" OlegON от:
 


Опции темы



Часовой пояс GMT +3, время: 07:38.

Все в прочитанное - Календарь - RSS - - Карта - Вверх 👫 Яндекс.Метрика
Форум сделан на основе vBulletin®
Copyright ©2000 - 2016, Jelsoft Enterprises Ltd. Перевод: zCarot и OlegON
В случае заимствования информации гипертекстовая индексируемая ссылка на Форум обязательна.