1

Первый контр. номер:
ADD
3100
XXXXXXXXXXXXXXXXXXX
if a(v3100) then if &unifor('S1A')='1' then  &unifor('+1W310#','%1'),s('000',&unifor('+1R310')) else &unifor('+1W310#',F(val(&unifor('+1R310'))+1,0,0)),s('000',&unifor('+1R310'))  fi else '' fi
XXXXXXXXXXXXXXXXXXX