проблемы с субконто

 Процедура СформироватьКассовоеПоступление();

   НовыйДокумент = Документы.КассовоеПоступление.СоздатьДокумент();

   ВидОперации=Справочники.ВидыОпераций.НайтиПоНаименованию("Поступление доходов от реализации (205 02, 03, 09, 10)");

   НовыйДокумент.ВидОперации = ВидОперации;

   НовыйДокумент.ЛицевойСчет = ЛицевойСчет;

   НовыйДокумент.Дата = ДатаДокумента;

   НовыйДокумент.Учреждение = Учреждение;

   НовыйДокумент.КВД = КВД;

   НовыйДокумент.ВалютаДокумента = ВалютаДокумента;

   НовыйДокумент.Курс = 1.0000;

   НовыйДокумент.Кратность=1;

   НовыйДокумент.СуммаДокумента = СуммаРеестра;

   НовыйДокумент.СуммаДокументаВВалюте = СуммаРеестра;



////// перебираем табличную часть

Для Каждого Строка Из ЗаписиДляПроводок Цикл

  НоваяСтрока = НовыйДокумент.РасшифровкаПлатежа.Добавить();

  НоваяСтрока.СчетДебета= СчетДебета;

  НоваяСтрока.КБКСчетДебета= КБКСчетДебета;

  НоваяСтрока.КОСГУСчетДебета= КОСГУСчетДебета;

  НоваяСтрока.СубконтоСчетДебета2=РазделЛицевогоСчета;

  

  //////////////////////////////////////////////////



  НоваяСтрока.СчетКредита= СчетКредита;

  НоваяСтрока.КБКСчетКредита= КБКСчетКредита;

  НоваяСтрока.КОСГУСчетКредита= КОСГУСчетКредита;

  Договор_п=Справочники.Договоры.НайтиПоКоду(СокрЛП(Строка.КодДоговора));

  Контрагент_п= Договор_п.Контрагент;

  НоваяСтрока.СубконтоСчетКредита2=Контрагент_п ;

  НоваяСтрока.СубконтоСчетКредита3= Договор_п;

Сообщить(НоваяСтрока.СубконтоСчетКредита2); 

Сообщить(НоваяСтрока.СубконтоСчетКредита3);  

////////// забалансовый счет

  НоваяСтрока.ЗабалансовыйДебет= ЗабалансовыйДебет;

  НоваяСтрока.КБКЗабалансовыйДебет= КБКЗабалансовыйДебет;

  НоваяСтрока.КОСГУЗабалансовыйДебет= КОСГУЗабалансовыйДебет;

  НоваяСтрока.СубконтоЗабалансовыйДебет2=РазделЛицевогоСчета;



  НоваяСтрока.КБКНазначениеПлатежа= КБКЗабалансовыйДебет;

  НоваяСтрока.КОСГУНазначениеПлатежа= КОСГУЗабалансовыйДебет;

  НоваяСтрока.СтрокаНазначениеПлатежа= Строка.Договор.НаправлениеДеятельности;



 НоваяСтрока.РазделЛицевогоСчета=РазделЛицевогоСчета;

 НоваяСтрока.СуммаВал=Строка.СуммаПроводки;

 НоваяСтрока.Сумма=Строка.СуммаПроводки;

КонецЦикла; 

   

 Договор_п=Справочники.Договоры.НайтиПоКоду(СокрЛП(Строка.КодДоговора));