1CV7.7 перенос документов через V77.Application

"перенос документов через V7.CreateObject

подскажите как сюда привезать следом счёт на основании которого была зделанна реализация???


//******************************************************************************
Процедура ВыгрузкаРеализация()
V7 = СоздатьОбъект("V77.Application");
Открыта = V7.Initialize(V7.RMTrade, "/d" "E:\1C_77\Bases\RIF\Account\Base_2009\ /nUSER /p1234" , "NO_SPLASH_SHOW");//nbc Если Открыта = 0  Тогда
Предупреждение("Не могу открыть конфигурацию бухгалтерии !", 20);
Возврат;
КонецЕсли;  
Сообщить("Подключение к базе "+" успешно!");

ДокРеал = V7.CreateObject("Документ.РасходнаяНакладная_Алко");
Если ДокРеал.НайтиПоНомеру(НомерДок,ДатаДок) =0 тогда
ДокРеал.новый();  
ДокРеал.номерДок=НомерДок;
ДокРеал.ДатаДок=ДатаДок;  
Иначе
ДокРеал.УдалитьСтроки();
КонецЕсли;  

Контрагенты1 = V7.CreateObject("Справочник.Контрагенты");
Контрагенты1.НайтиПоКоду(СокрЛП(Контрагент.код),0);
ДокРеал.Контрагент=Контрагенты1.ТекущийЭлемент();    

Контрагенты2 = V7.CreateObject("Справочник.Контрагенты");
Контрагенты2.НайтиПоКоду(Грузополучатель.код,0);
ДокРеал.Грузополучатель=Контрагенты2.ТекущийЭлемент();  

Контрагенты = V7.CreateObject("Справочник.Контрагенты");
Контрагенты.НайтиПоКоду(Грузоотправитель.код,0);
ДокРеал.Грузоотправитель=Контрагенты2.ТекущийЭлемент();

Спр2 = V7.CreateObject("Справочник.МестаХранения");
Спр2.НайтиПоКоду("70123",0); //МестоХранения.код
ДокРеал.Контрагент=Спр2.ТекущийЭлемент();

ДокРеал.ВидОтгрузки = ВидОтгрузки;
ДокРеал.Курс = Курс;

Спр3 = V7.CreateObject("Справочник.ВариантыРасчетаНалогов");
Спр3.НайтиПоКоду(ВариантРасчетаНалогов.код);
ДокРеал.ВариантРасчетаНалогов = Спр3.ТекущийЭлемент();

Спр4 = V7.CreateObject("Справочник.ТипыЦен");
Спр4.НайтиПоКоду(ТипЦен.код,0);
ДокРеал.ТипЦен = Спр4.ТекущийЭлемент();

ДокРеал.ВерсияОбъекта = ВерсияОбъекта;
   ДокРеал.НДСвключатьВСтоимость = НДСвключатьВСтоимость;
ДокРеал.Комментарий="выгружено из Эксклюзива";
ДокРеал.ПризнакДокумента=V7.перечисление.ПризнакПроводки.Баланс;
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл  
ДокРеал.новаястрока();
Спр1 = V7.CreateObject("Справочник.Номенклатура");
Спр1.НайтиПоКоду(товар.код,0);
ДокРеал.товар = Спр1.ТекущийЭлемент();

       ДокРеал.Количество =Количество;
       ДокРеал.Цена =Цена;
ДокРеал.Сумма =Сумма;
ДокРеал.НДС =НДС;
ДокРеал.Всего =Всего;

КонецЦикла;
ДокРеал.записать();
сообщить("Документ записан");
V7 =0;

КонецПроцедуры"

Если в документе РН есть реквизит ДокументОснования, тогда основываясь на этих данных, если нет никакой привязки РН к Счету то никак.

http://www.rit-group.ru