|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
V77 = Новый COMОбъект("V77M.Application"); Если V77.Initialize(V77.RMTrade,"ИсточникСтр","") Тогда Сообщить("Успех"); Накл= V77.EvalExpr("CreateObject(""Документ.РасходнаяНакладная"")"); ДокОсн= V77.EvalExpr("CreateObject(""Документ"")"); Накл.ВыбратьДокументы(); Пока Накл.ПолучитьДокумент()=1 Цикл Номер=СокрЛП(Накл.НомерДок); ДокСоотв=Документы.РеализацияТоваров.НайтиПоНомеру(СокрЛП(Номер), Накл.ДатаДок); Если Накл.Проведен()=0 Тогда Продолжить; КонецЕсли; Если ДокСоотв=Документы.РеализацияТоваров.ПустаяСсылка() Тогда Сообщить("! для "+Накл.Вид()+" "+Накл.НомерДок+" не найдено соответстствие"); Продолжить; КонецЕсли; Если Накл.ДокументОснование.Выбран()=0 Тогда Продолжить; КонецЕсли; // и т.д. Иначе Предупреждение("Ошибка открытия информационной базы"); Возврат; КонецЕсли; |
About the Author
