SUBROUTINE DEDUCTIONSDOMITIME(RETURNVAL,PARAMETRES,W_Sortie)
******************************************************
* Cette subroutine cherche les dductions dans les
* pointages de la gestion DOMITIME.
* Elle peut tre appele via PICK ou VB.
* Si c'est  partir de PICK, on gnre un fichier *.txt
* dans FUSION.
* Si c'est  partir de VB, on renvoie le tableau W_Sortie.
*
* Grgory - 14/12/07
******************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "FUSION" TO F.FUSION ELSE RETURN
OPEN "", "TLGPOINTAGE" TO F.TLGPOINTAGE ELSE RETURN
OPEN "", "CIVILAIDANT" TO F.CIVILAIDANT ELSE RETURN
OPEN "", "CIVILAIDE" TO F.CIVILAIDE ELSE RETURN
OPEN "", "SECTEUR" TO F.SECTEUR ELSE RETURN
OPEN "", "DOMITIME" TO F.DOMITIME ELSE RETURN
******************************************************

ENR_FUSION=""
ENR_TLGPOINTAGE=""
ENR_TEMP=""
ENR_CIVILAIDANT=""
ENR_CIVILAIDE1=""
ENR_CIVILAIDE2=""
ENR_SECTEUR=""
ENR_DOMITIME=""
ENR_TEMPO=""

W_Sortie=""

W_ReqTlg=""

W_Ind=0

* Rcupration des paramtres
W_DateDeb=PARAMETRES<1>
W_DateFin=PARAMETRES<2>
W_Appel=PARAMETRES<3>

W_HeureTrt=TIMEDATE()
W_HeureTrt=W_HeureTrt[1,2]:'H':W_HeureTrt[4,2]

******************************************************

	EXECUTE 'SSELECT TLGPOINTAGE AVEC DateDebInterv >= "':W_DateDeb:'" AND <= "':W_DateFin:'" AND AVEC 10 = "[Deduction automatique]" PAR CodeAidant PAR DateDebInterv PAR HeureDebInterv'
	EXECUTE 'SAUVE-LISTE W_ReqTlg'
	EXECUTE "LISTE W_ReqTlg" RETURNING MSGCODE

	IF MSGCODE<1> # 209 THEN
		W_Ind=W_Ind+1
		W_Sortie<W_Ind>="Secteur;Code aidant;Nom prenom aidant;Code aide;Nom prenom aide;Date;Heures debut pointee;Heure fin pointee;Deduction"
	
		SELECT F.TLGPOINTAGE TO W_ReqTlg

		W_Fini="FAUX"
		LOOP
			READNEXT W_CleTlg FROM W_ReqTlg ELSE W_Fini="VRAI"
		WHILE W_Fini="FAUX" DO
			READ ENR_TLGPOINTAGE FROM F.TLGPOINTAGE, W_CleTlg THEN
				READ ENR_CIVILAIDANT FROM F.CIVILAIDANT, W_CleTlg[3,5] ELSE ENR_CIVILAIDANT=""
				READ ENR_CIVILAIDE FROM F.CIVILAIDE, W_CleTlg[9,5] ELSE ENR_CIVILAIDE=""
				READ ENR_SECTEUR FROM F.SECTEUR, ENR_CIVILAIDANT<31> ELSE ENR_SECTEUR=""
				
				W_Ind=W_Ind+1
				W_Sortie<W_Ind>=ENR_SECTEUR<1>:';':W_CleTlg[3,5]:';':ENR_CIVILAIDANT<2>:' ':ENR_CIVILAIDANT<3>:';':W_CleTlg[9,5]:';':ENR_CIVILAIDE<2>:' ':ENR_CIVILAIDE<3>:';':OCONV(W_CleTlg[14,5],"D4/"):';':W_CleTlg[19,5]:';':ENR_TLGPOINTAGE<4>[1,5]:';'
				IF INDEX(ENR_TLGPOINTAGE<10>,"Deduction automatique de l'arrivee",1)>0 THEN
					W_Sortie<W_Ind>=W_Sortie<W_Ind>:'Arrivee'
				END ELSE
					W_Sortie<W_Ind>=W_Sortie<W_Ind>:'Depart'
				END
			END
		REPEAT
		
	END

	IF W_Appel<>"VB" THEN
		WRITE W_Sortie ON F.DOMITIME, 'Liste des deductions du ':OCONV(W_DateDeb,"D4-"):' au ':OCONV(W_DateFin,"D4-"):' ':W_HeureTrt:'.txt'
	END
	
RETURN