Всем привет, может кто поделится примером:

Платформа 8x , задача - создать в другой базе документ, заполнить его и записать, все через ADO.

Заранее спасибо всем откликнувшимся! )

Ок, спс пойду там поспрашаю. Все таки хочется попробовать.

а чем com не устраивает ?

Напрямую очень плохо
1. Сложно
2.По лицензии 8-ки нельзя
3.Надо ставить блокировки такие же в каких работает восьмерка
(если этого не сделаешь можешь получить хорошие грабли)
т.е. должен будешь полностью разобраться с их блокировками.

Sirtoo писал(а) 30. Ноября 2010 :: 09:50:


Напиши код программного создания документа. выставь точки остановки. лови SQL код Профайлером. Анализируй.

Однако я полностью согласен с Z1, и к тому же пока не встречал на просторах сети ни одного примера как это сделать.

lustin писал(а) 30. Ноября 2010 :: 11:01:

А это идея, спасибо ...

lustin писал(а) 30. Ноября 2010 :: 11:05:

первоначальная идея именно такая 

[b][color=#0000ff]Вот что получилось в итоге:[/color][/b]

[color=#009900]Саме сложное было понять, как из GUID формата 1С получить идентификатор в том виде, как он хранится в SQL.
(например 0xAA5900304866028611DFFBC2534E1E07) [/color]

[code]Перем ADO,cmd,LastGUID;


Процедура ВыполнитьПереносДокумента(Ссылка)
     
     УстановитьСоединение();
           
     Дата        = Формат(Ссылка.Дата,"ДЛФ=DT");
     Номер       = Ссылка.Номер;
     Состояние   = ПолучитьИдентификаторЭлементаПеречисления(Ссылка.Состояние);
     
     КлючУникальности = ПроверитьДокументНаУникальность(Дата,Номер);
     Если ЗначениеЗаполнено(КлючУникальности) Тогда
           ОбновитьСостояниеСуществующегоДокумента(КлючУникальности,Состояние);
           Возврат ;
     КонецЕсли;      

     Организация = ПолучитьИдентификаторЭлементаСправочника(Ссылка.Организация);
     Контрагент  = ПолучитьИдентификаторЭлементаСправочника(Ссылка.Контрагент);
       Комментарий = СокрЛП(Ссылка.Комментарий);
     Перевозчик      = ПолучитьИдентификаторЭлементаСправочника(Ссылка.Перевозчик);
           
     ВариантПолучения  = ПолучитьИдентификаторЭлементаПеречисления(Ссылка.ВариантПолучения);
     
     Бензовоз          = ПолучитьИдентификаторЭлементаСправочника(Ссылка.Бензовоз);
     Водитель          = ПолучитьИдентификаторЭлементаСправочника(Ссылка.Водитель);
     Нефтебаза         = ПолучитьИдентификаторЭлементаСправочника(Ссылка.Нефтебаза);
     
     НомерДоверенности = Ссылка.НомерДоверенности;
       ДатаДействия      = Формат(Ссылка.ДатаДействия,"ДЛФ=DT");
     
     КлючУникальности = Новый УникальныйИдентификатор;
     КлючУникальности = ПолучитьGUIDПоУникальномуИдентификатору(КлючУникальности);
     

     // создаем сам документ

     ТекстЗапроса ="
     |exec sp_executesql  N'
     |INSERT INTO _Document3247 WITH(REPEATABLEREAD) 62RRef,_Fld3266,_Fld3272)
     @P20)',
     |N'@P1 varbinary(16),
     |@P2 varbinary(1),
     |@P3 datetime,
     |@P4 datetime,
     |@P5 nvarchar(10),
     |@P6 varbinary(1),
     |@P7 varbinary(16),
     |@P8 varbinary(16),
     |@P10 ntext,
     |@P11 varbinary(16),
     |@P12 varbinary(16),
     |@P13 varbinary(16),
     |@P14 varbinary(16),
     |@P15 numeric(16,3),
     |@P16 varbinary(16),
     |@P18 datetime,
     |@P20 ntext',
     |"+КлючУникальности+",
     |0x00,
     |'"+Дата+"',
     |'"+Дата+"',
     |N'"+Номер+"',
     |0x00,
     |"+Организация+",
     |"+Контрагент+",
     |N'"+Комментарий+"',
     |"+Перевозчик+",
     |"+Водитель+",
     |"+Бензовоз+",
     |"+ВариантПолучения+",
     |"+Ссылка.СуммаДокумента+",
     |"+Состояние+",
     |'"+ДатаДействия+"',
     |N'"+НомерДоверенности+"'
     |";
           
     Cmd.CommandText =ТекстЗапроса;

     Состояние("Выполнение запроса");
     
     НачатьТранзакцию();
     RS= Cmd.Execute();
     ЗафиксироватьТранзакцию();
     

     // пишем табличную часть к нему

     Если Ссылка.Товары.Количество() = 0 Тогда
           Возврат;
     КонецЕсли;
     
     ПередаваемаяСтрока = Ссылка.Товары[0];
     Номенклатура       = ПолучитьИдентификаторЭлементаСправочника(ПередаваемаяСтрока.Номенклатура);
     Количество         = 0.0");
     Нефтебаза          = ПолучитьИдентификаторЭлементаСправочника(ПередаваемаяСтрока.Нефтебаза);
     Секция             = СокрЛП(ПередаваемаяСтрока.Секция);
     Калибровка         = 0.0");
     
     АЗС1               = ПолучитьИдентификаторЭлементаСправочника(ПередаваемаяСтрока.АЗС1);
     АЗС2               = ПолучитьИдентификаторЭлементаСправочника(ПередаваемаяСтрока.АЗС2);
     
     ЕдиницаИзм         = ),Номенклатура);
     
     ТекстЗапроса ="
     |exec sp_executesql N'INSERT INTO _Document3247_VT3273 WITH(REPEATABLEREAD)
     |VALUES(@P1,@P2,@P3,@P4,@P5,@P6,@P7,@P8,@P9,@P10,@P11)',
     |N'@P1 varbinary(16),
     |@P2 varbinary(4),
     |@P3 numeric(6,1),
     |@P4 varbinary(16),
     |@P5 numeric(16,4),
     |@P6 varbinary(16),
     |@P7 varbinary(16),
     |@P8 ntext,
     |@P9 numeric(11,1),
     |@P10 varbinary(16),
     |@P11 varbinary(16)',
     |"+КлючУникальности+",
     |0x00000001,
     |1.0,
     |"+Номенклатура+",
     |"+Количество+",
     |"+ЕдиницаИзм+",
     |"+Нефтебаза+",
     |N'"+Секция+"',
     |"+Калибровка +",
     |"+АЗС1+",
     |"+АЗС2+"
     |";
                 
     Cmd.CommandText =ТекстЗапроса;
           
     НачатьТранзакцию();
     RS= Cmd.Execute();
     ЗафиксироватьТранзакцию();
           
     Состояние("Запись выполнена успешно");
     Попытка    
           ADO.Close();
     Исключение
           Сообщить(ОписаниеОшибки());
     КонецПопытки;
     
КонецПроцедуры[/code]

[code]Функция ПолучитьGUIDПоУникальномуИдентификатору(Знач UUID)
     ч1 = Сред(UUID,20,4);
     ч2 = Сред(UUID,25,12);
     ч3 = Сред(UUID,15,4);
     ч4 = Сред(UUID,10,4);
     ч5 = Сред(UUID,1,8);
     Возврат "0x" + ч1 + ч2 + ч3 + ч4 + ч5;
КонецФункции

Функция Из_10_В_Любую(Знач Значение=0,Нотация=36)
     Если Нотация<=0 Тогда Возврат("") КонецЕсли;
     Значение=Число(Значение);
     Если Значение<=0 Тогда Возврат("00") КонецЕсли;
     Значение=Цел(Значение);
     Результат="";
     Пока Значение>0 Цикл
           льтат;
           Значение=Цел(Значение/Нотация);
     КонецЦикла;
     Результат=?(СтрДлина(Результат)=1,"0"+Результат,Результат);
     Возврат Результат;
КонецФункции

Функция ПолучитьGUIDизCOMSafeArray(COMSafeArray)
     МассивGuid=COMSafeArray.Выгрузить();
     GUIDСсылки="";
     Для н=12 по 15 Цикл
           GUIDСсылки=GUIDСсылки+Из_10_В_Любую(МассивGuid[н],16)
     КонецЦикла;
     GUIDСсылки=GUIDСсылки+"-";
     
     Для н=10 по 11 Цикл
           GUIDСсылки=GUIDСсылки+Из_10_В_Любую(МассивGuid[н],16)
     КонецЦикла;
     GUIDСсылки=GUIDСсылки+"-";
     
     Для н=8 по 9 Цикл
           GUIDСсылки=GUIDСсылки+Из_10_В_Любую(МассивGuid[н],16)
     КонецЦикла;
     GUIDСсылки=GUIDСсылки+"-";
     Для н=0 по 1 Цикл
           GUIDСсылки=GUIDСсылки+Из_10_В_Любую(МассивGuid[н],16)
     КонецЦикла;
     GUIDСсылки=GUIDСсылки+"-";
     Для н=2 по 7 Цикл
           GUIDСсылки=GUIDСсылки+Из_10_В_Любую(МассивGuid[н],16)
     КонецЦикла;
     
     ВозвЗнач=Новый УникальныйИдентификатор(GUIDСсылки);
     Возврат ВозвЗнач;
КонецФункции
[/code]

[color=#009900]Ищу документ по номеру и дате, если нахожу, возвращаю его идентификатор в том виде, как он хранится в SQL[/color]

[code]Функция ПроверитьДокументНаУникальность(Дата,Номер)
     
     Перем GUID;
     
     ТекстЗапроса ="
     |exec sp_executesql N'SELECT
     |_Document3247_Q_000_T_001._IDRRef AS f_1
     |FROM
     |_Document3247 _Document3247_Q_000_T_001 WITH(NOLOCK)
     |WHERE
     |_Document3247_Q_000_T_001._Number = @P1 AND _Document3247_Q_000_T_001._Date_Time = @P2',
     |N'@P1 nvarchar(10),@P2 datetime',
     |N'"+Номер+"',
     |'"+Дата+"'
     |";
     
     Cmd.CommandText =ТекстЗапроса;
     
     RS= Cmd.Execute();
     
     Если Rs.EOF() = 0 Тогда
           COMSafeArray = Rs.Fields(0).Value;
           GUID = ПолучитьGUIDизCOMSafeArray(COMSafeArray);
           GUID = ПолучитьGUIDПоУникальномуИдентификатору(GUID);
     КонецЕсли;
     
     Возврат GUID;
     
КонецФункции[/code]

[color=#009900]ну, создание соединения стандартное:[/color]

[code]Процедура УстановитьСоединение()
     
     Сервер           = "...";
     База           = "...";
     Пользователь = "...";
     Пароль           = "...";
     
     ADO = Новый COMОбъект("ADODB.Connection");
     
     СтрокаСоединения = ""+
     "DRIVER=SQL Server;"+
     "SERVER="+СокрЛП(Сервер)+";"+
     "DATABASE="+СокрЛП(База)+";"+
     "UID="+СокрЛП(Пользователь)+";"+
     "Password="+СокрЛП(Пароль)+";"+
     "WSID="+СокрЛП(ИмяКомпьютера())+"_"+СокрЛП(ИмяПользователя())+";"+
     "APP=Microsoft Open Database Connectivity;"+
     "Description=For 1C;";  
     
     Состояние("Инициализация ADO компоненты");
     
     Попытка
           ADO.Open(СтрокаСоединения);
           cmd = Новый COMObject("ADODB.Command");
           cmd.ActiveConnection = ADO;
           cmd.CommandTimeout = 7000;
     Исключение  
           Сообщить(ОписаниеОшибки());
           Предупреждение("Невозможно установить Соединение!
           ");  
           ADO = 0;
           Возврат;
     КонецПопытки;
     
КонецПроцедуры[/code]