**********************
* REMPLI LE FICHIER RENOUVELLEMENT
* 11/04/2001 ALAIN
**********************


***************************
* Ouvertures des fichiers *
***************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ACCORD" TO F.ACCORD ELSE STOP
OPEN "","RESPONSABLE" TO F.RESPONSABLE ELSE STOP
OPEN "","SECTEUR" TO F.SECTEUR ELSE STOP
OPEN "","RENOUVELLEMENT" TO F.RENOUVELLEMENT ELSE STOP
OPEN "","ORGPRISECHARGE" TO F.ORGPRISECHARGE ELSE STOP
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "","ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE STOP
OPEN "","DEMANDACC" TO F.DEMANDACC ELSE STOP
OPEN "","COMMUNES" TO F.COMMUNES ELSE STOP

******************************
* Recuperation des arguments *
******************************
PROCREAD ARGUMENTS ELSE PRINT "Procread"

W_ASSOC=FIELD(ARGUMENTS,"|",2)
W_CODEACTIVITE=FIELD(ARGUMENTS,"|",3)
W_CODEIMP=FIELD(ARGUMENTS,"|",4)
W_PERIODE=FIELD(ARGUMENTS,"|",5)
W_CODESELECTION=FIELD(ARGUMENTS,"|",6)
W_TYPESELECTION=FIELD(ARGUMENTS,"|",7)
W_ORG=FIELD(ARGUMENTS,"|",8)

*********************
* TRAITEMENT GLOBAL *
*********************
EXECUTE 'VIDER-FICHIER RENOUVELLEMENT'

W_RESULTAT=""
ENR_RENOUVELLEMENT=""
W_SELECTION = ""
W_ASSOCIATION=W_ASSOC
W_CODEACTIVITE = W_ASSOC:W_CODEACTIVITE

W_SELECTION = ""
IF W_ORG # "" THEN
	W_SELECTION = 'AND AVEC OrgChgAcc = "':W_ORG:'" '
END

IF W_CODESELECTION = "" THEN
	IF W_TYPESELECTION = "R" THEN
		W_SELECTION = W_SELECTION:'AND AVEC CodeResponsable # "" PAR CodeResponsable PAR NomPrenomAide'
	END ELSE
		IF W_TYPESELECTION = "S" THEN
			W_SELECTION = W_SELECTION:'AND AVEC CodeSecteur # "" PAR Secteur PAR NomPrenomAide'
		END ELSE
			W_SELECTION = W_SELECTION:'AND AVEC CommuneAide # "" PAR CommuneAide PAR NomPrenomAide'
		END
	END
END ELSE
	IF W_TYPESELECTION = "R" THEN
		W_SELECTION = W_SELECTION:'AND AVEC CodeResponsable = "':W_CODESELECTION:'" PAR NomPrenomAide'
	END ELSE
		IF W_TYPESELECTION = "S" THEN
			W_SELECTION = W_SELECTION:'AND AVEC CodeSecteur = "':W_CODESELECTION:'" PAR NomPrenomAide'
		END ELSE
			W_SELECTION = W_SELECTION:'AND AVEC CommuneAide = "':W_CODESELECTION:'" PAR NomPrenomAide'
		END
	END
END

FOR I = 1 TO 6 

	MOIS = W_PERIODE[1,2]
	AN = W_PERIODE[3,4]
	ANF = AN

	MOISDEB = MOIS + I
	MOISFIN = MOIS +  I + 1	

	IF MOISDEB > 12 THEN
		MOISDEB = MOISDEB - 12
		AN = AN + 1
	END

	IF MOISFIN > 12 THEN
		MOISFIN = MOISFIN - 12
		ANF = ANF + 1
	END

	MOISDEB = MOISDEB "R(%2)"
	MOISFIN = MOISFIN "R(%2)"	

	W_DATEDEB = ICONV("01/":MOISDEB:"/":AN,"D4/")
	W_DATEFIN = ICONV("01/":MOISFIN:"/":ANF,"D4/")
	W_DATEFIN= W_DATEFIN - 1

	EXECUTE 'SSELECT ACCORD AVEC RenouvOrgChg = "':I:'" AND AVEC 6 >= "':W_DATEDEB:'" AND <= "':W_DATEFIN:'" AND AVEC 18 <> "O" AND AVEC DateSortieAideAccord >= "':W_DATEFIN:'" OR = "" ':W_SELECTION
	EXECUTE 'SAUVE-LISTE W_RESULTAT' 
	EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE

	IF MSGCODE<1> # 209 THEN

		SELECT F.ACCORD TO W_RESULTAT

		W_FINI = "FAUX"	

		LOOP
			READNEXT CLE.ACCORD FROM W_RESULTAT ELSE W_FINI="VRAI"
			W_TOTCRIT = "VRAI"
			W_ACT = "FAUX"
		WHILE W_FINI = "FAUX"
			W_AIDE = CLE.ACCORD[1,5]
			READ ENR_ACTIVITESAIDE FROM F.ACTIVITESAIDE,W_AIDE ELSE ENR_ACTIVITESAIDE = ""
			READ ENR_ACCORD FROM F.ACCORD,CLE.ACCORD ELSE ENR_ACCORD = ""
			READ ENR_ORGPRISECHARGE FROM F.ORGPRISECHARGE,ENR_ACCORD<1> ELSE ENR_ORGPRISECHARGE=""
			READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_AIDE ELSE ENR_CIVILAIDE = ""
			READ ENR_DEMANDACC FROM F.DEMANDACC,W_AIDE ELSE ENR_DEMANDACC = ""
			J = 1
			LOOP
			WHILE ENR_ACTIVITESAIDE<1,J> # "" AND W_ACT # "VRAI"
				L = 1
				LOOP
				WHILE ENR_ORGPRISECHARGE<47,L> # "" AND W_ACT # "VRAI"
					IF W_CODEACTIVITE = "" THEN
						IF ENR_ACTIVITESAIDE<1,J> = ENR_ORGPRISECHARGE<47,L> THEN
							IF ENR_ACTIVITESAIDE<3,J> > ENR_ACCORD<6> OR ENR_ACTIVITESAIDE<3,J> = "" THEN
								W_ACT = "VRAI"
							END
						END
					END ELSE
						IF ENR_ACTIVITESAIDE<1,J> = W_CODEACTIVITE THEN
							IF ENR_ORGPRISECHARGE<47,L> = W_CODEACTIVITE THEN
								IF ENR_ACTIVITESAIDE<3,J> > ENR_ACCORD<6> OR ENR_ACTIVITESAIDE<3,J> = "" THEN
									W_ACT = "VRAI"
								END
							END
						END
					END
					L = L + 1
				REPEAT
				J = J + 1
			REPEAT

			IF W_ACT = "FAUX" THEN
				W_TOTCRIT="FAUX"
			END
			
			IF W_TOTCRIT = "VRAI" THEN
				L = 1
				LOOP
				WHILE ENR_DEMANDACC<2,L> # "" AND W_ACT # "VRAI"
					IF ENR_DEMANDACC<1,L> = ENR_ACCORD<1> THEN
						IF ENR_DEMANDACC<3,L> > ENR_ACCORD<6> THEN
							W_ACT = "VRAI"
						END
					END
					L = L + 1
				REPEAT
				IF W_ACT = "FAUX" THEN
					W_TOTCRIT="FAUX"
				END
			END
			
			IF W_TOTCRIT = "VRAI" THEN
				*IF W_CODEIMP = "LIST" OR W_CODEIMP = "LILE" THEN
					RENOUVELLEMENT = W_AIDE:' '
					W_CONSTENR = ENR_CIVILAIDE<2>:' ':ENR_CIVILAIDE<3>
					W_CONSTENR = W_CONSTENR "L(#26)"
					RENOUVELLEMENT = RENOUVELLEMENT:W_CONSTENR:' '
					W_CONSTENR = ENR_ORGPRISECHARGE<1> "L(#28)"
					RENOUVELLEMENT = RENOUVELLEMENT:W_CONSTENR:'   '
					W_CONSTENR = ENR_ORGPRISECHARGE<18>:'  '
					DATACC = OCONV(ENR_ACCORD<6>,"D4/")
					W_CONSTENR = W_CONSTENR:DATACC
					RENOUVELLEMENT = RENOUVELLEMENT:W_CONSTENR
					ENR_RENOUVELLEMENT<1,1> = RENOUVELLEMENT
					IF W_TYPESELECTION = "R" THEN
						ENR_RENOUVELLEMENT<1,2> = ENR_CIVILAIDE<39>
					END ELSE
						IF W_TYPESELECTION = "S" THEN
							ENR_RENOUVELLEMENT<1,2> = ENR_CIVILAIDE<40>[1,3]
						END ELSE
							ENR_RENOUVELLEMENT<1,2> = ENR_CIVILAIDE<11>
						END
					END
					ENR_RENOUVELLEMENT<1,3> = CLE.ACCORD
					WRITE ENR_RENOUVELLEMENT TO F.RENOUVELLEMENT,CLE.ACCORD
				*END
			
				*IF W_CODEIMP = "LETR" OR W_CODEIMP = "LILE" THEN

				**END
			END

		REPEAT

	END

NEXT I

EXECUTE 'EFFACER-LISTE W_RESULTAT'
STOP
