1

Первый контр. номер:
ADD
3100
XXXXXXXXXXXXXXXXXXX
if a(v3100) then if Val(g1)=0 then  &unifor('+1W2#','%1'),s('000',&unifor('+1R2')),,&uf('+7W1#1'),, else &unifor('+1W2#',F(val(&unifor('+1R2'))+1,0,0)),s('000',&unifor('+1R2'))  fi else '' fi
XXXXXXXXXXXXXXXXXXX