PROCEDURE TUTUPDBF() AUSED(NEWTABEL) FOR NOM=1 TO ALEN(NEWTABEL,1) IF ASCAN(OLDTABEL,NEWTABEL[NOM,1],1,ALEN(OLDTABEL,1),1,8)=0 TUTUP(NEWTABEL[NOM,1]) ENDIF ENDFOR ENDPROC