APPRECOR IMPORTE DANS UNE TABLE LES CHAMPS IDENTIQUES DE L'ENREGISTREMENT EN COURS D'UNE DEUXIÈME TABLE

function apprecor(fic1,fic2)
********************
*AUMERIC : 
*Cette fonction permet d'importer  dans la table fic1 , l'engeristrement en cours de la table fic2
*Les champs  identiques (noms et structures, sont importés
* les deux tables doivents être ouvertes
*******************
local tab1,tab2,nfich1,nfich2,i,j,k,toto,cmd
local oldselect

 oldselect=select()

 dimension tab1(fcount(fic1))
 dimension tab2(fcount(fic2))

for i=1 to alen(tab1)
   tab1[i]=field(i,fic1)
next
for j=1 to alen(tab2)
   tab2[j]=field(j,fic2)
next
select(fic1)
append blank
for i=1 to alen(tab2)
toto=ascan(tab1,tab2[i])
if toto#0
   cmd="replace "+fic1+"."+tab1[toto] +" with " +fic2+"."+tab2[i]
   if vartype(fic1+"."+tab1[toto])==vartype(fic2+"."+tab2[i])
   &cmd
   endif
endif
next

select (oldselect)
return