*PARAMETRES*
*Liste des interventions des aidants en doublon chez un aid*
*Date de dbut (sous la forme JJ/MM/AAAA) |10X|DTE|O*
*Date de fin (sous la forme JJ/MM/AAAA) |10X|DTE|O*
*FIN PARAMETRES*

SUBROUTINE INTERVDOUBLONAIDE(RETURNVAL,PARAMETRES,W_Sortie)

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

W_DateDeb=PARAMETRES<1>
W_DateFin=PARAMETRES<2>

*************************************************************
*	TRAITEMENT POUR LISTER LES INTERVENTIONS DES AIDANTS 	*
*   EN DOUBLON CHEZ UN MEME AIDE							*
* --------------------------------------------------------- *
* VANESSA									 	AOUT 2010 	*
*************************************************************

OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE PRINT "ERREUR OUVERTURE CIVILAIDANT"
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE PRINT "ERREUR OUVERTURE CIVILAIDE"
OPEN "", "TPSTEMPO" TO F.TPSTEMPO ELSE STOP
OPEN "","FUSION" TO F.FUSION ELSE PRINT "ERREUR OUVERTURE FUSION"
OPEN "","SECTEUR" TO F.SECTEUR ELSE PRINT "ERREUR OUVERTURE SECTEUR"
OPEN "","ACTIVITES" TO F.ACTIVITES ELSE PRINT "ERREUR OUVERTURE ACTIVITES"

W_CleRetour = "DOUBLONAIDE"

W_DateDeb = ICONV(W_DateDeb,"D4/")
W_DateFin = ICONV(W_DateFin,"D4/")

W_Params = "AFFICHEPLANNING |" : W_CleRetour : "||PMIS|":W_DateDeb:"|":W_DateFin:"|S||" : "|EA" : "|"
EXECUTE W_Params
READ TabInterv FROM F.TPSTEMPO, "AFFICHEPLANNINGDOUBLONAIDE" ELSE
	TabInterv = ""
	TabInterv<1> = "#FIN"
END

W_Fichier=""
W_Fichier<1> = "Code aide;Nom aide;Secteur aide;Jour intervention;code aidant 1;Nom aidant 1;Secteur aidant 1;Hre debut 1;Hre fin 1;Code aidant 2;Nom aidant 2;Secteur aidant 2;Hre debut 2;Hre fin 2;Activites"
W_Indice=2

i = 0
W_Jour=0
LOOP
	i = i + 1
	W_Jour=W_Jour+1
WHILE TabInterv<i>[1,4] # "#FIN"
	IF TabInterv<i>[1,1] # "#" THEN
		W_HreDeb = 2400
		W_HreFin = 0
		W_AncCle = ""
		k = 0
		LOOP
		k = k + 1
		WHILE TabInterv<i,1,k> # ""
			IF TabInterv<i,1,k>[1,6] = "Interv" AND LEN(TabInterv<i,1,k>) = 7 THEN
				IF TabInterv<i,2,k> < W_HreFin AND TabInterv<i,3,k> > W_HreDeb THEN	
					W_CodeAide=TabInterv<i,4,k>[6,5]
					W_CodeAidant1=TabInterv<i,4,k>[1,5]
					W_CodeAidant2=W_AncCle[1,5]
					READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_CodeAide ELSE ENR_CIVILAIDE=""
					READ ENR_CIVILAIDANT1 FROM F.CIVILAIDANT,W_CodeAidant1 ELSE ENR_CIVILAIDANT1=""
					READ ENR_SECTEURAIDANT1 FROM F.SECTEUR, ENR_CIVILAIDANT1<31> ELSE ENR_SECTEURAIDANT1=""
					READ ENR_CIVILAIDANT2 FROM F.CIVILAIDANT,W_CodeAidant2 ELSE ENR_CIVILAIDANT2=""
					READ ENR_SECTEURAIDANT2 FROM F.SECTEUR, ENR_CIVILAIDANT1<31> ELSE ENR_SECTEURAIDANT2=""
					READ ENR_SECTEURAIDE FROM F.SECTEUR,ENR_CIVILAIDE<40>[1,3] ELSE ENR_SECTEUR=""
					READ ENR_ACTIVITES FROM F.ACTIVITES,TabInterv<i,7,k> ELSE ENR_ACTIVITES=""							
					
					W_Fichier<W_Indice>= W_CodeAide:";":ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>:";":ENR_SECTEURAIDE<1>:";":OCONV(W_DateDeb+W_Jour,"D4/"):";":W_CodeAidant1:";":ENR_CIVILAIDANT1<2>:" ":ENR_CIVILAIDANT1<3>:";":ENR_SECTEURAIDANT1<1>:";":TabInterv<i,2,k>:";":TabInterv<i,3,k>:";":W_CodeAidant2:";":ENR_CIVILAIDANT2<2>:" ":ENR_CIVILAIDANT2<3>:";":ENR_SECTEURAIDANT2<1>:";":W_HreDeb:";":W_HreFin:";":ENR_ACTIVITES<1>
					W_Indice=W_Indice+1
				END
			END
			W_HreDeb = TabInterv<i,2,k>
			W_HreFin = TabInterv<i,3,k>
			W_AncCle = TabInterv<i,4,k>	
		REPEAT
	END ELSE
		W_Jour = -1
	END
REPEAT

IF W_Fichier<2># "" THEN
	WRITE W_Fichier ON F.FUSION,"INTERVDOUBLONAIDE.csv"

	W_Sortie="Gnration du fichier 'INTERVDOUBLONAIDE.csv' termine dans le rpertoire FUSION."
END ELSE
		W_Sortie="Pas de doublon."
END

RETURN
