0
// Удаление из записи полей 691
// удаляемые поля в 991
DEFFLD
3000
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
4000

XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
IF
if p(v691) then '1' fi
DEL
691
F
&uf('+1W991#*',(v991^a,v991^v,v991^o,v991^f,v991^s,v991^g'*')),(if p(v691) then if &uf('+1R991'):s('*'v691^a,v691^v,v691^o,v691^f,v691^s,v691^g'*') then '1' else '0' fi fi#),&uf('+1W991#'),

FI
DEL
991
*


IF
if v991<>v691 then '1' fi
PUTFLD
'Удалены данные из записи MFN=',f(val(mfn),0,0),
FI
GETFLD
4000