EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "ELTSPARTEMP" TO F.ELTSPARTEMP ELSE STOP
OPEN "", "DETAILCHGPARTEMP" TO F.DETAILCHGPARTEMP ELSE STOP
OPEN "", "CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "", "TYPEEXO" TO F.TYPEEXO ELSE STOP
OPEN "", "SECTEUR" TO F.SECTEUR ELSE STOP
OPEN "", "RESPONSABLE" TO F.RESPONSABLE ELSE STOP
OPEN "", "TEMPO" TO F.TEMPO ELSE STOP
OPEN "", "ACTIVITES" TO F.ACTIVITES ELSE STOP
OPEN "", "ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE STOP

********************************************************************
*      LISTEPARTEMP : Programme appell par le controle            *
*                    ControleListePartEmp                          *
*                                                                  *
********************************************************************

PROCREAD PARAMETRES ELSE STOP

W_Urssaf = FIELD(PARAMETRES, "|", 2)
W_DateDeb = FIELD(PARAMETRES, "|", 3)
W_DateFin = FIELD(PARAMETRES, "|", 4)
W_SansDNT = FIELD(PARAMETRES, "|", 5)
W_Tri = FIELD(PARAMETRES, "|", 6)

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

W_Trimestre = OCONV(W_DateFin, "D4/")
W_Annee = W_Trimestre[7,4]
W_Trimestre = W_Trimestre[4,2]
W_Trimestre= W_Trimestre-1
W_Trimestre = INT(W_Trimestre / 3)
W_Trimestre = W_Trimestre + 1
W_Trimestre=W_Annee:W_Trimestre

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

READ ENR_TYPEEXO FROM F.TYPEEXO, 1  ELSE ENR_TYPEEXO = ""

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

ENR_TEMPO=""
WRITE ENR_TEMPO ON F.TEMPO, "LISTEPARTEMP"

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

W_FinRequete = ""
IF W_Tri = "R" THEN
	W_FinRequete = " PAR RespAide"
END ELSE
	IF W_Tri = "S" THEN
		W_FinRequete = " PAR SecteurAide"
	END
END
W_FinRequete = W_FinRequete:" PAR NomPrenomAide"
EXECUTE 'SSELECT ELTSPARTEMP AVEC 1 = "':W_Urssaf:'" AND AVEC 14 >= "':W_DateDeb:'" OR = "" AND AVEC Sortie >= "':W_DateDeb:'" OR = ""':W_FinRequete

W_Fin = "Faux"
i=1
LOOP
	READNEXT W_Cle ELSE W_Fin = "Vrai"
WHILE W_Fin = "Faux"
	READ ENR_PARTEMP FROM F.ELTSPARTEMP,W_Cle ELSE ENR_PARTEMP = ""
	W_Inclure = "Vrai"
	IF W_SansDNT = "1" THEN
		GOSUB 100
	END
	IF W_Inclure = "Vrai" THEN
		ENR_TEMPO<i> = ""
		ENR_TEMPO<i,1> = W_Cle
		ENR_TEMPO<i,2> = ENR_PARTEMP<2>
		ENR_TEMPO<i,3> = ENR_PARTEMP<4>
		ENR_TEMPO<i,4> = ENR_PARTEMP<14>
		
		READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Cle ELSE ENR_CIVILAIDE = ""
		W_NomPrenom = ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
		IF LEN(W_NomPrenom) > 31 THEN
			W_NomPrenom = W_NomPrenom[1,31]
		END
		ENR_TEMPO<i,5> = W_NomPrenom"L 31"
		t=1
		W_Trouve = "Faux"
		LOOP
		WHILE ENR_TYPEEXO<1,t> # "" AND W_Trouve = "Faux"
			IF ENR_TYPEEXO<1,t> = ENR_PARTEMP<9> THEN
				ENR_TEMPO<i,6> = ENR_TYPEEXO<2,t>
				W_Trouve = "Vrai"
			END
			t=t+1
		REPEAT
		
		IF W_Tri = "S" THEN 
			W_CodeSecteur = ENR_CIVILAIDE<40>
			READ ENR_SECTEUR FROM F.SECTEUR, W_CodeSecteur[1,3] ELSE ENR_SECTEUR = ""
			ENR_TEMPO<i,7>=ENR_SECTEUR<1>
		END ELSE
			IF W_Tri = "R" THEN
				READ ENR_RESPONSABLE FROM F.RESPONSABLE, ENR_CIVILAIDE<39> ELSE ENR_RESPONSABLE = ""
			END	
			ENR_TEMPO<i,7>=ENR_RESPONSABLE<1>
		END

		i = i + 1

	END
REPEAT

WRITE ENR_TEMPO ON F.TEMPO, "LISTEPARTEMP"

STOP
 
100
* Recherche de la DNT
W_Inclure = "Faux"
READ ENR_DNT FROM F.DETAILCHGPARTEMP, W_Cle:W_Trimestre ELSE W_Inclure = "Vrai"
RETURN
