*********************************************************
* PROGRAMME DE CONVERSION DE LA DADS DE FRANCS EN EUROS *
*                                                       *
* JUIN 2001                             STEPHANE HERVET *
*********************************************************


* RECAPITULATIFS DES GOSUBS
*
* 10  -> TRAITEMENT DES LIGNES 130
* 20  -> TRAITEMENT DES LIGNES 200
* 30  -> TRAITEMENT DES LIGNES 202
* 40  -> TRAITEMENT DES LIGNES 210
*
* 50  -> TRAITEMENT DES LIGNES 300
* 60  -> TRAITEMENT DES LIGNES 302
* 70  -> TRAITEMENT DES LIGNES 310
* 80  -> TRAITEMENT DES LIGNES 312
*
* 999 -> INITIALISATION DES VARIABLES


* DEMANDE DU CHEMIN DU FICHIER D'ORIGINE
PRINT "CHEMIN DU FICHIER DADS A CONVERTIR : "
INPUT W_CHEMINFICHIER


* OUVERTURE DES FICHIERS
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "",W_CHEMINFICHIER TO F.DADSTDS ELSE 
     PRINT "LE CHEMIN ":W_CHEMINFICHIER:" N'EXISTE PAS"
     STOP
END


* DEMANDE NOM DU FICHIER D'ORIGINE
PRINT "NOM DU FICHIER DADS A CONVERTIR : "
INPUT W_NOMFICHIER


* COPIE DU FICHIER FRANCS -> FICHIER EURO
READ ENR_DADSTDS FROM F.DADSTDS,W_NOMFICHIER ELSE 
     PRINT "LE FICHIER ":W_NOMFICHIER:" N'EXISTE PAS"
     ENR_DADSTDS=""
     STOP
END
WRITE ENR_DADSTDS ON F.DADSTDS,W_NOMFICHIER:"EURO"


GOSUB 999


* DEBUT DES TRAITEMENTS
* LECTURE DU FICHIER EURO
READ ENR_DADS FROM F.DADSTDS,W_NOMFICHIER:"EURO" ELSE ENR_DADS=""


* PARCOURS DE L'INTEGRALITE DU FICHIER DADS-EURO
I=1
LOOP
     UNTIL ENR_DADS<I>="" DO

     * TEST TYPE ENREGISTREMENT
     IF ENR_DADS<I>[20,3]="130" THEN GOSUB 10
     IF ENR_DADS<I>[20,3]="200" THEN GOSUB 20
     IF ENR_DADS<I>[20,3]="202" THEN GOSUB 30
     IF ENR_DADS<I>[20,3]="210" THEN GOSUB 40
     IF ENR_DADS<I>[20,3]="300" THEN GOSUB 50
     IF ENR_DADS<I>[20,3]="302" THEN GOSUB 60
     IF ENR_DADS<I>[20,3]="310" THEN GOSUB 70
     IF ENR_DADS<I>[20,3]="312" THEN GOSUB 80

     I=I+1    
REPEAT


WRITE ENR_DADS ON F.DADSTDS,W_NOMFICHIER:"EURO"


* IMPRESSION DU RAPPORT D'EXECUTION
PRINTER ON

PRINT "DATE :":OCONV(DATE(),"D4/")
PRINT ""
PRINT ""
PRINT ""
PRINT SPACE(15):"RAPPORT D'EXECUTION DU TRAITEMENT TDS-NORMES (VERSION EUROS)"
PRINT ""
PRINT ""
PRINT ""
PRINT "NOM DU FICHIER GENERE DANS LE REPERTOIRE ":W_CHEMINFICHIER:" : ":W_NOMFICHIER:"EURO"
PRINT ""
PRINT ""
PRINT "TAILLE DU FICHIER              :":(I-1)*566
PRINT "NOMBRE D'ENREGISTREMENTS       :":I-1
PRINT "NOMBRE DE DECLARATIONS SALARIE :":W_NBSAL
PRINT ""
PRINT "SECURITE SOCIALE"
PRINT "        - TOTALITE             :":ENR_DADS<I-2>[40,12]*1
PRINT "        - PLAFONNE             :":ENR_DADS<I-2>[52,12]*1
PRINT "        - CAS PARTICULIERS     :":ENR_DADS<I-2>[64,12]*1
PRINT ""
PRINT "IMPOTS"
PRINT "        - REMUNERATION BRUTE   :":ENR_DADS<I-2>[76,12]*1
PRINT "        - REMUNERATION NETTE   :":ENR_DADS<I-2>[88,12]*1
PRINT "        - AVANTAGE EN NATURE   :":ENR_DADS<I-2>[100,12]*1
PRINT "        - FRAIS PROFESSIONNELS :":ENR_DADS<I-2>[112,12]*1
PRINT ""
PRINT "TAXE SUR SALAIRES"
PRINT "        - TOTALITE             :":ENR_DADS<I-2>[136,12]*1
PRINT "        - TRANCHE 1            :":ENR_DADS<I-2>[148,12]*1
PRINT "        - TRANCHE 2            :":ENR_DADS<I-2>[160,12]*1
PRINT "        - MONTANT DU           :":ENR_DADS<I-2>[328,12]*1

PRINTER OFF

STOP


*********************************************************
* TRAITEMENT DES LIGNES 130
10  *

    * ZONE 016
    ENR_DADS<I>[36,12]=INT((ENR_DADS<I>[36,12]/W_VALEURO)+1/2) "R%12"
    * ZONE 034
    ENR_DADS<I>[116,12]=INT((ENR_DADS<I>[116,12]/W_VALEURO)+1/2) "R%12"
    * ZONE 052
    ENR_DADS<I>[196,12]=INT((ENR_DADS<I>[196,12]/W_VALEURO)+1/2) "R%12"
    * ZONE 070
    ENR_DADS<I>[276,12]=INT((ENR_DADS<I>[276,12]/W_VALEURO)+1/2) "R%12"
    * ZONE 089
    ENR_DADS<I>[356,12]=INT((ENR_DADS<I>[356,12]/W_VALEURO)+1/2) "R%12"

RETURN


*********************************************************
* TRAITEMENT DES LIGNES 200
20  *

    W_NBSAL=W_NBSAL+1

    * ZONE 081
    ENR_DADS<I>[354,7]=INT((ENR_DADS<I>[354,7]/W_VALEURO)+1/2) "R%7"
    * ZONE 082
    ENR_DADS<I>[361,7]=INT((ENR_DADS<I>[361,7]/W_VALEURO)+1/2) "R%7"
    * ZONE 085
    ENR_DADS<I>[372,7]=INT((ENR_DADS<I>[372,7]/W_VALEURO)+1/2) "R%7"
    * ZONE 087
    ENR_DADS<I>[383,7]=INT((ENR_DADS<I>[383,7]/W_VALEURO)+1/2) "R%7"
    * ZONE 089
    ENR_DADS<I>[394,7]=INT((ENR_DADS<I>[394,7]/W_VALEURO)+1/2) "R%7"
    * ZONE 091
    ENR_DADS<I>[405,7]=INT((ENR_DADS<I>[405,7]/W_VALEURO)+1/2) "R%7"
    * ZONE 093
    ENR_DADS<I>[416,7]=INT((ENR_DADS<I>[416,7]/W_VALEURO)+1/2) "R%7"
    * ZONE 095
    ENR_DADS<I>[427,7]=INT((ENR_DADS<I>[427,7]/W_VALEURO)+1/2) "R%7"

    * ZONE 100
    ENR_DADS<I>[434,7]=INT((ENR_DADS<I>[434,7]/W_VALEURO)+1/2) "R%7"
    * ZONE 102
    ENR_DADS<I>[441,7]=INT((ENR_DADS<I>[441,7]/W_VALEURO)+1/2) "R%7"
    * ZONE 103
    ENR_DADS<I>[448,7]=INT((ENR_DADS<I>[448,7]/W_VALEURO)+1/2) "R%7"

    * ZONE 105
    ENR_DADS<I>[455,7]=INT((ENR_DADS<I>[455,7]/W_VALEURO)+1/2) "R%7"
    * ZONE 112
    ENR_DADS<I>[467,6]=INT((ENR_DADS<I>[467,6]/W_VALEURO)+1/2) "R%6"

    * ZONE 117
    ENR_DADS<I>[474,7]=INT((ENR_DADS<I>[474,7]/W_VALEURO)+1/2) "R%7"

    * ZONE 132
    ENR_DADS<I>[496,7]=INT((ENR_DADS<I>[496,7]/W_VALEURO)+1/2) "R%7"
    * ZONE 134
    ENR_DADS<I>[509,7]=INT((ENR_DADS<I>[509,7]/W_VALEURO)+1/2) "R%7"
    * ZONE 135
    ENR_DADS<I>[516,7]=INT((ENR_DADS<I>[516,7]/W_VALEURO)+1/2) "R%7"
    * ZONE 141
    ENR_DADS<I>[539,7]=INT((ENR_DADS<I>[539,7]/W_VALEURO)+1/2) "R%7"

    W_TABETAB<1>=W_TABETAB<1>+ENR_DADS<I>[354,7]
    W_TABETAB<2>=W_TABETAB<2>+ENR_DADS<I>[361,7]
    W_TABETAB<3>=W_TABETAB<3>+ENR_DADS<I>[372,7]
    W_TABETAB<4>=W_TABETAB<4>+ENR_DADS<I>[383,7]
    W_TABETAB<5>=W_TABETAB<5>+ENR_DADS<I>[394,7]
    W_TABETAB<6>=W_TABETAB<6>+ENR_DADS<I>[405,7]
    W_TABETAB<7>=W_TABETAB<7>+ENR_DADS<I>[416,7]
    W_TABETAB<8>=W_TABETAB<8>+ENR_DADS<I>[427,7]
    W_TABETAB<9>=W_TABETAB<9>+ENR_DADS<I>[434,7]
    W_TABETAB<10>=W_TABETAB<10>+ENR_DADS<I>[441,7]
    W_TABETAB<11>=W_TABETAB<11>+ENR_DADS<I>[448,7]
    W_TABETAB<12>=W_TABETAB<12>+ENR_DADS<I>[455,7]
    W_TABETAB<13>=W_TABETAB<13>+ENR_DADS<I>[467,6]
    W_TABETAB<14>=W_TABETAB<14>+ENR_DADS<I>[474,7]
    W_TABETAB<15>=W_TABETAB<15>+ENR_DADS<I>[496,7]
    W_TABETAB<16>=W_TABETAB<16>+ENR_DADS<I>[509,7]
    W_TABETAB<17>=W_TABETAB<17>+ENR_DADS<I>[516,7]
    W_TABETAB<18>=W_TABETAB<18>+ENR_DADS<I>[539,7]
    W_TABETAB<19>=W_TABETAB<19>+ENR_DADS<I>[372,7]+ENR_DADS<I>[383,7]+ENR_DADS<I>[394,7]+ENR_DADS<I>[405,7]+ENR_DADS<I>[416,7]+ENR_DADS<I>[427,7]
    W_TABETAB<20>=W_TABETAB<20>+ENR_DADS<I>[441,7]+ENR_DADS<I>[448,7]

    W_TABASSO<1>=W_TABASSO<1>+ENR_DADS<I>[354,7]
    W_TABASSO<2>=W_TABASSO<2>+ENR_DADS<I>[361,7]
    W_TABASSO<3>=W_TABASSO<3>+ENR_DADS<I>[372,7]
    W_TABASSO<4>=W_TABASSO<4>+ENR_DADS<I>[383,7]
    W_TABASSO<5>=W_TABASSO<5>+ENR_DADS<I>[394,7]
    W_TABASSO<6>=W_TABASSO<6>+ENR_DADS<I>[405,7]
    W_TABASSO<7>=W_TABASSO<7>+ENR_DADS<I>[416,7]
    W_TABASSO<8>=W_TABASSO<8>+ENR_DADS<I>[427,7]
    W_TABASSO<9>=W_TABASSO<9>+ENR_DADS<I>[434,7]
    W_TABASSO<10>=W_TABASSO<10>+ENR_DADS<I>[441,7]
    W_TABASSO<11>=W_TABASSO<11>+ENR_DADS<I>[448,7]
    W_TABASSO<12>=W_TABASSO<12>+ENR_DADS<I>[455,7]
    W_TABASSO<13>=W_TABASSO<13>+ENR_DADS<I>[467,6]
    W_TABASSO<14>=W_TABASSO<14>+ENR_DADS<I>[474,7]
    W_TABASSO<15>=W_TABASSO<15>+ENR_DADS<I>[496,7]
    W_TABASSO<16>=W_TABASSO<16>+ENR_DADS<I>[509,7]
    W_TABASSO<17>=W_TABASSO<17>+ENR_DADS<I>[516,7]
    W_TABASSO<18>=W_TABASSO<18>+ENR_DADS<I>[539,7]
    W_TABASSO<19>=W_TABASSO<19>+ENR_DADS<I>[372,7]+ENR_DADS<I>[383,7]+ENR_DADS<I>[394,7]+ENR_DADS<I>[405,7]+ENR_DADS<I>[416,7]+ENR_DADS<I>[427,7]
    W_TABASSO<20>=W_TABASSO<20>+ENR_DADS<I>[441,7]+ENR_DADS<I>[448,7]

RETURN


*********************************************************
* TRAITEMENT DES LIGNES 202
30  *

    W_NBSAL=W_NBSAL+1

    * ZONE 081
    ENR_DADS<I>[354,7]=INT((ENR_DADS<I>[354,7]/W_VALEURO)+1/2) "R%7"
    * ZONE 082
    ENR_DADS<I>[361,7]=INT((ENR_DADS<I>[361,7]/W_VALEURO)+1/2) "R%7"
    * ZONE 085
    ENR_DADS<I>[372,7]=INT((ENR_DADS<I>[372,7]/W_VALEURO)+1/2) "R%7"
    * ZONE 087
    ENR_DADS<I>[383,7]=INT((ENR_DADS<I>[383,7]/W_VALEURO)+1/2) "R%7"
    * ZONE 089
    ENR_DADS<I>[394,7]=INT((ENR_DADS<I>[394,7]/W_VALEURO)+1/2) "R%7"
    * ZONE 091
    ENR_DADS<I>[405,7]=INT((ENR_DADS<I>[405,7]/W_VALEURO)+1/2) "R%7"
    * ZONE 093
    ENR_DADS<I>[416,7]=INT((ENR_DADS<I>[416,7]/W_VALEURO)+1/2) "R%7"
    * ZONE 095
    ENR_DADS<I>[427,7]=INT((ENR_DADS<I>[427,7]/W_VALEURO)+1/2) "R%7"

    * ZONE 141
    ENR_DADS<I>[539,7]=INT((ENR_DADS<I>[539,7]/W_VALEURO)+1/2) "R%7"

    * ETABLISSEMENT NEGATIF
    W_TABETAB2<1>=W_TABETAB2<1>+ENR_DADS<I>[354,7]
    W_TABETAB2<2>=W_TABETAB2<2>+ENR_DADS<I>[361,7]
    W_TABETAB2<3>=W_TABETAB2<3>+ENR_DADS<I>[372,7]
    W_TABETAB2<4>=W_TABETAB2<4>+ENR_DADS<I>[383,7]
    W_TABETAB2<5>=W_TABETAB2<5>+ENR_DADS<I>[394,7]
    W_TABETAB2<6>=W_TABETAB2<6>+ENR_DADS<I>[405,7]
    W_TABETAB2<7>=W_TABETAB2<7>+ENR_DADS<I>[416,7]
    W_TABETAB2<8>=W_TABETAB2<8>+ENR_DADS<I>[427,7]
    W_TABETAB2<9>=W_TABETAB2<9>+ENR_DADS<I>[539,7]
    W_TABETAB2<10>=W_TABETAB2<10>+ENR_DADS<I>[372,7]+ENR_DADS<I>[383,7]+ENR_DADS<I>[394,7]+ENR_DADS<I>[405,7]+ENR_DADS<I>[416,7]+ENR_DADS<I>[427,7]

    W_TABASSO2<1>=W_TABASSO2<1>+ENR_DADS<I>[354,7]
    W_TABASSO2<2>=W_TABASSO2<2>+ENR_DADS<I>[361,7]
    W_TABASSO2<3>=W_TABASSO2<3>+ENR_DADS<I>[372,7]
    W_TABASSO2<4>=W_TABASSO2<4>+ENR_DADS<I>[383,7]
    W_TABASSO2<5>=W_TABASSO2<5>+ENR_DADS<I>[394,7]
    W_TABASSO2<6>=W_TABASSO2<6>+ENR_DADS<I>[405,7]
    W_TABASSO2<7>=W_TABASSO2<7>+ENR_DADS<I>[416,7]
    W_TABASSO2<8>=W_TABASSO2<8>+ENR_DADS<I>[427,7]
    W_TABASSO2<9>=W_TABASSO2<9>+ENR_DADS<I>[539,7]
    W_TABASSO2<10>=W_TABASSO2<10>+ENR_DADS<I>[372,7]+ENR_DADS<I>[383,7]+ENR_DADS<I>[394,7]+ENR_DADS<I>[405,7]+ENR_DADS<I>[416,7]+ENR_DADS<I>[427,7]
RETURN


*********************************************************
* TRAITEMENT DES LIGNES 210
40  *

    * ZONE 038
    ENR_DADS<I>[296,10]=INT((ENR_DADS<I>[296,10]/W_VALEURO)+1/2) "R%10"
    * ZONE 039
    ENR_DADS<I>[306,10]=INT((ENR_DADS<I>[306,10]/W_VALEURO)+1/2) "R%10"
    * ZONE 040
    ENR_DADS<I>[316,10]=INT((ENR_DADS<I>[316,10]/W_VALEURO)+1/2) "R%10"
    * ZONE 041
    ENR_DADS<I>[326,10]=INT((ENR_DADS<I>[326,10]/W_VALEURO)+1/2) "R%10"
    * ZONE 042
    ENR_DADS<I>[336,10]=INT((ENR_DADS<I>[336,10]/W_VALEURO)+1/2) "R%10"
    * ZONE 043
    ENR_DADS<I>[346,10]=INT((ENR_DADS<I>[346,10]/W_VALEURO)+1/2) "R%10"
    * ZONE 044
    ENR_DADS<I>[356,10]=INT((ENR_DADS<I>[356,10]/W_VALEURO)+1/2) "R%10"
    * ZONE 045
    ENR_DADS<I>[366,10]=INT((ENR_DADS<I>[366,10]/W_VALEURO)+1/2) "R%10"
    * ZONE 046
    ENR_DADS<I>[376,10]=INT((ENR_DADS<I>[376,10]/W_VALEURO)+1/2) "R%10"
    * ZONE 047
    ENR_DADS<I>[386,10]=INT((ENR_DADS<I>[386,10]/W_VALEURO)+1/2) "R%10"
    * ZONE 048
    ENR_DADS<I>[396,10]=INT((ENR_DADS<I>[396,10]/W_VALEURO)+1/2) "R%10"

    W_TABETAB3<1>=W_TABETAB3<1>+ENR_DADS<I>[296,10]
    W_TABETAB3<2>=W_TABETAB3<2>+ENR_DADS<I>[306,10]
    W_TABETAB3<3>=W_TABETAB3<3>+ENR_DADS<I>[316,10]
    W_TABETAB3<4>=W_TABETAB3<4>+ENR_DADS<I>[326,10]
    W_TABETAB3<5>=W_TABETAB3<5>+ENR_DADS<I>[336,10]
    W_TABETAB3<6>=W_TABETAB3<6>+ENR_DADS<I>[346,10]
    W_TABETAB3<7>=W_TABETAB3<7>+ENR_DADS<I>[356,10]
    W_TABETAB3<8>=W_TABETAB3<8>+ENR_DADS<I>[366,10]
    W_TABETAB3<9>=W_TABETAB3<9>+ENR_DADS<I>[376,10]
    W_TABETAB3<10>=W_TABETAB3<10>+ENR_DADS<I>[386,10]
    W_TABETAB3<11>=W_TABETAB3<11>+ENR_DADS<I>[396,10]

    W_TABASSO3<1>=W_TABASSO3<1>+ENR_DADS<I>[296,10]
    W_TABASSO3<2>=W_TABASSO3<2>+ENR_DADS<I>[306,10]
    W_TABASSO3<3>=W_TABASSO3<3>+ENR_DADS<I>[316,10]
    W_TABASSO3<4>=W_TABASSO3<4>+ENR_DADS<I>[326,10]
    W_TABASSO3<5>=W_TABASSO3<5>+ENR_DADS<I>[336,10]
    W_TABASSO3<6>=W_TABASSO3<6>+ENR_DADS<I>[346,10]
    W_TABASSO3<7>=W_TABASSO3<7>+ENR_DADS<I>[356,10]
    W_TABASSO3<8>=W_TABASSO3<8>+ENR_DADS<I>[366,10]
    W_TABASSO3<9>=W_TABASSO3<9>+ENR_DADS<I>[376,10]
    W_TABASSO3<10>=W_TABASSO3<10>+ENR_DADS<I>[386,10]
    W_TABASSO3<11>=W_TABASSO3<11>+ENR_DADS<I>[396,10]	
RETURN


*********************************************************
* TRAITEMENT DES LIGNES 300
50 *

    * ZONE 013
    ENR_DADS<I>[23,12]=W_TABETAB<1> "R%12"
    * ZONE 014
    ENR_DADS<I>[35,12]=W_TABETAB<2> "R%12"
    * ZONE 015
    ENR_DADS<I>[47,12]=W_TABETAB<19> "R%12"

    * ZONE 018
    ENR_DADS<I>[59,12]=W_TABETAB<9> "R%12"
    * ZONE 019
    ENR_DADS<I>[71,12]=W_TABETAB<20> "R%12"
    * ZONE 020
    ENR_DADS<I>[83,12]=W_TABETAB<12> "R%12"
    * ZONE 021
    ENR_DADS<I>[95,12]=W_TABETAB<14> "R%12"

    * ZONE 025
    ENR_DADS<I>[119,12]=W_TABETAB<15> "R%12"
    * ZONE 026
    ENR_DADS<I>[131,12]=W_TABETAB<16> "R%12"
    * ZONE 027
    ENR_DADS<I>[143,12]=W_TABETAB<17> "R%12"

    * ZONE 031
    ENR_DADS<I>[167,12]=W_TABETAB3<1> "R%12"
    * ZONE 032
    ENR_DADS<I>[179,12]=W_TABETAB3<2> "R%12"
    * ZONE 033
    ENR_DADS<I>[191,12]=W_TABETAB3<3> "R%12"
    * ZONE 034
    ENR_DADS<I>[203,12]=W_TABETAB3<4> "R%12"
    * ZONE 035
    ENR_DADS<I>[215,12]=W_TABETAB3<5> "R%12"
    * ZONE 036
    ENR_DADS<I>[227,12]=W_TABETAB3<6> "R%12"
    * ZONE 037
    ENR_DADS<I>[239,12]=W_TABETAB3<7> "R%12"
    * ZONE 038
    ENR_DADS<I>[251,12]=W_TABETAB3<8> "R%12"
    * ZONE 039
    ENR_DADS<I>[263,12]=W_TABETAB3<9> "R%12"
    * ZONE 040
    ENR_DADS<I>[275,12]=W_TABETAB3<10> "R%12"
    * ZONE 041
    ENR_DADS<I>[287,12]=W_TABETAB3<11> "R%12"

    * ZONE 046
    ENR_DADS<I>[311,12]=INT((ENR_DADS<I>[311,12]/W_VALEURO)+1/2) "R%12"

    * ZONE 047
    ENR_DADS<I>[323,12]=W_TABETAB<18> "R%12"

    * REMISE A ZERO FICHIER ETABLISSEMENT
    W_TABETAB=""
    W_TABETAB3=""

RETURN


*********************************************************
* TRAITEMENT DES LIGNES 302
60 *

    * ZONE 013
    ENR_DADS<I>[23,12]=W_TABETAB2<1> "R%12"
    * ZONE 014
    ENR_DADS<I>[35,12]=W_TABETAB2<2> "R%12"
    * ZONE 015
    ENR_DADS<I>[47,12]=W_TABETAB2<10> "R%12"

    * ZONE 047
    ENR_DADS<I>[323,12]=W_TABETAB2<9> "R%12"

    * REMISE A ZERO FICHIER ETABLISSEMENT
    W_TABETAB2=""

RETURN


*********************************************************
* TRAITEMENT DES LIGNES 310
70 *

    * ZONE 016
    ENR_DADS<I>[40,12]=W_TABASSO<1> "R%12"
    * ZONE 017
    ENR_DADS<I>[52,12]=W_TABASSO<2> "R%12"
    * ZONE 018
    ENR_DADS<I>[64,12]=W_TABASSO<19> "R%12"

    * ZONE 021
    ENR_DADS<I>[76,12]=W_TABASSO<9> "R%12"
    * ZONE 022
    ENR_DADS<I>[88,12]=W_TABASSO<20> "R%12"
    * ZONE 023
    ENR_DADS<I>[100,12]=W_TABASSO<12> "R%12"
    * ZONE 024
    ENR_DADS<I>[112,12]=W_TABASSO<14> "R%12"

    * ZONE 027
    ENR_DADS<I>[136,12]=W_TABASSO<15> "R%12"
    * ZONE 028
    ENR_DADS<I>[148,12]=W_TABASSO<16> "R%12"
    * ZONE 029
    ENR_DADS<I>[160,12]=W_TABASSO<17> "R%12"

    * ZONE 033
    ENR_DADS<I>[184,12]=W_TABASSO3<1> "R%12"
    * ZONE 034
    ENR_DADS<I>[196,12]=W_TABASSO3<2> "R%12"
    * ZONE 035
    ENR_DADS<I>[208,12]=W_TABASSO3<3> "R%12"
    * ZONE 036
    ENR_DADS<I>[220,12]=W_TABASSO3<4> "R%12"
    * ZONE 037
    ENR_DADS<I>[232,12]=W_TABASSO3<5> "R%12"
    * ZONE 038
    ENR_DADS<I>[244,12]=W_TABASSO3<6> "R%12"
    * ZONE 039
    ENR_DADS<I>[256,12]=W_TABASSO3<7> "R%12"
    * ZONE 040
    ENR_DADS<I>[268,12]=W_TABASSO3<8> "R%12"
    * ZONE 041
    ENR_DADS<I>[280,12]=W_TABASSO3<9> "R%12"
    * ZONE 042
    ENR_DADS<I>[292,12]=W_TABASSO3<10> "R%12"
    * ZONE 043
    ENR_DADS<I>[304,12]=W_TABASSO3<11> "R%12"

    * ZONE 047
    ENR_DADS<I>[328,12]=INT((ENR_DADS<I>[328,12]/W_VALEURO)+1/2) "R%12"

    * ZONE 048
    ENR_DADS<I>[340,12]=W_TABASSO<18> "R%12"

RETURN


*********************************************************
* TRAITEMENT DES LIGNES 312
80 *

    * ZONE 016
    ENR_DADS<I>[23,12]=W_TABASSO2<1> "R%12"
    * ZONE 017
    ENR_DADS<I>[35,12]=W_TABASSO2<2> "R%12"
    * ZONE 018
    ENR_DADS<I>[47,12]=W_TABASSO2<10> "R%12"

    * ZONE 048
    ENR_DADS<I>[323,12]=W_TABASSO2<9> "R%12"

RETURN


*********************************************************
* INITIALISATION DES VARIABLES
999 * 

    W_VALEURO="6,55957"
    W_TABETAB=""
    W_TABETAB2=""
    W_TABETAB3=""
    W_TABASSO=""
    W_TABASSO2=""
    W_TABASSO3=""
    W_NBSAL=0

RETURN
