Не заполняютя субконто в доке Кассовое поступление
Показывать по
10
20
40
сообщений
- 1
- 2
06.03.2011
15:33
#1
"Пытаюсь записать документ кассовое поступление. заполняются все реквизиты кроме СубконтоКредита2 и СубконтоКредита3. Ошибки в коде не вижу. Помогите люди добрые...
Процедура СформироватьКассовоеПоступление();
НовыйДокумент = Документы.КассовоеПоступление.СоздатьДокумент();
ВидОперации=Справочники.ВидыОпераций.НайтиПоНаименованию("Поступление доходов от реализации (205 02, 03, 09, 10)");
НовыйДокумент.ВидОперации = ВидОперации;
НовыйДокумент.ЛицевойСчет = ЛицевойСчет;
НовыйДокумент.Дата = ДатаДокумента;
НовыйДокумент.Учреждение = Учреждение;
НовыйДокумент.КВД = КВД;
НовыйДокумент.ВалютаДокумента = ВалютаДокумента;
НовыйДокумент.Курс = 1.0000;
НовыйДокумент.Кратность=1;
НовыйДокумент.СуммаДокумента = СуммаРеестра;
НовыйДокумент.СуммаДокументаВВалюте = СуммаРеестра;
////// перебираем табличную часть
Для Каждого Строка Из ЗаписиДляПроводок Цикл
ДокСтрока = НовыйДокумент.РасшифровкаПлатежа.Добавить();
ДокСтрока.СчетДебета= СчетДебета;
ДокСтрока.КБКСчетДебета= КБКСчетДебета;
ДокСтрока.КОСГУСчетДебета= КОСГУСчетДебета;
ДокСтрока.СубконтоСчетДебета2=РазделЛицевогоСчета;
//////////////////////////////////////////////////
//СчетКредита=ПланыСчетов.ЕПСБУ.НайтиПоКоду("205.03.00");
// КБКСчетКредита=Справочники.КБК.НайтиПоНаименованию("07430201010010000");
ДокСтрока.КБКНазначениеПлатежа= КБКСчетКредита;
ДокСтрока.КОСГУНазначениеПлатежа= КОСГУЗабалансовыйДебет;
ДокСтрока.РазделЛицевогоСчета=РазделЛицевогоСчета;
ДокСтрока.СчетКредита= СчетКредита;
ДокСтрока.КБКСчетКредита= КБКСчетКредита;
ДокСтрока.КОСГУСчетКредита= КОСГУСчетКредита;
Договор_п=Справочники.Договоры.НайтиПоКоду(СокрЛП(Строка.КодДоговора));
Если Договор_п = Справочники.Договоры.ПустаяСсылка() Тогда
Сообщить("Договора "+Строка.КодДоговора + """"" еще нет");
КонецЕсли;
Контрагент_п= Договор_п.Контрагент;
Сообщить(Договор);
Сообщить(Договор.Контрагент);
ДокСтрока.СубконтоСчетКредита2=Контрагент_п ;
ДокСтрока.СубконтоСчетКредита3= Договор_п;
Сообщить(ДокСтрока.СубконтоСчетКредита2);
Сообщить(ДокСтрока.СубконтоСчетКредита3);
////////// забалансовый счет
ДокСтрока.ЗабалансовыйДебет= ЗабалансовыйДебет;
ДокСтрока.КБКЗабалансовыйДебет= КБКЗабалансовыйДебет;
ДокСтрока.КОСГУЗабалансовыйДебет= КОСГУЗабалансовыйДебет;
ДокСтрока.СубконтоЗабалансовыйДебет2=РазделЛицевогоСчета;
// ДокСтрока.СтрокаНазначениеПлатежа= Строка.Договор.НаправлениеДеятельности;
ДокСтрока.СуммаВал=Строка.СуммаПроводки;
ДокСтрока.Сумма=Строка.СуммаПроводки;
КонецЦикла;
КонецЦикла;
Форма = НовыйДокумент.ПолучитьФорму();
Форма.Открыть();"
Процедура СформироватьКассовоеПоступление();
НовыйДокумент = Документы.КассовоеПоступление.СоздатьДокумент();
ВидОперации=Справочники.ВидыОпераций.НайтиПоНаименованию("Поступление доходов от реализации (205 02, 03, 09, 10)");
НовыйДокумент.ВидОперации = ВидОперации;
НовыйДокумент.ЛицевойСчет = ЛицевойСчет;
НовыйДокумент.Дата = ДатаДокумента;
НовыйДокумент.Учреждение = Учреждение;
НовыйДокумент.КВД = КВД;
НовыйДокумент.ВалютаДокумента = ВалютаДокумента;
НовыйДокумент.Курс = 1.0000;
НовыйДокумент.Кратность=1;
НовыйДокумент.СуммаДокумента = СуммаРеестра;
НовыйДокумент.СуммаДокументаВВалюте = СуммаРеестра;
////// перебираем табличную часть
Для Каждого Строка Из ЗаписиДляПроводок Цикл
ДокСтрока = НовыйДокумент.РасшифровкаПлатежа.Добавить();
ДокСтрока.СчетДебета= СчетДебета;
ДокСтрока.КБКСчетДебета= КБКСчетДебета;
ДокСтрока.КОСГУСчетДебета= КОСГУСчетДебета;
ДокСтрока.СубконтоСчетДебета2=РазделЛицевогоСчета;
//////////////////////////////////////////////////
//СчетКредита=ПланыСчетов.ЕПСБУ.НайтиПоКоду("205.03.00");
// КБКСчетКредита=Справочники.КБК.НайтиПоНаименованию("07430201010010000");
ДокСтрока.КБКНазначениеПлатежа= КБКСчетКредита;
ДокСтрока.КОСГУНазначениеПлатежа= КОСГУЗабалансовыйДебет;
ДокСтрока.РазделЛицевогоСчета=РазделЛицевогоСчета;
ДокСтрока.СчетКредита= СчетКредита;
ДокСтрока.КБКСчетКредита= КБКСчетКредита;
ДокСтрока.КОСГУСчетКредита= КОСГУСчетКредита;
Договор_п=Справочники.Договоры.НайтиПоКоду(СокрЛП(Строка.КодДоговора));
Если Договор_п = Справочники.Договоры.ПустаяСсылка() Тогда
Сообщить("Договора "+Строка.КодДоговора + """"" еще нет");
КонецЕсли;
Контрагент_п= Договор_п.Контрагент;
Сообщить(Договор);
Сообщить(Договор.Контрагент);
ДокСтрока.СубконтоСчетКредита2=Контрагент_п ;
ДокСтрока.СубконтоСчетКредита3= Договор_п;
Сообщить(ДокСтрока.СубконтоСчетКредита2);
Сообщить(ДокСтрока.СубконтоСчетКредита3);
////////// забалансовый счет
ДокСтрока.ЗабалансовыйДебет= ЗабалансовыйДебет;
ДокСтрока.КБКЗабалансовыйДебет= КБКЗабалансовыйДебет;
ДокСтрока.КОСГУЗабалансовыйДебет= КОСГУЗабалансовыйДебет;
ДокСтрока.СубконтоЗабалансовыйДебет2=РазделЛицевогоСчета;
// ДокСтрока.СтрокаНазначениеПлатежа= Строка.Договор.НаправлениеДеятельности;
ДокСтрока.СуммаВал=Строка.СуммаПроводки;
ДокСтрока.Сумма=Строка.СуммаПроводки;
КонецЦикла;
КонецЦикла;
Форма = НовыйДокумент.ПолучитьФорму();
Форма.Открыть();"
06.03.2011
15:37
#2
Наверное сначала надо установить тип субконто, а уже потом пихать туда, что не попадя!
06.03.2011
15:46
#3
" почему-то "ДокСтрока.СубконтоСчетДебета2=РазделЛицевогоСчета;" - срабатывает, субконто заполняется корректно без установки типа субконто?"
06.03.2011
16:01
#6
Может быть у этого: ДокСтрока.СубконтоСчетДебета2 тип не составной, а у других составной. У меня сейчас нет под рукой бюджетки, сказать не могу. Да и счета приведите, что по дебету, что по кредиту.
- 1
- 2
Читают тему
(гостей: 1)