0
Pandoch
30.12.14
✎
10:47
|
Такой вопрос. В документе "Отчет о розничных продажах" исследовался вопрос формирования проводок, чтобы кое-что поправить, заполнение субконто кое-каких. Нашла место в модуле "УправлениеЗапасамиПартионныйУчетФормированиеПроводокРегл", в процедуре "НачислитьДоходОтРеализации", там построчно формируются проводки.
Там такой код:
Для каждого ВидСубконто Из Проводка.СчетКт.ВидыСубконто Цикл
ЗаполнитьСубконтоПоРеквизитам(ВидСубконто, Проводка.СубконтоКт, СтрокаДокумента.КорСубконтоБУ1, СтрокаДокумента.КорСубконтоБУ2, , , СтруктураПараметров);
Если ВидСубконто.ВидСубконто.ТипЗначения.СодержитТип(ТипЗнч(СтрокаДокумента.СтавкаНДС)) Тогда Проводка.СубконтоКт.Вставить(ВидСубконто.ВидСубконто, СтрокаДокумента.СтавкаНДС);
КонецЕсли;
///ЭТО БЫЛО ДОБАВЛЕНО ДРУГИМ ПРОГРАММИСТОМ
Если (ВидСубконто.ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Подразделения)
И (ТипЗнч(Проводка.регистратор) =ТипЗнч(Документы.ОтчетОРозничныхПродажах.ПустаяСсылка()))
Тогда
Проводка.СубконтоКт.Вставить(ВидСубконто.ВидСубконто, Проводка.регистратор.ПодразделениеОрганизации);
КонецЕсли;
///////-
///ЭТО ДОБАВИЛА Я
Если СтруктураПараметров.свойство("ПодразделениеВыручка") и (ВидСубконто.ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Подразделения)
Тогда
Проводка.СубконтоКт.Вставить(ВидСубконто.ВидСубконто, СтруктураПараметров.ПодразделениеВыручка); Проводка.СубконтоДт.Вставить(ВидСубконто.ВидСубконто, СтруктураПараметров.ПодразделениеВыручка);
КонецЕсли;
/////////-
КонецЦикла;
Все заполняется верно субконто. Но в конце обработки проведения есть еще одна подписка, опять же написанная сторонними программистами до меня, в которой опять заполняется субконто подразделение. И оно перекрывает все мои заполнения предыдущие:
НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Установить(Источник.Ссылка);
НаборЗаписей.Прочитать();
Для Каждого Запись Из НаборЗаписей Цикл
Если СписокСчетов.НайтиПоЗначению(Запись.СчетДт) <> Неопределено Тогда БухгалтерскийУчет.УстановитьСубконто(Запись.СчетДт, Запись.СубконтоДт, "Подразделения", Источник.ПодразделениеОрганизации);
КонецЕсли;
Если СписокСчетов.НайтиПоЗначению(Запись.СчетКт) <> Неопределено Тогда БухгалтерскийУчет.УстановитьСубконто(Запись.СчетКт, Запись.СубконтоКт, "Подразделения", Источник.ПодразделениеОрганизации);
КонецЕсли;
КонецЦикла;
И тут пришлось поправить. Но вопрос - зачем в конце еще раз правили подразделения?? Если до этого они заполнялись в общем модуле? когда я комменчу эту подписку - проводок в документе вообще не видно. Я пока не Вы с регистрами бухгалтерии, может кто-то подскажет?
|
|