V77 = Новый COMОбъект("V77M.Application"); Если V77.Initialize(V77.RMTrade,"ИсточникСтр","") Тогда Сообщить("Успех"); Накл= V77.EvalExpr("CreateObject(""Документ.РасходнаяНакладная"")"); ДокОсн= V77.EvalExpr("CreateObject(""Документ"")"); Накл.ВыбратьДокументы(); Пока Накл.ПолучитьДокумент()=1 Цикл Номер=СокрЛП(Накл.НомерДок); ДокСоотв=Документы.РеализацияТоваров.НайтиПоНомеру(СокрЛП(Номер), Накл.ДатаДок); Если Накл.Проведен()=0 Тогда Продолжить; КонецЕсли; Если ДокСоотв=Документы.РеализацияТоваров.ПустаяСсылка() Тогда Сообщить("! для "+Накл.Вид()+" "+Накл.НомерДок+" не найдено соответстствие"); Продолжить; КонецЕсли; Если Накл.ДокументОснование.Выбран()=0 Тогда Продолжить; КонецЕсли; // и т.д. Иначе Предупреждение("Ошибка открытия информационной базы"); Возврат; КонецЕсли;