Имя: Пароль:
1C
1С v8
Как вызвать процедуру из модуля менеджера документа в обработке?
0 JuixyJes
 
23.12.19
11:37
Вот модуль менеджера документа


Функция Из_Число_В_XСчисл(Знач Значение, Шаблон)
    Результат="";
    Основание = СтрДлина(Шаблон);
    Если Значение = 0 Тогда
        Результат = "0";
    Иначе
        Пока Значение>0 цикл
            Остат = Значение%Основание;
            Результат1=Сред(Шаблон,Остат+1,1);
            Значение = (Значение-Остат)/Основание;
            Результат = Результат1 + Результат;
        КонецЦикла;
        
    КонецЕсли;
    Возврат Результат;
КонецФункции

Функция РассчитатьКонтрольныйСимволПоПравиламЦБ(Знач УУИД)
    УУИД = НРег(СтрЗаменить(УУИД, "-", ""));
    Сумма = 0;
    Для Позиция = 1 По СтрДлина(УУИД) Цикл
        КодСимвола = КодСимвола(УУИД, Позиция);
        Если КодСимвола >= 48 И КодСимвола <= 57 Тогда //цифра
            Цифра = КодСимвола - 48;
        ИначеЕсли КодСимвола >= 97 И КодСимвола <= 102 Тогда //буква маленькая
            Цифра = КодСимвола - 87;
        Иначе
            Возврат "";
        КонецЕсли;
        Сумма = Сумма + Цифра * ((Позиция - 1) % 10 + 1);
    КонецЦикла;
    Остаток = Сумма % 16;
    Если Остаток < 10 Тогда
        Возврат Символ(Остаток + 48);
    Иначе
        Возврат Символ(Остаток + 87);
    КонецЕсли;
КонецФункции

Функция УУИдДляЦБ(Ид) Экспорт
    К = РассчитатьКонтрольныйСимволПоПравиламЦБ(Ид);
    ИтоговыйИД = Строка(ИД) + "-" + Строка(К);
    Возврат ИтоговыйИД;    
КонецФункции
1 JuixyJes
 
23.12.19
11:37
Процедура КнопкаВыполнитьНажатие(Кнопка)
    Рез = Документы.мКредитныйДоговор.УУИдДляЦБ(СсылкаНаОбъект.УникальныйИдентификатор());
    Сообщить(Рез);
КонецПроцедуры


А вот модуль формы обработки
2 JuixyJes
 
23.12.19
11:38
При попытке нажатия на кнопку "Выполнить" Выходит вот такая вот ошибка:

{ВнешняяОбработка.ВнешняяОбработка1.Форма.Форма.Форма(3)}: Метод объекта не обнаружен (УУИдДляЦБ)
    Рез = Документы.мКредитныйДоговор.УУИдДляЦБ(СсылкаНаОбъект.УникальныйИдентификатор());
3 mikecool
 
23.12.19
11:40
Экспорт
4 mikecool
 
23.12.19
11:40
вызов с сервера идет?
5 JuixyJes
 
23.12.19
11:42
Это обычное приложение
6 Mankubus
 
23.12.19
11:44
база данных не обновлена?
7 aleks_default
 
23.12.19
11:44
(4)Конечно нет, не видишь чтоли?
8 JuixyJes
 
23.12.19
11:57
Нет, все обновлено.
9 JuixyJes
 
23.12.19
11:57
Ошибка исчезла
10 Mankubus
 
23.12.19
13:10
(9) сама?!
11 JuixyJes
 
23.12.19
15:55
Нет, я косякнула.
Косяк исправлен, все работает
AdBlock убивает бесплатный контент. 1Сергей