************************************************************
*                      ---DOMITIME---                      *
*                                                          *
* Ce programme liste les aidants qui ont entr des MOI sur *
* une priode voulue.                                      *
*                                                          *
* Grgory - 28/11/2007                                     *
************************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

OPEN "","TLGPOINTAGE" TO F.TLGPOINTAGE ELSE STOP
OPEN "","TLGMOI" TO F.TLGMOI ELSE STOP
OPEN "","DOMITIME" TO F.DOMITIME ELSE STOP
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "","SECTEUR" TO F.SECTEUR ELSE STOP
************************************************************

PRINT "Date de debut (JJ/MM/AAAA) ?"
INPUT W_DateDeb
W_DateDeb=ICONV(W_DateDeb,"D4/")
IF W_DateDeb="" THEN STOP

PRINT "Date de fin (JJ/MM/AAAA) ?"
INPUT W_DateFin
W_DateFin=ICONV(W_DateFin,"D4/")
IF W_DateFin="" THEN STOP

ENR_TLGMOI=""
ENR_TLGPOINTAGE=""
ENR_DOMITIME=""
ENR_CIVILAIDANT=""
ENR_CIVILAIDE=""
ENR_SECTEUR=""

W_AncienAidant=""

W_Ind=0

W_Req=""

W_Ind=W_Ind+1
ENR_DOMITIME<W_Ind>="Secteur;Code aidant;Nom et prenom aidant;Code aide;Nom et prenom aide;Date;Rub. 11;Rub. 12;Rub. 21"

	EXECUTE 'SSELECT TLGMOI AVEC DateDebInterv >= "':W_DateDeb:'" AND <= "':W_DateFin:'" PAR CodeAidant PAR DateDebInterv'
	EXECUTE 'SAUVE-LISTE W_Req'
	EXECUTE "LISTE W_Req" RETURNING MSGCODE

	IF MSGCODE<1> # 209 THEN
		SELECT F.TLGMOI TO W_Req

		W_Fini="FAUX"
		LOOP
			READNEXT W_Cle FROM W_Req ELSE W_Fini="VRAI"
		WHILE W_Fini="FAUX" DO
			READ ENR_TLGMOI FROM F.TLGMOI, 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=""
				READ ENR_SECTEUR FROM F.SECTEUR, ENR_CIVILAIDANT<31> ELSE ENR_SECTEUR=""
			
				W_Ind=W_Ind+1
				ENR_DOMITIME<W_Ind>=ENR_SECTEUR<1>:';':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_Rub11=""
				W_Rub12=""
				W_Rub21=""
				FOR I=1 TO DCOUNT(ENR_TLGMOI<1>,CHAR(253))
					IF ENR_TLGMOI<1,I>="11" THEN
						W_Rub11=ENR_TLGMOI<2,I>
					END ELSE
						IF ENR_TLGMOI<1,I>="12" THEN
							W_Rub12=ENR_TLGMOI<2,I>
						END ELSE
							W_Rub21=ENR_TLGMOI<2,I>
						END
					END
				NEXT I
				
				ENR_DOMITIME<W_Ind>=ENR_DOMITIME<W_Ind>:';':W_Rub11:';':W_Rub12:';':W_Rub21
			END
		REPEAT
	END
	
	WRITE ENR_DOMITIME ON F.DOMITIME, 'Liste des salaries ayant enregistr des MOI - ':OCONV(W_DateDeb,"D4-"):' au ':OCONV(W_DateFin,"D4-"):'.txt'
		
STOP