Проводка с субконто

[бумер]

Добрый день !
   Из таблицы выбираю строки  и программно провожу в регистр, знаю что субконто можно записать так

Код Выделить Развернуть

Проводка.СубконтоДт.вставить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура,ТекСтрока.Субконто1);Но не всегда у счета первым субконто может быть, например, номенклатура. Подстажите пожалуйста как можно заполнить субконто регистра независимо от типа.

[Шурыгин Иван Сергеевич]

для реализации такой функции необходимо как минимум еще и учитывать что у у некоторых счетов может вообще не оказаться субконто! это 1. второе, субконто, точнее их виды хранятся в ТЧ. так что я могу порекомендовать вот такую процедуру:

Код Выделить Развернуть


Процедура ВставитьСубконтоН(ТипДтКт,Счет,НомерСубконто,ЗначениеСубконто,Проводка)
Если НЕ (ТипДтКт = "Кт" ИЛИ ТипДтКт = "Дт") Тогда //не правильно передан тип
Возврат;
КонецЕсли;

Если Счет.Субконто.Количество() < НомерСубконто Тогда
Возврат;
//не правильно указан номер субконто
КонецЕсли;

Если НомерСубконто < 1 Тогда
//Не правильно задан номер субконто
Возврат;
КонецЕсли;

Проводка["Субконто" + ТипДтКт].Вставить(Счет.Субконто[НомерСубконто - 1].ВидСубконто,ЗначениеСубконто);
КонецПроцедуры



[бумер]

Спасибо, помогло.