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

@slimuz · Регистрация: 14.01.2016

Author24 — интернет-сервис помощи студентам

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

1C

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();                                
               
        КонецЦикла;

@Dethmontt · 11.08.2016, 11:05

slimuz, а если там будет 7 файлов?

@Dethmontt Модератор 3784 / 2964 / 589 Регистрация: 10.03.2011 Сообщений: 11,670 Записей в блоге: 1
	11.08.2016, 11:05	2
	slimuz, а если там будет 7 файлов? 0