EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "ACTIVITESBISAIDE" TO F.ACTIVITESBISAIDE ELSE STOP
OPEN "", "CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "", "FUSION" TO F.FUSION ELSE STOP
OPEN "", "SECTEUR" TO F.SECTEUR ELSE STOP

PRINT "Code Association (3N) : ":
INPUT W_CodAssoc

PRINT "Type activit (P=Prestataire, M=Mandataire) : ":
INPUT W_TypeActivite

PRINT "Code Secteur (3N) : ":
INPUT W_CodSecteur

*READ ENR_SECTEUR FROM F.SECTEUR,W_CodSecteur THEN
*END ELSE
*   PRINT "Secteur Inconnu"
*   STOP
*END

PRINT "Date de dbut de slection (JJ/MM/AAAA) : ":
INPUT W_DateDebSelect
W_DateDebSelect=ICONV(W_DateDebSelect,"D4/")

PRINT "Date de fin de slection (JJ/MM/AAAA) : ":
INPUT W_DateFinSelect
W_DateFinSelect=ICONV(W_DateFinSelect,"D4/")

ENR_FUSION=""

W_ListeReq=""
* Requete
GOSUB 10

IF MSGCODE<1>#209 THEN

   SELECT F.ACTIVITESBISAIDE TO W_ListeReq
   GOSUB 20

END         

WRITE ENR_FUSION ON F.FUSION,"AIDE":W_CodAssoc:W_TypeActivite:W_CodSecteur:".txt"

STOP

*********************************************************************************
* Requete
10
W_Requete = 'SSELECT ACTIVITESBISAIDE AVEC TypeActBisAide = "':W_TypeActivite:']" AND AVEC CodeAssocBisAide = "':W_CodAssoc:'"'
W_Requete = W_Requete:' AND AVEC CodeSecteurBisAide = "':W_CodSecteur:']" AND AVEC DateDebAct <= "':W_DateFinSelect:'" AND AVEC 1 => "':W_DateDebSelect:'" OR = "" PAR CodeAide'

EXECUTE W_Requete
EXECUTE 'SAUVE-LISTE W_ListeReq'
EXECUTE "LISTE W_ListeReq" RETURNING MSGCODE

RETURN


***********************************************************************************
* Traitement de la slection
20

   W_CodeAide=""
   W_AncCodeAide=""
   W_ActAide=""
   i=1
   W_Fini="FAUX"
   LOOP
      READNEXT W_CleReq FROM W_ListeReq ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
         W_CodeAide=W_CleReq[1,5]

         IF W_CodeAide # W_AncCodeAide AND W_AncCodeAide # "" THEN
            GOSUB 40
         END

	 IF W_CleReq[6,6]= "002001" THEN
            W_ActAide<1>="MAV"
         END ELSE
            IF W_CleReq[6,6]= "002002" THEN
               W_ActAide<2>="MGJ"
            END ELSE
               IF W_CleReq[6,6]= "002003" THEN
                  W_ActAide<3>="MGN"
               END ELSE
                  W_ActAide<1>="PAD"
               END
            END            
         END
         W_AncCodeAide=W_CodeAide
   REPEAT

   GOSUB 40

 RETURN

************************************************************************
* Mise en forme adresse 1
30
    MiseEnFormeAdresse1 = ""

    IF Tableau<Indice> # "" THEN
        MiseEnFormeAdresse1 = Tableau<Indice>:" "
    END
    
    IF Tableau<Indice + 1> # "" THEN
        MiseEnFormeAdresse1 = MiseEnFormeAdresse1:Tableau<Indice + 1> :" "
    END
    
    IF Tableau<Indice + 2> # "" THEN
        MiseEnFormeAdresse1 = MiseEnFormeAdresse1:Tableau<Indice + 2> :" "
    END
    
    IF Tableau<Indice + 3> # "" THEN
        MiseEnFormeAdresse1 = MiseEnFormeAdresse1:Tableau<Indice + 3>
    END
RETURN


*******************************************************************************
* Ecriture de l'aide
40
            READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_AncCodeAide ELSE PRINT "AIDE":W_AncCodeAide
            READ ENR_SECTEUR FROM F.SECTEUR,ENR_CIVILAIDE<40>[1,3] ELSE PRINT "SECTEUR":ENR_CIVILAIDE<40>[1,3]

            * Mise en forme adresse 1
            Indice=5
            Tableau=ENR_CIVILAIDE
            GOSUB 30

            W_Tel=CONVERT(" ","",ENR_CIVILAIDE<14>)
	    W_Tel=CONVERT("/","",W_Tel)
	    W_Tel=CONVERT(".","",W_Tel)
            ENR_FUSION<i>=W_Tel:";":ENR_CIVILAIDE<1>:";":ENR_CIVILAIDE<2>:";":ENR_CIVILAIDE<3>:";":OCONV(ENR_CIVILAIDE<20>,"D4/"):";":ENR_SECTEUR<1>:";":MiseEnFormeAdresse1
            ENR_FUSION<i>=ENR_FUSION<i>:";":ENR_CIVILAIDE<9>:";":ENR_CIVILAIDE<10>:";":ENR_CIVILAIDE<11>:";":W_AncCodeAide
            IF W_ActAide<1> # "" THEN
               ENR_FUSION<i>=ENR_FUSION<i>:";":W_ActAide<1>
            END
            IF W_ActAide<2> # "" THEN
               ENR_FUSION<i>=ENR_FUSION<i>:";":W_ActAide<2>
            END
            IF W_ActAide<3> # "" THEN
               ENR_FUSION<i>=ENR_FUSION<i>:";":W_ActAide<3>
            END
            i=i+1
            W_ActAide=""

RETURN
