
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE PRINT "OUVERTURE CIVILAIDANT" ;* en lecture
OPEN "","FUSION" TO F.FUSION ELSE PRINT "OUVERTURE FUSION" ;* en lecture 
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE PRINT "OUVERTURE DETAILCALCUL" ;* en lecture criture


PRINT "Annee (AAAA)"
INPUT W_Annee

PRINT "Entite (3N)"
INPUT W_Entite

	W_DateDeb=ICONV("01/01/":W_Annee,"D4/")
	W_DateFin=ICONV("31/12/":W_Annee,"D4/")

   	W_Temp = 'SELECT DETAILCALCUL AVEC PeriodeDetailCalcul = "':W_Annee:']" AND AVEC CodAssoContratDetailCalcul = "':W_Entite:'"'
   	W_Temp = W_Temp:' AND AVEC TypeContrat = "I" AND AVEC DatDebContratDetailCalcul < "':W_DateDeb:'" AND AVEC DatFinContratDetailCalcul > "':W_DateFin:'" OR = ""'
   	W_Temp = W_Temp:' AND AVEC ConvColContratDetailCalcul # "02" PAR @ID'

	EXECUTE W_Temp

   	W_End="FAUX"
	ENR_FUSION=""
	W_SauveAide=""
	W_TotalHre=0
	W_TotalBrut=0
	i=1

   	LOOP
      		READNEXT W_Cle ELSE W_End = "VRAI"
   	WHILE W_End = "FAUX" DO

      		READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_Cle ELSE ENR_DETAILCALCUL=""

		IF W_SauveAide="" THEN
			W_SauveAide=W_Cle[1,5]
		END

		IF W_SauveAide # W_Cle[1,5] THEN
     			READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_SauveAide ELSE ENR_CIVILAIDANT=""

			ENR_FUSION<i>=W_SauveAide:";":ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>:";":W_TotalHre/100:";":W_TotalBrut/100
			i=i+1

			W_SauveAide=W_Cle[1,5]
			W_TotalHre=0
			W_TotalBrut=0
		END

		W_TotalHre=W_TotalHre+ENR_DETAILCALCUL<6>
		W_TotalBrut=W_TotalBrut+ENR_DETAILCALCUL<7>

   	REPEAT

     	READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_SauveAide ELSE ENR_CIVILAIDANT=""
	ENR_FUSION<i>=W_SauveAide:";":ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>:";":W_TotalHre/100:";":W_TotalBrut/100

      	WRITE ENR_FUSION ON F.FUSION,"LISTESALAIRE.csv"

STOP
