* Parametres d'entre : Selection avec  la fin tous les attributs dsirs
* EX : SELECT CONTRAT = "00001]" 1 2 3

**********
* INITIALISATIONS DES VARIABLES
**********
TITRE=""
NBRCHAMPS=0
ATTECRIT=1
ENRFUSION=""
LISTEFUSION=""

PRINT "NOM DU FICHIER ":
INPUT FICHIER

* Sauvegarde la requete dans une liste
EXECUTE "SAUVE-LISTE LISTEFUSION"

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
* OPEN "","SAVEDLISTS" TO F.SAVEDLISTS ELSE STOP
OPEN "","FUSION" TO F.FUSION ELSE STOP
OPEN "",FICHIER TO F.FICHIER ELSE STOP

**********
* DEMANDE NOM DES CHAMPS UTILISES
**********
10 
PRINT "NOM DES CHAMPS UTILISES"
PRINT "TAPER (RC) POUR CLORE LA LISTE "
LOOP
   INPUT NOM
   CONVERT "|" TO " " IN NOM
   CONVERT ";" TO "," IN NOM
UNTIL NOM="" DO
   TITRE=TITRE:NOM:";"
   NBRCHAMPS=NBRCHAMPS+1
REPEAT

IF NBRCHAMPS=0 THEN GOTO 10
TITRE=TITRE[1,LEN(TITRE)-1]

ENRFUSION<ATTECRIT>=TITRE

**********
* RECONSTITUTION DU FICHIER
**********
EXECUTE "LISTE LISTEFUSION" CAPTURING MSG
SELECT F.FICHIER TO LISTEFUSION

20 
CHAMPECRIT="" 
FOR K=1 TO NBRCHAMPS
   READNEXT CHAMPLU FROM LISTEFUSION ELSE GOTO 100
*   CONVERT "|" TO "" IN CHAMPLU
   CONVERT ";" TO "," IN CHAMPLU

   CHAMPECRIT=CHAMPECRIT:";":CHAMPLU
NEXT K
ATTECRIT=ATTECRIT+1
ENRFUSION<ATTECRIT>=CHAMPECRIT[2,999]
GOTO 20

**********
* ENREGISTREMENT ET COPIE
**********
100 
PRINT "SOUS QUEL NOM VOULEZ-VOUS ENREGISTRER VOTRE FICHIER ?"
INPUT NOMFUSION

CONVERT " " TO "" IN NOMFUSION
CONVERT "/" TO "" IN NOMFUSION
CONVERT "\" TO "" IN NOMFUSION
*CONVERT "." TO "" IN NOMFUSION

IF NOMFUSION ="" THEN GOTO 100
WRITE ENRFUSION ON F.FUSION,NOMFUSION

* EXECUTE "!COPY ":@PATH:"\SAVEDLISTS\":NOMFUSION:" ":@PATH:"\FUSION"
EXECUTE "EFFACER-LISTE LISTEFUSION"
* DELETE F.SAVEDLISTS,LISTEECRIT

STOP
