(if p(v30) then if val(&uf('J,RI='v30))<2
then/'0' else  /'1Дублетный идентификатор читателя: ', 
,v30 fi fi/)/


if val(&uf("J,MDPASP="v12814))<2
then/'0' else/'1Дублетная контрольная сумма (паспортные данные)!'fi/                                                                        

                               
if p(v30) then/'0'else 
/'1 Отсутствует идентификатор читателя!' fi,
if p(v200) then 
   if &unifor('IPRIVATE,FIO,')='' and a(v200^l) then
    /'1 Не установлено ФИО ответственного лица' fi 
fi/
if p(v12814) then/'0'else
/'1 Данные поля 12814 (Контрольная сумма) должны быть введены обязательно!'fi/

if p(v31)  then /'0'else
/'1 Данные поля 31 (Создал запись) должны быть введены обязательно!'fi,
if v51='' then /'1 Ошибка: не заполнено поле 51!' else /'0' fi,
if RSUM((if p(v51) then if v51.1:'^' then '1;' else '0;' fi fi))>0 then /'1 Ошибка: не указана дата записи!' else /'0' fi, 
if RSUM((if p(v51) then if v51^C='' then '1;' else '0;' fi fi))>0 then /'1 Ошибка: не введен отдел, в который записан читатель!' else /'0' fi,

if RSUM((if p(v52) then if v52.1:'^' then '1;' else '0;' fi fi))>0 then /'1 Ошибка: не указана дата перерегистрации!' else /'0' fi, 
if RSUM((if p(v52) then if v52^C='' then '1;' else '0;' fi fi))>0 then /'1 Ошибка: не введен отдел перерегистрации!' else /'0' fi