V77 = Новый COMОбъект("V77M.Application");

Если  V77.Initialize(V77.RMTrade,"ИсточникСтр","") Тогда

       Сообщить("Успех");

       Накл= V77.EvalExpr("CreateObject(""Документ.РасходнаяНакладная"")");

       ДокОсн= V77.EvalExpr("CreateObject(""Документ"")");



	 Накл.ВыбратьДокументы();

	 Пока Накл.ПолучитьДокумент()=1 Цикл

		 Номер=СокрЛП(Накл.НомерДок);

		  ДокСоотв=Документы.РеализацияТоваров.НайтиПоНомеру(СокрЛП(Номер), Накл.ДатаДок);  

		   Если Накл.Проведен()=0 Тогда

		     Продолжить;



		 КонецЕсли;

        Если ДокСоотв=Документы.РеализацияТоваров.ПустаяСсылка() Тогда  

	         Сообщить("! для "+Накл.Вид()+" "+Накл.НомерДок+" не найдено соответстствие");

             Продолжить;



		 КонецЕсли;

		Если Накл.ДокументОснование.Выбран()=0 Тогда

			Продолжить;

		КонецЕсли;

// и т.д.



Иначе  Предупреждение("Ошибка открытия информационной базы");

           Возврат;

КонецЕсли;