Для умного гашения: различия между версиями

м Shihov переименовал страницу Отрывки:для умного гашения в Для умного гашения: Автоматическое переименование
Нет описания правки
 
(не показаны 3 промежуточные версии этого же участника)
Строка 1: Строка 1:
======= Для умного гашения =======
====== Для умного гашения ======


===== Убрать Префиксы и лидирующие нули в обработке на ФормаУмногоГашенияУФ =====
===== Убрать Префиксы и лидирующие нули в обработке на ФормаУмногоГашенияУФ =====


<1c>
<syntaxhighlight lang='1c'>
&НаКлиенте
&НаКлиенте
Функция НайтиВДереве(Имя,Колонка,Значение)
Функция НайтиВДереве(Имя,Колонка,Значение)
Рез = Новый Массив;        
Рез = Новый Массив;
Если ТипЗнч(Колонка) = Тип("Строка") Тогда
Если ТипЗнч(Колонка) = Тип("Строка") Тогда
Для Каждого Стр Из ЭтаФорма["Таб"+Имя+"Дерево"].ПолучитьЭлементы() Цикл
Для Каждого Стр Из ЭтаФорма["Таб"+Имя+"Дерево"].ПолучитьЭлементы() Цикл
Строка 68: Строка 68:
МассивСтрок = СтрРазделить(СтрокаСЧислом, "0123456789", Ложь);
МассивСтрок = СтрРазделить(СтрокаСЧислом, "0123456789", Ложь);
Для Каждого ТекСтрока из МассивСтрок Цикл  
Для Каждого ТекСтрока из МассивСтрок Цикл  
    СтрокаСЧислом = СтрЗаменить(СтрокаСЧислом, ТекСтрока, "");
СтрокаСЧислом = СтрЗаменить(СтрокаСЧислом, ТекСтрока, "");
КонецЦикла;
КонецЦикла;
СтрокаСЧислом = УбратьЛидирующиеНули(СтрокаСЧислом);
СтрокаСЧислом = УбратьЛидирующиеНули(СтрокаСЧислом);
Строка 75: Строка 75:


&НаКлиенте
&НаКлиенте
Функция УбратьЛидирующиеНули(Код) Экспорт  
Функция УбратьЛидирующиеНули(Код) Экспорт
    _Код = СтрЗаменить(Код, "УТ", "");  
_Код = СтрЗаменить(Код, "УТ", "");
    Если Лев(_Код, 1) = "0" Тогда
Если Лев(_Код, 1) = "0" Тогда
        Возврат УбратьЛидирующиеНули(Прав(_Код, СтрДлина(_Код) - 1));  
Возврат УбратьЛидирующиеНули(Прав(_Код, СтрДлина(_Код) - 1));  
    Иначе
Иначе
        Возврат _Код;
Возврат _Код;
    КонецЕсли;    
КонецЕсли;
КонецФункции  
КонецФункции  
</1c>
</syntaxhighlight>
[[Category:Отрывки]]
[[Category:Отрывки]]
<vote type=1 />