Добрый день, уважаемые коллеги!

При вводе данных на рабочем листе есть возможность проверить вводимые значения посредством проверочных форматов. К сожалению, штатная проверка RDR не покрывает изобретательность каталогизаторов.

При этом, в одном поле можно допустить сразу несколько ошибок. Но при этом, в лоб задача не решается:

if &uf('+960*0.1#',v10)=' ' then '1Уберите пробел в начале Фамилии.' else '0' fi,
if &uf('+961*0.1#',v10)=' ' then '1Уберите пробел в конце Фамилии.' else '0' fi,

Почему? Потому что 'Иванов' вернет '00', а ' Иванов ' выдаст '1Уберите пробел в начале Фамилии.1Уберите пробел в конце Фамилии.'

Что совсем не укладывается в заданный стандарт.

Задачу можно решить в лоб:

Вложенные условия, когда второе условие проверяется только если первое должно было вернуть '0'



Но если у нас пять условий? Или механизм проверки и возвращаемое сообщения тоже сложносоставные? Код становится сложночитаемым (или вообще нечитаемым).

В основу предлагаемого решения заложены принципы разделения логики, и максимально возможная в рамках форматного языка ИРБИСА, модульность.

Для этого построим формат на переменных.

300 - входные данные,
200 - выходные данные

101,102,...,N - переменные результата отдельного условия.

Логически формат разделяется на четыре части:

Блок входных данных;
Блок проверки условий;
Блок выбора выходной строки;
Блок вывода строки.



С первым и последним блоком всё понятно.

Третий блок сформирован так, чтобы можно было скопировать пару условий, вставить, и просто сменить номер переменной.

Во втором блоке, при увеличении количества проверок, тоже нужно скопировать-вставить строку и поменять номер соответствующей переменной.

Потом уже прописывать условие, оперируя переменной 300 (Полезно, в случае схожих применений, например для полей 11 и 12 логично использовать этот формат с минимальной правкой.

Но самое интересное, это добавление дополнительных условий к существующим ФЛК-форматам.



Вставляем в шаблон исходный формат 21 поля, для идентичности исходному, заворачиваем вывод в переменную 101, и добавляем рядом свои.

Если предположить, что дополнительные условия вносятся через вложенные if, то не допустить ошибку и понять в дальнейшем чтоже пошло не так, будет в разы сложнее.

P.S. Шаблон в текстовом виде:

&uf('+7W300#',v10),
&uf('+7W200#','0'),

if &uf('+960*0.1#',&uf('+7R300'))=' ' then &uf('+7W101#','1Уберите пробел в начале Фамилии.') else &uf('+7W101#','0') fi,
if &uf('+961*0.1#',&uf('+7R300'))=' ' then &uf('+7W102#','1Уберите пробел в конце Фамилии.') else &uf('+7W102#','0') fi,


if &uf('+960*0.1#',&uf('+7R101'))='1' then 
     &uf('+7W200#',&uf('+7R101')) fi,
if &uf('+960*0.1#',&uf('+7R101')) ='2' and &uf('+960*0.1#'&uf('+7R200')) <>'1' then &uf('+7W200#',     
                   &uf('+7R101')) fi  

if &uf('+960*0.1#',&uf('+7R102'))='1' then 
     &uf('+7W200#',&uf('+7R102')) fi,
if &uf('+960*0.1#',&uf('+7R102')) ='2' and &uf('+960*0.1#'&uf('+7R200')) <>'1' then &uf('+7W200#',     
                   &uf('+7R102')) else fi  


&uf('+7R200')

Редактировано 1 раз. Последний раз 17.01.2019 13:55 пользователем levaleva.