* Vrifie si l'aid pour lequel on a cr un accord apa est bien actif

OPEN "","ACCORD" TO F.ACCORD ELSE PRINT "OUVERTURE ACCORD" ;* en lecture
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE PRINT "OUVERTURE CIVILAIDE" ;* en lecture
OPEN "","ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE PRINT "OUVERTURE ACTIVITESAIDE" ;* en lecture
OPEN "","ORGPRISECHARGE" TO F.ORGPRISECHARGE ELSE PRINT "OUVERTURE ORGPRISECHARGE" ;* en lecture
OPEN "","FUSION" TO F.FUSION ELSE PRINT "OUVERTURE FUSION" ;* en lecture

PRINT "Caisse APA semaine"
INPUT W_APASem

PRINT "Caisse APA dimanche"
INPUT W_APADim

ENR_FUSION=""
W_Ind=1

	EXECUTE 'SELECT ACCORD AVEC 18 = "" AND AVEC 1 = "':W_APASem:'" OR = "':W_APADim:'"'
	
	W_End="FAUX"
	
	LOOP
		READNEXT W_Cle ELSE W_End = "VRAI"
	WHILE W_End = "FAUX" DO
		READ ENR_ACCORD FROM F.ACCORD,W_Cle ELSE ENR_ACCORD=""
		READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Cle[1,5] ELSE ENR_CIVILAIDE=""
		
		IF ENR_CIVILAIDE<43> # "" AND ENR_CIVILAIDE<43> < "16438" THEN
			ENR_FUSION<W_Ind>=W_Cle[1,5]:";":ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>:";":"AIDE SUPPRIME"
			W_Ind=W_Ind+1
		END ELSE
			READ ENR_ORGPRISECHARGE FROM F.ORGPRISECHARGE,ENR_ACCORD<1> ELSE ENR_ORGPRISECHARGE=""
			READ ENR_ACTIVITESAIDE FROM F.ACTIVITESAIDE,W_Cle[1,5] ELSE ENR_ACTIVITESAIDE=""
			W_ActiviteOK="FAUX"
			W_TrouveAct="FAUX"
			FOR i = 1 TO DCOUNT(ENR_ACTIVITESAIDE<1>,CHAR(253))
				W_TrouveAct="FAUX"
				FOR j=1 TO DCOUNT(ENR_ORGPRISECHARGE<47>,CHAR(253))
					IF ENR_ACTIVITESAIDE<1,i>=ENR_ORGPRISECHARGE<47,j> THEN
						W_TrouveAct="VRAI"
					END
				NEXT j
				W_ActiviteOK="FAUX"
				IF W_TrouveAct="VRAI" THEN
					IF (ENR_ACTIVITESAIDE<2,i> <= ENR_ACCORD<6> AND ENR_ACTIVITESAIDE<3,i> >= ENR_ACCORD<5>) OR (ENR_ACTIVITESAIDE<2,i> <= ENR_ACCORD<6> AND ENR_ACTIVITESAIDE<3,i> = "") THEN
						W_ActiviteOK="VRAI"
						EXIT
					END
				END
			NEXT i
			IF W_ActiviteOK="FAUX" THEN
				ENR_FUSION<W_Ind>=W_Cle[1,5]:";":ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>:";":"AIDE INACTIF"
				W_Ind=W_Ind+1				
			END
		END
		
	REPEAT
	
	WRITE ENR_FUSION ON F.FUSION,"AccordAPA-AideNonActif.csv"
	
STOP