Имя: Пароль:
1C
1С v8
УПП проводки
0 Pandoch
 
30.12.14
10:47
Такой вопрос. В документе "Отчет о розничных продажах"  исследовался вопрос формирования проводок, чтобы кое-что поправить, заполнение субконто кое-каких. Нашла  место в модуле "УправлениеЗапасамиПартионныйУчетФормированиеПроводокРегл", в процедуре "НачислитьДоходОтРеализации", там построчно формируются проводки.

Там такой код:

Для каждого ВидСубконто Из Проводка.СчетКт.ВидыСубконто Цикл
ЗаполнитьСубконтоПоРеквизитам(ВидСубконто, Проводка.СубконтоКт, СтрокаДокумента.КорСубконтоБУ1, СтрокаДокумента.КорСубконтоБУ2, , , СтруктураПараметров);
Если ВидСубконто.ВидСубконто.ТипЗначения.СодержитТип(ТипЗнч(СтрокаДокумента.СтавкаНДС)) Тогда                Проводка.СубконтоКт.Вставить(ВидСубконто.ВидСубконто, СтрокаДокумента.СтавкаНДС);
КонецЕсли;
    
///ЭТО БЫЛО ДОБАВЛЕНО ДРУГИМ ПРОГРАММИСТОМ        
Если (ВидСубконто.ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Подразделения)
И (ТипЗнч(Проводка.регистратор) =ТипЗнч(Документы.ОтчетОРозничныхПродажах.ПустаяСсылка()))
Тогда                    
Проводка.СубконтоКт.Вставить(ВидСубконто.ВидСубконто, Проводка.регистратор.ПодразделениеОрганизации);
КонецЕсли;
///////-


///ЭТО ДОБАВИЛА Я                
Если СтруктураПараметров.свойство("ПодразделениеВыручка") и (ВидСубконто.ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Подразделения)
Тогда                
Проводка.СубконтоКт.Вставить(ВидСубконто.ВидСубконто, СтруктураПараметров.ПодразделениеВыручка);                Проводка.СубконтоДт.Вставить(ВидСубконто.ВидСубконто, СтруктураПараметров.ПодразделениеВыручка);
КонецЕсли;
/////////-
КонецЦикла;


Все заполняется верно субконто. Но в конце обработки проведения есть еще одна подписка, опять же написанная  сторонними программистами до меня, в которой опять заполняется субконто подразделение. И оно перекрывает все мои заполнения предыдущие:

НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();        
НаборЗаписей.Отбор.Регистратор.Установить(Источник.Ссылка);
НаборЗаписей.Прочитать();

Для Каждого Запись Из НаборЗаписей Цикл
Если    СписокСчетов.НайтиПоЗначению(Запись.СчетДт) <> Неопределено Тогда            БухгалтерскийУчет.УстановитьСубконто(Запись.СчетДт, Запись.СубконтоДт, "Подразделения", Источник.ПодразделениеОрганизации);
КонецЕсли;
Если    СписокСчетов.НайтиПоЗначению(Запись.СчетКт) <> Неопределено Тогда            БухгалтерскийУчет.УстановитьСубконто(Запись.СчетКт, Запись.СубконтоКт, "Подразделения", Источник.ПодразделениеОрганизации);
КонецЕсли;
КонецЦикла;


И тут пришлось поправить. Но вопрос - зачем в конце еще раз правили подразделения?? Если до этого они заполнялись в общем модуле? когда я комменчу эту подписку - проводок в документе вообще не видно. Я пока не Вы с регистрами бухгалтерии, может кто-то подскажет?