Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
28 мар 2024, 11:53

Интеграция 1С:Документооборот 8 с LanDocs

Автор slimuz, 07 июл 2016, 07:28

0 Пользователей и 1 гость просматривают эту тему.

slimuz

Доброе утро.
Подскажите пожалуйста кто-нибудь решал задачу интеграции 1С:Документооборот 8 с LanDocs. Каким образом происходит взаимодействие ? На сайте разработчика LanDocs написано только что взаимодействие происходит через через OLE-интерфейс.

slimuz

Написал маленькую обработку, создаёт документ в LanDocs, импортирует наименование из справочника ИсходящиеДокументы через OLE. Проблема в импортировании вложенного файла. Если прописывать в строке Operation.SetStr( "FileName", - путь к файлу с указанием расширения (с локального комп.), в LanDocs импортируется этот файл. Но нужно забирать вложенный файл из 1С:Документооборот 2.0. Файлы перенёс в том хранения файлов (на локальный пк). Подскажите пожалуйста, что в запросе не так. Я новичок в 1с.

Application = Новый COMОбъект( "LanDocs2.LDApplication" );
                Application.UserLogin( "...", "..." );
                                                                         
         Запрос = Новый Запрос;         
        Запрос.Текст = "ВЫБРАТЬ
    |ИсходящиеДокументы.Наименование КАК Наименование1,
    |ИсходящиеДокументы.ДополнительныеРеквизиты.(
    |    Значение.ТекущаяВерсияТом.ПолныйПутьWindows
    |) КАК ПутьКФайлу
        |ИЗ
    |Справочник.ИсходящиеДокументы КАК ИсходящиеДокументы";
        РезультатЗапроса=Запрос.Выполнить();
        Выборка=РезультатЗапроса.Выбрать();                                                         
       
        Пока Выборка.Следующий() Цикл
           
                Operation = Application.CreateOpByName( "NEWDOCUMENT" );

                Operation.ParamByName( "JOURNALID" ).ID = 25132471;

                Operation.SetStr( "LDERC.RegDate"    , "2016-07-15" );

                Operation.SetInt( "LDERC.DocumTypeID", 42345913      );

                Operation.SetStr( "LDERC.DescrDoc"   , Выборка.Наименование1      );

                Operation.Run();                   

                ID = Operation.MainParam.ID;
               
                Operation = Application.CreateOpByName( "EDITDOCUMENT" );

                Operation.MainParam.ID = ID;

                Operation.SetStr( "LDERC.DocN", "Тестовый" );

                Operation.Run();
               
                Operation = Application.CreateOpByName( "NEWFILE" );

                Operation.SetInt( "DocID", ID );

                Operation.SetStr( "FileName", Выборка.ПутьКФайлу );

                Operation.Run();                               
               
        КонецЦикла;

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск