|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Функция ПолучитьСубконто(Счет, Субконто, ИмяСубконто) Экспорт Если Счет = Неопределено ИЛИ Счет.Пустая() Тогда Возврат Неопределено; КонецЕсли; Если ТипЗнч(ИмяСубконто) = Тип("Число") Тогда Если ИмяСубконто > Счет.ВидыСубконто.Количество() Тогда Возврат Неопределено; КонецЕсли; ВидСубк = Счет.ВидыСубконто[ИмяСубконто - 1].ВидСубконто; Иначе ВидСубк = ПланыВидовХарактеристик[Метаданные.НайтиПоТипу(ТипЗнч(Счет)).ВидыСубконто.Имя][ИмяСубконто]; Если Счет.ВидыСубконто.Найти( ВидСубк) = Неопределено Тогда Возврат Неопределено; КонецЕсли; КонецЕсли; Возврат Субконто[ВидСубк]; КонецФункции |
About the Author
