EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "VOC" TO F.VOC ELSE 
	PRINT "Ouverture du VOC impossible !"
	STOP
END
W_SauveFusion = ""
W_Chemin = ""
LOOP WHILE W_Chemin = ""
  PRINT "Chemin complet du .csv contenant les descripteurs ?"
  INPUT W_Chemin
  IF W_Chemin = "" THEN
	GOSUB 100
	STOP
  END
  i = LEN(W_Chemin)
  LOOP
    i = i - 1
  WHILE W_Chemin[i,1] # "\"
  REPEAT
  W_NomFichier = W_Chemin[i+1,LEN(W_Chemin)-i]	 
  READ ENR_VOC FROM F.VOC, "FUSION" THEN
	W_SauveFusion = ENR_VOC
  END ELSE
    * Rien !
  END
  ENR_VOC<1> = "DIR"
  ENR_VOC<2> = W_Chemin[1,i-1]
  ENR_VOC<3> = "D_FACTURATION"
  WRITE ENR_VOC ON F.VOC, "FUSION"
  OPEN "", "FUSION" TO F.FUSION ELSE
    PRINT "Ouverture du fichier impossible !"
    PRINT "Chemin dans VOC : ": W_Chemin[1,i-1]
    GOSUB 100
    W_Chemin = ""
  END
REPEAT
READ ENR_FICHIER FROM F.FUSION, W_NomFichier THEN
	GOSUB 1000
END ELSE
	PRINT "Ouverture du fichier impossible !"
PRINT "Nom du fichier : ":W_NomFichier
END
GOSUB 100
STOP
100
IF W_SauveFusion # "" THEN
	ENR_VOC = W_SauveFusion
	WRITE ENR_VOC ON F.VOC, "FUSION"
END
RETURN
1000
EXECUTE 'COMO ON VerifDicts.txt'
i = 1
LOOP
i = i + 1
WHILE ENR_FICHIER<i> # ""
	W_Passe = "F"
	IF FIELD(ENR_FICHIER<i>,";",3) # "" THEN
		OPEN "DICT" , TRIM(FIELD(ENR_FICHIER<i>,";",3)) TO F.DICT ELSE W_Passe = "V"
	END 
	IF W_Passe = "F" THEN
		READ ENR_DICT FROM F.DICT, FIELD(ENR_FICHIER<i>,";",4) THEN
               PRINT "Descripteur :":FIELD(ENR_FICHIER<i>,";",4):" prsent dans le fichier ":FIELD(ENR_FICHIER<i>,";",3)
            END ELSE
			PRINT "Fichier ":FIELD(ENR_FICHIER<i>,";",3):" - descripteur ":FIELD(ENR_FICHIER<i>,";",4):" manquant."
		END	
	END ELSE
		PRINT "Pas pu ouvrir le fichier ":FIELD(ENR_FICHIER<i>,";",3):" pour y vrifier la prsence du descripteur ":FIELD(ENR_FICHIER<i>,";",4)
	END
REPEAT
EXECUTE 'COMO OFF'
RETURN
