Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
26 ноя 2024, 03:07

Изменение субконто с доп. характеристиками.

Автор hristoff, 27 авг 2014, 03:43

0 Пользователей и 1 гость просматривают эту тему.

hristoff

Подскажите в операциях в ручную в БГУ нужно поменять субконто которым является дополнительная бюджетная классификация.
за основу взял такой код и немного подправил:

ТекПроводки = Объект.Движения.ЕПСБУ;   
ТекПроводки.Прочитать();
с0=ПланыСчетов.ЕПСБУ.НайтиПоКоду("000");

для каждого проводка из текпроводки цикл

СДт = Проводка.СчетДт;
Скт =проводка.СчетКт;
если СДт<>с0 тогда
Проводка["СубконтоДт"][СДт.ВидыСубконто[3].ВидСубконто]=справочники.ДополнительнаяБюджетнаяКлассификация.НайтиПоНаименованию("611: САДЫ;");

иначе
Проводка["СубконтоКт"][СКт.ВидыСубконто[3].ВидСубконто]=справочники.ДополнительнаяБюджетнаяКлассификация.НайтиПоНаименованию("611: САДЫ;");

конецесли;
конеццикла;


Но суть в том что когда раскрывается выбор доп.бк нужно ещё указать и детализацию кэк. И просто найти по наименованию тут не подходит польку в итоге внутри значение остается пустым и некорректно отражается в документах.

Подскажите как правильно подставить доп характеристики этого субконто.

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск