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