1
DEL907.wss
'Задать дату для удаления повторений меньше заданной И/ИЛИ код пользователя'
// 991^A - дата
// 991^B - ИД пользователя
// удаляю со второго повторения
DEL
991
*


ADD
991

mpu,,,'%1',,,,&uf('+7W2#',,,,,,&uf('+N907'),,,,,,,,,),,,,&uf('+7W1#1')

DEL
1907
*


REPEAT
ADD
111

mpu,&uf('+7W5#',,&uf('Av907#',,,,,g1,,,,,) )

ADD
1907

if val(g1)=1 then g5 else if &uf('Av991^B#1')='' or g5^B<>'' and &uf('Av991^B#1')=g5^B then  if &uf('Av991^A#1')='' or g5^A<>'' and val(g5^A)>=val(&uf('Av991^A#1')) then g5 fi fi fi


UNTIL
&uf('+7W1#',,,,,f(val(g1)+1,0,0),,,),,,if val(g1)<=val(g2) then '1' fi
DEL
907
*


ADD
907

(v1907/)

DEL
991
*


DEL
1907
*