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

ENR_TLGPOINTAGE=""
ENR_FUSION=""
ENR_CIVILAIDANT=""
ENR_CIVILAIDE=""
ENR_SECTEUR=""
ENR_RESPONSABLE=""
ENR_TPSDETAILSINTERV=""

W_Ind=0
W_Req=""

PRINT "Pour selectionner une seule journee, ne rentrer que la date de debut. Pour quitter le programme, mettre a vide les 2 dates."
PRINT "Date de debut (JJMMAAAA) ?"
INPUT W_DateDeb

PRINT "Date de fin (JJMMAAAA) ?"
INPUT W_DateFin

W_Date=""
IF W_DateDeb="" AND W_DateFin="" THEN
	STOP
END
IF W_DateDeb="" THEN
	PRINT "Vous devez entrer la date de debut."
	STOP
END
IF W_DateFin="" THEN
	W_Date=W_DateDeb
END

W_Ind=W_Ind+1
ENR_FUSION<W_Ind>="Secteur;Commune;Code aidant:Nom prenom aidant;Code aide;Nom prenom aide;Hre deb. pointee;Hre fin pointee;Hre deb. plg;Hre fin plg"

IF W_Date="" THEN
	W_DateDeb=ICONV(W_DateDeb[1,2]:"/":W_DateDeb[3,2]:"/":W_DateDeb[5,4], "D4/")
	W_DateFin=ICONV(W_DateFin[1,2]:"/":W_DateFin[3,2]:"/":W_DateFin[5,4], "D4/")
	W_Select='SELECT TLGPOINTAGE AVEC DateDebInterv >= "':W_DateDeb:'" AND <= "':W_DateFin:'"'
END ELSE
	W_Date=ICONV(W_Date[1,2]:"/":W_Date[3,2]:"/":W_Date[5,4], "D4/")
	W_Select='SELECT TLGPOINTAGE AVEC DateDebInterv = "':W_Date:'"'
END

W_Select=W_Select:' AND AVEC CodeSecteurAide = "004" OR = "012" OR = "013" OR = "014" OR = "015" OR = "017" OR = "019" OR = "025" OR = "034" OR = "035" AND AVEC 11 <> "" PAR @ID'

EXECUTE W_Select
EXECUTE 'SAUVE-LISTE W_Req'
EXECUTE "LISTE W_Req" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
	SELECT F.TLGPOINTAGE TO W_Req
	
	W_Fin="FAUX"
	LOOP
		READNEXT W_Cle FROM W_Req ELSE W_Fin="VRAI"
	WHILE W_Fin="FAUX" DO
		READ ENR_TLGPOINTAGE FROM F.TLGPOINTAGE, W_Cle THEN
			READ ENR_CIVILAIDANT FROM F.CIVILAIDANT, W_Cle[3,5] THEN
				READ ENR_CIVILAIDE FROM F.CIVILAIDE, W_Cle[9,5] THEN
					READ ENR_SECTEUR FROM F.SECTEUR, ENR_CIVILAIDE<40>[1,3] ELSE ENR_SECTEUR=""
				
					W_Ind=W_Ind+1
					ENR_FUSION<W_Ind>=ENR_SECTEUR<1>:";":ENR_CIVILAIDE<11>:";":W_Cle[3,5]:";":ENR_CIVILAIDANT<2>:";":ENR_CIVILAIDANT<3>:";":W_Cle[9,5]:";":ENR_CIVILAIDE<2>:";":ENR_CIVILAIDE<3>:";"
					IF ENR_TLGPOINTAGE<1>="" THEN
						ENR_FUSION<W_Ind>=ENR_FUSION<W_Ind>:";":ENR_TLGPOINTAGE<4>[1,5]
					END ELSE
						ENR_FUSION<W_Ind>=ENR_FUSION<W_Ind>:W_Cle[19,5]:";"
					END
					
					W_HeureDebPlg="00:00"
					W_HeureFinPlg="00:00"
					READ ENR_TPSDETAILSINTERV FROM F.TPSDETAILSINTERV, ENR_TLGPOINTAGE<11> THEN
						W_HreDeb=ENR_TLGPOINTAGE<11>[23,4]
						W_HreFin=ENR_TPSDETAILSINTERV<2>
						
						W_HeureTemp=W_HreDeb[3,2]
						IF W_HeureTemp#0 THEN
							W_HeureTemp=INT(60/(100/W_HeureTemp))
						END
						W_HeureDebPlg=W_HreDeb[1,2]
						IF LEN(TRIM(W_HeureTemp))=2 THEN
							W_HeureDebPlg=W_HeureDebPlg:":":W_HeureTemp
						END ELSE
							W_HeureDebPlg=W_HeureDebPlg:":":"0":W_HeureTemp
						END
						
						W_HeureTemp=W_HreFin[3,2]
						IF W_HeureTemp#0 THEN
							W_HeureTemp=INT(60/(100/W_HeureTemp))
						END
						W_HeureFinPlg=W_HreFin[1,2]
						IF LEN(TRIM(W_HeureTemp))=2 THEN
							W_HeureFinPlg=W_HeureFinPlg:":":W_HeureTemp
						END ELSE
							W_HeureFinPlg=W_HeureFinPlg:":0":W_HeureTemp
						END
					END
					
					ENR_FUSION<W_Ind>=ENR_FUSION<W_Ind>:";":W_HeureDebPlg:";":W_HeureFinPlg
				END
			END
		END
	REPEAT
END

WRITE ENR_FUSION ON F.FUSION, "Liste des aidants ayant conduit  une dduction automatique.txt"

STOP
