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

ENR_TLGPOINTAGE=""
ENR_FUSION=""
ENR_CIVILAIDANT=""
ENR_SECTEUR=""
ENR_RESPONSABLE=""

W_Compteur1=0
W_Compteur2=0

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>="Code aidant;Nom prenom aidant;Code aide;Nom prenom aide;Date;Heure de debut 1;Heure de fin 1;Heure de debut 2;Heure de fin 2;Cle plannings 1;Cle plannings 2"

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" 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_Tampon=""
	W_Tampon<1>=""
	W_Tampon<2>=""
	W_Tampon<3>=""
	W_Tampon<4>=""
	W_Tampon<5>=""
	
	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] ELSE ENR_CIVILAIDANT=""
			READ ENR_CIVILAIDE FROM F.CIVILAIDE, W_Cle[9,5] ELSE ENR_CIVILAIDE=""
		
			IF W_Tampon<1>="" THEN
				W_Tampon<1>=W_Cle[3,5]
				W_Tampon<2>=W_Cle[9,5]
				W_Tampon<3>=W_Cle[14,5]
				W_Tampon<4>=W_Cle[19,8]
				W_Tampon<5>=ENR_TLGPOINTAGE<4>
				W_Tampon<6>=ENR_TLGPOINTAGE<11>
			END ELSE
				W_Compteur1=W_Compteur1+1
				IF W_Tampon<1>=W_Cle[3,5] AND W_Tampon<2>=W_Cle[9,5] AND W_Tampon<3>=W_Cle[14,5] THEN
					W_Compteur2=W_Compteur2+1
					IF W_Tampon<4><=ENR_TLGPOINTAGE<4> AND W_Tampon<4>>=W_Cle[19,8] OR W_Tampon<5><=ENR_TLGPOINTAGE<4> AND W_Tampon<5>>=W_Cle[19,8] THEN
						W_Ind=W_Ind+1
						ENR_FUSION<W_Ind>=W_Cle[3,5]:";":ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>:";":W_Cle[9,5]:";":ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>:";":OCONV(W_Cle[14,5], "D4/"):";":W_Tampon<4>:";":W_Tampon<5>:";":W_Cle[19,8]:";":ENR_TLGPOINTAGE<4>:";":W_Tampon<6>:";":ENR_TLGPOINTAGE<11>
					END
				END
				W_Tampon<1>=W_Cle[3,5]
				W_Tampon<2>=W_Cle[9,5]
				W_Tampon<3>=W_Cle[14,5]
				W_Tampon<4>=W_Cle[19,8]
				W_Tampon<5>=ENR_TLGPOINTAGE<4>
			END
		END
	REPEAT
END

WRITE ENR_FUSION ON F.FUSION, "Liste des interventions pointes en doublon.txt"

*PRINT "Compteur 1 : ":W_Compteur1
*PRINT "Compteur 2 : ":W_Compteur2

STOP
