В начало

Создать описание типов

 

Функция СоздатьОписаниеТипов (НазваниеТипа,Длина,Точность= "")

            мас = Новый Массив;

            мас.Добавить (Тип(НазваниеТипа));

            Если Точность = "" Тогда

                        КвалифСтроки = Новый КвалификаторыСтроки (Длина,

                        ДопустимаяДлина.переменная)

            Иначе

                        КвалифЧисла = Новый КвалификаторыЧисла (ДопустимыйЗнак.Любой,

                        Длина, Точность);

            КонецЕсли;

            Возврат Новый ОписаниеТипов (мас, квалифСтроки, КвалифЧисла);

КонецФункции