*  Edition des attestations fiscales pour Troyes
*  Programme chaine  partir d'un projet VB
*  Grgory
*  Janvier 2002
**********************************************************

* Ouvertures des fichiers

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","FEDEASSOC" TO F.FEDEASSOC ELSE PRINT "OUVERTURE FEDEASSOC"
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE PRINT "OUVERTURE CIVILAIDE"
OPEN "","SECTEUR" TO F.SECTEUR ELSE PRINT "OUVERTURE SECTEUR"
OPEN "","CHEMINFICHIER" TO F.CHEMINFICHIER ELSE PRINT "OUVERTURE CHEMINFICHIER"
OPEN "","TEMPO" TO F.TEMPO ELSE PRINT "OUVERTURE TEMPO"

**********************************************************

* Variables

ENR_TEMPO=""
I = 1
Z = 1
W_Count = 0
W_Compte = 0
W_TexteRempli  =  "FAUX"
W_InfoAide = ""
W_DateConv=""
W_CivilAide=""

*******************************************************************

* Recuperation des arguments

PROCREAD ARGUMENTS ELSE STOP
W_Entite=FIELD(ARGUMENTS," ",2)
W_Debut=FIELD(ARGUMENTS," ",3)
W_Fin=FIELD(ARGUMENTS," ",4)

***********************************************************

* PROGRAMME PRINCIPAL

   EXECUTE 'VIDER-FICHIER ATTESTFISCTEMPO'

   READ ENR_FEDEASSOC FROM F.FEDEASSOC,W_Entite ELSE ENR_FEDEASSOC=""

   W_TexteRempli = "False"
        
   W_Count = DCOUNT(ENR_FEDEASSOC<41>,CHAR(253))

   FOR I = 1 TO W_Count
        
        W_Temp='SSELECT CIVILAIDE AVEC CodeSecteurAide = "':ENR_FEDEASSOC<41,I>:'" AND AVEC 2 >= "':W_Debut:']" AND <= "':W_Fin:']" PAR 2'
        
        EXECUTE W_Temp
        EXECUTE 'SAUVE-LISTE W_CivilAide'
        EXECUTE "LISTE W_CivilAide" RETURNING MSGCODE

        IF MSGCODE<1>=209 THEN
           STOP
        END ELSE
        
        SELECT F.CIVILAIDE TO W_CivilAide

        W_End="FAUX"
     	Z=1
        LOOP
           READNEXT W_Cle FROM W_CivilAide ELSE W_End = "VRAI"
        WHILE W_End = "FAUX" DO
        
            IF W_TexteRempli = "False" THEN
                *Ecriture Infos des aides
                W_InfoAide="TitreAide#NomAide#PrenomAide#Adresse#ComplAdrAide#CodPostAide#CommuneAide#CedexAide#ExtCedexAide#"
                *Ecriture Infos des assoc
                W_InfoAide=W_InfoAide:"SigleFedeAssoc#Adresse#ComplAdrFedeAssoc#CodPostFedeAssoc#CommuneFedeAssoc#CedexFedeAssoc#ExtCedexFedeAssoc#"
                *Ecriture Infos Agrement
                W_InfoAide=W_InfoAide:"NoAgrementSect#DatAgrementSect#"
                *Ecriture Periode
                W_InfoAide=W_InfoAide:"Periode"
		ENR_TEMPO<Z,1>=W_InfoAide
		Z=Z+1
            END
            
            READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Cle ELSE ENR_CIVILAIDE=""
	    TABLEAU = ENR_CIVILAIDE 
	    Indice=5
	    GOSUB 300
	    W_Adress = MiseEnFormeAdresse1
            W_InfoAide=ENR_CIVILAIDE<1>:"#":ENR_CIVILAIDE<2>:"#":ENR_CIVILAIDE<3>:"#":W_Adress:"#":ENR_CIVILAIDE<9>:"#":ENR_CIVILAIDE<10>:"#":ENR_CIVILAIDE<11>:"#":ENR_CIVILAIDE<12>:"#":ENR_CIVILAIDE<13>
	       
            GOSUB 100
            GOSUB 200
ENR_TEMPO<Z,1>=W_InfoAide
	    

		WRITE ENR_TEMPO ON F.TEMPO,"ATTESTFISCTEMPO"
                W_TexteRempli = "True"
	
		Z=Z+1
            
        REPEAT
	
	END
        
    NEXT I
   
STOP

*********************************************************************

100
            
    TABLEAU = ENR_FEDEASSOC 
    Indice=3
    GOSUB 300
    W_Adress = MiseEnFormeAdresse1
    W_InfoAide=W_InfoAide:"#":ENR_FEDEASSOC<1>:"#":W_Adress:"#":ENR_FEDEASSOC<7>:"#":ENR_FEDEASSOC<8>:"#":ENR_FEDEASSOC<9>:"#":ENR_FEDEASSOC<10>:"#":ENR_FEDEASSOC<11>
            
RETURN

*********************************************************************

200
        
    READ ENR_SECTEUR FROM F.SECTEUR,ENR_FEDEASSOC<41,I> ELSE ENR_FEDEASSOC=""
    
    IF ENR_SECTEUR<3><>"" THEN
        W_InfoAide=W_InfoAide:"#":"AGREMENT N :":CHAR(32):ENR_SECTEUR<3>
        W_DateConv=ENR_SECTEUR<4>
        W_InfoAide=W_InfoAide:CHAR(32):"#":"du":CHAR(32):OCONV(W_DateConv,"D4/")
        W_InfoAide=W_InfoAide:"#":"SUR LA PERIODE DU 1ER JANVIER 2001 au 31 DECEMBRE 2001"
    END ELSE
        W_InfoAide=W_InfoAide:"#":"#":"SUR LA PERIODE DU 1ER JANVIER 2001 au 31 DECEMBRE 2001"
    END
    
RETURN

**********************************************************************

300

    MiseEnFormeAdresse1 = ""

    IF TABLEAU<Indice> <> "" THEN
        MiseEnFormeAdresse1 = TABLEAU<Indice>:SPACE(1)
    END
    
    IF TABLEAU<Indice + 1> <> "" THEN
        MiseEnFormeAdresse1 = MiseEnFormeAdresse1:TABLEAU<Indice + 1>:SPACE(1)
    END
    
    IF TABLEAU<Indice + 2> <> "" THEN
        MiseEnFormeAdresse1 = MiseEnFormeAdresse1:TABLEAU<Indice + 2>:SPACE(1)
    END
    
    IF TABLEAU<Indice + 3> <> "" THEN
        MiseEnFormeAdresse1 = MiseEnFormeAdresse1:TABLEAU<Indice + 3>
    END

RETURN
