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),; bwwith 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),; bhwith "0"+y+TRANSFORM(i),; ccbh with "0"+y+TRANSFORM(i)
ENDSCAN