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

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

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

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/")

IF W_CodAssoc= "004" THEN
   W_Prestation="PAD"
END ELSE
   W_Prestation="MAV;MGJ;MGN"
END

ENR_FUSION=""

W_ListeReq=""
* Requete
GOSUB 10

IF MSGCODE<1>#209 THEN

   SELECT F.CONTRAT TO W_ListeReq
   GOSUB 20

END         

WRITE ENR_FUSION ON F.FUSION,"AIDANT":W_CodAssoc:W_CodSecteur:".csv"

STOP

*********************************************************************************
* Requete
10

W_Requete = 'SSELECT CONTRAT AVEC 65 = "" AND AVEC 6 = "P" AND AVEC 2 = "':W_CodAssoc:'" AND AVEC CodSecteurContrat = "':W_CodSecteur:']"'
W_Requete = W_Requete:' AND AVEC 7 <= "':W_DateFinSelect:'" AND AVEC 8 => "':W_DateDebSelect:'" OR = "" PAR 0'

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

RETURN


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

   W_CodeAidant=""
   W_AncCodeAidant=""
   i=1
   W_Fini="FAUX"
   LOOP
      READNEXT W_CleReq FROM W_ListeReq ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
         W_CodeAidant=W_CleReq[1,5]

         IF W_CodeAidant # W_AncCodeAidant THEN
            READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_CodeAidant ELSE STOP
            READ ENR_CONTRAT FROM F.CONTRAT,W_CleReq ELSE STOP
            READ ENR_SECTEUR FROM F.SECTEUR,ENR_CIVILAIDANT<31> ELSE STOP
 
            IF ENR_CONTRAT<4> = "D" THEN
               W_TypeContrat="1"
            END ELSE
               W_TypeContrat="2"
            END

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

            ENR_FUSION<i>=";":ENR_CIVILAIDANT<1>:";":ENR_CIVILAIDANT<2>:";":ENR_CIVILAIDANT<3>:";":MiseEnFormeAdresse1
            ENR_FUSION<i>=ENR_FUSION<i>:";":ENR_CIVILAIDANT<9>:";":ENR_SECTEUR<1>:";":ENR_CIVILAIDANT<10>:";":ENR_CIVILAIDANT<11>:";N;O;":ENR_CIVILAIDANT<12>
            ENR_FUSION<i>=ENR_FUSION<i>:";;":W_TypeContrat:";":W_CodeAidant:";":W_Prestation
            i=i+1
         END

        W_AncCodeAidant=W_CodeAidant
   REPEAT
    
 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
