Имя: Пароль:
1C
1C 7.7
v7: Передача даты и времени документа через COM из 1С 7.7 в 1С 8.2
0 Neros
 
24.05.13
17:33
Добрый день.Столкнулся с проблемой при подключении по Com из 7.7 к 8.2 предприятие не знаю как правильно преобразовать дату и время отчёта.  
   v8=СоздатьОбъект("V82.ComConnector");
   База= v8.Connect("Srvr=sdserver:"";Ref="";Usr="";Pwd ="");
   Если v8=0 Тогда
       Сообщить("Ошибка открытия базы!", "!");
       СтатусВозврата(0);
   Иначе
       Сообщить("Соединение выполнено успешно Союз-Юг");
   КонецЕсли;    
   ДатаНачПередаваемая=Строка(ДатаОтчета)+" 00:00:00";    
   ДатаКонПередаваемая=Строка(ДатаОтчета)+" 23:59:59";    
   
   
   ЗапросПоДокументам=База.NewObject("Запрос");
   ЗапросПоДокументам.Текст=" Выбрать
   |ВзаиморасчетыСКонтрагентамиОбороты.Организация.Наименование,
   |ВзаиморасчетыСКонтрагентамиОбороты.Регистратор.Ответственный КАК РегистраторОтветственный,
   |СУММА(ВзаиморасчетыСКонтрагентамиОбороты.Регистратор.СуммаДокумента) КАК РегистраторСуммаДокумента
   |ИЗ
   |РегистрНакопления.ВзаиморасчетыСКонтрагентами.Обороты(&ДатаНач, &ДатаКон, Регистратор, ) КАК ВзаиморасчетыСКонтрагентамиОбороты
   |ГДЕ
   |ВзаиморасчетыСКонтрагентамиОбороты.Регистратор.Ответственный = "+Автор.Наименование+"
   |И
   |ВзаиморасчетыСКонтрагентамиОбороты.Регистратор.Дата > '"+ДатаНачПередаваемая+"'
   |И
   |ВзаиморасчетыСКонтрагентамиОбороты.Регистратор.Дата < '"+ДатаКонПередаваемая+"'
   |И
   |ВзаиморасчетыСКонтрагентамиОбороты.Регистратор.Проведен = ИСТИНА
   |СГРУППИРОВАТЬ ПО
   |ВзаиморасчетыСКонтрагентамиОбороты.Регистратор.Ответственный,
   |ВзаиморасчетыСКонтрагентамиОбороты.Организация.Наименование
   |УПОРЯДОЧИТЬ ПО
   |РегистраторОтветственный
   |";
 
   ЗапросПоДокументам=ЗапросПоДокументам.Выполнить();
   ЗапросПоДокументам.Выгрузить(ТаблПКО);

   ТаблПКО.Свернуть("Автор,Фирма","Сумма");
   ЗаписатьВЭксель(ТаблПко);