EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "FUSION" TO F.FUSION ELSE STOP
OPEN "", "ACCORDCRAM" TO F.ACCORDCRAM ELSE STOP
OPEN "", "CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "", "MT" TO F.MT ELSE STOP
*OPEN "", "MT2" TO F.MT2 ELSE STOP


EXECUTE 'VIDER-FICHIER MT'
EXECUTE 'VIDER-FICHIER ACCORDCRAM'

ENR_CRAM = ""
ENR_ANOMALIES = ""
ENR_DOUBLONS = ""
EXECUTE 'SELECT ACCORD AVEC 1 = "001" AND AVEC 6 >= "13819" PAR @ID'
W_Fin = "F"
W_DernierAide = ""
W_ListeDoublons = ""
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
    IF W_Cle[1,5] # W_DernierAide THEN
	READ ENR_CIVILAIDE FROM F.CIVILAIDE, W_Cle[1,5] THEN
	    IF ENR_CIVILAIDE<18> # "" THEN
	       READ ENR FROM F.MT, ICONV(ENR_CIVILAIDE<18>,"MCN") THEN
		
		W_ListeDoublons<-1> = ICONV(ENR_CIVILAIDE<18>,"MCN")
	       END ELSE
		ENR = ""
		ENR<1> = W_Cle[1,5]
		ENR<2> = W_Cle[1,5]:" ":ENR_CIVILAIDE<2>:" - ":ENR_CIVILAIDE<3>:" - ":ENR_CIVILAIDE<4>:" ":ENR_CIVILAIDE<18>
		WRITE ENR ON F.MT, ICONV(ENR_CIVILAIDE<18>,"MCN")
	       END
	    END
	END
    END
    W_DernierAide = W_Cle[1,5]
REPEAT
i = 0
LOOP
i = i + 1
WHILE W_ListeDoublons<i> # ""
	DELETE F.MT, W_ListeDoublons<i>
REPEAT 

W_ListeDoublons = ""


READ ENR FROM F.FUSION, "ASSAD.txt" THEN
  W_Count = DCOUNT(ENR,CHAR(254))
  i = 0
  LOOP
  i = i + 1
  WHILE i <= W_Count
	IF INDEX(ENR<i>,"Moyenne",1) # 0 THEN
		W_Hres = FIELD(ENR<i>,";",10)
		W_Nir = FIELD(ENR<i>,";",6)[9,13]
		W_NomPatro = FIELD(ENR<i-1>,";",3)
		W_NomMari = FIELD(ENR<i-1>,";",4)
		W_Prenom = ICONV(FIELD(ENR<i-1>,";",5),"MCA")
		GOSUB 100
	END

  REPEAT

END

i = 0
LOOP
i = i + 1
WHILE W_ListeDoublons<i> # ""
	DELETE F.ACCORDCRAM, W_ListeDoublons<i>
REPEAT 


IF ENR_ANOMALIES # "" THEN
WRITE ENR_ANOMALIES ON F.FUSION, "Anomalies.txt"
PRINT "un rapport d'anomalies  t gnr dans le rpertoire FUSION"
END

STOP

100
READ ENR2 FROM F.MT, W_Nir THEN
	ENR_CRAM<1> = W_Hres
	ENR_CRAM<2> = ENR<i-1>
	ENR_CRAM<3> = ENR<i>
	READ ENRz FROM F.ACCORDCRAM, ENR2<1> THEN
		ENR_ANOMALIES<-1> = "NIR : ":W_Nir:" - Nom marital : ":W_NomMari:" - Prnom : ":FIELD(ENR<i-1>,";",5):" - Nom patronymique : ":W_NomPatro
		ENR_ANOMALIES<-1> = "Max d'heures : ":W_Hres
        	
		ENR_ANOMALIES<-1> = "Aid(s) suggr(s) : "
		
		ENR_ANOMALIES<-1> = ENR2<2>
		
	 
	        ENR_ANOMALIES<-1> = "         *****************"


		ENR_ANOMALIES<-1> = "NIR : ":FIELD(ENRz<2>,";",6):" - Nom marital : ":FIELD(ENRz<2>,";",4):" - Prnom : ":FIELD(ENRz<2>,";",3):" - Nom patronymique : ":FIELD(ENRz<2>,";",5)
		ENR_ANOMALIES<-1> = "Max d'heures : ":FIELD(ENRz<3>,";",9)
	        
		   ENR_ANOMALIES<-1> = "Aid(s) suggr(s) : "
			ENR_ANOMALIES<-1> = ENR2<2>

	
        	
	        ENR_ANOMALIES<-1> = "         *****************"
		W_ListeDoublons<-1> = ENR2<1>
	END ELSE
		
	    WRITE ENR_CRAM ON F.ACCORDCRAM, ENR2<1>
		
	END
END ELSE
	GOSUB 200
END
RETURN

200
IF W_NomMari # "" THEN
   EXECUTE 'SELECT ACCORD AVEC 1 = "001" AND AVEC 18 # "O" AND AVEC NomAide = "':W_NomMari:']" OR = "':W_NomPatro:']" AND AVEC PrenomAlpha = "':W_Prenom:']" PAR 0'
END ELSE
   EXECUTE 'SELECT ACCORD AVEC 1 = "001" AND AVEC 18 # "O" AND AVEC NomAide = "':W_NomPatro:']" AND AVEC PrenomAlpha = "':W_Prenom:']" PAR 0'
END

W_Fin200 = "F"
W_Nb = 0
W_Sauve = ""
W_Suggest = ""
W_ListeAides = ""
LOOP
   READNEXT W_Cle200 ELSE W_Fin200 = "V"
   
WHILE W_Fin200 = "F"
   IF INDEX(W_ListeAides,W_Cle200[1,5],1) = 0 THEN
     W_Sauve = W_Cle200[1,5]
     W_Nb = W_Nb + 1
     READ ENR_CIVILAIDE FROM F.CIVILAIDE, W_Cle200[1,5] THEN
*	PRINT W_Cle200:" ":ENR_CIVILAIDE<2>:" - ":ENR_CIVILAIDE<3>:" - ":ENR_CIVILAIDE<4>
	W_Suggest<-1> = W_Cle200[1,5]:" ":ENR_CIVILAIDE<2>:" - ":ENR_CIVILAIDE<3>:" - ":ENR_CIVILAIDE<4>:" ":ENR_CIVILAIDE<18>
     END
     W_ListeAides<-1> = W_Cle200[1,5] 
   END
REPEAT
*PRINT "Pour : ":ENR<i-1>
IF W_Nb # 1 THEN
   *INPUT W_Code
   *IF W_Code # "" THEN
   *  ENR_CRAM<1> = W_Hres
   *  ENR_CRAM<2> = ENR<i-1>
   *  ENR_CRAM<3> = ENR<i>
   *  READ ENRz FROM F.ACCORDCRAM, W_Code THEN
*	PRINT "Cl : ":W_Code:" *"
*	PRINT "Doublon : ":ENRz<1>:" - ":W_Hres 
*	ENR_DOUBLONS<-1> = W_Code
*	ENR_DOUBLONS<-1> = ENR<i-1>
 *    END ELSE
 *       WRITE ENR_CRAM ON F.ACCORDCRAM, W_Code	
  *   END
   *END ELSE
     ENR_ANOMALIES<-1> = "NIR : ":W_Nir:" - Nom marital : ":W_NomMari:" - Prnom : ":FIELD(ENR<i-1>,";",5):" - Nom patronymique : ":W_NomPatro
     ENR_ANOMALIES<-1> = "Max d'heures : ":W_Hres
     IF W_Suggest = "" THEN   	
     	ENR_ANOMALIES<-1> = "Pas de suggestion"
     END ELSE
	ENR_ANOMALIES<-1> = "Aids suggrs : "
	k = 0
	LOOP
	k = k + 1
	WHILE W_Suggest<k>#""
		ENR_ANOMALIES<-1> = W_Suggest<k>
	REPEAT
	
     END
     ENR_ANOMALIES<-1> = "         *****************"
   *END
END ELSE

     ENR_CRAM<1> = W_Hres
     ENR_CRAM<2> = ENR<i-1>
     ENR_CRAM<3> = ENR<i>
     READ ENRz FROM F.ACCORDCRAM, W_Sauve THEN
	ENR_ANOMALIES<-1> = "NIR : ":W_Nir:" - Nom marital : ":W_NomMari:" - Prnom : ":FIELD(ENR<i-1>,";",5):" - Nom patronymique : ":W_NomPatro
	ENR_ANOMALIES<-1> = "Max d'heures : ":W_Hres
        IF W_Suggest = "" THEN   	
     	   ENR_ANOMALIES<-1> = "Pas de suggestion"
        END ELSE
	   ENR_ANOMALIES<-1> = "Aid(s) suggr(s) : "
	   k = 0
	   LOOP
	   k = k + 1
	   WHILE W_Suggest<k>#""
		ENR_ANOMALIES<-1> = W_Suggest<k>
	   REPEAT
	
        END
        ENR_ANOMALIES<-1> = "         *****************"


	ENR_ANOMALIES<-1> = "NIR : ":FIELD(ENRz<2>,";",6):" - Nom marital : ":FIELD(ENRz<2>,";",4):" - Prnom : ":FIELD(ENRz<2>,";",3):" - Nom patronymique : ":FIELD(ENRz<2>,";",5)
	ENR_ANOMALIES<-1> = "Max d'heures : ":FIELD(ENRz<3>,";",9)
        IF W_Suggest = "" THEN   	
     	   ENR_ANOMALIES<-1> = "Pas de suggestion"
        END ELSE
	   ENR_ANOMALIES<-1> = "Aid(s) suggr(s) : "
	   k = 0
	   LOOP
	   k = k + 1
	   WHILE W_Suggest<k>#""
		ENR_ANOMALIES<-1> = W_Suggest<k>
	   REPEAT
	
        END
        ENR_ANOMALIES<-1> = "         *****************"
	W_ListeDoublons<-1> = W_Sauve
     END ELSE
        WRITE ENR_CRAM ON F.ACCORDCRAM, W_Sauve
     END
END
RETURN
