FUNCTION TUTUP Parameters PP1,PP2,PP3,PP4,PP5,PP6,PP7,PP8,PP9 If Pcount()>=1 If Used(PP1) Select (PP1) Use Endif Endif If Pcount()>=2 If Used(PP2) Select (PP2) Use Endif Endif If Pcount()>=3 If Used(PP3) Select (PP3) Use Endif Endif If Pcount()>=4 If Used(PP4) Select (PP4) Use Endif Endif If Pcount()>=5 If Used(PP5) Select (PP5) Use Endif Endif If Pcount()>=6 If Used(PP6) Select (PP6) Use Endif Endif If Pcount()>=7 If Used(PP7) Select (PP7) Use Endif Endif If Pcount()>=8 If Used(PP8) Select (PP8) Use Endif Endif If Pcount()>=9 If Used(PP9) Select (PP9) Use Endif Endif ENDFUNC

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