| 0
    
        prilforreal   07.08.18✎ 16:10 | 
        Добрый день! Пишу обработку заполнения с формированием кода изделия, частью кода будет номер документа, смотрю отладчиком, номер все время нулевой, как решить вопрос?
 Функция ПолучитьКод(Код="") Экспорт
 Номер=ЭтотОбъект.Номер;
 Если НЕ ЗначениеЗаполнено(Дилер) тогда
 Предупреждение("Заполните Дилера.",15);
 возврат "";
 иначе
 если ДляКода=9 Тогда
 Предупреждение("Исчерпан набор кодов для документа.",15);
 возврат "";
 иначеесли не значениезаполнено(Код) тогда
 ДляКода=ДляКода+1;
 
 Код1=Строка(Число(""+Константы.ОбщийПрефикс.Получить()+Константы.ПрефиксUV.Получить()));
 длинаКод=СтрДлина(""+Число(Дилер.Код))+1;
 Для ии=длинакод По 4 Цикл
 Код1=Код1+"0";
 КонецЦикла;
 код1=код1+Формат(Число(Дилер.Код),"ЧГ=0");
 длинаКод=СтрДлина(Формат(Число(Номер),"ЧГ=0"))+1;
 
 код1=код1+СокрЛП(Формат(Число(Номер),"ЧГ=0"))+ДляКода;
 
 
 возврат код1;
 иначе
 Код1=Строка(Число(""+Константы.ОбщийПрефикс.Получить()+Константы.ПрефиксПотолка.Получить()));
 длинаКод=СтрДлина(""+Число(Дилер.Код))+1;
 Для ии=длинакод По 4 Цикл
 Код1=Код1+"0";
 КонецЦикла;
 код1=код1+Формат(Число(Дилер.Код),"ЧГ=0");
 длинаКод=СтрДлина(Формат(Число(Номер),"ЧГ=0"))+1;
 Для ии=длинакод По 5 Цикл
 Код1=Код1+"0";
 КонецЦикла;
 код1=код1+СокрЛП(Формат(Число(Номер),"ЧГ=0"))+Прав(Код,1);
 
 
 возврат код1;
 конецесли;
 конецесли;
 конецфункции
 |  |