Обсуждение к заданию: Импорт проводок из Парус 7 в 1С 8.3

• • #1
  • 11.02.2018 19:27
  0
  Yana1

  Приватное сообщение
  Здравствуйте! Требуется обработка, позволяющая загружать свод проводок по заработной плате из Парус 7 в 1С "Бухгалтерия государственного учреждения, редакция 1.0" (в документ "Отраж...  Подробнее>>
• • #2
  • 11.02.2018 19:29
  +1
  Л. Андрей

  Приватное сообщение
  Connection = Новый COMОбъект("ADODB.Connection");
  
  попытка
  Connection.Open(" DRIVER = {Microsoft Visual FoxPro Driver}; dsn=parus;User id=1; Password=1; SourceDB = "+ИмяФайла);
  исключение
  Сообщить ("Проблемы с подключением" );
  Возврат;
  КонецПопытки;
  
  RS = Новый COMОбъект("ADODB.Recordset");
  
  попытка
  RS.Open("SELECT ZANK_1.ANK_RN, ORGBASE_1.RMNEMO_ORG, ORGBASE_1.SHOWNAME, ZSNU_1.NUM, ZSNU_1.CODE, ZSNU_1.NICK, ZSNU_1.NAME, ZSNU_1.TYPE, ZHIS.YEAR, ZHIS.MONTH, ZHIS.YEARFOR, ZHIS.MONTHFOR, ZHIS.STORNO, ZHIS.SUM, ZHIS.LOCK FROM ZHIS left join ZANK as ZANK_1 on (ZHIS.ANK_RN = ZANK_1.ANK_RN) left join ORGBASE as ORGBASE_1 on (ZANK_1.ORGBASE_RN = ORGBASE_1.RN) left join ZSNU as ZSNU_1 on (ZHIS.SNU_RN = ZSNU_1.SNU_RN)", Connection );
  исключение
  Сообщить ("Проблемы с выполнением запроса ");
  Возврат;
  КонецПопытки;
  
  Пока RS.EOF() = 0 Цикл
  Имя = RS.Fields("ANK_RN").Value;
  Сообщить(Имя);
  // Обработка других полей
  
  RS.MoveNext();
  
  КонецЦикла;
• • #3
  • 11.02.2018 19:39
  0
  Nataly

  Приватное сообщение
  а что вы не купите на сайте фирмы разработчика ?