ppkmlite
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствйте. Нужно сделать обработку,которая проставляет субконто у счета. БГУ,редакция 2.0 уф.
Я написала код,проставляется субконто только для первой строчки, то есть если в проводке например два разных кбк,то и счет ,которому нужно проставить субконто два раза записывается в проводке, а моя обработка проставляет субконто только одн раз,для первой строчки.Вторая остается пустой. Как проставить субконто ко всем строчкам?!
Процедура ОбработатьНаСервере()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПлатежноеПоручениеРасшифровкаПлатежа.Ссылка,
| ПлатежноеПоручениеРасшифровкаПлатежа.КБКНазначениеПлатежа,
| ПлатежноеПоручениеРасшифровкаПлатежа.КОСГУНазначениеПлатежа,
| ПлатежноеПоручениеРасшифровкаПлатежа.ДопКлассификация
|ИЗ
| Документ.ПлатежноеПоручение.РасшифровкаПлатежа КАК ПлатежноеПоручениеРасшифровкаПлатежа";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() цикл
ДвиженияДокумента = РегистрыБухгалтерии.ЖурналПроводокЕПСБУ.СоздатьНаборЗаписей();
ДвиженияДокумента.Отбор.Регистратор.Установить(ВыборкаДетальныеЗаписи.Ссылка);
ДвиженияДокумента.Прочитать();
Для каждого Проводка ИЗ ДвиженияДокумента Цикл
Если Проводка.СчетКт = ПланыСчетов.ЕПСБУ.НайтиПоКоду("18.01") Тогда
Если проводка.КПСКт = ВыборкаДетальныеЗаписи.КБКНазначениеПлатежа И проводка.КЭККт = ВыборкаДетальныеЗаписи.КОСГУНазначениеПлатежа Тогда
Проводка.СубконтоКт.допклассификация =ВыборкаДетальныеЗаписи.ДопКлассификация;
КонецЕсли;
КонецЕсли;
КонецЦикла;
ДвиженияДокумента.Записать();
КонецЦикла;
КонецПроцедуры
|
