Apprecor importe dans une table les champs identiques de l'enregistrement en cours d'une deuxième table

Commenter

Contenu du snippet

Dans vfp, la commande append from importe tous les enregistrements d'une table.
Apprecor fonctionne de la même manière, mais en n'important que l'enregistrement en cours.

C'est pas grand chose, mais j'en ai eu besoin et ca peut servir.

Source / Exemple : 


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

Conclusion :


Salut à tous

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_aumeric)