8.х Функция приведения кода справочника к определенной длине

Добрый день,

При переносе справочника Контрагентов из ТиС в УТ все коды привелись к одной длине в 9 символов, т.е. было "У04752", стало "У00004752", было "AQ-п6058", стало "AQ-п06058". Возникла потребность обмена данными между базами.
Вопрос: есть ли в УТ процедура по приведению кода к определенной длине, т.е. получив код из ТиС, привести к коду УТ?
Или придется писать вручную?

вручную

уже написал...

Но мне надо вставить нули не в начало, а в середину, и реквизит текстовый, а не числовой...

В данном случае мне помогло, может еще кому поможет:

Код:

				Если СтрДлина(Код) < 9 Тогда
Для Т = 1 По СтрДлина(Код) Цикл
Если Найти("0123456789", Сред(Код, Т, 1)) > 0 Тогда
Прервать;
КонецЕсли;
КонецЦикла;
НовыйКод = Лев(Код, Т-1) + Лев("0000000000", 9-СтрДлина(Код)) + Прав(Код, СтрДлина(Код)-Т+1);
Иначе
НовыйКод = Код;
КонецЕсли;