V7=Новый COMОбъект("v77.Application");
          
     Путь=""; Пользователь=""; Пароль="";
          
     Попытка
          Открыта=V7.Initialize(V7.RMTrade,"/d"+Путь+" /n"+Пользователь+" /p"+Пароль, "NO_SPLASH_SHOW");
          //Открыта=V7.Initialize(V7.RMTrade,"/d"+ПутьКБазе+" /n"+"OleServerBuh"+" /p"+"qwerty","");
          сообщить("Подключение к торговле 7.7");
     Исключение
          Предупреждение("Ошибка подключения к базе!");
          Возврат;
     КонецПопытки;
     
     Док77=V7.CreateObject("Документ.ПоступлениеТМЦ");
     Если Док77.НайтиПоНомеру(СокрЛП(ВыбДок.Номер), ВыбДок.Дата)= 0  Тогда
          сообщить("Создаю документ...");
          Док77.Новый();
          Док77.НомерДок          = ВыбДок.Номер;
          Док77.ДатаДок          = ВыбДок.Дата;
     Иначе
          сообщить("Документ с таким номером уже есть в торговле. Выгрузка не будет делаться.");
          возврат;
     КонецЕсли;
     
     //Фирма
     Док77.Фирма          = ПолучитьСпрПоКоду("Фирмы",          ВыбДок.Фирма.Код,          ВыбДок.Фирма.Наименование);
     Док77.Склад          = ПолучитьСпрПоКоду("Склады",          ВыбДок.Склад.Код,          ВыбДок.Склад.Наименование);
     Док77.Контрагент= ПолучитьСпрПоКоду("Контрагенты",     ВыбДок.Контрагент.Код,     ВыбДок.Контрагент.Наименование);
     
     //УчитыватьНДС
     Если ВыбДок.УчитыватьНДС Тогда
          Док77.УчитыватьНДС= 1 ;
     Иначе
          Док77.УчитыватьНДС= 0 ;
     КонецЕсли;
     
     //СуммаВключаетНДС
     Если ВыбДок.СуммаВключаетНДС Тогда
          Док77.СуммаВключаетНДС= 1 ;
     Иначе
          Док77.СуммаВключаетНДС= 0 ;
     КонецЕсли;
     
     Док77.Курс= 1 ;
     
     Док77.ТипЦен= ПолучитьСпрПоНаименованию("ТипыЦен",     ВыбДок.ТипЦен.Наименование);
     
     //Реквизиты СФ
     Док77.НомерСФ          = ВыбДок.НомерСФ;
     Док77.ДатаСФ          = ВыбДок.ДатаСФ;
     
     Док77.СезонностьШ= ПолучитьСпрПоНаименованию("Сезонность",     ВыбДок.СезонностьШ.Наименование);
          
     //Комментарий
     Док77.Комментарий     = "Выгружен из Торг 8.1   "+строка(ТекущаяДата());