Получение кода класса по коду инструмента
Как получить код класса, зная код бумаги?
' Получение CLASSCODE бумаги по её SECCODE из ТТП. Возвращается первое подходящее значение
FUNC Get_ClassCode_By_Seccode(result)
result = get_value(get_security_info("",result),"CLASS_CODE")
END FUNC
Вариант для макропроцессора макропроцессора M4:
define(`Get_ClassCode_By_Seccode',ifelse($1,,`err'print(Error __file__ line __line__: Missing argument)
,get_value(get_security_info("",$1),"CLASS_CODE")))
Во втором случае препроцессор заодно проверит правильность передачи параметров на этапе компиляции, а не исполнения.
Определить однозначно код класса не всегда возможно, см. Почему необязателен параметр ClassCode?