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

ENR_FUSION=""
ENR_FUSION2=""
ENR_TLGPOINTAGE=""
ENR_TLGANOPOINTAGE=""
ENR_CIVILAIDANT=""
ENR_CIVILAIDE=""

* Pour gnrer le premier fichier CSV
* Dates  modifier en fonction du moi  traiter. Ici on veut les pointages de mai reus en juin
*SELECT TLGHISTORPOINTAGE AVEC 3 >= "16954" AND <= "16983" AND AVEC 7 >= "16984"
*SELECT TLGHISTORPOINTAGE 0 1 2 3 4 6 7 8 10
*RECUPDATA
*TLGHISTORPOINTAGE
*NumTransaction
*Aidant
*Aide
*Date
*Heure
*DebFin
*DateRecup
*HreRecup
*NomFichierTra
*
*POINTAGES_JUIN_RECUS_JUILLET.csv

ENR_FUSION2<1>="NumTrans;Code aidant;Nom prnom aidant;Code aid;Nom prnom aid;Date;Heure;Deb ou fin;Date rcup;Heure rcup;Fichier;Date integre;Heure integre;Obs;Cl interv"

READ ENR_FUSION FROM F.FUSION, "POINTAGES_JUIN_RECUS_JUILLET.csv" THEN
	ENR_FUSION=CONVERT(";",CHAR(253),ENR_FUSION)
	
	FOR I = 2 TO DCOUNT(ENR_FUSION,CHAR(254))
		READ ENR_CIVILAIDANT FROM F.CIVILAIDANT, ENR_FUSION<I,2>[3,5] ELSE ENR_CIVILAIDANT=""
		READ ENR_CIVILAIDE FROM F.CIVILAIDE, ENR_FUSION<I,3> "R%5" ELSE ENR_CIVILAIDE=""
		
		W_Ligne=""
		
		IF ENR_FUSION<I,6>="1" THEN
			W_DebFin="Dbut"
		END ELSE
			W_DebFin="Fin"
		END
		
		W_ReqTlg=""
		EXECUTE 'SELECT TLGPOINTAGE AVEC 1 = "':ENR_FUSION<I,1>:'" OR AVEC 2 = "':ENR_FUSION<I,1>:'"'
		EXECUTE 'SAUVE-LISTE W_ReqTlg'
		EXECUTE 'LISTE W_ReqTlg' RETURNING MSGCODE

		IF MSGCODE<1> # "209" THEN
			SELECT F.TLGPOINTAGE TO W_ReqTlg

			W_Fin = "F"
			LOOP
				READNEXT W_Cle FROM W_ReqTlg ELSE W_Fin = "O"
			WHILE W_Fin = "F"
				READ ENR_TLGPOINTAGE FROM F.TLGPOINTAGE, W_Cle THEN
					W_Ligne=ENR_FUSION<I,1>:';':ENR_FUSION<I,2>[3,5]:';':ENR_CIVILAIDANT<2>:' ':ENR_CIVILAIDANT<3>:';':ENR_FUSION<I,3> "R%5":';':ENR_CIVILAIDE<2>:' ':ENR_CIVILAIDE<3>:';'
					W_Ligne=W_Ligne:OCONV(ENR_FUSION<I,4>,"D4/"):';':ENR_FUSION<I,5>:';':W_DebFin:';':OCONV(ENR_FUSION<I,7>,"D4/"):';':ENR_FUSION<I,8>:';':ENR_FUSION<I,9>:';'
					IF ENR_TLGPOINTAGE<14>="" THEN
						W_Ligne=W_Ligne:';;Non intgr'
					END ELSE
						W_Ligne=W_Ligne:OCONV(ENR_TLGPOINTAGE<14>,"D4/"):';':ENR_TLGPOINTAGE<15>:';'
					END
					
					W_Ligne=W_Ligne:';':W_Cle
				END
			REPEAT
		END
		
		EXECUTE "EFFACER-LISTE W_ReqTlg"
		
		IF W_Ligne="" THEN
			READ ENR_TLGANOPOINTAGE FROM F.TLGANOPOINTAGE, ENR_FUSION<I,1> THEN
				W_Ligne=ENR_FUSION<I,1>:';':ENR_FUSION<I,2>[3,5]:';':ENR_CIVILAIDANT<2>:' ':ENR_CIVILAIDANT<3>:';':ENR_FUSION<I,3> "R%5":';':ENR_CIVILAIDE<2>:' ':ENR_CIVILAIDE<3>:';'
				W_Ligne=W_Ligne:OCONV(ENR_FUSION<I,4>,"D4/"):';':ENR_FUSION<I,5>:';':W_DebFin:';':OCONV(ENR_FUSION<I,7>,"D4/"):';':ENR_FUSION<I,8>:';':ENR_FUSION<I,9>:';;;En anomalie;'
			END
		END
		
		IF W_Ligne="" THEN
			W_Ligne=ENR_FUSION<I,1>:';':ENR_FUSION<I,2>[3,5]:';':ENR_CIVILAIDANT<2>:' ':ENR_CIVILAIDANT<3>:';':ENR_FUSION<I,3> "R%5":';':ENR_CIVILAIDE<2>:' ':ENR_CIVILAIDE<3>:';'
			W_Ligne=W_Ligne:OCONV(ENR_FUSION<I,4>,"D4/"):';':ENR_FUSION<I,5>:';':W_DebFin:';':OCONV(ENR_FUSION<I,7>,"D4/"):';':ENR_FUSION<I,8>:';':ENR_FUSION<I,9>:';;;Non trouv;'
		END
		
		IF W_Ligne<>"" THEN
			ENR_FUSION2<-1>=W_Ligne
		END
	NEXT I
END

WRITE ENR_FUSION2 ON F.FUSION, "POINTAGES_JUIN_RECUS_JUILLET_PBS.csv"

STOP