Получение номера на печать без лидирующих нулей и префикса
Добавлено: Вс авг 07, 2011 11:00 pm
- Код: Выделить всё
//
Функция ПолучитьНомерНаПечать (Знач Номер) Экспорт
Номер = СокрЛП(Номер);
ДлинаНомера = СтрДлина(Номер);
НомерНаПечать = "";
Нули = "";
Для н = 0 По ДлинаНомера - 1 Цикл
ТекущийСимвол = Сред(Номер, ДлинаНомера - н, 1);
Если ТолькоЦифрыВСтроке(ТекущийСимвол) Тогда
Если ТекущийСимвол = "0" Тогда
ЗафиксированНоль = Истина;
Иначе
ЗафиксированНоль = Ложь;
КонецЕсли;
Иначе
Прервать;
КонецЕсли;
Если НЕ ЗафиксированНоль Тогда
НомерНаПечать = ТекущийСимвол + Нули + НомерНаПечать;
Нули = "";
Иначе
Нули = Нули + "0"
КонецЕсли;
КонецЦикла;
Возврат НомерНаПечать;
КонецФункции