***************************************************************************
* Cration des voc de la base source dans la base cible
***************************************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","VOC" TO F.VOC ELSE STOP
OPEN "","FICHIERSFUSION" TO F.FICHIERSFUSION ELSE STOP

READ ENR_FICHIERSFUSION FROM F.FICHIERSFUSION,"1" ELSE STOP

PRINT "Rpertoire de la base a rcuperer (ex: D:\BASEXXXXX\) : ":
INPUT W_Chemin

W_NomFic=FIELD(W_Chemin,"\",2)
W_NomFic=W_NomFic[5,99]

ENR_VOC=""
i=1
LOOP
WHILE ENR_FICHIERSFUSION<i> # "" DO
   W_CleVocCambrai=ENR_FICHIERSFUSION<i>:W_NomFic
   ENR_VOC<1>="F"
   ENR_VOC<2>=W_Chemin:ENR_FICHIERSFUSION<i>
   ENR_VOC<3>=W_Chemin:"D_":ENR_FICHIERSFUSION<i>
   WRITE ENR_VOC ON F.VOC,W_CleVocCambrai
   i=i+1
REPEAT

STOP
