EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "","FUSION" TO F.FUSION ELSE STOP

PRINT "Priode dbut (AAAAMM): ":
INPUT W_Debut

PRINT "Priode fin (AAAAMM): ":
INPUT W_Fin

j=1
W_RequeteMoul=""
ENR_FUSION=""
ENR_FUSION<1>="Code Aidant;Nom-Prenom;Anne-Mois;Montant brut;Heures travailles;Heures congs pour solde;Abattement Fillon"

EXECUTE 'SELECT DETAILCALCUL AVEC ConvColContratDetailCalcul # "02" AND AVEC PeriodeDetailCalcul >= "':W_Debut:'" AND AVEC PeriodeDetailCalcul <= "':W_Fin:'" AND AVEC 8 = "904" AND AVEC 2 = "804" PAR NomPrenomAidantDetailCalcul PAR 0'

EXECUTE 'SAUVE-LISTE W_RequeteMoul'
EXECUTE "LISTE W_RequeteMoul" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   SELECT F.DETAILCALCUL TO W_RequeteMoul

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO

      READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_Cle ELSE ENR_DETAILCALCUL = ""
	READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_Cle[1,5] ELSE ENR_CIVILAIDANT = ""

	W_NomPrenom = ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>

	W_NbreCpSolde=0
	W_NbHresTrav=0
	W_NbRubSaisie=DCOUNT(ENR_DETAILCALCUL<2>,CHAR(253))
	FOR i = 1 TO W_NbRubSaisie
		IF ENR_DETAILCALCUL<2,i> = "804" THEN
			W_NbreCpSolde=W_NbreCpSolde + ENR_DETAILCALCUL<3,i>
		END
	NEXT i
	W_NbHresTrav = ENR_DETAILCALCUL<6> - W_NbreCpSolde

	W_NbHresTrav = W_NbHresTrav / 100
	W_NbreCpSolde=W_NbreCpSolde / 100

	W_MntAbatt=0
	W_NbRubCharge=DCOUNT(ENR_DETAILCALCUL<8>,CHAR(253))
	FOR i = 1 TO W_NbRubCharge
		IF ENR_DETAILCALCUL<8,i> = "904" THEN
			W_MntAbatt=W_MntAbatt + ENR_DETAILCALCUL<14,i>
		END
	NEXT i

	W_MntAbatt=W_MntAbatt / 100

	W_Brut = ENR_DETAILCALCUL<7> / 100

	j = j + 1
      ENR_FUSION<j>=W_Cle[1,5]:";":W_NomPrenom:";":W_Cle[9,6]:";":W_Brut:";":W_NbHresTrav:";":W_NbreCpSolde:";":W_MntAbatt
   REPEAT
 
   WRITE ENR_FUSION ON F.FUSION,"ListeFillon.csv"

END

EXECUTE 'EFFACER-LISTE W_RequeteMoul'

STOP

* SETPTR 0,,,,,1, "MODE=RAW",DEST \\SERVEURINF\MATRICEPSON,NOHEAD,NOFMT,EJECT,COPIES 1,BRIEF
* PRINTER ON
