USE csfzk IN 0
SELECT csfzk
n=0
w= "4348001000"
y= "1000"
i=2696707
SCAN
i=i+1
n=IIF(n=48,1,n+1)
REPLACE zch WITH w+TRANSFORM(i),;
bw with n,;
ccbh with "0"+y+TRANSFORM(i)
ENDSCAN
USE dgntest IN 0
SELECT dgntest
i=2696707
SCAN
i=i+1
REPLACE zch WITH w+TRANSFORM(i),;
bh with "0"+y+TRANSFORM(i),;
ccbh with "0"+y+TRANSFORM(i)
ENDSCAN