0
DEFFLD
3000
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
4000

XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
691

&uf('+1W777#*',&uf('+97',(v691^W,v691^S,v691^B,v691^A,v691^L,v691^K,v691^V,v691^F,v691^I,v691^O,v691^H'*'))),(if p(v991) then if &uf('+1R777'):s('*',&uf('+97',v993,v991^S,v991^B,v991^A,v991^L,v991^K,v991^V,v991^F,v991^I,v991^O,v991^H)'*') and &uf('Av691#1')<>'' then else v991,|^W|v993,fi,fi,/),&uf('+1W777#'),
##########
PUTFLD
'Откорректирована запись. MFN=',f(val(mfn),0,0)

// --------------------все то же для БД CMPL
// перенос в записи БД CMPL, если задано имя NameCmpl
DEL
991
*


DEL
992
*


DEL
993
*


GETFLD
4000