use pgclient index pgclinom,pgclicod
set order to 2
set talk on     
vcd=1
do while .T.
go top        
vrec=recno()        
seek vcd
if eof ()
go vrec            
if codecli=0
replace codecli with vcd
endi
endi
vcd=vcd+1
? vcd
if vcd < reccount()
loop
else
exit
endi 
enddo
close data
retu