EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "VOC" TO F.VOC ELSE STOP
W_SauveFusion = ""
W_Chemin = ""
LOOP WHILE W_Chemin = ""
  PRINT "Chemin complet du .csv contenant les descripteurs ?"
  INPUT W_Chemin
  IF W_Chemin = "" THEN
	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]
    W_Chemin = ""
  END
REPEAT
EXECUTE 'SELECT FUSION'
EXECUTE 'SAUVE-LISTE W_ReqDict'
EXECUTE 'LISTE W_ReqDict' RETURNING MSGCODE
IF MSGCODE<1> # "209" THEN
 SELECT F.FUSION TO W_ReqDict
 EXECUTE 'COMO ON CompareDict.txt'
 W_Fin = "F"
 LOOP
 READNEXT W_Cle FROM W_ReqDict ELSE W_Fin = "v"
 WHILE W_Fin = "F"
  IF W_Cle[1,2] = "D_" THEN
	READ ENR_VOC FROM F.VOC, "MT" THEN
		ENR_VOC<3> = W_Chemin[1,i]:W_Cle
		WRITE ENR_VOC ON F.VOC, "MT"
		GOSUB 100
		GOSUB 200
	END
  END
 REPEAT
END
EXECUTE 'COMO OFF'
EXECUTE 'MISEENFORME_PH_ O_CompareDict.txt'
ENR_VOC<1> = "DIR"
ENR_VOC<2> = "FUSION"
ENR_VOC<3> = "D_FUSION"
WRITE ENR_VOC ON F.VOC, "FUSION"
READ ENR_VOC FROM F.VOC, "MT" THEN
  ENR_VOC<3> = "D_MT"
  WRITE ENR_VOC ON F.VOC, "MT"
END
STOP
100 
OPEN 'DICT',W_Cle[3,LEN(W_Cle)-2] THEN
PRINT "Ok : ":W_Cle
EXECUTE 'SELECT DICT MT'
W_FinDesc = "F"
LOOP
READNEXT W_Descr ELSE W_FinDesc = "V"
WHILE W_FinDesc = "F"
	READ ENR_Descr FROM W_Descr THEN
	END ELSE
		PRINT "Descripteur manquant dans BASEVIERGE : ":W_Descr
	END
REPEAT
END ELSE
PRINT "Pas pu ouvrir le dictionnaire : ":W_Cle[3,LEN(W_Cle)-2]
END
RETURN
200 
OPEN 'DICT',"MT" THEN
PRINT "Ok : ":W_Cle
EXECUTE 'SELECT DICT ':W_Cle[3,LEN(W_Cle)-2]
W_FinDesc = "F"
LOOP
READNEXT W_Descr ELSE W_FinDesc = "V"
WHILE W_FinDesc = "F"
	READ ENR_Descr FROM W_Descr THEN
	END ELSE
		PRINT "Descripteur manquant dans le rpertoire DICTIONNAIRE : ":W_Descr
	END
REPEAT
END ELSE
PRINT "Pas pu ouvrir le dictionnaire du rpertoire DICTIONNAIRE du fichier ":W_Cle[3,LEN(W_Cle)-2]
END
RETURN
