***************************************************
*LISTE DES AIDES  
***************************************************
* Ouvertures des fichiers

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE PRINT "OUVERTURE ACTIVITESAIDE" ;* en lecture
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE PRINT "OUVERTURE CIVILAIDE" ;* en lecture
OPEN "","ACTIVITES" TO F.ACTIVITES ELSE PRINT "OUVERTURE ACTIVITES" ;* en lecture
***************************************************
*initialisation variables
W_Date=""
W_Count=""
i=""
W_NomPrenom=""
Commune=""
TOTAL=""
TabForme=""
IndForme=""
W_Adresse=""
*********************************************************
* PROGRAMME PRINCIPAL
*********************************************************


W_Ok = "F"
LOOP WHILE W_Ok = "F" DO
	PRINT "Entrez la priode de rfrence (AAAAMM)"
	INPUT W_MoisDeb
	IF W_MoisDeb MATCHES "6N" THEN
		W_Ok = "V"
	END
REPEAT
PRINTER ON
	*liste aids plus de 60 ans
*   W_Temp='SSELECT ACTIVITESAIDE AVEC DateAideSupp = "" AND AVEC DateNaisAide <= "01/05/1942" PAR CodeSecteurBisAide PAR NomPrenomAide'

*   EXECUTE W_Temp
*   EXECUTE 'SAUVE-LISTE W_RequeteAct'
*   EXECUTE "LISTE W_RequeteAct" RETURNING MSGCODE

*   IF MSGCODE<1>=209 THEN
*      STOP
*   END ELSE
*      SELECT F.ACTIVITESAIDE TO W_RequeteAct

*	GOSUB 50

*      W_End="FAUX"
*      LOOP
*         READNEXT W_Cle FROM W_RequeteAct ELSE W_End = "VRAI"
*      WHILE W_End = "FAUX" DO
*         READ ENR_ACTIVITESAIDE FROM F.ACTIVITESAIDE,W_Cle ELSE ENR_ACTIVITESAIDE=""

*	W_Count=DCOUNT(ENR_ACTIVITESAIDE<1>,CHAR(253))
*	W_Date=ICONV(W_Date,"D4/")

*	FOR i=1 TO W_Count
*		IF ENR_ACTIVITESAIDE<1,i>[1,3]="001" THEN
*			IF ENR_ACTIVITESAIDE<3,i> # "" THEN
*				IF ENR_ACTIVITESAIDE<3,i> > ICONV(W_Date,"D4/") THEN
*					GOSUB 100
*					EXIT
*				END
*			END ELSE
*				GOSUB 100
*				EXIT
*			END
*		END
*	NEXT i


*      REPEAT
*PRINT "TOTAL :":TOTAL
*   END

	*liste des aids par mois anniversaire
   W_Temp='SSELECT CIVILAIDE AVEC 43 = "" AND AVEC MoisAide = "':W_MoisDeb[5,2]:'" PAR NomPrenomAide'

   EXECUTE W_Temp
   EXECUTE 'SAUVE-LISTE W_RequeteNais'
   EXECUTE "LISTE W_RequeteNais" RETURNING MSGCODE

   IF MSGCODE<1>=209 THEN
      STOP
   END ELSE
      SELECT F.CIVILAIDE TO W_RequeteNais
	W_Date="01/":W_MoisDeb[5,2]:"/":W_MoisDeb[1,4]
	W_Date=ICONV(W_Date,"D4/")
	GOSUB 110

      W_End="FAUX"
      LOOP
         READNEXT W_CleNais FROM W_RequeteNais ELSE W_End = "VRAI"
      WHILE W_End = "FAUX" DO

         READ ENR_ACTIVITESAIDE FROM F.ACTIVITESAIDE,W_CleNais ELSE ENR_ACTIVITESAIDE=""
	W_Count=DCOUNT(ENR_ACTIVITESAIDE<1>,CHAR(253))


	FOR i=1 TO W_Count
		IF ENR_ACTIVITESAIDE<3,i> # "" THEN
			IF ENR_ACTIVITESAIDE<3,i> > ICONV(W_Date,"D4/") THEN
				GOSUB 120
				EXIT
			END
		END ELSE
			GOSUB 120
			EXIT
		END
	NEXT i


      REPEAT
PRINT "TOTAL :":TOTAL
   END

*	*liste des aids sans date de naissance par secteur et par ordre alpha
*   W_Temp='SSELECT ACTIVITESAIDE AVEC DateAideSupp = "" AND AVEC DateNaisAide = "" PAR SecteurAide PAR NomPrenomAide'

*   EXECUTE W_Temp
*   EXECUTE 'SAUVE-LISTE W_RequeteSsNais'
*   EXECUTE "LISTE W_RequeteSsNais" RETURNING MSGCODE

*   IF MSGCODE<1>=209 THEN
*      STOP
*   END ELSE
*      SELECT F.ACTIVITESAIDE TO W_RequeteSsNais

*	GOSUB 130

*      W_End="FAUX"
*      LOOP
*         READNEXT W_CleSsNais FROM W_RequeteSsNais ELSE W_End = "VRAI"
*      WHILE W_End = "FAUX" DO

*         READ ENR_ACTIVITESAIDE FROM F.ACTIVITESAIDE,W_CleSsNais ELSE ENR_ACTIVITESAIDE=""

*	W_Count=DCOUNT(ENR_ACTIVITESAIDE<1>,CHAR(253))
*	W_Date=ICONV(W_Date,"D4/")

*	FOR i=1 TO W_Count
*		IF ENR_ACTIVITESAIDE<3,i> # "" THEN
*			IF ENR_ACTIVITESAIDE<3,i> > ICONV(W_Date,"D4/") THEN
*				GOSUB 140
*				EXIT
*			END
*		END ELSE
*			GOSUB 140
*			EXIT
*		END
*	NEXT i


*      REPEAT
*PRINT "TOTAL :":TOTAL
*   END

STOP
*************************************************
*titre colonne
*************************************************
50
	PRINT SPACE(15):"LISTE DES AIDES AYANT PLUS DE 60 ANS A L'ENTITE ASSAD"
	PRINT SPACE(2):"CODE":SPACE(2):"NOM PRENOM AIDE":SPACE(10):"TELEPHONE":SPACE(2):"DATE NAISSANCE":SPACE(2):"COMMUNE"
RETURN
*************************************************
*RECHERCHE DES DONNEES
*************************************************
100
	READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Cle ELSE ENR_CIVILAIDE=""

TOTAL=TOTAL+1
	W_NomPrenom=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
	W_NomPrenom=W_NomPrenom[1,22]
	Commune=ENR_CIVILAIDE<11>
	Commune=Commune[1,20]
	PRINT SPACE(2):W_Cle:SPACE(2):W_NomPrenom:SPACE(25-LEN(W_NomPrenom)):ENR_CIVILAIDE<14>:SPACE(15-LEN(ENR_CIVILAIDE<14>)):OCONV(ENR_CIVILAIDE<20>,"D4/"):SPACE(12-LEN(OCONV(ENR_CIVILAIDE<20>,"D4/"))):Commune
RETURN
*************************************************
*titre colonne
*************************************************
TOTAL=""
110
	PRINT SPACE(15):"LISTE DES AIDES ASSAD-AMAGAD TRIES PAR DATE ANNIVERSAIRE"
	PRINT SPACE(2):"CODE":SPACE(2):"NOM PRENOM AIDE":SPACE(10):"DATE NAISSANCE":SPACE(2):"ADRESSE":SPACE(5):"ACTIVITE"
RETURN
*************************************************
*RECHERCHE DES DONNEES
*************************************************
120
W_ACT=""
	READ ENR_ACTIVITES FROM F.ACTIVITES,ENR_ACTIVITESAIDE<1,i> ELSE ENR_ACTIVITES=""
	IF ENR_ACTIVITES<12>="P" THEN
		W_ACT="PRESTATAIRE"
	END ELSE
		IF ENR_ACTIVITES<12>="M" THEN
			W_ACT="MANDATAIRE"
		END ELSE
			IF ENR_ACTIVITES<12>="I" THEN
				W_ACT="INTERMEDIAIRE"
			END
		END
	END

	READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_CleNais ELSE ENR_CIVILAIDE=""

TOTAL=TOTAL+1
	W_NomPrenom=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
	W_NomPrenom=W_NomPrenom[1,18]

		TabForme=ENR_CIVILAIDE
		IndForme=5
		GOSUB 200
		W_Adresse=MiseEnFormeAdresse1
		IF W_Adresse#"" THEN
			W_Adresse=W_Adresse[1,25]
			W_Adresse=W_Adresse:" ":ENR_CIVILAIDE<10>:" ":ENR_CIVILAIDE<11>[1,20]
		END ELSE
			IF ENR_CIVILAIDE<9>#"" THEN
				W_Adresse=ENR_CIVILAIDE<9>[1,15]
				W_Adresse=W_Adresse:" ":ENR_CIVILAIDE<10>:" ":ENR_CIVILAIDE<11>[1,20]
			END ELSE
				W_Adresse=ENR_CIVILAIDE<10>:" ":ENR_CIVILAIDE<11>[1,20]
			END
		END

	PRINT SPACE(2):W_CleNais:SPACE(2):W_NomPrenom:SPACE(20-LEN(W_NomPrenom)):OCONV(ENR_CIVILAIDE<20>,"D4/"):SPACE(12-LEN(OCONV(ENR_CIVILAIDE<20>,"D4/"))):W_Adresse:SPACE(52-LEN(W_Adresse)):W_ACT
RETURN

*************************************************
*titre colonne
*************************************************
TOTAL=""
130
	PRINT SPACE(15):"LISTE DES AIDES ASSAD-AMAGAD SANS DATE NAISSANCE TRIES PAR SECTEUR ET PAR ORDRE ALPHA"
	PRINT SPACE(2):"CODE":SPACE(2):"NOM PRENOM AIDE":SPACE(10):"ADRESSE"
RETURN
*************************************************
*RECHERCHE DES DONNEES
*************************************************
140
	READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_CleSsNais ELSE ENR_CIVILAIDE=""

TOTAL=TOTAL+1
	W_NomPrenom=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
	W_NomPrenom=W_NomPrenom[1,18]

		TabForme=ENR_CIVILAIDE
		IndForme=5
		GOSUB 200
		W_Adresse=MiseEnFormeAdresse1
		IF W_Adresse#"" THEN
			W_Adresse=W_Adresse[1,25]
			W_Adresse=W_Adresse:SPACE(28-LEN(W_Adresse)):ENR_CIVILAIDE<10>:" ":ENR_CIVILAIDE<11>[1,20]
		END ELSE
			IF ENR_CIVILAIDE<9>#"" THEN
				W_Adresse=ENR_CIVILAIDE<9>[1,15]
				W_Adresse=W_Adresse:SPACE(28-LEN(W_Adresse)):ENR_CIVILAIDE<10>:" ":ENR_CIVILAIDE<11>[1,20]
			END ELSE
				W_Adresse=ENR_CIVILAIDE<10>:" ":ENR_CIVILAIDE<11>[1,20]
			END
		END

	PRINT SPACE(2):W_CleSsNais:SPACE(2):W_NomPrenom:SPACE(20-LEN(W_NomPrenom)):W_Adresse
RETURN
***********************************************************
*MISE EN FORME DE L'ADRESSE
**********************************************************
200

	MiseEnFormeAdresse1 = ""

    	IF TabForme<IndForme> # "" THEN
        	MiseEnFormeAdresse1 = TabForme<IndForme>:SPACE(1)
    	END
    
    	IF TabForme<IndForme + 1> # "" THEN
        	MiseEnFormeAdresse1 = MiseEnFormeAdresse1:TabForme<IndForme + 1>:SPACE(1)
   	END
    
    	IF TabForme<IndForme + 2> # "" THEN
        	MiseEnFormeAdresse1 = MiseEnFormeAdresse1:TabForme<IndForme + 2>:SPACE(1)
    	END
    
    	IF TabForme<IndForme + 3> # "" THEN
        	MiseEnFormeAdresse1 = MiseEnFormeAdresse1:TabForme<IndForme + 3>
    	END

RETURN
