"Пытаюсь записать документ кассовое поступление. заполняются все реквизиты кроме СубконтоКредита2 и СубконтоКредита3. Ошибки в коде не вижу. Помогите люди добрые...<br>Процедура СформироватьКассовоеПоступление();<br> НовыйДокумент = Документы.КассовоеПоступление.СоздатьДокумент();<br> ВидОперации=Справочники.ВидыОпераций.НайтиПоНаименованию("Поступление доходов от реализации (205 02, 03, 09, 10)");<br> НовыйДокумент.ВидОперации = ВидОперации;<br> НовыйДокумент.ЛицевойСчет = ЛицевойСчет;<br> НовыйДокумент.Дата = ДатаДокумента;<br> НовыйДокумент.Учреждение = Учреждение;<br> НовыйДокумент.КВД = КВД;<br> НовыйДокумент.ВалютаДокумента = ВалютаДокумента;<br> НовыйДокумент.Курс = 1.0000;<br> НовыйДокумент.Кратность=1;<br> НовыйДокумент.СуммаДокумента = СуммаРеестра;<br> НовыйДокумент.СуммаДокументаВВалюте = СуммаРеестра;<br><br>////// перебираем табличную часть<br><br>Для Каждого Строка Из ЗаписиДляПроводок Цикл<br> ДокСтрока = НовыйДокумент.РасшифровкаПлатежа.Добавить();<br> ДокСтрока.СчетДебета= СчетДебета;<br> ДокСтрока.КБКСчетДебета= КБКСчетДебета;<br> ДокСтрока.КОСГУСчетДебета= КОСГУСчетДебета;<br> ДокСтрока.СубконтоСчетДебета2=РазделЛицевогоСчета;<br> <br> //////////////////////////////////////////////////<br> //СчетКредита=ПланыСчетов.ЕПСБУ.НайтиПоКоду("205.03.00");<br>// КБКСчетКредита=Справочники.КБК.НайтиПоНаименованию("07430201010010000");<br> ДокСтрока.КБКНазначениеПлатежа= КБКСчетКредита;<br> ДокСтрока.КОСГУНазначениеПлатежа= КОСГУЗабалансовыйДебет;<br> ДокСтрока.РазделЛицевогоСчета=РазделЛицевогоСчета;<br> <br> ДокСтрока.СчетКредита= СчетКредита;<br> ДокСтрока.КБКСчетКредита= КБКСчетКредита;<br> ДокСтрока.КОСГУСчетКредита= КОСГУСчетКредита;<br><br> Договор_п=Справочники.Договоры.НайтиПоКоду(СокрЛП(Строка.КодДоговора));<br>Если Договор_п = Справочники.Договоры.ПустаяСсылка() Тогда<br> Сообщить("Договора "+Строка.КодДоговора + """"" еще нет");<br>КонецЕсли;<br><br> Контрагент_п= Договор_п.Контрагент;<br>Сообщить(Договор); <br>Сообщить(Договор.Контрагент); <br> ДокСтрока.СубконтоСчетКредита2=Контрагент_п ;<br> ДокСтрока.СубконтоСчетКредита3= Договор_п;<br>Сообщить(ДокСтрока.СубконтоСчетКредита2); <br>Сообщить(ДокСтрока.СубконтоСчетКредита3); <br><br> <br>////////// забалансовый счет<br> ДокСтрока.ЗабалансовыйДебет= ЗабалансовыйДебет;<br> ДокСтрока.КБКЗабалансовыйДебет= КБКЗабалансовыйДебет;<br> ДокСтрока.КОСГУЗабалансовыйДебет= КОСГУЗабалансовыйДебет;<br> ДокСтрока.СубконтоЗабалансовыйДебет2=РазделЛицевогоСчета;<br><br>// ДокСтрока.СтрокаНазначениеПлатежа= Строка.Договор.НаправлениеДеятельности;<br><br> <br> ДокСтрока.СуммаВал=Строка.СуммаПроводки;<br> ДокСтрока.Сумма=Строка.СуммаПроводки;<br> <br>КонецЦикла; <br><br><br>КонецЦикла; <br>Форма = НовыйДокумент.ПолучитьФорму();<br><br>Форма.Открыть();"