0
ADD
1003
XXXXXXXXXXXXXXXXXXX
&uf('+7w1111#','%4'),(if &uf('+7r1111,1'):',' then &uf('g0,'&uf('+7r1111,1'))# &uf('+7w1111#'&uf('g2,'&uf('+7r1111,1')))  else &uf('+7r1111,1') break fi)
XXXXXXXXXXXXXXXXXXX
REPEAT
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
CORREC
'*'
'^A',&uf('AV1003#1'),'^R','%3','^M','%1','^S','%2',
'IN='&uf('AV1003#1')

REP
910^D
F
&uf('+7W10#'),(if p(v910) then  if p(v910^D) then if v910^H=&uf('AV1001^A#1') then &uf('AV1001^M#1'),,,&uf('+7W10#Место хранения изменено. MFN=',f(val(mfn),0,0),' Инв.номер - ',v910^H ) else v910^D fi then if &uf('AV1001^M#1')='' then v910^D else # fi else # fi fi/)

REP
910^A
F
(if p(v910) then if p(v910^A) then if v910^H=&uf('AV1001^A#1') then &uf('AV1001^S#1'),,  else v910^A fi else # fi fi/)

REP
910^!
F
(if p(v910) then  if p(v910^!) then if v910^H=&uf('AV1001^A#1') then &uf('AV1001^R#1'),, else v910^! fi else #  fi fi/)

DEL
1001
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
1003
1
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
UNTIL
if P(v1003) then '1' else '0' fi 
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX