'Calculer' 'Traitements'
    CALCUL {}
###
'Ouvrir' 'Traitements'
    
    MAJ {}
    
    SI NON EstCalcule [periode.fin] 	ALORS
    	calculer{}
    SINON
    	cedageInit{}
    FINSI
    
    SI ok ALORS
    	ouvrirPages {}
    FINSI
###
'Imprimer' 'Traitements'

    SI EstCalcule[periode.fin] OU cedageInit{} ALORS
    	ouvrirDriver{'ps'}
    	IMP		:=	VRAI
    	impression{'entete.ps'}
    	imprimer {}
    	choixSortie {}
    FINSI
###
'Archiver' 'Traitements'
    archiver {}
###
'Verrouiller' 'Traitements'
    verrouiller {}
###
'Déverrouiller' 'Traitements'
    deverrouiller {}
###
'Comptes substitués' 'Traitements'
    voirComptesSubstitues{}
###
'Publier' 'Traitements'
    publier{}
###
'CALCUL' 'Fonctions'
    LYON := VRAI
    
    init{}
    cedageInit {}
    SI NON ok ALORS
    	SORTIR FAUX 
    FINSI
    SI ok ALORS
    
    	SI ecrituresSituation ALORS
    		ouvrirBalanceSituation{}
    	FINSI
    
    	CALCUL_BC {}
    	CALCUL_CRC {}
    	CALCUL_Charges {}
    	CALCUL_Ratios {}
    	CALCUL_TF {}
    	CALCUL_VE {}
    
    	EstCalcule[periode.fin] := VRAI
    FINSI
    
    SORTIR VRAI
###
'CALCUL_BC' 'Fonctions'
    SI RN ALORS
    	CALCUL_BC_RN {}
    SINON
    	CALCUL_BC_RS {}
    FINSI
###
'CALCUL_BC_RN' 'Fonctions'

    |
        monEtat <Objet>
    |

    monEtat ::= 'EtatComptable'
    monEtat :=  getEtat{'IR_RN', 2025}

    debutMarquage{}
    debutMarquage{}[N_1]
    				------- BILAN ACTIF-------
    
    adU	:=	debit {20}
    	+	debit {237}
    	-	(credit {280}
    	+	 credit {290})
    
    
    adK	:=	debit {20} [N_1]
    	+	debit {237} [N_1]
    	-	(credit {280}[N_1]
    	+	credit {290} [N_1])
        
    ade	:=	adU
    	-	adK
        
    aeS	:=	(debit {21}
    	+	debit {22}
    	+	debit {23}
    	-	debit {237})
    	-	(credit {281}
    	+	credit {282}
    	+	credit {291}
    	+	credit {292}
    	+	credit {293})
        
    aeI	:=	(debit {21} [N_1]
    	+	debit {22} [N_1]
    	+	debit {23} [N_1]
    	-	debit {237} [N_1])
    	-	(credit {281} [N_1]
    	+	credit {282} [N_1]
    	+	credit {291} [N_1]
    	+	credit {292} [N_1]
    	+	credit {293} [N_1])
        
    aec	:=	aeS
    	-	aeI
        
    afQ	:=	(debit {25}
    	+	debit {26}
    	+	debit {27})
    	-	(credit {296}
    	+	credit {297})
        
    afG	:=	(debit {25}  [N_1]
    	+	debit {26} [N_1]
    	+	debit {27} [N_1])
    	-	(credit {296} [N_1]
    	+	credit {297} [N_1])
        
    afa	:=	afQ
    	-	 afG
        
    anj	:=	adU
    	+	aeS
    	+	afQ
        
    anZ	:=	adK
    	+	aeI
    	+	afG
        
    ant	:=	ade
    	+	aec
    	+	afa
        
    aoh	:=	debit {31}
    	+	debit {32} 
    	+	debit {33} 
    	+	debit {34} 
    	+	debit {35} 
    	+	debit {36} 
    	+	debit {37} 
    	+	debit {38} 
    	-	credit {39}
       
    aoX	:=	debit {31} [N_1]
    	+	debit {32} [N_1]
    	+	debit {33} [N_1]
    	+	debit {34} [N_1]
    	+	debit {35} [N_1]
    	+	debit {36} [N_1]
    	+	debit {37} [N_1]
    	+	debit {38} [N_1]
    	-	credit {39} [N_1]
        
    aor	:=	aoh
    	-	aoX
        
    apf	:=	soldeDebit {41}
    	-	credit {491}
    	-	credit {492}
        
    
    apV	:=	soldeDebit {41}[N_1]
    	-	credit {491}[N_1]
    	-	credit {492}[N_1]
        
    app	:=	apf
    	-	apV
        
    aqd	:=	soldeDebit {42}
    	+	soldeDebit {43} 
    	+	soldeDebit {44} 
    	+	soldeDebit {45} 
    	+	soldeDebit {46} 
    	+	soldeDebit {47} 
    	+	soldeDebit {48}
    	+	soldeDebit {40}
    	-	soldeDebit {481} 
    	-	soldeDebit {486}
    	-	credit {495}
    	-	credit {496}
        
    aqT	:=	soldeDebit {42} [N_1]
    	+	soldeDebit {43} [N_1] 
    	+	soldeDebit {44} [N_1] 
    	+	soldeDebit {45} [N_1] 
    	+	soldeDebit {46} [N_1] 
    	+	soldeDebit {47} [N_1] 
    	+	soldeDebit {48} [N_1]
    	+	 soldeDebit {40} [N_1]
    	-	soldeDebit {481} [N_1]
    	-	soldeDebit {486} [N_1]
    	-	credit {495} [N_1]
    	-	credit {496} [N_1]
        
    aqn	:=	aqd
    	-	aqT
        
    arb	:=	debit {50}
    	+	soldeDebit {51} 
    	+	debit {53} 
    	+	soldeDebit {54}
    	-	credit {59}
        
    arR	:=	debit {50} [N_1]
    	+	soldeDebit {51} [N_1] 
    	+	debit {53} [N_1]
    	+	soldeDebit {54} [N_1]
    	-	credit {59}  [N_1] 
        
    arl	:=	arb
    	-	arR
    
    asZ	:=	aoh
    	+	apf
    	+	aqd
    	+	arb
    
    asP	:=	aoX
    	+	apV
    	+	aqT
    	+	arR
    
    asj	:=	aor
    	+	app
    	+	arl
    	+	aqn
    
    atX	:=	soldeDebit {481} + soldeDebit {486}
    
    atN	:=	soldeDebit {481} [N_1] + soldeDebit {486} [N_1]
    
    ath	:=	atX
    	-	atN
    
    auV	:=	anj
    	+	asZ
    	+	atX
    
    aua	:=	100 f
    
    auL	:=	anZ
    	+	asP
    	+	atN
    
    auQ	:=	100 f
    
    auf	:=	ant
    	+	asj
    	+	ath
    
    aup	:=	100 f
    
    			-----BILAN PASSIF-------
    
    awC	:=	credit {10}
    	+	credit {11}
    	+	credit {13} 
    
    avs	:=	credit {10}[N_1]+ credit {11}[N_1]
    	+	credit {13} [N_1]
    
    awM	:=	awC
    	-	avs
    
    axA	:=	credit {7}
    	-	debit {6} 
    
    awq	:=	credit {7}[N_1]
    	-	debit {6}[N_1] 
    
    axK	:=	axA
    	-	awq
    
    axy	:=	credit {14}
    
    axo	:=	credit {14}[N_1]
    
    ayI	:=	axy
    	-	axo
    
    ayw	:=	awC
    	+	axA
    	+	axy
    
    aym	:=	avs
    	+	awq
    	+	axo
    
    azG	:=	awM
    	+	axK
    	+	ayI
    
    azu	:=	credit {15}
    
    azk	:=	credit {15}[N_1]
    
    bAE	:=	azu
    	-	azk
    
    bDh	:=	credit { 16 }
    	+	soldeCredit { 17 }
    	+	soldeCredit { 426 }
    	+	soldeCredit { 45 }
    	-	soldeCredit { 457 } 
    
    
    bDX	:=	credit { 16 }[N_1]
    	+	soldeCredit { 17 }[N_1]
    	+	soldeCredit { 426 }[N_1]
    	+	soldeCredit { 45 }[N_1]
    	-	soldeCredit { 457 } [N_1]
    
    bDr	:=	bDh
    	-	bDX 
    
    bLl	:=	soldeCredit {51}
    	+	soldeCredit {54}
    
    bLb	:=	soldeCredit {51}[N_1]
    	+	soldeCredit {54}[N_1]
    
    bLv	:=	bLl
    	-	bLb
    
    bGR	:=	soldeCredit {40} -soldeCredit {404} -soldeCredit {405} 
    
    
    
    bGH	:=	soldeCredit {40}[N_1] -soldeCredit {404}[N_1] -soldeCredit {405} [N_1]
    
    
    bGb	:=	bGR
    	-	bGH
    
    bJB	:=	soldeCredit {42}
    	+	soldeCredit {43} 
    	+	soldeCredit {44} 
    	+	soldeCredit {457} 
    	+	soldeCredit {46} 
    	+	soldeCredit {47} 
    	+	soldeCredit {48}
    	+	soldeCredit {41}
    	-	soldeCredit {487}
    	+	soldeCredit {404}
    	+	soldeCredit {405} 
    
    bIr	:=	soldeCredit {42} [N_1]+ soldeCredit {43} [N_1]
    	+	soldeCredit {44} [N_1]
    	+	soldeCredit {457} [N_1]
     	+	soldeCredit {46}[N_1] 
    	+	soldeCredit {47} [N_1]
    	+	soldeCredit {48}[N_1]
    	+	soldeCredit {41}[N_1]
    	-	soldeCredit {487}[N_1]
    	+	soldeCredit {404}[N_1]
    	+	soldeCredit {405} [N_1]
    
    
    
    bJL	:=	bJB
    	-	bIr
    
    bMe	:=	bDh
    	+	bLl
    	+	bGR
    	+	bJB
    
    bMU	:=	bDX
    	+	bLb
    	+	bGH
    	+	bIr
    
    bMo	:=	bDr
    	+	bLv
    	+	bGb
    	+	bJL
    
    bNc	:=	soldeCredit {487}
    
    bNS	:=	soldeCredit {487} [N_1]
    
    bNm	:=	bNc
    	-	bNS
    
    bOa	:=	ayw
    	+	azu
    	+	bMe
    	+	bNc
    
    bOf	:=	100 f
    
    bOQ	:=	aym
    	+	azk
    	+	bMU
    	+	bNS
    
    bOV	:=	100 f
    
    bOk	:=	azG
    	+	bAE
    	+	bMo
    	+	bNm
    
    bOu	:=	100 f
    
    
    -------------BAS DE PAGE RENVOIS-------------
    
    bPs	:=	credit {28}
    	+	credit {29}
    
    bPq	:=	credit {28} [N_1]
    	+	credit {29} [N_1]
    
    bQC	:=	credit {39}
    	+	credit {49}
    	+	credit {59}
    
    bPx	:=	credit {39}  [N_1]
    	+	credit {49} [N_1]
    	+	credit {59} [N_1]
    
    bRF	:=	debit {481}
    
    bRA	:=	debit {481} [N_1]
    
    bQg	:=	credit {106}  
    
    bQb	:=	credit {106}  [N_1]
    
    bRP	:=	soldeDebit {455}
    
    bRK	:=	soldeDebit {455} [N_1]
    
    bRZ	:=	soldeCredit {455}
    
    bRU	:=	soldeCredit {455} [N_1]
    
    
    CALCUL_BC_POURCENTAGES {}
    
    finMarquage{}
    PAGE := 'COMPTES NON PARAMETRES, BILAN EXERCICE N'
    ERR := testMarquage{1} MSG {}
    ERR := testMarquage{2} MSG {}
    ERR := testMarquage{3} MSG {}
    ERR := testMarquage{4} MSG {}
    ERR := testMarquage{5} MSG {}
    ERR := testMarquage{8} MSG {}
    PAGE := 'COMPTES NON PARAMETRES, BILAN EXERCICE N-1'
    ERR := testMarquage{1}[N_1] MSG {}
    ERR := testMarquage{2}[N_1] MSG {}
    ERR := testMarquage{3}[N_1] MSG {}
    ERR := testMarquage{4}[N_1] MSG {}
    ERR := testMarquage{5}[N_1] MSG {}
    ERR := testMarquage{8}[N_1] MSG {}
    
    ECART := auV - bOa
    SI abs { ECART } > SEUIL ALORS
    MessageErreur := '!!! ANOMALIE !!!'
    ERR :=  'LE TOTAL DU BILAN ACTIF DE L''EXERCICE EST DIFFERENT DU TOTAL DU BILAN PASSIF. '  MSG{}
    FINSI
    
    ECART := auL - bOQ
    SI abs { ECART } > SEUIL ALORS
    MessageErreur := '!!! ANOMALIE !!!'
    ERR :=  'LE TOTAL DU BILAN ACTIF DE L''EXERCICE PRECEDENT  EST DIFFERENT DU TOTAL DU BILAN PASSIF. '   MSG{}
    FINSI
    
    ECART := auf - bOk
    SI abs { ECART } > SEUIL ALORS
    MessageErreur := '!!! ANOMALIE !!!'
    ERR :=  'LE TOTAL DES VARIATIONS ACTIF EST DIFFERENT DU TOTAL DES VARIATIONS PASSIF.'   MSG{}
    FINSI
    
    ECART := debit {695} + debit {697}
    SI ECART <> 0 ALORS
    MessageErreur := '!!! ANOMALIE !!!'
    ERR :=  'IL EXISTE DE L'' IMPOT SUR LES SOCIETES INCOMPATIBLE AVEC LA REDACTION DU PRESENT CEDAGE !!! VOUS AUREZ UNE DIFFERENCE DE RESULTAT ENTRE LE BILAN ET LE COMPTE DE RESULTAT ET LES SOLDES INTERMEDIAIRES DE GESTION.'   MSG{}
    FINSI
    
     ECART := debit {695}[N_1] + debit {697}[N_1]
    SI ECART <> 0 ALORS
    MessageErreur := '!!! ANOMALIE !!!'
    ERR :=  'IL EXISTE DE L'' IMPOT SUR LES SOCIETES INCOMPATIBLE AVEC LA REDACTION DU PRESENT CEDAGE DANS L''EXERCICE PRECEDENT !!! VOUS AUREZ UNE DIFFERENCE DE RESULTAT ENTRE LE BILAN ET LE COMPTE DE RESULTAT ET LES SOLDES INTERMEDIAIRES DE GESTION.'   MSG{}
    FINSI
    
    SI credit { 12 } + credit { 88 } <> 0 f ALORS
    	 ERR := 'LE RESULTAT DE L''EXERCICE PRECEDENT ('+( credit {12} + credit {88}) +' F) N''EST PAS AFFECTE.' MSG {}
    FINSI
    SEUIL	:=	2.0 f
###
'CALCUL_BC_RS' 'Fonctions'

    |
        monEtat <Objet>
    |

    monEtat ::= 'EtatComptable'
    monEtat :=  getEtat{'IR_RS', 2025}

    debutMarquage{}
    debutMarquage{}[N_1]
    				------- BILAN ACTIF-------
    
    adU	:=	debit {20}
    	+	debit {237}
    	-	(credit {280}
    	+	 credit {290})
    
    
    adK	:=	debit {20} [N_1]
    	+	debit {237} [N_1]
    	-	(credit {280}[N_1]
    	+	credit {290} [N_1])
    
    ade	:=	adU
    	-	adK
    
    aeS	:=	(debit {21}
    	+	debit {22}
    	+	debit {23}
    	-	debit {237})
    	-	(credit {281}
    	+	credit {282}
    	+	credit {291}
    	+	credit {292}
    	+	credit {293})
    
    aeI	:=	(debit {21} [N_1]
    	+	debit {22} [N_1]
    	+	debit {23} [N_1]
    	-	debit {237} [N_1])
    	-	(credit {281} [N_1]
    	+	credit {282} [N_1]
    	+	credit {291} [N_1]
    	+	credit {292} [N_1]
    	+	credit {293} [N_1])
    
    aec	:=	aeS
    	-	aeI
    
    afQ	:=	(debit {25}
    	+	debit {26}
    	+	debit {27})
    	-	(credit {296}
    	+	credit {297})
    
    afG	:=	(debit {25}  [N_1]
    	+	debit {26} [N_1]
    	+	debit {27} [N_1])
    	-	(credit {296} [N_1]
    	+	credit {297} [N_1])
    
    afa	:=	afQ
    	-	 afG
    
    anj	:=	adU
    	+	aeS
    	+	afQ
    anZ	:=	adK
    	+	aeI
    	+	afG
    
    ant	:=	ade
    	+	aec
    	+	afa
    
    aoh	:=	debit {31}
    	+	debit {32} 
    	+	debit {33} 
    	+	debit {34} 
    	+	debit {35} 
    	+	debit {36} 
    	+	debit {37} 
    	+	debit {38} 
    	-	credit {39}
    
    aoX	:=	debit {31} [N_1]
    	+	debit {32} [N_1]
    	+	debit {33} [N_1]
    	+	debit {34} [N_1]
    	+	debit {35} [N_1]
    	+	debit {36} [N_1]
    	+	debit {37} [N_1]
    	+	debit {38} [N_1]
    	-	credit {39} [N_1]
    
    aor	:=	aoh
    	-	aoX
    
    apf	:=	soldeDebit {41}
    	-	credit {491}
    	-	credit {492}
    
    apV	:=	soldeDebit {41}[N_1]
    	-	credit {491}[N_1]
    	-	credit {492}[N_1]
    
    app	:=	apf
    	-	apV
    
    aqd	:=	soldeDebit {42}
    	+	soldeDebit {43} 
    	+	soldeDebit {44} 
    	+	soldeDebit {45} 
    	+	soldeDebit {46} 
    	+	soldeDebit {47} 
    	+	soldeDebit {48}
    	+	soldeDebit {40}
    	-	soldeDebit {481} 
    	-	soldeDebit {486}
    	-	credit {495}
    	-	credit {496}
    
    aqT	:=	soldeDebit {42} [N_1]
    	+	soldeDebit {43} [N_1] 
    	+	soldeDebit {44} [N_1] 
    	+	soldeDebit {45} [N_1] 
    	+	soldeDebit {46} [N_1] 
    	+	soldeDebit {47} [N_1] 
    	+	soldeDebit {48} [N_1]
    	+	 soldeDebit {40} [N_1]
    	-	soldeDebit {481} [N_1]
    	-	soldeDebit {486} [N_1]
    	-	credit {495} [N_1]
    	-	credit {496} [N_1]
    
    aqn	:=	aqd
    	-	aqT
    
    arb	:=	debit {50}
    	+	soldeDebit {51} 
    	+	debit {53} 
    	+	soldeDebit {54}
    	-	credit {59}
    
    arR	:=	debit {50} [N_1]
    	+	soldeDebit {51} [N_1] 
    	+	debit {53} [N_1]
    	+	soldeDebit {54} [N_1]
    	-	credit {59}  [N_1] 
    
    arl	:=	arb
    	-	arR
    
    asZ	:=	aoh
    	+	apf
    	+	aqd
    	+	arb
    
    asP	:=	aoX
    	+	apV
    	+	aqT
    	+	arR
    
    asj	:=	aor
    	+	app
    	+	arl
    	+	aqn
    
    atX	:=	soldeDebit {481} + soldeDebit {486}
    
    atN	:=	soldeDebit {481} [N_1] + soldeDebit {486} [N_1]
    
    ath	:=	atX
    	-	atN
    
    auV	:=	anj
    	+	asZ
    	+	atX
    
    aua	:=	100 f
    
    auL	:=	anZ
    	+	asP
    	+	atN
    
    auQ	:=	100 f
    
    auf	:=	ant
    	+	asj
    	+	ath
    
    aup	:=	100 f
    
    			-----BILAN PASSIF-------
    awC	:=	credit {10}
    	+	credit {11}
    	+	credit {13} 
    
    avs	:=	credit {10}[N_1]+ credit {11}[N_1]
    	+	credit {13} [N_1]
    
    
    awM	:=	awC
    	-	avs
    
    axA	:=	credit {7}
    	-	debit {6} 
    
    awq	:=	credit {7}[N_1]
    	-	debit {6}[N_1] 
    
    axK	:=	axA
    	-	awq
    
    axy	:=	credit {14}
    
    axo	:=	credit {14}[N_1]
    
    ayI	:=	axy
    	-	axo
    
    ayw	:=	awC
    	+	axA
    	+	axy
    
    aym	:=	avs
    	+	awq
    	+	axo
    
    azG	:=	awM
    	+	axK
    	+	ayI
    
    azu	:=	credit {15}
    
    azk	:=	credit {15}[N_1]
    
    bAE	:=	azu
    	-	azk
    
    bDh	:=	credit { 16 }
    	+	soldeCredit { 17 }
    	+	soldeCredit { 426 }
    	+	soldeCredit { 45 }
    	-	soldeCredit { 457 } 
    
    
    bDX	:=	credit { 16 }[N_1]
    	+	soldeCredit { 17 }[N_1]
    	+	soldeCredit { 426 }[N_1]
    	+	soldeCredit { 45 }[N_1]
    	-	soldeCredit { 457 } [N_1]
    
    bDr	:=	bDh
    	-	bDX 
    
    
    bLl	:=	soldeCredit {51}
    	+	soldeCredit {54}
    
    
    bLb	:=	soldeCredit {51}[N_1]
    	+	soldeCredit {54}[N_1]
    
    
    bLv	:=	bLl
    	-	bLb
    
    
    bGR	:=	soldeCredit {40} - soldeCredit {404} - soldeCredit {405} 
    
    bGH	:=	soldeCredit {40}[N_1]- soldeCredit {404}[N_1]- soldeCredit {405}[N_1]
    
    
    bGb	:=	bGR
    	-	bGH
    
    bJB	:=	soldeCredit {42}
    	+	soldeCredit {43} 
    	+	soldeCredit {44} 
    	+	soldeCredit {457} 
    	+	soldeCredit {46} 
    	+	soldeCredit {47} 
    	+	soldeCredit {48}
    	+	soldeCredit {41}
    	-	soldeCredit {487}
    	+	 soldeCredit {404}
    	+	 soldeCredit {405} 
    
    bIr	:=	soldeCredit {42} [N_1]+ soldeCredit {43} [N_1]
    	+	soldeCredit {44} [N_1]
    	+	soldeCredit {457} [N_1]
     	+	soldeCredit {46}[N_1] 
    	+	soldeCredit {47} [N_1]
    	+	soldeCredit {48}[N_1]
    	+	soldeCredit {41}[N_1]
    	-	soldeCredit {487}[N_1]
    	+	 soldeCredit {404}[N_1]
    	+	 soldeCredit {405} [N_1]
    
    
    
    
    bJL	:=	bJB
    	-	bIr
    
    bMe	:=	bDh
    	+	bLl
    	+	bGR
    	+	bJB
    
    bMU	:=	bDX
    	+	bLb
    	+	bGH
    	+	bIr
    
    bMo	:=	bDr
    	+	bLv
    	+	bGb
    	+	bJL
    
    bNc	:=	soldeCredit {487}
    
    
    bNS	:=	soldeCredit {487} [N_1]
    
    bNm	:=	bNc
    	-	bNS
    
    bOa	:=	ayw
    	+	azu
    	+	bMe
    	+	bNc
    
    bOf	:=	100 f
    
    bOQ	:=	aym
    	+	azk
    	+	bMU
    	+	bNS
    
    bOV	:=	100 f
    
    bOk	:=	azG
    	+	bAE
    	+	bMo
    	+	bNm
    
    bOu	:=	100 f
    
    
    -------------BAS DE PAGE RENVOIS-------------
    
    bPs	:=	credit {28}
    	+	credit {29}
    
    bPq	:=	credit {28} [N_1]
    	+	credit {29} [N_1]
    
    bQC	:=	credit {39}
    	+	credit {49}
    	+	credit {59}
    
    bPx	:=	credit {39}  [N_1]
    	+	credit {49} [N_1]
    	+	credit {59} [N_1]
    
    bRF	:=	debit {481}
    
    bRA	:=	debit {481} [N_1]
    
    bQg	:=	credit {106}  
    
    bQb	:=	credit {106}  [N_1]
    
    bRP	:=	soldeDebit {455}
    
    bRK	:=	soldeDebit {455} [N_1]
    
    bRZ	:=	soldeCredit {455}
    
    bRU	:=	soldeCredit {455} [N_1]
    
    CALCUL_BC_POURCENTAGES {}
    
    finMarquage{}
    PAGE := 'COMPTES NON PARAMETRES, BILAN EXERCICE N'
    ERR := testMarquage{1} MSG {}
    ERR := testMarquage{2} MSG {}
    ERR := testMarquage{3} MSG {}
    ERR := testMarquage{4} MSG {}
    ERR := testMarquage{5} MSG {}
    ERR := testMarquage{8} MSG {}
    PAGE := 'COMPTES NON PARAMETRES, BILAN EXERCICE N-1'
    ERR := testMarquage{1}[N_1] MSG {}
    ERR := testMarquage{2}[N_1] MSG {}
    ERR := testMarquage{3}[N_1] MSG {}
    ERR := testMarquage{4}[N_1] MSG {}
    ERR := testMarquage{5}[N_1] MSG {}
    ERR := testMarquage{8}[N_1] MSG {}
    
    ECART := auV - bOa
    SI abs { ECART } > SEUIL ALORS
    MessageErreur := '!!! ANOMALIE !!!'
    ERR :=  'LE TOTAL DU BILAN ACTIF DE L''EXERCICE EST DIFFERENT DU TOTAL DU BILAN PASSIF. '  MSG{}
    FINSI
    
    ECART := auL - bOQ
    SI abs { ECART } > SEUIL ALORS
    MessageErreur := '!!! ANOMALIE !!!'
    ERR :=  'LE TOTAL DU BILAN ACTIF DE L''EXERCICE PRECEDENT  EST DIFFERENT DU TOTAL DU BILAN PASSIF. '   MSG{}
    FINSI
    
    ECART := auf - bOk
    SI abs { ECART } > SEUIL ALORS
    MessageErreur := '!!! ANOMALIE !!!'
    ERR :=  'LE TOTAL DES VARIATIONS ACTIF EST DIFFERENT DU TOTAL DES VARIATIONS PASSIF.'   MSG{}
    FINSI
    
    ECART := debit {695} + debit {697}
    SI ECART <> 0 ALORS
    MessageErreur := '!!! ANOMALIE !!!'
    ERR :=  'IL EXISTE DE L'' IMPOT SUR LES SOCIETES INCOMPATIBLE AVEC LA REDACTION DU PRESENT CEDAGE !!! VOUS AUREZ UNE DIFFERENCE DE RESULTAT ENTRE LE BILAN ET LE COMPTE DE RESULTAT ET LES SOLDES INTERMEDIAIRES DE GESTION.'   MSG{}
    FINSI
    
     ECART := debit {695}[N_1] + debit {697}[N_1]
    SI ECART <> 0 ALORS
    MessageErreur := '!!! ANOMALIE !!!'
    ERR :=  'IL EXISTE DE L'' IMPOT SUR LES SOCIETES INCOMPATIBLE AVEC LA REDACTION DU PRESENT CEDAGE DANS L''EXERCICE PRECEDENT !!! VOUS AUREZ UNE DIFFERENCE DE RESULTAT ENTRE LE BILAN ET LE COMPTE DE RESULTAT ET LES SOLDES INTERMEDIAIRES DE GESTION.'   MSG{}
    FINSI
    
    SI credit { 12 } + credit { 88 } <> 0 f ALORS
    	 ERR := 'LE RESULTAT DE L''EXERCICE PRECEDENT ('+( credit {12} + credit {88}) +' F) N''EST PAS AFFECTE.' MSG {}
    FINSI
    SEUIL	:=	2.0 f
###
'CALCUL_CRC' 'Fonctions'
    SI RN ALORS
    	CALCUL_CRC_RN {}
    SINON
    	CALCUL_CRC_RS {}
    FINSI
###
'CALCUL_CRC_RN' 'Fonctions'
    
    |
        monEtat <Objet>
    |

    monEtat ::= 'EtatComptable'
    monEtat :=  getEtat{'IR_RN', 2025}

    debutMarquage{}
    debutMarquage{}[N_1]
    
    --------SOLDES INTERMEDIAIRES DE GESTION --------
    
    SI monEtat <> ? ALORS
	    bug	:=	monnaie{chaineValeur{monEtat, 'FL1'}} + monnaie{chaineValeur{monEtat, 'FM1'}}+ monnaie{chaineValeur{monEtat, 'FN1'}}
	FIN SI
    bul	:=	100 f
    
    SI monEtat <> ? ALORS
    	buW	:=	monnaie{chaineValeur{monEtat, 'FL2'}} + monnaie{chaineValeur{monEtat, 'FM2'}}+ monnaie{chaineValeur{monEtat, 'FN2'}}
    FIN SI
    
    bub	:=	100 f
    
    buq	:=	bug
    	-	buW
    
    SI monEtat <> ? ALORS
		bve	:=	monnaie{chaineValeur{monEtat, 'FC1'}}

		bvo	:=	monnaie{chaineValeur{monEtat, 'FC2'}}

		bwc	:=	monnaie{chaineValeur{monEtat, 'FS1'}} + monnaie{chaineValeur{monEtat, 'FT1'}}

		bwm	:=	monnaie{chaineValeur{monEtat, 'FS2'}} + monnaie{chaineValeur{monEtat, 'FT2'}}
    FIN SI

    bxa	:=	bve
    	-	bwc
    
    SI bve <> 0 f ALORS
    	bxf	:=	bxa / bve * 100
    SINON
    	bxf := ?
    FINSI
    
    bxQ	:=	bvo
    	-	bwm
    
    SI bvo <> 0 ALORS
    	bxV	:=	bxQ / bvo * 100
    SINON
    	bxV	:=	?
    FINSI
    
    SI monEtat <> ? ALORS
	    byY	:=	monnaie{chaineValeur{monEtat, 'FF1'}} + monnaie{chaineValeur{monEtat, 'FI1'}}
	    
	    byi	:=	monnaie{chaineValeur{monEtat, 'FF2'}} + monnaie{chaineValeur{monEtat, 'FI2'}}
	    
	    bzW	:=	monnaie{chaineValeur{monEtat, 'FM1'}}
	    
	    bzg	:=	monnaie{chaineValeur{monEtat, 'FM2'}}
	    
	    cAU	:=	monnaie{chaineValeur{monEtat, 'FN1'}}
	    
	    cAe	:=	monnaie{chaineValeur{monEtat, 'FN2'}}
	FIN SI
	    
    cBS	:=	byY + bzW + cAU
    
    cBc	:=	byi + bzg + cAe
    
    SI monEtat <> ? ALORS
		cCQ	:=	monnaie{chaineValeur{monEtat, 'FU1'}} + monnaie{chaineValeur{monEtat, 'FV1'}} 
    
	    cCa	:=	monnaie{chaineValeur{monEtat, 'FU2'}} + monnaie{chaineValeur{monEtat, 'FV2'}}	
	FIN SI
    
    cDO	:=	debit{604} + debit{605} + debit{6084} + debit{6085} - credit{6094} - credit{6095}
    
    cDY	:=	debit{604}[N_1] + debit{605}[N_1] + debit{6084}[N_1] + debit{6085}[N_1] - credit{6094}[N_1] - credit{6095}[N_1]
    
    cEM	:=	cBS - (cCQ + cDO)
    
    SI cBS = 0 ALORS
    	cER :=	0 
    SINON
    	cER	:=	cEM/cBS*100
    FINSI
    
    cEC	:=	cBc - (cCa + cDY)
    
    SI cBc = 0 ALORS
    	cEH :=	0 
    SINON
    	cEH	:=	cEC / cBc*100
    FINSI
    
    cFK	:=	bxa + cEM
    SI bug <> 0 f ALORS cFP	:=	cFK  / bug *100 FINSI
    
    cFA	:=	bxQ + cEC
    
    SI buW <> 0 f ALORS cFF	:=	cFA / buW *100 FINSI
    
    SI monEtat <> ? ALORS
	    cIE	:=	monnaie{chaineValeur{monEtat, 'FW1'}}
	FIN SI
	cIE := cIE - (debit{604} + debit{605} + debit{6084} + debit{6085} - credit{6094} - credit{6095})
    
    
    SI monEtat <> ? ALORS
	    cHu	:=	monnaie{chaineValeur{monEtat, 'FW2'}}
	FIN SI
	cHu := cHu - (debit{604}[N_1] + debit{605}[N_1] + debit{6084}[N_1] + debit{6085}[N_1] - credit{6094}[N_1] - credit{6095}[N_1])
    
    cIx	:=	cFK - cIE
    
    SI bug <> 0 f ALORS cJC	:=	cIx / bug *100 FINSI
    
    
    cIn	:=	cFA - cHu
    
    SI buW <> 0 f ALORS cIs	:=	cIn / buW *100 FINSI
    
    SI monEtat <> ? ALORS
	    cJv	:=	monnaie{chaineValeur{monEtat, 'FO1'}}
	    
	    cJl	:=	monnaie{chaineValeur{monEtat, 'FO2'}}
	    
	    cKt	:=	monnaie{chaineValeur{monEtat, 'FX1'}}
	    
	    cKj	:=	monnaie{chaineValeur{monEtat, 'FX2'}}
	    
	    cLr	:= 	monnaie{chaineValeur{monEtat, 'FY1'}} + monnaie{chaineValeur{monEtat, 'FZ1'}} 
	    
	    cLh	:=	monnaie{chaineValeur{monEtat, 'FY2'}} + monnaie{chaineValeur{monEtat, 'FZ2'}}
	FIN SI	    
    
    cMp	:=	cIx + cJv - cKt - cLr
    
    SI bug <> 0 f ALORS cMu	:=	cMp / bug*100 FINSI
    
    cMf	:=	cIn + cJl - cKj - cLh
    SI buW <> 0 f ALORS cMk	:=	cMf / buW*100 FINSI
    
    SI monEtat <> ? ALORS
	    cNn	:=	monnaie{chaineValeur{monEtat, 'FQ1'}}
	    
	    cNd	:=	monnaie{chaineValeur{monEtat, 'FQ2'}}
	    
	    cOl	:=	monnaie{chaineValeur{monEtat, 'GE1'}}
	    
	    cOb	:=	monnaie{chaineValeur{monEtat, 'GE2'}}
	    
	    cPj	:=	monnaie{chaineValeur{monEtat, 'FP1'}}
	    
	    cPZ	:=	monnaie{chaineValeur{monEtat, 'FP2'}}
	    
	    cQj	:=	monnaie{chaineValeur{monEtat, 'GA1'}}
	    
	    cQZ	:=	monnaie{chaineValeur{monEtat, 'GA2'}}
	    
	    cQk	:=	monnaie{chaineValeur{monEtat, 'GB1'}} + monnaie{chaineValeur{monEtat, 'GC1'}} + monnaie{chaineValeur{monEtat, 'GD1'}}
	    
	    cQa	:=	monnaie{chaineValeur{monEtat, 'GB2'}} + monnaie{chaineValeur{monEtat, 'GC2'}} + monnaie{chaineValeur{monEtat, 'GD2'}}
    FIN SI

    cRf	:=	cMp + cNn - cOl + cPj - cQj - cQk
    
    SI bug <> 0 f ALORS cRk	:=	cRf / bug *100 FINSI
    
    cRV	:=	cMf + cNd - cOb + cPZ - cQZ - cQa
    
    SI buW <> 0 f ALORS cRa	:=	cRV / buW *100 FINSI
    
    SI monEtat <> ? ALORS
	    cSd	:=	monnaie{chaineValeur{monEtat, 'GP1'}} 
	    
	    cST	:=	monnaie{chaineValeur{monEtat, 'GP2'}} 
	    
	    cTb	:=	monnaie{chaineValeur{monEtat, 'GU1'}} 
	    
	    cTR	:=	monnaie{chaineValeur{monEtat, 'GU2'}} 
	FIN SI

    cVX	:=	cRf + cSd - cTb
    
    SI bug <> 0 f ALORS cVc	:=	cVX / bug *100 FINSI
    
    cVN	:=	cRV + cST - cTR
    
    SI buW <> 0 f ALORS cVS	:=	cVN / buW *100 FINSI
    
    SI monEtat <> ? ALORS
	    cWV	:=	monnaie{chaineValeur{monEtat, 'HD1'}}
	    
	    cWL	:=	monnaie{chaineValeur{monEtat, 'HD2'}}
	    
	    cXT	:=	monnaie{chaineValeur{monEtat, 'HH1'}}
	    
	    cXJ	:=	monnaie{chaineValeur{monEtat, 'HH2'}}
	FIN SI

    cZP	:=	cWV - cXT
    
    SI bug <> 0  f ALORS cZU	:=	cZP / bug *100 FINSI
    
    cZF	:=	cWL - cXJ
    
    SI buW <> 0 f ALORS cZK	:=	cZF / buW *100 FINSI
    
    caN	:=	cVX + cZP
    
    SI bug <> 0 f ALORS caS	:=	caN / bug *100 FINSI
    
    caD	:=	cVN + cZF
    
    SI buW <> 0 f ALORS caI	:=	caD / buW *100 FINSI
    
    
    ebX	:=	debit {646}
    ebN	:=	debit {646}[N_1]
    cbV	:=	credit {767} + credit {775}
    cbQ	:=	credit {767}[N_1] + credit {775}[N_1]
    cbk	:=	debit {667} + debit {675}
    cbf	:=	debit {667}[N_1] + debit {675}[N_1]
    car	:=	debit{644}
    cap	:=	debit{644}[N_1]
    cbG	:=	credit{791}
    cbB	:=	credit{791}[N_1]
    
    ECART := caN
    SI monEtat <> ? ALORS
    	ECART -= monnaie{chaineValeur{monEtat, 'HN1'}}
    FIN SI
    SI ECART <> 0 ALORS
    MessageErreur := '!!! ANOMALIE !!!'
    ERR :=  'LE RESULTAT DE L''EXERCICE SUR COMPTE DE RESULTATS COMPARES EST DIFFERENT DU RESULTAT DE LA LIASSE FISCALE '  MSG{}
    FINSI
    
    ECART := caD
    SI monEtat <> ? ALORS
		ECART -= monnaie{chaineValeur{monEtat, 'HN2'}}
	FIN SI
    SI ECART <> 0 ALORS
    MessageErreur := '!!! ANOMALIE !!!'
    ERR :=  'LE RESULTAT DE L''EXERCICE PRECEDENT SUR COMPTE DE RESULTATS COMPARES EST DIFFERENT DU RESULTAT DE LA LIASSE FISCALE '  MSG{}
    FINSI
###
'CALCUL_CRC_RS' 'Fonctions'

    |
        monEtat <Objet>
    |

    monEtat ::= 'EtatComptable'
    monEtat :=  getEtat{'IR_RS', 2025}

    debutMarquage{}
    debutMarquage{}[N_1]
    
    --------SOLDES INTERMEDIAIRES DE GESTION --------
    
    SI monEtat <> ? ALORS
	    bug	:=	monnaie{chaineValeur{monEtat, '_210'}} + monnaie{chaineValeur{monEtat, '_214'}} + monnaie{chaineValeur{monEtat, '_218'}} + monnaie{chaineValeur{monEtat, '_222'}} + monnaie{chaineValeur{monEtat, '_224'}} 
	FIN SI
    
    bul	:=	100 f
    
    SI monEtat <> ? ALORS
	    buW	:=	monnaie{chaineValeur{monEtat, '_211'}} + monnaie{chaineValeur{monEtat, '_216'}} + monnaie{chaineValeur{monEtat, '_219'}} + monnaie{chaineValeur{monEtat, '_223'}} + monnaie{chaineValeur{monEtat, '_225'}} 
	FIN SI
    
    bub	:=	100 f
    
    buq	:=	bug
    	-	buW
        
    SI monEtat <> ? ALORS
	    bve	:=	monnaie{chaineValeur{monEtat, '_210'}}
    	    
	    bvo	:=	monnaie{chaineValeur{monEtat, '_211'}}
	    
	    bwc	:=	monnaie{chaineValeur{monEtat, '_234'}} + monnaie{chaineValeur{monEtat, '_236'}}
	    	    
	    bwm	:=	monnaie{chaineValeur{monEtat, '_235'}} + monnaie{chaineValeur{monEtat, '_237'}}--------correction SL 21/07/1995-----
	FIN SI
    
    bxa	:=	bve
    	-	bwc
    SI bve <> 0 f ALORS bxf	:=	bxa/bve*100 FINSI
    
    bxQ	:=	bvo
    	-	bwm
        
    SI bvo <> 0 f ALORS
    	message {'bvo <> 0'}
    
     bxV	:=	bxQ/bvo*100 FINSI
        
    SI monEtat <> ? ALORS
	    byY	:=	monnaie{chaineValeur{monEtat, '_214'}} + monnaie{chaineValeur{monEtat, '_218'}}
	    	    
	    byi	:=	monnaie{chaineValeur{monEtat, '_216'}} + monnaie{chaineValeur{monEtat, '_219'}}
	    
	    bzW	:=	monnaie{chaineValeur{monEtat, '_222'}}
	    	    
	    bzg	:=	monnaie{chaineValeur{monEtat, '_223'}}
	    
	    cAU	:=	monnaie{chaineValeur{monEtat, '_224'}}
	    	    
	    cAe	:=	monnaie{chaineValeur{monEtat, '_225'}}
	FIN SI
    
    cBS	:=	byY + bzW + cAU
        
    cBc	:=	byi + bzg + cAe
    
    SI monEtat <> ? ALORS
	    cCQ	:=	monnaie{chaineValeur{monEtat, '_238'}} + monnaie{chaineValeur{monEtat, '_240'}} 
        
    	cCa	:=	monnaie{chaineValeur{monEtat, '_239'}} + monnaie{chaineValeur{monEtat, '_241'}}
    FIN SI
    
    cDO	:=	debit{604} + debit{605} + debit{6084} + debit{6085} - credit{6094} - credit{6095}
        
    cDY	:=	debit{604}[N_1] + debit{605}[N_1] + debit{6084}[N_1] + debit{6085}[N_1] - credit{6094}[N_1] - credit{6095}[N_1]
    
    cEM	:=	cBS - (cCQ + cDO)
    
    SI cBS <> 0 f ALORS cER	:=	cEM / cBS * 100 FINSI
    
    cEC	:=	cBc - (cCa + cDY)
    
    SI cBc <> 0 ALORS cEH	:=	cEC / cBc * 100 FINSI
    
    cFK	:=	bxa + cEM
    
    SI bug <> 0 f ALORS cFP	:=	cFK / bug *100 FINSI
    
    cFA	:=	bxQ + cEC
    
    SI buW <> 0 f ALORS cFF	:=	cFA / buW *100 FINSI
    
    SI monEtat <> ? ALORS
	    cIE	:=	monnaie{chaineValeur{monEtat, '_242'}}
	FIN SI
	cIE := cIE - (debit{604} + debit{605} + debit{6084} + debit{6085} - credit{6094} - credit{6095})
        
    SI monEtat <> ? ALORS
	    cHu	:=	monnaie{chaineValeur{monEtat, '_24A'}}
	FIN SI
	cHu := cHu - (debit{604}[N_1] + debit{605}[N_1] + debit{6084}[N_1] + debit{6085}[N_1] - credit{6094}[N_1] - credit{6095}[N_1])
    
    cIx	:=	cFK - cIE
    
    SI bug <> 0 f ALORS cJC	:=	cIx  / bug *100 FINSI
    
    cIn	:=	cFA - cHu
    
    SI buW <> 0 f ALORS cIs	:=	cIn / buW *100 FINSI
    
    SI monEtat <> ? ALORS
	    cJv	:=	monnaie{chaineValeur{monEtat, '_226'}}
	    	    
	    cJl	:=	monnaie{chaineValeur{monEtat, '_227'}}
	    
	    cKt	:=	monnaie{chaineValeur{monEtat, '_244'}}
	    	    
	    cKj	:=	monnaie{chaineValeur{monEtat, '_245'}}
	    
	    cLr	:=	monnaie{chaineValeur{monEtat, '_250'}} + monnaie{chaineValeur{monEtat, '_252'}}
	    
 	   cLh 	:= 	monnaie{chaineValeur{monEtat, '_251'}} + monnaie{chaineValeur{monEtat, '_253'}}
 	FIN SI
    
    cMp	:=	cIx + cJv - cKt - cLr
    
    SI bug <> 0 f ALORS cMu	:=	cMp  / bug *100 FINSI
    
    cMf	:=	cIn + cJl - cKj - cLh
    
    SI buW <> 0 f ALORS cMk	:=	cMf / buW *100 FINSI
    
    SI monEtat <> ? ALORS
	    cNn	:=	monnaie{chaineValeur{monEtat, '_230'}}
	FIN SI
	cNn := cNn - (credit{781} + credit{791})
    
    SI monEtat <> ? ALORS
   		cNd	:=	monnaie{chaineValeur{monEtat, '_231'}}
    FIN SI
    cNd := cNd - (credit{781}[N_1] + credit{791}[N_1])
    
    SI monEtat <> ? ALORS
	    cOl	:=	monnaie{chaineValeur{monEtat, '_262'}}
	    	    
	    cOb	:=	monnaie{chaineValeur{monEtat, '_263'}}
	FIN SI
    
    cPj	:=	credit{781} + credit{791}
        
    cPZ	:=	credit{781}[N_1] + credit{791}[N_1]
    
    SI monEtat <> ? ALORS
	    cQj	:=	monnaie{chaineValeur{monEtat, '_254'}}
	    	    
	    cQZ	:=	monnaie{chaineValeur{monEtat, '_255'}}
	    
	    cQk	:=	monnaie{chaineValeur{monEtat, '_256'}}
	    	    
	    cQa	:=	monnaie{chaineValeur{monEtat, '_257'}}
	FIN SI    
    
    cRf	:=	cMp + cNn - cOl + cPj - cQj - cQk
    
    SI bug <> 0 f ALORS cRk	:=	cRf / bug *100 FINSI
    
    cRV	:=	cMf + cNd - cOb + cPZ - cQZ - cQa
    
    SI buW <> 0 f  ALORS cRa	:=	cRV / buW *100 FINSI
    
    SI monEtat <> ? ALORS
	    cSd	:=	monnaie{chaineValeur{monEtat, '_280'}}
	    	    
	    cST	:=	monnaie{chaineValeur{monEtat, '_281'}}
	    
	    cTb	:=	monnaie{chaineValeur{monEtat, '_294'}}
	    	    
	    cTR	:=	monnaie{chaineValeur{monEtat, '_295'}}
    FIN SI
    
    cVX	:=	cRf + cSd - cTb
    
    SI bug <> 0 f ALORS cVc	:=	cVX / bug *100 FINSI
    
    cVN	:=	cRV + cST - cTR
    
    SI buW <> 0 f ALORS cVS	:=	cVN / buW *100 FINSI
    
    SI monEtat <> ? ALORS
	    cWV	:=	monnaie{chaineValeur{monEtat, '_290'}}
	    	    
	    cWL	:=	monnaie{chaineValeur{monEtat, '_291'}}
	    
	    cXT	:=	monnaie{chaineValeur{monEtat, '_300'}}
	    	    
	    cXJ	:=	monnaie{chaineValeur{monEtat, '_301'}}
	FIN SI
    
    cZP	:=	cWV - cXT
    
    SI bug <> 0 f ALORS cZU	:=	cZP / bug *100 FINSI
    
    cZF	:=	cWL - cXJ
    
    SI buW <> 0 f ALORS cZK	:=	cZF / buW *100 FINSI
    
    caN	:=	cVX + cZP
    
    SI bug <> 0 f ALORS caS	:=	caN  / bug *100 FINSI
    
    caD	:=	cVN + cZF
    
    SI buW <> 0 f ALORS caI	:=	caD / buW *100 FINSI
    
    ebX	:=	debit {646}
    ebN	:=	debit {646}[N_1]
    cbV	:=	credit {767} + credit {775}
    cbQ	:=	credit {767}[N_1] + credit {775}[N_1]
    cbk	:=	debit {667} + debit {675}
    cbf	:=	debit {667}[N_1] + debit {675}[N_1]
    car	:=	debit{644}
    cap	:=	debit{644}[N_1]
    cbG	:=	credit{791}
    cbB	:=	credit{791}[N_1]
    
    ECART := caN
    SI monEtat <> ? ALORS
		ECART -= monnaie{chaineValeur{monEtat, '_310'}}
	FIN SI
    SI ECART <> 0 ALORS
    MessageErreur := '!!! ANOMALIE !!!'
    ERR :=  'LE RESULTAT DE L''EXERCICE SUR COMPTE DE RESULTATS COMPARES EST DIFFERENT DU RESULTAT DE LA LIASSE FISCALE '  MSG{}
    FINSI
    
    ECART := caD
    SI monEtat <> ? ALORS
		ECART -= monnaie{chaineValeur{monEtat, '_311'}}
	FIN SI
    SI ECART <> 0 ALORS
    MessageErreur := '!!! ANOMALIE !!!'
    ERR :=  'LE RESULTAT DE L''EXERCICE PRECEDENT SUR COMPTE DE RESULTATS COMPARES EST DIFFERENT DU RESULTAT DE LA LIASSE FISCALE '  MSG{}
    FINSI
###
'CALCUL_Charges' 'Fonctions'
    
    CALCUL_Charges0 {}
    
    debutMarquage{}
    debutMarquage{}[N_1]    
        
	-----------DETAIL DES CHARGES PAGE 1 ------------
    
    dPQ	:=	debit {607}
    	+	debit {6037}
    	+	debit {6087}
    
    SI bug <> 0 ALORS dPV	:=	( dPQ / bug) * 100.0 FINSI
    
    dPG	:=	debit {607} [N_1]
    	+	debit {6037}[N_1]
    	+	debit {6087} [N_1]
    
     SI buW <> 0 ALORS dPL	:=	( dPG / buW) * 100.0 FINSI
    
    dPa	:=	dPQ - dPG
    
    SI buq <> 0 ALORS dPk	:=	( dPa / buq) * 100.0 FINSI
    
    
    
    dRC	:=	debit {601}
    	+	debit {6031}
    	+	debit {6081}
    
    SI bug <> 0 ALORS dQx	:=	( dRC / bug) * 100.0 FINSI
    
    dRH	:=	debit {601} [N_1]
    	+	debit {6031} [N_1]
    	+	debit {6081} [N_1]
    
    dRb	:=	debit {6021}
    	+	debit {60321}
    	+	debit {60821}
    
    SI bug <> 0 ALORS dRW	:=	( dRb / bug) * 100.0 FINSI
    
    dRg	:=	debit {6021} [N_1]
    	+	debit {60321} [N_1]
    	+	debit {60821} [N_1]
    
    dSA	:=	debit {6022}
    	+	debit {60322}
    	+	debit {60822}
    
    SI bug <> 0 ALORS dRv	:=	( dSA / bug) * 100.0 FINSI
    
    dSF	:=	debit {6022} [N_1]
    	+	debit {60322} [N_1]
    	+	debit {60822} [N_1] 
    
    dSZ	:=	debit {6026}
    	+	debit {60326}
    	+	debit {60826}
    
    SI bug <> 0 ALORS dSU	:=	( dSZ / bug) * 100.0 FINSI
    
    dSe	:=	debit {6026} [N_1]
    	+	debit {60326} [N_1]
    	+	debit {60826} [N_1] 
    
    dTw	:=	debit {604}
    	+	debit {6084}
    
    SI bug <> 0 ALORS dTr	:=	( dTw / bug) * 100.0 FINSI
    
    dUB	:=	debit {604}[N_1] 
    	+	debit {6084}[N_1] 
    
    
    dUV	:=	debit {605}
    	+	debit {6085} 
    
    SI bug <> 0 ALORS dUQ	:=	( dUV / bug) * 100.0 FINSI
    
    dUa	:=	debit {605}[N_1]
    	+	debit {6085}[N_1]
    
    dVs	:=	debit {60611}				-- EAU--
    	+	debit {608611}
    
    SI bug <> 0 ALORS dVn	:=	( dVs / bug) * 100.0 FINSI
    
    dVx	:=	debit {60611}[N_1]			-- EAU--
    	+	debit {608611}[N_1]
    
    dWR	:=	debit {6061} - debit {60611}			-- ENERGIE--
    	+	debit {60861}- debit {608611}
    
    SI bug <> 0 ALORS dWM	:=	( dWR / bug) * 100.0 FINSI
    
    dWW	:=	debit {6061}[N_1] - debit {60611}[N_1]			-- ENERGIE--
    	+	debit {60861}[N_1] - debit {608611}[N_1]	
     
    dWq	:=	debit {6063}
    	+	debit {60863} 
    
    SI bug <> 0 ALORS dWl	:=	( dWq / bug) * 100.0 FINSI
    
    dWv	:=	debit {6063}[N_1]
    	+	debit {60863}[N_1]
    
    dXP	:=	debit {6064}
    	+	debit {60864} 
    
    SI bug <> 0 ALORS dXK	:=	( dXP / bug) * 100.0 FINSI
    
    dXU	:=	debit {6064}[N_1]
    	+	debit {60864}[N_1] 
    
    dXo	:=	debit {6066}
    	+	debit {60866}
    
    SI bug <> 0 ALORS dXj	:=	( dXo / bug) * 100.0 FINSI
    
    dXt	:=	debit {6066}[N_1]
    	+	debit {60866}[N_1] 
    
    dYN	:=	debit {6067}
    	+	debit {60867}
    	+	debit {6068}
    	+	debit {60868}
    
    SI bug <> 0 ALORS dYI	:=	( dYN / bug) * 100.0 FINSI
    
    dYS	:=	debit {6067}[N_1]
    	+	debit {60867}[N_1]
    	+	debit {6068}[N_1]
    	+	debit {60868}[N_1] 
    
    
    dYw	:=	dPQ
    
    SI bug <> 0 ALORS dZB	:=	( dYw / bug) * 100.0 FINSI
    
    dYm	:=	dPG
    
    SI buW <> 0 ALORS dYr	:=	( dYm / buW) * 100.0 FINSI
    
    dZG	:=	dYw - dYm
    
    SI buq <> 0 ALORS dZQ	:=	( dZG / buq) * 100.0 FINSI
    
    ddh	:=	credit {609}
    
    SI bug <> 0 ALORS ddm	:=	( ddh / bug) * 100.0 FINSI
    
    ddX	:=	credit {609}[N_1]
    
    SI buW <> 0 ALORS ddc	:=	( ddX / buW) * 100.0 FINSI
    
    ddr	:=	ddh - ddX
    
    SI buq <> 0 ALORS deB	:=	( ddr / buq) * 100.0 FINSI
    
    
    dgR	:=	debit {611}
    	-	debit {6115}-----travaux a façon-----
    
    SI bug <> 0 ALORS dgM	:=	( dgR / bug) * 100.0 FINSI
    
    dgW	:=	debit {611}[N_1] 
    	-	 debit {6115}[N_1] -----travaux a façon-----
    
    dgq	:=	debit {6115} -----traitement informatique-----
    
    SI bug <> 0 ALORS dgl	:=	( dgq / bug) * 100.0 FINSI
    
    dgv	:=	debit {6115}[N_1] -----traitement informatique-----
    
    dhZ	:=	debit {612} 
    
    SI bug <> 0 ALORS dhe	:=	( dhZ / bug) * 100.0 FINSI
    
    dhP	:=	debit {612}[N_1]
     
    SI buW <> 0 ALORS dhU	:=	( dhP / buW) * 100.0 FINSI
    
    dhj	:=	dhZ
    	-	dhP
    
    SI buq <> 0 ALORS dht	:=	( dhj / buq) * 100.0 FINSI
    
    
    djL	:=	debit {6132}
    	+	 debit {614}
    
    SI bug <> 0 ALORS djG	:=	( djL / bug) * 100.0 FINSI
    
    djQ	:=	debit {6132}[N_1]
    	+	 debit {614}[N_1]
    
    djk	:=	debit {613}
    	-	 debit {6132} 
    
    SI bug <> 0 ALORS djf	:=	( djk / bug) * 100.0 FINSI
    
    djp	:=	debit {613}[N_1] 
    	-	 debit {6132} [N_1] 
    
    dlH	:=	debit {6152}
    
    SI bug <> 0 ALORS dlC	:=	( dlH / bug) * 100.0 FINSI
    
    dlM	:=	debit {6152}[N_1]
    
    dlg	:=	debit {61553}		------entretien materiel d'exploitation-----
    	+ 	debit {61552}
    
    SI bug <> 0 ALORS dlb	:=	( dlg / bug) * 100.0 FINSI
    
    dll	:=	debit {61553}[N_1]	------entretien materiel d'exploitation-----
    	+ 	debit {61552}[N_1]
    
    
    dmF	:=	debit {61554}		------entretien materiel de transport-----
    
    SI bug <> 0 ALORS dmA	:=	( dmF / bug) * 100.0 FINSI
    
    dmK	:=	debit {61554}[N_1]	------entretien materiel de transport-----
    
    dme	:=	debit {61555}		------entretien materiel de bureau-----
    
    SI bug <> 0 ALORS dmZ	:=	( dme / bug) * 100.0 FINSI
    
    dmj	:=	debit {61555}[N_1]		------entretien materiel de bureau-----
    
    dnD	:=	debit {6156}		------maitenance contrats d'entretien-----
    
    SI bug <> 0 ALORS dmy	:=	( dnD / bug) * 100.0 FINSI
    
    dnI	:=	debit {6156}[N_1]	------maitenance contrats d'entretien-----
    
    dnm	:=	debit {616}
    
    SI bug <> 0 ALORS dnr	:=	( dnm / bug) * 100.0 FINSI
    
    dnc	:=	debit {616}[N_1]
    
    SI buW <> 0 ALORS dnh	:=	( dnc / buW) * 100.0 FINSI
    
    dnw	:=	dnm
    	-	dnc
    
    SI buq <> 0 ALORS doG	:=	( dnw / buq) * 100.0 FINSI
    
    dok	:=	debit {617}
    
    SI bug <> 0 ALORS dop	:=	( dok / bug) * 100.0 FINSI
    
    doa	:=	debit {617}[N_1]
    
    SI buW <> 0 ALORS dof	:=	( doa / buW) * 100.0 FINSI
    
    dou	:=	dok
    	-	doa
    
    SI buq <> 0 ALORS dpE	:=	( dou / buq) * 100.0 FINSI
    
    
    dqW	:=	debit {6181}
    	+	debit {6183}
    
    SI bug <> 0 ALORS dqR	:=	( dqW / bug) * 100.0 FINSI
    
    dqb	:=	debit {6181}[N_1]
    	+	debit {6183}[N_1]
    
    dqv	:=	debit {618}
    	-	debit {6181}
    	-	debit {6183}
    
    SI bug <> 0 ALORS dqq	:=	( dqv / bug) * 100.0 FINSI
    
    drA	:=	debit {618} [N_1]
    	-	debit {6181} [N_1]
    	-	debit {6183}[N_1]
    
    dre	:=	dPQ 
    	+	ddh
    	+	dQO
    	+	dTI
    	+	dVE
    	+	def
    
    drU	:=	dPG
    	+	ddX
    	+	dQE
    	+	dSy
    	+	dUu
    	+	deV
    
    dro	:=	dPa
    	+	ddr
    	+	dQY
    	+	dTS
    	+	dVO
    	+	dep
    			-----------DETAIL DES CHARGES PAGE 2 ------------
    
    dre	:=	dPQ  -ddh
    	+	dQO
    	+	dTI
    	+	dVE
    	+	def
    
    drU	:=	dPG
    	-	ddX
    	+	dQE
    	+	dSy
    	+	dUu
    	+	deV
    
    dro	:=	dPa
    	-	ddr
    	+	dQY
    	+	dTS
    	+	dVO
    	+	dep
    
    dwP	:=	debit {6221}
    	+	debit {6222}
    	+	debit {6224}
    	+	debit {6225}
    
    SI bug <> 0 ALORS dwK	:=	( dwP / bug) * 100.0 FINSI
    
    dwU	:=	debit {6221}[N_1]
    	+	debit {6222}[N_1]
    	+	debit {6224}[N_1]
    	+	debit {6225}[N_1]
    
    dwo	:=	debit {6226}
    
    SI bug <> 0 ALORS dwj	:=	( dwo / bug) * 100.0 FINSI
    
    dwt	:=	debit {6226}[N_1]
    
    dxN	:=	debit {6227}
    	+	debit {6228}
    
    SI bug <> 0 ALORS dxI	:=	( dwt / bug) * 100.0 FINSI
    
    dxS	:=	debit {6227}[N_1]
    	+	debit {6228}[N_1]
    
    
    dyk	:=	debit {6231}
    	+	debit {6232}
    	+	debit {6233}
    	+	debit {6236}
    	+	debit {6237}
    
    SI bug <> 0 ALORS dyf	:=	( dyk / bug) * 100.0 FINSI
    
    dyp	:=	debit {6231}[N_1]
    	+	debit {6232}[N_1]
    	+	debit {6233}[N_1]
    	+	debit {6236}[N_1]
    	+	debit {6237}[N_1]
    
    dzJ	:=	debit {6234}
    	+	debit {6235}
    
    SI bug <> 0 ALORS dzE	:=	( dzJ / bug) * 100.0 FINSI
    
    dzO	:=	debit {6234}[N_1]
    	+	debit {6235}[N_1]
    
    dzi	:=	debit {6238} 
    
    SI bug <> 0 ALORS dzd	:=	( dzi / bug) * 100.0 FINSI
    
    dzn	:=	debit {6238}[N_1]
    
    
    eBF	:=	debit {6241}
    
    SI bug <> 0 ALORS eBA	:=	( eBF / bug) * 100.0 FINSI
    
    eBK	:=	debit {6241}[N_1] 
    
    eBe	:=	debit {6242}
    
    SI bug <> 0 ALORS eBZ	:=	( eBe / bug) * 100.0 FINSI
    
    eBj	:=	debit {6242}[N_1] 
    
    eCD	:=	debit {624}
    	-	debit {6241}
    	-	debit {6242}
    
    SI bug <> 0 ALORS eBy	:=	( eCD / bug) * 100.0 FINSI
    
    eCI	:=	debit {624}[N_1]
    	-	debit {6241}[N_1]
    	-	debit {6242}[N_1] 
    
    
    eDa	:=	debit {6251}
    	+	debit {6255}
    
    SI bug <> 0 ALORS eDV	:=	( eDa / bug) * 100.0 FINSI
    
    eDf	:=	debit {6251}[N_1]+ debit {6255}[N_1]
    
    eDz	:=	debit {6256}
    	+	debit {6257}
    
    SI bug <> 0 ALORS eDu	:=	( eDz / bug) * 100.0 FINSI
    
    eEE	:=	debit {6256}[N_1]+ debit {6257}[N_1]
    
    
    eFW	:=	debit {6262}------ frais postaux-----
    	+ 	debit {6260}
    	+	debit {6261}
    
    
    SI bug <> 0 ALORS eFR	:=	( eFW / bug) * 100.0 FINSI
    
    eFb	:=	debit {6262}[N_1]------ frais postaux-----
    	+ 	debit {6260}[N_1]
    	+	debit {6261}[N_1]
    
    
    eFv	:=	debit {6265}------ frais de telecommunications-----
    
    SI bug <> 0 ALORS eFq	:=	( eFv / bug) * 100.0 FINSI
    
    eGA	:=	debit {6265}[N_1]------ frais de telecommunications-----
    
    eGe	:=	debit {627}
    
    SI bug <> 0 ALORS eGj	:=	( eGe / bug) * 100.0 FINSI
    
    eGU	:=	debit {627}[N_1]
    
    SI buW <> 0 ALORS eGZ	:=	( eGU / buW) * 100.0 FINSI
    
    eGo	:=	eGe
    	-	eGU
    
    SI buq <> 0 ALORS eGy	:=	( eGo / buq) * 100.0 FINSI
    
    eHc	:=	debit {628}
    
    SI bug <> 0 ALORS eHh	:=	( eHc / bug) * 100.0 FINSI
    
    eHS	:=	debit {628}[N_1]
    
    SI buW <> 0 ALORS eHX	:=	( eHS / buW) * 100.0 FINSI
    
    eHm	:=	eHc
    	-	eHS
    
    SI buq <> 0 ALORS eHw	:=	( eHm / buq) * 100.0 FINSI
    
    
    eKM	:=	debit {6312}
    	+	debit {6335}
    
    SI bug <> 0 ALORS eKH	:=	( eKM / bug) * 100.0 FINSI
    
    eKR	:=	debit {6312}[N_1]
    	+	debit {6335}[N_1] 
    
    eKl	:=	debit {6313}
    	+	debit {6333}
    
    SI bug <> 0 ALORS eKg	:=	( eKl / bug) * 100.0 FINSI
    
    eKq	:=	debit {6313}[N_1]
    	+	debit {6333}[N_1] 
    
    eLK	:=	debit {6314}
    	+	debit {6334}
    
    SI bug <> 0 ALORS eLF	:=	( eLK / bug) * 100.0 FINSI
    
    eLP	:=	debit {6314}[N_1]
    	+	debit {6334}[N_1]
     
    eMI	:=	debit {631}
    	+	debit {633}- eKM
    	-	eKl
    	-	eLK
     
    SI bug <> 0 ALORS eMD	:=	( eMI / bug) * 100.0 FINSI
    
    eMN	:=	debit {631}[N_1]
    	+	debit {633}[N_1]
    	-	eKR
    	-	eKq
    	-	eLP 
    
    
    eNf	:=	debit {63511}
    
    SI bug <> 0 ALORS eNa	:=	( eNf / bug) * 100.0 FINSI
    
    eNk	:=	debit {63511}[N_1] 
    
    eOE	:=	debit {6351}
    	-	debit {63511}
    	-	debit {63514}
    
    SI bug <> 0 ALORS eNz	:=	( eOE / bug) * 100.0 FINSI
    
    eOJ	:=	debit {6351}[N_1]- debit {63511} [N_1]- debit {63514}[N_1]
    
    eOd	:=	debit {63514}
    
    SI bug <> 0 ALORS eOY	:=	( eOd / bug) * 100.0 FINSI
    
    eOi	:=	debit {63514}[N_1]
    
    ePC	:=	debit {6354}
    
    SI bug <> 0 ALORS eOx	:=	( ePC / bug) * 100.0 FINSI
    
    ePH	:=	debit {6354}[N_1]
    
    ePb	:=	debit {6352}
    	+	debit {6353}
    	+	debit {6355}
    
    
    SI bug <> 0 ALORS ePW	:=	( ePb / bug) * 100.0 FINSI
    
    ePg	:=	debit {6352}[N_1]
    	+	debit {6353}[N_1]
    	+	debit {6355}[N_1]
    
    
    eQA	:=	debit {6371}
    
    SI bug <> 0 ALORS ePv	:=	( eQA / bug) * 100.0 FINSI
    
    eQF	:=	debit {6371}[N_1]
    
    eQZ	:=	debit {6372}
    	+	debit {6374}
    
    SI bug <> 0 ALORS eQU	:=	( eQZ / bug) * 100.0 FINSI
    
    eQe	:=	debit {6372}[N_1]
    	+	debit {6374}[N_1]
    
    eRX	:=	debit {6358}
    	+	debit {6378}
     
    SI bug <> 0 ALORS eRS	:=	( eRX / bug) * 100.0 FINSI
    
    eRc	:=	debit {6358}[N_1]
    	+	debit {6378}[N_1]
    
    eSG	:=	dre
    	+	dtf
    	+	eIa
    
    eRw	:=	drU
    	+	dtV
    	+	eIQ
    
    eSQ	:=	dro
    	+	dtp
    	+	eIk
    
    			-----------DETAIL DES CHARGES PAGE 3 ------------
    
    eSG	:=	dre
    	+	dtf
    	+	eIa
    
    eRw	:=	drU
    	+	dtV
    	+	eIQ
    
    eSQ	:=	dro
    	+	dtp
    	+	eIk
    
    eVy	:=	debit {641}
    	-	debit {6412}
    
    SI bug <> 0 ALORS eVt	:=	( eVy / bug) * 100.0 FINSI
    
    eWD	:=	debit {641}[N_1]
    	-	debit {6412}[N_1]
    
    eWX	:=	debit {6412}
    
    SI bug <> 0 ALORS eWS	:=	( eWX / bug) * 100.0 FINSI
    
    eWc	:=	debit {6412}[N_1]
    
    eXG	:=	debit {644}
    
    SI bug <> 0 ALORS eXL	:=	( eXG / bug) * 100.0 FINSI
    
    eWw	:=	debit {644}[N_1]
    
    SI buW <> 0 ALORS eXB	:=	( eWw / buW) * 100.0 FINSI
    
    eXQ	:=	eXG
    	-	eWw
    
    SI buq <> 0 ALORS eXa	:=	( eXQ / buq) * 100.0 FINSI
    
    
    eYs	:=	debit {6451}
    
    SI bug <> 0 ALORS eYn	:=	( eYs / bug) * 100.0 FINSI
    
    eYx	:=	debit {6451}[N_1]
    
    eZR	:=	debit {6452}
    	+	debit {6458}
    
    SI bug <> 0 ALORS eZM	:=	( eZR / bug) * 100.0 FINSI
    
    eZW	:=	debit {6452}[N_1]
    	+	debit {6458}[N_1]
    
    eZq	:=	debit {64532}----- retraite des salaries------
    
    SI bug <> 0 ALORS eZl	:=	( eZq / bug) * 100.0 FINSI
    								----- reprendre bug/buW/buq---------
    
    eZv	:=	debit {64532}[N_1]----- retraite des salaries------
    
    eaP	:=	debit {64535}----- retraite des cadres------
    
    SI bug <> 0 ALORS eaK	:=	( eaP / bug) * 100.0 FINSI
    
    eaU	:=	debit {64535}[N_1]----- retraite des cadres------
    
    eao	:=	debit {6454}
    
    SI bug <> 0 ALORS eaj	:=	( eao / bug) * 100.0 FINSI
    
    eat	:=	debit {6454}[N_1]
    
    
    ecL	:=	debit {6461}-----urssaf exploitant------
    	+ 	debit {6460}	
    
    
    ecQ	:=	debit {6461}[N_1]-----urssaf exploitant------
    	+ 	debit {6460}[N_1]	
    
    
    eck	:=	debit {6463}-----assurance maladie exploitant------
    
    SI bug <> 0 ALORS ecf	:=	( eck / bug) * 100.0 FINSI
    
    ecp	:=	debit {6463}[N_1]-----assurance maladie exploitant------
    
    edJ	:=	debit {6465}-----retraite exploitant------
    
    SI bug <> 0 ALORS edE	:=	( edJ / bug) * 100.0 FINSI
    
    edO	:=	debit {6465}[N_1]-----retraite exploitant------
    
    -- Mutuelle
    eMx	:=	debit {6462} 
    SI bug <> 0 ALORS eMy	:=	( eMx / bug) * 100.0 FINSI
    eMz	:=	debit {6462} [N_1]
    -- ASSEDIC
    eAx	:=	debit {6464} 
    SI bug <> 0 ALORS eAy	:=	( eAx / bug) * 100.0 FINSI
    eAz	:=	debit {6464} [N_1]
    
    
    
    eeg	:=	debit {6475}
    
    SI bug <> 0 ALORS eeb	:=	( eeg / bug) * 100.0 FINSI
    
    eel	:=	debit {6475}[N_1]
    
    efF	:=	debit {647}
    	-	 debit {6475}
    	+	debit {648}
    
    SI bug <> 0 ALORS efA	:=	( efF / bug) * 100.0 FINSI
    
    efK	:=	debit {647}[N_1]
    	-	debit {6475}[N_1]
    	+	debit {648}[N_1]
    
    
    ehL	:=	debit {651}
    
    SI bug <> 0 ALORS ehQ	:=	( ehL / bug) * 100.0 FINSI
    
    ehB	:=	debit {651}[N_1]
    
    SI bug <> 0 ALORS ehG	:=	( ehB / bug) * 100.0 FINSI
    
    ehV	:=	ehL
    	-	ehB
    
    SI bug <> 0 ALORS ehf	:=	( ehV / bug) * 100.0 FINSI
    
    eiJ	:=	debit {654}
    
    SI bug <> 0 ALORS eiO	:=	( eiJ / bug) * 100.0 FINSI
    
    ehz	:=	debit {654}[N_1]
    
    SI bug <> 0 ALORS eiE	:=	( ehz / bug) * 100.0 FINSI
    
    eiT	:=	eiJ -ehz
    
    SI bug <> 0 ALORS eid	:=	( eiT / bug) * 100.0 FINSI
    
    ejH	:=	debit {65}
    	-	ehL
    	-	eiJ
    
    SI bug <> 0 ALORS ejM	:=	( ejH / bug) * 100.0 FINSI
    
    eix	:=	debit {65}[N_1]
    	-	ehB
    	-	ehz
    
    SI bug <> 0 ALORS ejC	:=	( eix / bug) * 100.0 FINSI
    
    ejR	:=	ejH
    	-	eix
    
    SI bug <> 0 ALORS ejb	:=	( ejR / bug) * 100.0 FINSI
    
    
    elr	:=	debit {6611}
    
    SI bug <> 0 ALORS elm	:=	( elr / bug) * 100.0 FINSI
    
    elw	:=	debit {6611}[N_1]
    
    emQ	:=	debit {6615}
    
    SI bug <> 0 ALORS emL	:=	( emQ / bug) * 100.0 FINSI
    
    emV	:=	debit {6615}[N_1]
    
    emp	:=	debit {6616}
    
    SI bug <> 0 ALORS emk	:=	( emp / bug) * 100.0 FINSI
    
    emu	:=	debit {6616}[N_1]
    
    enO	:=	debit {6617}
    	+	debit {6618}
    
    SI bug <> 0 ALORS enJ	:=	( enO / bug) * 100.0 FINSI
    
    enT	:=	debit {6617}[N_1]
    	+	debit {6618}[N_1]
    
    enn	:=	debit {664}
    
    SI bug <> 0 ALORS eni	:=	( enn / bug) * 100.0 FINSI
    
    ens	:=	debit {664}[N_1]
    
    epK	:=	debit {665}
    
    SI bug <> 0 ALORS epF	:=	( epK / bug) * 100.0 FINSI
    
    epP	:=	debit {665}[N_1]
    
    epj	:=	debit {666}
    
    SI bug <> 0 ALORS epe	:=	( epj / bug) * 100.0 FINSI
    
    epo	:=	debit {666}[N_1]
    
    eqI	:=	debit {667}+ debit {668}
    
    SI bug <> 0 ALORS eqD	:=	( eqI / bug) * 100.0 FINSI
    
    eqN	:=	debit {667}[N_1]
    	+	debit {668}[N_1]
    
    eqr	:=	eSG
    	+	eUM
    	+	egN
    	+	ekF
    
    eqh	:=	eRw
    	+	eUC
    	+	egD
    	+	ejv
    
    erB	:=	eSQ
    	+	eUW
    	+	egX
    	+	ekP
    
    			-----------DETAIL DES CHARGES PAGE 4 ------------
    
    eqr	:=	eSG
    	+	eUM
    	+	egN
    	+	ekF
    
    eqh	:=	eRw
    	+	eUC
    	+	egD
    	+	ejv
    
    erB	:=	eSQ
    	+	eUW
    	+	egX
    	+	ekP
    
    eue	:=	debit {6711}
    	+	debit {6712}
    
    SI bug <> 0 ALORS euZ	:=	( eue / bug) * 100.0 FINSI
    
    euj	:=	debit {6711}[N_1]
    	+	debit {6712}[N_1]
    
    evD	:=	debit {6713}
    
    SI bug <> 0 ALORS euy	:=	( evD / bug) * 100.0 FINSI
    
    evI	:=	debit {6713}[N_1]
    
    evc	:=	debit {671}
    	-	eue
    	-	evD
    
    SI bug <> 0 ALORS evX	:=	( evc / bug) * 100.0 FINSI
    
    evh	:=	debit {671}[N_1]
    	-	 euj -evI
    ewz	:=	debit {6752}
    
    SI bug <> 0 ALORS ewu	:=	( ewz / bug) * 100.0 FINSI
    
    exE	:=	debit {6752}[N_1]
    
    exY	:=	debit {675}
    	-	ewz
    
    SI bug <> 0 ALORS exT	:=	( exY / bug) * 100.0 FINSI
    
    exd	:=	debit {675}[N_1]
    	-	exE
    
    eyH	:=	debit {67}
    	-	etq
    	-	ewL
    
    SI bug <> 0 ALORS eyM	:=	( eyH / bug) * 100.0 FINSI
    
    exx	:=	debit {67}[N_1]
    	-	etg
    	-	ewB
    
    SI bug <> 0 ALORS eyC	:=	( exx / bug) * 100.0 FINSI
    
    eyR	:=	eyH
    	-	exx
    
    SI bug <> 0 ALORS eyb	:=	( eyR / bug) * 100.0 FINSI
    
    fAS	:=	debit {6811}
    	+	debit {6816}
    
    SI bug <> 0 ALORS fAN	:=	( fAS / bug) * 100.0 FINSI
    
    fAX	:=	debit {6811}[N_1]
    	+	debit {6816}[N_1]
    
    fAr	:=	debit {6815}
    
    SI bug <> 0 ALORS fAm	:=	( fAr / bug) * 100.0 FINSI
    
    fAw	:=	debit {6815}[N_1]
    
    fBQ	:=	debit {6817}
    
    SI bug <> 0 ALORS fBL	:=	( fBQ / bug) * 100.0 FINSI
    
    fBV	:=	debit {6817}[N_1]
    
    fBp	:=	debit {681}
    	-	fAS
    	-	fAr -fBQ
    
    SI bug <> 0 ALORS fBk	:=	( fBp / bug) * 100.0 FINSI
    
    fBu	:=	debit {681}[N_1]
    	-	fAX
    	-	fAw
    	-	fBV
    
    fCY	:=	debit {686}
    
    SI bug <> 0 ALORS fCd	:=	( fCY / bug) * 100.0 FINSI
    
    fCO	:=	debit {686}[N_1]
    
    SI bug <> 0 ALORS fCT	:=	( fCO / bug) * 100.0 FINSI
    
    fCi	:=	fCY
    	-	fCO
    
    SI bug <> 0 ALORS fCs	:=	( fCi / bug) * 100.0 FINSI
    
    fEK	:=	debit {68725}
    
    SI bug <> 0 ALORS fEF	:=	( fEK / bug) * 100.0 FINSI
    
    fEP	:=	debit {68725}[N_1]
    
    fEj	:=	debit {6873}
    
    SI bug <> 0 ALORS fEe	:=	( fEj / bug) * 100.0 FINSI
    
    fEo	:=	debit {6873}[N_1]
    
    fFI	:=	debit {687} 
    	-	fEK
    	-	fEj
    
    SI bug <> 0 ALORS fFD	:=	( fFI / bug) * 100.0 FINSI
    
    fFN	:=	debit {687}[N_1]
    	-	fEP
    	-	fEo
    
    fJj	:=	eqr
    	+	ess
    	+	ezF
    	+	fFr
    
    fJZ	:=	eqh
    	+	esi
    	+	eyv
    	+	fFh
    
    fJt	:=	fJj
    	-	fJZ
    
    
    
    ECART	:=	?
    
    finMarquage{}
    PAGE := 'COMPTES NON PARAMETRES, CHARGES EXERCICE N'
    ERR := testMarquage{6} MSG {}
    
    PAGE := 'COMPTES NON PARAMETRES, CHARGES EXERCICE N-1'
    ERR := testMarquage{6}[N_1] MSG {}
    
    ECART := fJj - debit { 6 } -----+ debit { 603 } 
    SI ECART <> 0 ALORS
    MessageErreur := '!!! ANOMALIE !!!'
    ERR :=  'LE TOTAL DES CHARGES DE L''EXERCICE (COMPTES 6)  EST DIFFERENT DU DETAIL DES CHARGES DE L''ETAT COMPARATIF DES CHARGES '  MSG{}
    FINSI
    
    ECART := fJZ - debit { 6 } [N_1] -------+ debit { 603 } [N_1]
    SI ECART <> 0 ALORS
    MessageErreur := '!!! ANOMALIE !!!'
    ERR :=  'LE TOTAL DES CHARGES DE L''EXERCICE PRECEDENT (COMPTES 6)  EST DIFFERENT DU DETAIL DES CHARGES DE L''ETAT COMPARATIF DES CHARGES '  MSG{}
    FINSI
###
'CALCUL_Charges0' 'Fonctions'

    ACE1	:=	debit {60}
    
    ACE2	:=	debit { 60 } [N_1]
    
    dQO	:=	debit { 601 } + debit { 602 }
    	+	debit {6031} + debit {6032}
    	+	debit {6081} + debit { 6082 }
    
    SI bug <> 0 ALORS dQT	:=	( dQO / bug) * 100.0 FINSI
    
    dQE	:=	debit { 601 } [N_1]+ debit { 602 }[N_1]
    	+	debit {6031} [N_1] + debit {6032} [N_1]
    	+	debit {6081} [N_1] + debit { 6082 } [N_1]
    
    
    SI buW <> 0 ALORS dQJ	:=	( dQE / buW) * 100.0 FINSI
    
    dQY	:=	dQO - dQE
    
    SI buq <> 0 ALORS dQi	:=	( dQY / buq) * 100.0 FINSI
    
    dTI	:=	debit { 604 } + debit {6084} 
    	+ 	debit { 605 } + debit {6085} 
    
    SI bug <> 0 ALORS dTN	:=	( dTI / bug) * 100.0 FINSI
    
    dSy	:=	debit { 604 } [N_1] + debit { 6084 }[N_1]
    	+	debit { 605 } [N_1] + debit { 6085 }[N_1]
    
    SI buW <> 0 ALORS dTD	:=	( dSy / buW) * 100.0 FINSI
    
    dTS	:=	dTI - dSy
    
    SI buq <> 0 ALORS dTc	:=	( dTS / buq) * 100.0 FINSI
    
    dVE	:=	debit { 606 } + debit {6086}
    
    SI bug <> 0 ALORS dVJ	:=	( dVE / bug) * 100.0 FINSI
    
    dUu	:=	debit { 606 }[ N_1] + debit { 6086 }[ N_1]
    
    
    SI buW <> 0 ALORS dUz	:=	( dUu / buW) * 100.0 FINSI
    
    dVO	:=	dVE - dUu
    
    SI buq <> 0 ALORS dVY	:=	( dVO / buq) * 100.0 FINSI
    
    
    def	:=	 debit {61}
    
    SI bug <> 0 ALORS dek	:=	( def / bug) * 100.0 FINSI
    
    deV	:=	 debit {61}[N_1]
    
    SI buW <> 0 ALORS dea	:=	( deV / buW) * 100.0 FINSI
    
    dep	:=	def - deV
    
    SI buq <> 0 ALORS dez	:=	( dep / buq) * 100.0 FINSI
    
    dfd	:=	debit {611}
    
    SI bug <> 0 ALORS dfi	:=	( dfd / bug) * 100.0 FINSI
    
    dfT	:=	debit {611}[N_1] 
    
    SI buW <> 0 ALORS dfY	:=	( dfT / buW) * 100.0 FINSI
    
    dfn	:=	dfd
    	-	dfT
    
    SI buq <> 0 ALORS dfx	:=	( dfn / buq) * 100.0 FINSI
    
    
    diX	:=	debit {613}
    	+	debit {614}
    
    SI bug <> 0 ALORS dic	:=	( diX / bug) * 100.0 FINSI
    
    diN	:=	debit {613}[N_1]
    	+	debit {614}[N_1]
    
    SI buW <> 0 ALORS diS	:=	( diN / buW) * 100.0 FINSI
    
    dih	:=	diX
    	-	diN
    
    SI buq <> 0 ALORS dir	:=	( dih / buq) * 100.0 FINSI
    
    dkT	:=	debit {615}
    
    SI bug <> 0 ALORS dkY	:=	( dkT / bug) * 100.0 FINSI
    
    dkJ	:=	debit {615}[N_1]
    
    SI buW <> 0 ALORS dkO	:=	( dkJ / buW) * 100.0 FINSI
    
    dkd	:=	dkT
    	-	dkJ
    
    SI buq <> 0 ALORS dkn	:=	( dkd / buq) * 100.0 FINSI
    
    dpi	:=	debit {618}
    
    SI bug <> 0 ALORS dpn	:=	( dpi / bug) * 100.0 FINSI
    
    dpY	:=	debit {618}[N_1]
    
    SI buW <> 0 ALORS dpd	:=	( dpY / buW) * 100.0 FINSI
    
    dps	:=	dpi
    	-	dpY
    
    SI buq <> 0 ALORS dqC	:=	( dps / buq) * 100.0 FINSI
    
    dtf	:=	 debit {62}
    
    SI bug <> 0 ALORS dtk	:=	( dtf / bug) * 100.0 FINSI
    
    dtV	:=	 debit {62}[N_1]
    
    SI buW <> 0 ALORS dta	:=	( dtV / buW) * 100.0 FINSI
    
    dtp	:=	dtf
    	-	dtV
    
    SI buq <> 0 ALORS dtz	:=	( dtp / buq) * 100.0 FINSI
    
    
    dud	:=	debit {621}
    
    SI bug <> 0 ALORS dui	:=	( dud / bug) * 100.0 FINSI
    
    duT	:=	debit {621}[N_1]
    
    SI buW <> 0 ALORS duY	:=	( duT / buW) * 100.0 FINSI
    
    dun	:=	dud
    	-	duT
    
    SI buq <> 0 ALORS dux	:=	( dun / buq) * 100.0 FINSI
    
    
    dvb	:=	debit {622}
    
    SI bug <> 0 ALORS dvg	:=	( dvb / bug) * 100.0 FINSI
    
    dvR	:=	debit {622}[N_1]
    
    SI buW <> 0 ALORS dvW	:=	( dvR / buW) * 100.0 FINSI
    
    dvl	:=	dvb
    	-	dvR
    
    SI buq <> 0 ALORS dvv	:=	( dvl / buq) * 100.0 FINSI
    
    dxw	:=	debit {623}
    
    SI bug <> 0 ALORS dyB	:=	( dxw / bug) * 100.0 FINSI
    
    dxm	:=	debit {623}[N_1]
    
    SI buW <> 0 ALORS dxr	:=	( dxm / buW) * 100.0 FINSI
    
    dyG	:=	dxw
    	-	dxm
    
    SI buq <> 0 ALORS dyQ	:=	( dyG / buq) * 100.0 FINSI
    
    eAR	:=	debit {624}
    
    SI bug <> 0 ALORS eAW	:=	( eAR / bug) * 100.0 FINSI
    
    eAH	:=	debit {624}[N_1]
    
    SI buW <> 0 ALORS eAM	:=	( eAH / buW) * 100.0 FINSI
    
    eAb	:=	eAR
    	-	eAH
    
    SI buq <> 0 ALORS eAl	:=	( eAb / buq) * 100.0 FINSI
    
    eCm	:=	debit {625}
    
    SI bug <> 0 ALORS eCr	:=	( eCm / bug) * 100.0 FINSI
    
    eCc	:=	debit {625}[N_1]
    
    SI buW <> 0 ALORS eCh	:=	( eCc / buW) * 100.0 FINSI
    
    eCw	:=	eCm
    	-	eCc
    
    SI buq <> 0 ALORS eDG	:=	( eCw / buq) * 100.0 FINSI
    
    eEi	:=	debit {626}
    
    SI bug <> 0 ALORS eEn	:=	( eEi / bug) * 100.0 FINSI
    
    eEY	:=	debit {626}[N_1]
    
    SI buW <> 0 ALORS eEd	:=	( eEY / buW) * 100.0 FINSI
    
    eEs	:=	eEi
    	-	eEY
    
    SI buq <> 0 ALORS eFC	:=	( eEs / buq) * 100.0 FINSI
    
    eIa	:=	debit {63}
    
    SI bug <> 0 ALORS eIf	:=	( eIa / bug) * 100.0 FINSI
    
    eIQ	:=	debit {63}[N_1]
    
    SI buW <> 0 ALORS eIV	:=	( eIQ / buW) * 100.0 FINSI
    
    eIk	:=	eIa
    	-	eIQ
    
    SI buq <> 0 ALORS eIu	:=	( eIk / buq) * 100.0 FINSI
    
    
    eJY	:=	debit {631}
    	+	debit {633}
    
    SI bug <> 0 ALORS eJd	:=	( eJY / bug) * 100.0 FINSI
    
    eJO	:=	debit {631}[N_1]
    	+	debit {633}[N_1]
    
    SI buW <> 0 ALORS eJT	:=	( eJO / buW) * 100.0 FINSI
    
    eJi	:=	eJY
    	-	eJO
    
    SI buq <> 0 ALORS eJs	:=	( eJi / buq) * 100.0 FINSI
    
    eMr	:=	debit {635}
    	+	debit {637}
    
    SI bug <> 0 ALORS eMw	:=	( eMr / bug) * 100.0 FINSI
    
    eMh	:=	debit {635}[N_1]
    	+	debit {637}[N_1] 
    
    SI buW <> 0 ALORS eMm	:=	( eMh / buW) * 100.0 FINSI
    
    eNB	:=	eMr
    	-	eMh
    
    SI buq <> 0 ALORS eNL	:=	( eNB / buq) * 100.0 FINSI
    
    
    eUM	:=	debit {64}
    
    SI bug <> 0 ALORS eUR	:=	( eUM / bug) * 100.0 FINSI
    
    eUC	:=	debit {64}[N_1] 
    
    SI buW <> 0 ALORS eUH	:=	( eUC / buW) * 100.0 FINSI
    
    eUW	:=	eUM
    	-	eUC
    
    SI buq <> 0 ALORS eUg	:=	( eUW / buq) * 100.0 FINSI
    
    
    eVK	:=	debit {641}
    
    SI bug <> 0 ALORS eVP	:=	( eVK / bug) * 100.0 FINSI
    
    eVA	:=	debit {641}[N_1] 
    
    SI buW <> 0 ALORS eVF	:=	( eVA / buW) * 100.0 FINSI
    
    eVU	:=	eVK
    	-	eVA
    
    SI buq <> 0 ALORS eVe	:=	( eVU / buq) * 100.0 FINSI
    
    
    eYE	:=	debit {645}
    
    SI bug <> 0 ALORS eYJ	:=	( eYE / bug) * 100.0 FINSI
    
    eXu	:=	debit {645}[N_1]
    
    SI buW <> 0 ALORS eXz	:=	( eXu / buW) * 100.0 FINSI
    
    eYO	:=	eYE
    	-	eXu
    
    SI buq <> 0 ALORS eYY	:=	( eYO / buq) * 100.0 FINSI
    
    ebX	:=	debit {646}
    
    ebN	:=	debit {646}[N_1]
    
    ebh	:=	ebX
    	-	ebN
    
    eds	:=	debit {647}
    
    SI bug <> 0 ALORS edx	:=	( eds / bug) * 100.0 FINSI
    
    edi	:=	debit {647}[N_1]
    
    SI bug <> 0 ALORS edn	:=	( edi / bug) * 100.0 FINSI
    
    eeC	:=	eds
    	-	edi
    
    SI bug <> 0 ALORS eeM	:=	( eeC / bug) * 100.0 FINSI
    
    egN	:=	debit {65}
    
    SI bug <> 0 ALORS egS	:=	( egN / bug) * 100.0 FINSI
    
    egD	:=	debit {65}[N_1]
    
    SI bug <> 0 ALORS egI	:=	( egD / bug) * 100.0 FINSI
    
    egX	:=	egN
    	-	egD
    
    SI bug <> 0 ALORS egh	:=	( egX / bug) * 100.0 FINSI
    
    
    ekF	:=	debit {66}
    
    SI bug <> 0 ALORS ekK	:=	( ekF / bug) * 100.0 FINSI
    
    ejv	:=	debit {66}[N_1]
    
    SI bug <> 0 ALORS ekA	:=	( ejv / bug) * 100.0 FINSI
    
    ekP	:=	ekF
    	-	ejv
    
    SI bug <> 0 ALORS ekZ	:=	( ekP / bug) * 100.0 FINSI
    
    
    elD	:=	debit {661}
    
    SI bug <> 0 ALORS elI	:=	( elD / bug) * 100.0 FINSI
    
    ekt	:=	debit {661}[N_1]
    
    SI bug <> 0 ALORS eky	:=	( ekt / bug) * 100.0 FINSI
    
    elN	:=	elD
    	-	ekt
    
    SI bug <> 0 ALORS elX	:=	( elN / bug) * 100.0 FINSI
    
    eoW	:=	debit {665}
    	+	debit {666}
    
    SI bug <> 0 ALORS eob	:=	( eoW / bug) * 100.0 FINSI
    
    eoM	:=	debit {665}[N_1]
    	+	debit {666}[N_1]
    
    SI bug <> 0 ALORS eoR	:=	( eoM / bug) * 100.0 FINSI
    
    eog	:=	eoW
    	-	eoM
    
    SI bug <> 0 ALORS eoq	:=	( eog / bug) * 100.0 FINSI
    
    
    ess	:=	debit {67}
    
    SI bug <> 0 ALORS esx	:=	( ess / bug) * 100.0 FINSI
    
    esi	:=	debit {67}[N_1] 
    
    SI bug <> 0 ALORS esn	:=	( esi / bug) * 100.0 FINSI
    
    etC	:=	ess
    	-	esi
    
    SI bug <> 0 ALORS etM	:=	( etC / bug) * 100.0 FINSI
    
    etq	:=	debit {671}
    
    SI bug <> 0 ALORS etv	:=	( etq / bug) * 100.0 FINSI
    
    etg	:=	debit {671}[N_1]
    
    SI bug <> 0 ALORS etl	:=	( etg / bug) * 100.0 FINSI
    
    euA	:=	etq
    	-	etg
    
    SI bug <> 0 ALORS euK	:=	( euA / bug) * 100.0 FINSI
    
    ewL	:=	debit {675} 
    
    SI bug <> 0 ALORS ewQ	:=	( ewL / bug) * 100.0 FINSI
    
    ewB	:=	debit {675}[N_1]
    
    SI bug <> 0 ALORS ewG	:=	( ewB / bug) * 100.0 FINSI
    
    ewV	:=	ewL
    	-	ewB
    
    SI bug <> 0 ALORS ewf	:=	( ewV / bug) * 100.0 FINSI
    
    
    
    ezF	:=	debit {68}
    
    SI bug <> 0 ALORS ezK	:=	( ezF / bug) * 100.0 FINSI
    
    eyv	:=	debit {68}[N_1]
    
    SI bug <> 0 ALORS ezA	:=	( eyv / bug) * 100.0 FINSI
    
    ezP	:=	ezF
    	-	eyv
    
    SI bug <> 0 ALORS ezZ	:=	( ezP / bug) * 100.0 FINSI
    
    
    ezt	:=	debit {681}
    
    SI bug <> 0 ALORS ezw	:=	( ezt / bug) * 100.0 FINSI
    
    ezo	:=	debit {681}[N_1] 
    
    SI bug <> 0 ALORS ezr	:=	( ezo / bug) * 100.0 FINSI
    
    ezy	:=	ezt
    	-	ezo
    
    SI bug <> 0 ALORS fAC	:=	( ezy / bug) * 100.0 FINSI
    
    fDW	:=	debit {687}
    
    SI bug <> 0 ALORS fDb	:=	( fDW / bug) * 100.0 FINSI
    
    fDM	:=	debit {687}[N_1]
    
    SI bug <> 0 ALORS fDR	:=	( fDM / bug) * 100.0 FINSI
    
    fDg	:=	fDW
    	-	fDM
    
    SI bug <> 0 ALORS fDq	:=	( fDg / bug) * 100.0 FINSI
###
'CALCUL_Ratios' 'Fonctions'
    SI RN ALORS
    	CALCUL_Ratios_RN {}
    SINON
    	CALCUL_Ratios_RS {}
    FINSI
###
'CALCUL_Ratios_RN' 'Fonctions'

    |
        monEtat <Objet>
    |

    monEtat ::= 'EtatComptable'
    monEtat :=  getEtat{'IR_RN', 2025}

    -----------RATIO 1 ROTATION DES STOCKS-------------------
    
    SI monEtat <> ? ALORS
	    StN	:=	monnaie{chaineValeur{monEtat, 'BM2'}} + monnaie{chaineValeur{monEtat, 'BU2'}}
    
    	StN_1	:=	monnaie{chaineValeur{monEtat, 'BM3'}} + monnaie{chaineValeur{monEtat, 'BU3'}}
  	FIN SI
    
    StN_2	:=	debit {31}[N_2] - credit {391}[N_2]
    		+	debit {32}[N_2] - credit {392}[N_2]
    		+	debit {37}[N_2] - credit {397}[N_2]
    
    SI monEtat <> ? ALORS
	    AVS		:=	monnaie{chaineValeur{monEtat, 'FS1'}} + monnaie{chaineValeur{monEtat, 'FT1'}} + monnaie{chaineValeur{monEtat, 'FU1'}} + monnaie{chaineValeur{monEtat, 'FV1'}}
    
    	avs2		:=	monnaie{chaineValeur{monEtat, 'FS2'}} + monnaie{chaineValeur{monEtat, 'FT2'}} + monnaie{chaineValeur{monEtat, 'FU2'}} + monnaie{chaineValeur{monEtat, 'FV2'}}
    FIN SI
    
    SI AVS <> 0 ALORS 
    ros		:=	(StN + StN_1) / 2.0 * 30.0 * moisN / AVS FINSI
    
    SI ros2 = ? ALORS
    SI avs2 <> 0 ALORS 
    	ros2		:=	(StN_1 + StN_2) / 2.0 * 30.0 * moisN_1 / avs2 FINSI
    FINSI
    
    -----------RATIO 2 CREDIT CONSENTI AUX CLIENTS-------------------
    
    SI monEtat <> ? ALORS
	    ccr		:=	monnaie{chaineValeur{monEtat, 'BX'}} + monnaie{chaineValeur{monEtat, 'YS1'}}
	    
	    ccr2		:=	monnaie{chaineValeur{monEtat, 'BY3'}} + monnaie{chaineValeur{monEtat, 'YS2'}}
	FIN SI
	ccr2 += credit {491}
	    
    SI monEtat <> ? ALORS
	    vttc		:=	monnaie{chaineValeur{monEtat, 'FL1'}} + monnaie{chaineValeur{monEtat, 'YY1'}}
	    
	    vttc2	:=	monnaie{chaineValeur{monEtat, 'FL2'}} + monnaie{chaineValeur{monEtat, 'YY2'}}
	FIN SI

    SI vttc <> 0 ALORS ccc		:=	ccr * 30  * moisN / vttc FINSI
    
    SI ccc2 = ? ALORS
    SI vttc2 <> 0 ALORS	ccc2		:=	ccr2 * 30 * moisN_1 / vttc2 FINSI
    FINSI
    
    -----------RATIO 3 CREDIT CONSENTI AUX FOURNISSEURS-------------------
    
    SI monEtat <> ? ALORS
	    dbv		:=	monnaie{chaineValeur{monEtat, 'DX1'}}					-- FOURNISSEURS D'EXPLOITATION
	FIN SI
    
    SI monEtat <> ? ALORS
	    dbq		:=	monnaie{chaineValeur{monEtat, 'FS1'}} + monnaie{chaineValeur{monEtat, 'FU1'}} + monnaie{chaineValeur{monEtat, 'FW1'}} + monnaie{chaineValeur{monEtat, 'YZ1'}}
	FIN SI
    
    SI dbq <> 0 ALORS crf		:=	dbv * moisN * 30 / dbq FINSI
    SI crf2 = ? ALORS
	    SI monEtat <> ? ALORS
	    	SI (monnaie{chaineValeur{monEtat, 'FS2'}} + monnaie{chaineValeur{monEtat, 'FU2'}} + monnaie{chaineValeur{monEtat, 'FW2'}} + monnaie{chaineValeur{monEtat, 'YZ2'}}) <> 0 ALORS
    	 		crf2		:=	monnaie{chaineValeur{monEtat, 'DX2'}} * moisN_1 * 30/(monnaie{chaineValeur{monEtat, 'FS2'}} + monnaie{chaineValeur{monEtat, 'FU2'}} + monnaie{chaineValeur{monEtat, 'FW2'}} + monnaie{chaineValeur{monEtat, 'YZ2'}} )
	    	FINSI
	   	FIN SI
    FINSI
    
    -----------RATIO 4 SOLVABILITE A COURT TERME-------------------
    
    SI monEtat <> ? ALORS
	    dcK		:=	monnaie{chaineValeur{monEtat, 'CJ'}}			--ACTIF CIRCULANT
	    		-	monnaie{chaineValeur{monEtat, 'CK1'}}
	FIN SI
	dcK	-=	soldeDebit { 45 } 
	    				
    SI monEtat <> ? ALORS
	    dce		:=	monnaie{chaineValeur{monEtat, 'CH'}}
	FIN SI
	dce	+= 0.01		
	    
	    		
    SI monEtat <> ? ALORS
	    dcZ		:=	monnaie{chaineValeur{monEtat, 'BM2'}}			-- STOCKS	
	    		+	monnaie{chaineValeur{monEtat, 'BO2'}}				
	    		+	monnaie{chaineValeur{monEtat, 'BQ2'}}				
	    		+	monnaie{chaineValeur{monEtat, 'BS2'}}				
	    		+	monnaie{chaineValeur{monEtat, 'BU2'}}				
	    		
	    dett		:=	monnaie{chaineValeur{monEtat, 'EC1'}}			-- DETTES
	    		-	monnaie{chaineValeur{monEtat, 'EB1'}}
	FIN SI
	dett	+= 0.01

	dett -=	soldeCredit { 45 } 

    
    SI monEtat <> ? ALORS
	    pca		:=	monnaie{chaineValeur{monEtat, 'EB1'}}
	FIN SI
    pca += 0.01		-- PRODUITS CONSTATES D'AVANCE
    
    SI monEtat <> ? ALORS
	    det1		:=	monnaie{chaineValeur{monEtat, 'VZ3'}}
    		+	monnaie{chaineValeur{monEtat, 'VZ4'}} 
    FIN SI
    
    SI (dett + pca + det1 ) <> 0 ALORS sct		:=	( dcK - dcZ + dce ) / ( dett + pca - det1 ) FINSI
    SI sct2 = ? ALORS
	    SI monEtat <> ? ALORS
        	SI (monnaie{chaineValeur{monEtat, 'EC2'}})  - soldeCredit { 45 }[N_1] <> 0	ALORS
    			sct2	:=	(monnaie{chaineValeur{monEtat, 'CK3'}} - soldeDebit { 45 }	[N_1]		--ACTIF CIRCULANT
    				+	monnaie{chaineValeur{monEtat, 'CL3'}}
    				-	monnaie{chaineValeur{monEtat, 'BM3'}}			-- STOCKS	
    				-	monnaie{chaineValeur{monEtat, 'BO3'}}				
	    			-	monnaie{chaineValeur{monEtat, 'BQ3'}}				
    				-	monnaie{chaineValeur{monEtat, 'BS3'}}				
    				-	monnaie{chaineValeur{monEtat, 'BU3'}}				
    				)
    				/	(monnaie{chaineValeur{monEtat, 'EC2'}})  - soldeCredit { 45 }[N_1]
	    	FINSI
	    SINON
        	SI 0  - soldeCredit { 45 }[N_1] <> 0	ALORS
    			sct2	:=	0 - soldeDebit { 45 }	[N_1]		--ACTIF CIRCULANT
    				/	0  - soldeCredit { 45 }[N_1]
	    	FINSI
	    FIN SI
    FINSI
    
    -----------RATIO 5 AUTONOMIE FINANCIERE-------------------
    
    SI monEtat <> ? ALORS
   		cpp		:=	monnaie{chaineValeur{monEtat, 'DL1'}}
    FIN SI
    cpp += credit { 45 }

    SI monEtat <> ? ALORS
	    dco		:=	monnaie{chaineValeur{monEtat, 'EE1'}} - monnaie{chaineValeur{monEtat, 'DL1'}}
	FIN SI
	dco -= credit { 45 }
    
    SI dco <> 0 ALORS dct		:=	cpp / dco FINSI
    
    SI dcy = ? ALORS
    	SI monEtat <> ? ALORS
    		SI  (( monnaie{chaineValeur{monEtat, 'EE2'}} - monnaie{chaineValeur{monEtat, 'DL2'}} ) - credit { 45 }[N_1]) <> 0 ALORS
	    		dcy		:=	(monnaie{chaineValeur{monEtat, 'DL2'}} + credit { 45 }[N_1]) / ( ( monnaie{chaineValeur{monEtat, 'EE2'}} - monnaie{chaineValeur{monEtat, 'DL2'}} ) - credit { 45 }[N_1])
    		FINSI
    	SINON
    		SI  (0 - credit { 45 }[N_1]) <> 0 ALORS
	    		dcy		:=	 credit { 45 }[N_1] / ( 0 - credit { 45 }[N_1])
    		FINSI
    	FIN SI
    FINSI
###
'CALCUL_Ratios_RS' 'Fonctions'

    |
        monEtat <Objet>
    |

    monEtat ::= 'EtatComptable'
    monEtat :=  getEtat{'IR_RS', 2025}
    
    SI monEtat <> ? ALORS
	    StN		:=	monnaie{chaineValeur{monEtat, 'N11'}} + monnaie{chaineValeur{monEtat, 'N13'}}
	FIN SI
	StN := StN - ( debit {33} + debit {34} + debit {35}) 
    
    SI monEtat <> ? ALORS
	    StN_1	:=	monnaie{chaineValeur{monEtat, 'N12'}} + monnaie{chaineValeur{monEtat, 'N14'}}
	FIN SI
	StN_1 := StN_1 - ( debit {33}[N_1] + debit {34}[N_1] + debit {35}[N_1])
    
    StN_2	:=	debit {31}[N_2] - credit {391}[N_2]
    		+	debit {32}[N_2] - credit {392}[N_2]
    		+	debit {37}[N_2] - credit {397}[N_2]
    
    SI monEtat <> ? ALORS
	    AVS		:=	monnaie{chaineValeur{monEtat, '_234'}} + monnaie{chaineValeur{monEtat, '_236'}} + monnaie{chaineValeur{monEtat, '_238'}} + monnaie{chaineValeur{monEtat, '_240'}}
    
    	avs2		:=	monnaie{chaineValeur{monEtat, '_235'}} + monnaie{chaineValeur{monEtat, '_237'}} + monnaie{chaineValeur{monEtat, '_239'}} + monnaie{chaineValeur{monEtat, '_241'}}
   	FIN SI
    
    SI AVS <> 0 ALORS ros		:=	(StN + StN_1) / 2.0 * 30.0 * moisN / AVS FINSI
    
    SI ros2 = ? ALORS
    	SI avs2 <> 0 ALORS	ros2		:=	(StN_1 + StN_2) / 2.0 * 30.0 * moisN_1 / avs2 FINSI
    FINSI
    
    SI monEtat <> ? ALORS
	    ccr		:=	monnaie{chaineValeur{monEtat, '_068'}}
	FIN SI
	ccr += debit {5113} + debit {5114}
    
    SI monEtat <> ? ALORS
	    ccr2		:=	monnaie{chaineValeur{monEtat, 'N18'}}
	FIN SI
	ccr2 += credit {491} + debit {5113}[N_1]  + debit {5114}[N_1] 
    
    SI monEtat <> ? ALORS
	    vttc		:=	monnaie{chaineValeur{monEtat, '_210'}} + monnaie{chaineValeur{monEtat, '_214'}} + monnaie{chaineValeur{monEtat, '_218'}} + monnaie{chaineValeur{monEtat, '_374'}}
    
    	vttc2	:=	monnaie{chaineValeur{monEtat, '_211'}} + monnaie{chaineValeur{monEtat, '_216'}} + monnaie{chaineValeur{monEtat, '_219'}}
	FIN SI
	vttc2 += (masseCredit{4457}[N_1] - credit{4457}[N_2])-- TVA COLLECTEE N_1 CALCULEE PAR MASSE CREDIT, FAUTE DE RENSEIGNEMENT SUR LIASSE SIMPLIFIEE--
    
    SI vttc <> 0 ALORS ccc		:=	ccr * 30 * moisN / vttc FINSI
    
    SI ccc2 = ? ALORS
    	SI vttc2 <> 0 ALORS 	ccc2		:=	ccr2 * 30 * moisN_1 / vttc2 FINSI
    FINSI
    
    SI monEtat <> ? ALORS
	    dbv		:=	monnaie{chaineValeur{monEtat, '_166'}}
	FIN SI
	dbv -= credit{404}					-- FOURNISSEURS D'EXPLOITATION
    
    SI monEtat <> ? ALORS
	    dbq		:=	monnaie{chaineValeur{monEtat, '_234'}} + monnaie{chaineValeur{monEtat, '_238'}} + monnaie{chaineValeur{monEtat, '_242'}} + monnaie{chaineValeur{monEtat, '_378'}}
	FIN SI
    
    SI dbq <> 0 ALORS crf		:=	dbv * moisN * 30 / dbq FINSI
    
    SI crf2 = ? ALORS
    	SI monEtat <> ? ALORS
    		SI (monnaie{chaineValeur{monEtat, '_235'}} + monnaie{chaineValeur{monEtat, '_239'}} + monnaie{chaineValeur{monEtat, '_24A'}} + (masseDebit{44566}[N_1] - debit{44566}[N_2])) <> 0 ALORS
    			crf2		:=	(monnaie{chaineValeur{monEtat, '_167'}} - credit{404}[N_1]) * moisN_1 * 30
    				/(monnaie{chaineValeur{monEtat, '_235'}} + monnaie{chaineValeur{monEtat, '_239'}} + monnaie{chaineValeur{monEtat, '_24A'}} + (masseDebit{44566}[N_1] - debit{44566}[N_2]))
    		FINSI
    	SINON
    		SI (masseDebit{44566}[N_1] - debit{44566}[N_2]) <> 0 ALORS
    			crf2		:=	0 - credit{404}[N_1] * moisN_1 * 30
    				/(masseDebit{44566}[N_1] - debit{44566}[N_2])
    		FINSI
    	FIN SI
    -- TVA DEDUCTIBLE N_1 CALCULEE PAR MASSE DEBIT, FAUTE DE RENSEIGNEMENT SUR LIASSE SIMPLIFIEE--  
    FINSI
    SI monEtat <> ? ALORS
	    dcK		:=	monnaie{chaineValeur{monEtat, 'N29'}}			--ACTIF CIRCULANT
    			-	monnaie{chaineValeur{monEtat, 'N27'}}
    FIN SI
    dcK := dcK -	soldeDebit { 45 } +	 0.01
    				
    SI monEtat <> ? ALORS
	    dce		:=	monnaie{chaineValeur{monEtat, 'N27'}}			-- CHARGES CONSTATEES D'AVANCE
    		
    	dcZ		:=	monnaie{chaineValeur{monEtat, 'N11'}}			-- STOCKS	
    			+	monnaie{chaineValeur{monEtat, 'N13'}}	
    FIN SI
    dcZ	+=	 0.01	
    		
    SI monEtat <> ? ALORS
	    dett		:=	monnaie{chaineValeur{monEtat, '_176'}}			-- DETTES
    		-	monnaie{chaineValeur{monEtat, '_174'}}
    FIN SI
    dett	-=	soldeCredit { 45 }
    		
    
    SI monEtat <> ? ALORS
	    pca		:=	monnaie{chaineValeur{monEtat, '_174'}}	-- PRODUITS CONSTATES D'AVANCE
    
    	det1		:=	monnaie{chaineValeur{monEtat, '_195'}}
    FIN SI
    		
    
    SI ( dett + pca - det1) <> 0 ALORS  sct		:=	( dcK - dcZ + dce ) / ( dett + pca - det1 ) FINSI

    SI monEtat <> ? ALORS
	    SI (monnaie{chaineValeur{monEtat, '_176'}}) - soldeCredit { 45 }[N_1] <> 0 ALORS 
	    	SI sct2 = ? ALORS
		    	SI (monnaie{chaineValeur{monEtat, '_176'}}) - soldeCredit { 45 }[N_1] <> 0	ALORS
		    		sct2	:=	(monnaie{chaineValeur{monEtat, 'N30'}}			-- ACTIF CIRCULANT
		    			-	monnaie{chaineValeur{monEtat, 'N12'}}				-- STOCKS	
		    			-	monnaie{chaineValeur{monEtat, 'N14'}}				
		    			-	soldeDebit { 45 }[N_1]
		    			)
		    			/	(monnaie{chaineValeur{monEtat, '_176'}}) - soldeCredit { 45 }[N_1] 
		    	FINSI
		    FINSI
	    FINSI
	SINON
	    SI 0 - soldeCredit { 45 }[N_1] <> 0 ALORS 
	    	SI sct2 = ? ALORS
		    	SI 0 - soldeCredit { 45 }[N_1] <> 0	ALORS
		    		sct2	:=	0	-	soldeDebit { 45 }[N_1]
		    			/	0 - soldeCredit { 45 }[N_1] 
		    	FINSI
		    FINSI
	    FINSI
	FIN SI

    SI monEtat <> ? ALORS
	    cpp		:=	monnaie{chaineValeur{monEtat, '_142'}}
	FIN SI
	cpp  += credit { 45 }

    SI monEtat <> ? ALORS
	    dco		:=	monnaie{chaineValeur{monEtat, '_180'}} - monnaie{chaineValeur{monEtat, '_142'}}
	FIN SI
	dco -= credit { 45 }
    
    SI dco <> 0 ALORS dct		:=	cpp / dco FINSI
    SI dcy = ? ALORS
    	SI monEtat <> ? ALORS
	    	SI (( monnaie{chaineValeur{monEtat, '_181'}} - monnaie{chaineValeur{monEtat, '_143'}} ) - credit { 45}[N_1]) <> 0 ALORS 
	    		dcy		:=	(monnaie{chaineValeur{monEtat, '_143'}} + credit { 45 }[N_1]) / (( monnaie{chaineValeur{monEtat, '_181'}} - monnaie{chaineValeur{monEtat, '_143'}} ) - credit { 45}[N_1])
	    	FINSI
	   	SINON
	    	SI (0 - credit { 45}[N_1]) <> 0 ALORS 
	    		dcy		:=	credit { 45 }[N_1] / (0 - credit { 45}[N_1])
	    	FINSI
	   	FIN SI
    FINSI
###
'CALCUL_TF' 'Fonctions'
    SI RN ALORS	
    	CALCUL_TF_RN {}
    SINON	
    	CALCUL_TF_RS {}
    FINSI
###
'CALCUL_TF_RN' 'Fonctions'
    
    |
        monEtat <Objet>
    |

    monEtat ::= 'EtatComptable'
    monEtat :=  getEtat{'IR_RN', 2025}

    SI monEtat <> ? ALORS
	    bfq	:=	monnaie{chaineValeur{monEtat, 'DI1'}}
	FIN SI
	bfq += debit{644}

    SI monEtat <> ? ALORS
	    bfl	:=	monnaie{chaineValeur{monEtat, 'DI2'}}
	FIN SI
	bfl += debit{644}[N_1]
    
    SI monEtat <> ? ALORS
	    bgP	:=	monnaie{chaineValeur{monEtat, 'GA1'}} + monnaie{chaineValeur{monEtat, 'GB1'}} + monnaie{chaineValeur{monEtat, 'GC1'}} + monnaie{chaineValeur{monEtat, 'GD1'}} + monnaie{chaineValeur{monEtat, 'GQ1'}} + monnaie{chaineValeur{monEtat, 'HG1'}}
	    
	    bgK	:=	monnaie{chaineValeur{monEtat, 'GA2'}} + monnaie{chaineValeur{monEtat, 'GB2'}} + monnaie{chaineValeur{monEtat, 'GC2'}} + monnaie{chaineValeur{monEtat, 'GD2'}} + monnaie{chaineValeur{monEtat, 'GQ2'}} + monnaie{chaineValeur{monEtat, 'HG2'}}
    
	    bgj	:=	monnaie{chaineValeur{monEtat, 'FP1'}} + monnaie{chaineValeur{monEtat, 'GM1'}}+ monnaie{chaineValeur{monEtat, 'HC1'}}
	FIN SI
	bgj -= credit {79}
    
    SI monEtat <> ? ALORS
	    bge	:=	monnaie{chaineValeur{monEtat, 'FP2'}} + monnaie{chaineValeur{monEtat, 'GM2'}}+ monnaie{chaineValeur{monEtat, 'HC2'}}
	FIN SI
	bge -= credit {79}[N_1]
    
    bhI	:=	credit {777}
    
    bhD	:=	 credit {777}[N_1]
    
    SI monEtat <> ? ALORS
	    bhh	:=	monnaie{chaineValeur{monEtat, 'HF1'}} - monnaie{chaineValeur{monEtat, 'HB1'}}
	FIN SI
	bhh := bhh - debit{678} - (  debit{778} + debit{777})		 -- Le HB1 = 775+777+778, les autres sont à 0
    
    SI monEtat <> ? ALORS
	    bhc	:=	monnaie{chaineValeur{monEtat, 'HF2'}} - monnaie{chaineValeur{monEtat, 'HB2'}}
	FIN SI
	bhc := bhc - debit{678}[N_1] - ( debit{778}[N_1]+ debit{777}[N_1])	-- c'est le même calcul qu'au dessus (bhh)
    
    biB	:=	bfq + bgP - bgj - bhI + bhh
    
    bhw	:=	bfl + bgK -  bge - bhD + bhc
    
    SI biV = ? ALORS
    	biV	:=	masseDebit {108} - soldeDebit {108}[N_1] ---RETRAITS EXPLOITANT N A SAISIR---
    	+ 	masseDebit {45} - soldeDebit {45} [N_1]
    	- 	(masseDebit {457}- soldeDebit {457} [N_1])
    	+	debit { 644 }
    	-	soldeDebit {12}  [N_1]
    	-	soldeDebit {88}  [N_1]
    FINSI
    
    SI biQ = ? ALORS 
    biQ	:=	masseDebit {108} [N_1]  - soldeDebit {108} [N_2] ---RETRAITS EXPLOITANT N - 1 A SAISIR---
    	+ 	masseDebit {45} [N_1]  - soldeDebit {45} [N_2]
    	- 	(masseDebit {457}[N_1]   - soldeDebit {457} [N_2])
    	+	debit { 644 } [N_1] 
    	-	soldeDebit {12}  [N_2]
    	-	soldeDebit {88}  [N_2]
    FINSI
    
    biu	:=	biB - biV
    
    bip	:=	bhw - biQ
    
    SI bjT = ? ALORS
	    SI monEtat <> ? ALORS
    		bjT	:=	monnaie{chaineValeur{monEtat, 'NJ'}}
    	FIN SI
    	bjT += credit {775 }
   	FINSI
    SI bjO = ? ALORS
    	bjO	:=	masseCredit {26 }[N_1] -soldeCredit {26 }[N_2]
    		+	masseCredit {27 }[N_1] -soldeCredit {27 }[N_2]
    		+	credit {775 } [N_1]		
    FINSI
    SI bjs = ? ALORS
    	SI debit {108} <> 0 ALORS
    message {'101   : ' + (masseCredit { 101 } - soldeCredit { 101 } [N_1])}
    message {'108   : ' + (masseCredit { 108 } - soldeCredit { 108 } [N_1])}
    message {'12     : ' + masseCredit {12}  }
    message {'88     : ' +  masseCredit {88}  } 
    	bjs	:=	masseCredit { 101 } - soldeCredit { 101 } [N_1]
    		+	masseCredit { 108 } - soldeCredit { 108 } [N_1]
    --		-	masseCredit {12}  
    		-	masseCredit {88}  
    	FINSI
    FINSI
    SI bjn = ? ALORS
    	SI debit {108}  [N_1] <> 0 ALORS
    	bjn	:=	masseCredit { 101 }  [N_1] - soldeCredit { 101 } [N_2]
    		+	masseCredit { 108 }  [N_1] - soldeCredit { 108 } [N_2]
    --		-	masseCredit {12}  [N_1]
    		-	masseCredit {88}  [N_1]
    	FINSI
    FINSI
    SI bkR = ? ALORS
	    SI monEtat <> ? ALORS
    		bkR	:=	monnaie{chaineValeur{monEtat, 'VJ1'}}
    	FIN SI
   	FINSI
    SI bkM = ? ALORS
    	bkM	:=	masseCredit { 16 }  [N_1] - soldeCredit { 16 }[N_2]
    		+	masseCredit { 17 }  [N_1] - soldeCredit { 17 }[N_2]
    FINSI
    SI bkl = ? ALORS
    	bkl	:=	masseCredit { 13 }  - soldeCredit { 13 }[N_1]
    FINSI
    SI bkg = ? ALORS
    	bkg	:=	masseCredit { 13 }[N_1]  - soldeCredit { 13 }[N_2]
    FINSI
    
    blF	:=	 biu + bjT + bjs + bkR + bkl
    blA	:=	 bip + bjO + bjn + bkM + bkg
    
    --------------------EMPLOIS------------
    
    SI bnV = ? ALORS
    	bnV	:=	masseDebit {457 } - soldeDebit { 457 }[N_1]
    FINSI
    
    SI bnQ = ? ALORS
    	bnQ	:=	masseDebit {457 }[N_1] - soldeDebit { 457 }[N_2]
    FINSI
    
    SI blo = ? ET monEtat <> ? ALORS
    	blo	:=	monnaie{chaineValeur{monEtat, 'OJ'}}
  	FINSI
    
    SI blj = ? ALORS
    	blj	:=	masseDebit { 2 } [N_1]  - soldeDebit {2 } [N_2]
    		-	(masseDebit { 28 } [N_1]  - soldeDebit {28 } [N_2])
    		-	(masseDebit { 29 } [N_1]  - soldeDebit {29 } [N_2])
    FINSI
    
    
    SI bnu = ? ET monEtat <> ? ALORS bnu	:=	monnaie{chaineValeur{monEtat, 'SM2'}}		FINSI
    SI bnp = ? ALORS
    	bnp	:=	masseDebit { 481 } [N_1]  - soldeDebit {481 } [N_2]
    FINSI
    
    SI boi = ? ALORS 
    	boi	:=	masseDebit { 101 }  - soldeDebit { 101 }[N_1]
    FINSI
    
    SI bod = ? ALORS
    	bod	:=	masseDebit { 101 }[N_1]  - soldeDebit { 101 }[N_2]	
    FINSI
    
    SI boT = ? ET monEtat <> ? ALORS		boT	:=	monnaie{chaineValeur{monEtat, 'VK1'}} FINSI
    SI boO = ? ALORS
    	boO	:=	masseDebit { 16 }  [N_1] - soldeDebit { 16 }[N_2]
    		+	masseDebit { 17 }  [N_1] - soldeDebit { 17 }[N_2]
    FINSI
    bpH	:=	bnV + blo + bnu + boi + boT
    bpC	:=	bnQ + blj + bnp + bod + boO
    bpb	:=	blF - bpH
    bpW	:=	blA - bpC
    
    ----------------VARIATION DE TRÉSORERIE--------------
    
    SI monEtat <> ? ALORS
	    bqF	:=	monnaie{chaineValeur{monEtat, 'BM3'}} + monnaie{chaineValeur{monEtat, 'BO3'}} + monnaie{chaineValeur{monEtat, 'BQ3'}} + monnaie{chaineValeur{monEtat, 'BS3'}} + monnaie{chaineValeur{monEtat, 'BU3'}}
	FIN SI
	bqF += credit  { 39 }[N_1]

    SI monEtat <> ? ALORS
	    bqK	:=	monnaie{chaineValeur{monEtat, 'BL'}} + monnaie{chaineValeur{monEtat, 'BN'}} + monnaie{chaineValeur{monEtat, 'BP'}} + monnaie{chaineValeur{monEtat, 'BR'}} + monnaie{chaineValeur{monEtat, 'BT'}} 
	FIN SI
    
    bqP	:=	bqF - bqK
    
    SI bqU = ? ALORS
    	bqU	:=	debit {3 } [N_2] + credit {39 }  [N_2]
    		-	(debit {3 } [N_1] +  credit {39 }  [N_1])
    FINSI
    
    SI monEtat <> ? ALORS
	    bqe	:=	monnaie{chaineValeur{monEtat, 'BY3'}}
	FIN SI
	bqe += credit  { 49 }[N_1]

    SI monEtat <> ? ALORS
	    bqj	:=	monnaie{chaineValeur{monEtat, 'BX'}}
	FIN SI
    
    bqo	:=	bqe - bqj
    
    SI bqt = ? ALORS
    	bqt	:=	soldeDebit { 41 }  [N_2] - credit { 419 } [N_2]
    		-	(soldeDebit {41 } [N_1] - credit { 419 }  [N_1])
    FINSI
    
    SI monEtat <> ? ALORS
	    brD	:=	monnaie{chaineValeur{monEtat, 'BW3'}} + monnaie{chaineValeur{monEtat, 'CA3'}} + monnaie{chaineValeur{monEtat, 'CC3'}} + monnaie{chaineValeur{monEtat, 'CI3'}}
	FIN SI
	brD -= soldeDebit { 45 } [N_1] 

    SI monEtat <> ? ALORS
    	brI	:=	monnaie{chaineValeur{monEtat, 'BV'}} + monnaie{chaineValeur{monEtat, 'BZ'}} + monnaie{chaineValeur{monEtat, 'CB'}} + monnaie{chaineValeur{monEtat, 'CH'}}
  	FIN SI
  	brI -= soldeDebit { 45 }

    brN	:=	brD - brI
    SI brS = ? ALORS
    	brS	:=	soldeDebit {40} [N_2] + soldeDebit { 42 } [N_2] + soldeDebit { 43 } [N_2]
    		+	soldeDebit { 44 } [N_2]+ soldeDebit { 46 } [N_2]+ soldeDebit { 47 } [N_2]
    		+	soldeDebit { 48 } [N_2] - soldeDebit { 481 } [N_2]
    		-(	soldeDebit {40 } [N_1]   + soldeDebit { 42 } [N_1] + soldeDebit { 43 } [N_1]
    		+	soldeDebit { 44 } [N_1]+ soldeDebit { 46 } [N_1]+ soldeDebit { 47 } [N_1]
    		+	soldeDebit { 48 } [N_1] - soldeDebit { 481 } [N_1])
    FINSI
    SI monEtat <> ? ALORS
	    brX	:=	monnaie{chaineValeur{monEtat, 'DX2'}}
	    brc	:=	monnaie{chaineValeur{monEtat, 'DX1'}}
	FIN SI
    brr	:=	brc - brX
    SI bsB = ? ALORS
    	bsB	:=	soldeCredit {40} [N_1] - soldeCredit {404}  [N_1] - soldeCredit {405}  [N_1]  
    		-(	soldeCredit {40} [N_2] - soldeCredit {404}  [N_2] - soldeCredit {405}  [N_2] )---AJO
    FINSI
    SI monEtat <> ? ALORS
	    brh	:=	monnaie{chaineValeur{monEtat, 'DZ2'}}
	    brm	:=	monnaie{chaineValeur{monEtat, 'DZ1'}}
	FIN SI
    brw	:=	brm - brh
    SI bsG  = ? ALORS
    	bsG	:=	soldeCredit {404}  [N_1] + soldeCredit {405}  [N_1] 
    		-(	soldeCredit {404}  [N_2] + soldeCredit {405}  [N_2] )---AJO
    FINSI
    SI monEtat <> ? ALORS
	    bsQ	:=	monnaie{chaineValeur{monEtat, 'DW2'}} + monnaie{chaineValeur{monEtat, 'DY2'}} + monnaie{chaineValeur{monEtat, 'EA2'}} + monnaie{chaineValeur{monEtat, 'EB2'}}
	FIN SI
    bsQ +=	credit {518 } [N_1] + credit {1688 } [N_1]
    
    SI monEtat <> ? ALORS
	    bsV	:=	monnaie{chaineValeur{monEtat, 'DW1'}} + monnaie{chaineValeur{monEtat, 'DY1'}} + monnaie{chaineValeur{monEtat, 'EA1'}} + monnaie{chaineValeur{monEtat, 'EB1'}} 
	FIN SI
    bsV	+=	credit {518 } + credit {1688 }
    
    bsa	:=	bsV - bsQ
    SI bsf = ? ALORS
    	bsf	:=	credit { 419 }  [N_1] + soldeCredit { 42 } [N_1] + soldeCredit { 43 } [N_1]
    		+	soldeCredit { 44 } [N_1]+ soldeCredit { 46 } [N_1]+ soldeCredit { 47 } [N_1]
    		+	soldeCredit { 48 } [N_1] 
    		+	credit {518 } [N_1] + credit {1688 } [N_1]
    
    		-(	credit { 419 }  [N_2] + soldeCredit { 42 } [N_2] + soldeCredit { 43 } [N_2]
    		+	soldeCredit { 44 } [N_2]+ soldeCredit { 46 } [N_2]+ soldeCredit { 47 } [N_2]
    		+	soldeCredit { 48 } [N_2]  
    		+	credit {518 } [N_2] + credit {1688 } [N_2])
    FINSI
    
    bsk	:=	bqF + bqe + brD - brX - brh -bsQ
    bsp	:=	bqK + bqj + brI - brc - brm -bsV
    bsu	:=	bqP + bqo + brN + brr + brw + bsa
    bsz	:=	bqU + bqt + brS + bsB + bsG + bsf
    
    btD	:=	bpb
    
    btC	:=	bpW
    
    btE	:=	debit { 5 } [N_1]
    	-	debit {518 } [N_1]
    	-	debit {59 } [N_1]
    
    btJ	:=	debit { 5 }
    	-	debit {518 }
    	-	debit {59 }
    
    btT	:=	btE - btJ
    
    SI btY = ? ALORS
    btY	:=	soldeDebit { 5 } [N_2 ]
    	- (	soldeCredit { 512 } [N_2 ]
    	+	soldeCredit { 514 } [N_2 ]
    	+	soldeCredit { 515 } [N_2 ]
    	+	soldeCredit { 516 } [N_2 ]
    	+	soldeCredit { 517 } [N_2 ]
    	+	soldeCredit { 519 } [N_2 ])
    	- (	soldeDebit { 5 } [N_1]
    	- (	soldeCredit { 512 } [N_1]
    	+	soldeCredit { 514 } [N_1]
    	+	soldeCredit { 515 } [N_1]
    	+	soldeCredit { 516 } [N_1]
    	+	soldeCredit { 517 } [N_1]
    	+	soldeCredit { 519 } [N_1]))
    	
    FINSI
    
    ECART := bsu + btD + btT
    ERR := 'LE TOTAL DES VARIATIONS DE L''EXERCICE : BESOIN OU RESSOURCE FR + FR NET GLOBAL + TRÉSORERIE N''EST PAS EGAL À 0' MSG{}
    
    ECART := bsz + btC + btY
    ERR := 'LE TOTAL DES VARIATIONS DE L''EXERCICE PRÉCÉDENT : BESOIN OU RESSOURCE FR + FR NET GLOBAL + TRÉSORERIE N''EST PAS EGAL À 0' MSG{}
    
    EcartN	:=	bsu + btD + btT	
    SI EcartN <> 0 f ALORS
    info {'Le tableau de financement sur N n''est pas équilbré.
L''écart entre le fonds de roulement et son utilisation
est de :   ' + EcartN}
    FINSI
    
    EcartN_1 :=	bsz + btC + btY	
    SI EcartN_1 <> 0 f ALORS
    info {'Le tableau de financement sur N-1 n''est pas équilbré.
L''écart entre le fonds de roulement et son utilisation
est de :   ' + EcartN_1}
    FINSI
###
'CALCUL_TF_RS' 'Fonctions'
    
    |
        monEtat <Objet>
    |

    monEtat ::= 'EtatComptable'
    monEtat :=  getEtat{'IR_RS', 2025}

    ----------------------RESSOURCES---------------------------------
    SI monEtat <> ? ALORS
	    bfq	:=	monnaie{chaineValeur{monEtat, '_136'}}
	FIN SI
	bfq += debit{644}

    SI monEtat <> ? ALORS
	    bfl	:=	monnaie{chaineValeur{monEtat, '_137'}}
	FIN SI
	bfl += debit{644}[N_1]
    
    
    SI monEtat <> ? ALORS
	    bgP	:=	monnaie{chaineValeur{monEtat, '_254'}} + monnaie{chaineValeur{monEtat, '_256'}}
	FIN SI
	bgP += debit{686} + debit{687}
    
    SI monEtat <> ? ALORS
	    bgK	:=	monnaie{chaineValeur{monEtat, '_255'}} + monnaie{chaineValeur{monEtat, '_257'}}
	FIN SI
	bgK += debit{686}[N_1] + debit{687}[N_1]
    
    bgj	:=	credit {78} 
    
    bge	:=	credit {78}[N_1]
    
    bhI	:=	credit {777}
    
    bhD	:=	 credit {777}[N_1]
    
    bhh	:=	debit{675} - credit { 775 }
    
    bhc	:=	debit{675}[N_1] - credit { 775 }[N_1]
    
    biB	:=	bfq + bgP - bgj - bhI + bhh
    
    bhw	:=	bfl + bgK -  bge - bhD + bhc
    
    SI biV = ? ALORS
    	biV	:=	masseDebit {108} - soldeDebit {108}[N_1] ---RETRAITS EXPLOITANT N A SAISIR---
    	+ 	masseDebit {45} - soldeDebit {45} [N_1]
    	- 	(masseDebit {457}- soldeDebit {457} [N_1])
    	+	debit { 644 }
    	-	soldeDebit {12}  [N_1]
    	-	soldeDebit {88}  [N_1]
    FINSI
    
    SI biQ = ? ALORS 
    biQ	:=	masseDebit {108} [N_1]  - soldeDebit {108} [N_2] ---RETRAITS EXPLOITANT N - 1 A SAISIR---
    	+ 	masseDebit {45} [N_1]  - soldeDebit {45} [N_2]
    	- 	(masseDebit {457}[N_1]   - soldeDebit {457} [N_2])
    	+	debit { 644 } [N_1] 
    	-	soldeDebit {12}  [N_2]
    	-	soldeDebit {88}  [N_2]
    FINSI
    
    biu	:=	biB - biV
    
    bip	:=	bhw - biQ
    -----a reprendre sl/tg--------------
    SI bjT = ? ALORS		
    	bjT	:=	masseCredit {26 } -soldeCredit {26 }[N_1]
    		+	masseCredit {27 } -soldeCredit {27 }[N_1]
    		+	credit {775 }	
    FINSI
    
    SI bjO = ? ALORS
    	bjO	:=	masseCredit {26 }[N_1] -soldeCredit {26 }[N_2]
    		+	masseCredit {27 }[N_1] -soldeCredit {27 }[N_2]
    		+	credit {775 } [N_1]		
    FINSI
    SI bjs = ? ALORS
    	SI debit {108} <> 0 ALORS
    message {'101   : ' + (masseCredit { 101 } - soldeCredit { 101 } [N_1])}
    message {'108   : ' + (masseCredit { 108 } - soldeCredit { 108 } [N_1])}
    message {'12     : ' + masseCredit {12}  }
    message {'88     : ' +  masseCredit {88}  } 
    	bjs	:=	masseCredit { 101 } - soldeCredit { 101 } [N_1]
    		+	masseCredit { 108 } - soldeCredit { 108 } [N_1]
    --		-	masseCredit {12}  
    		-	masseCredit {88}  
    	FINSI
    FINSI
    SI bjn = ? ALORS
    	SI debit {108}  [N_1] <> 0 ALORS
    	bjn	:=	masseCredit { 101 }  [N_1] - soldeCredit { 101 } [N_2]
    		+	masseCredit { 108 }  [N_1] - soldeCredit { 108 } [N_2]
    --		-	masseCredit {12}  [N_1]
    		-	masseCredit {88}  [N_1]
    	FINSI
    FINSI
    SI bkR = ? ALORS		
    	bkR	:=	masseCredit { 16 } - soldeCredit { 16 }[N_1]
    		+	masseCredit { 17 } - soldeCredit { 17 }[N_1]
    FINSI
    
    SI bkM = ? ALORS
    	bkM	:=	masseCredit { 16 }  [N_1] - soldeCredit { 16 }[N_2]
    		+	masseCredit { 17 }  [N_1] - soldeCredit { 17 }[N_2]
    FINSI
    SI bkl = ? ALORS
    	bkl	:=	masseCredit { 13 }  - soldeCredit { 13 }[N_1]
    FINSI
    SI bkg = ? ALORS
    	bkg	:=	masseCredit { 13 }[N_1]  - soldeCredit { 13 }[N_2]
    FINSI
    
    blF	:=	biu + bjT + bjs + bkR + bkl
    blA	:=	bip + bjO + bjn + bkM + bkg
    
    --------------------EMPLOIS------------
    
    SI bnV = ? ALORS
    	bnV	:=	masseDebit {457 } - soldeDebit { 457 }[N_1]
    FINSI
    
    SI bnQ = ? ALORS
    	bnQ	:=	masseDebit {457 }[N_1] - soldeDebit { 457 }[N_2]
    FINSI
    
    SI blo = ? ET monEtat <> ? ALORS		
    	blo	:=	monnaie{chaineValeur{monEtat, '_182'}}	FINSI
    
    SI blj = ? ALORS
    	blj	:=	masseDebit { 2 } [N_1]  - soldeDebit {2 } [N_2]
    		-	(masseDebit { 28 } [N_1]  - soldeDebit {28 } [N_2])
    		-	(masseDebit { 29 } [N_1]  - soldeDebit {29 } [N_2])
    FINSI
    
    
    SI bnu = ? ALORS	bnu	:=	masseDebit { 481 }  - soldeDebit { 481 } [N_1]	FINSI
    SI bnp = ? ALORS	bnp	:=	masseDebit { 481 } [N_1]  - soldeDebit {481 } [N_2]	FINSI
    
    SI boi = ? ALORS 
    	boi	:=	masseDebit { 101 }  - soldeDebit { 101 }[N_1]
    FINSI
    
    SI bod = ? ALORS
    	bod	:=	masseDebit { 101 }[N_1]  - soldeDebit { 101 }[N_2]	
    FINSI
    
    SI boT = ? ALORS
    	boT	:=	masseDebit { 16 } - soldeDebit { 16 }[N_1]
    		+	masseDebit { 17 } - soldeDebit { 17 }[N_1]
    FINSI
    
    SI boO = ? ALORS
    	boO	:=	masseDebit { 16 }  [N_1] - soldeDebit { 16 }[N_2]
    		+	masseDebit { 17 }  [N_1] - soldeDebit { 17 }[N_2]
    FINSI
    bpH	:=	bnV + blo + bnu + boi + boT
    bpC	:=	bnQ + blj + bnp + bod + boO
    bpb	:=	blF - bpH
    bpW	:=	blA - bpC
    
    ----------------VARIATION DE TRÉSORERIE--------------
    
    SI monEtat <> ? ALORS
	    bqF	:=	monnaie{chaineValeur{monEtat, 'N12'}} + monnaie{chaineValeur{monEtat, 'N14'}}
	FIN SI
	bqF += credit  { 39 }[N_1]

    SI monEtat <> ? ALORS
	    bqK	:=	monnaie{chaineValeur{monEtat, '_050'}} + monnaie{chaineValeur{monEtat, '_060'}} 
	FIN SI
    
    bqP	:=	bqF - bqK
    
    SI bqU = ? ALORS
    	bqU	:=	debit {3 } [N_2] + credit {39 }  [N_2]
    		-	(debit {3 } [N_1] + credit {39 }  [N_1])
    FINSI
    
    SI monEtat <> ? ALORS
	    bqe	:=	monnaie{chaineValeur{monEtat, 'N18'}}
	FIN SI
	bqe += credit  { 49 }[N_1]

    SI monEtat <> ? ALORS
	    bqj	:=	monnaie{chaineValeur{monEtat, '_068'}}
	FIN SI
    
    bqo	:=	bqe - bqj
    
    SI bqt = ? ALORS
    	bqt	:=	soldeDebit { 41 }  [N_2] - credit { 419 } [N_2]
    		-	(soldeDebit {41 } [N_1] - credit { 419 }  [N_1])
    FINSI
    
    SI monEtat <> ? ALORS
	    brD	:=	monnaie{chaineValeur{monEtat, 'N16'}} + monnaie{chaineValeur{monEtat, 'N20'}} + monnaie{chaineValeur{monEtat, 'N28'}}
	FIN SI
	brD := brD - soldeDebit { 45 } [N_1] - debit { 481 } [N_1] 

    SI monEtat <> ? ALORS
	    brI	:=	monnaie{chaineValeur{monEtat, '_064'}} + monnaie{chaineValeur{monEtat, '_072'}} + monnaie{chaineValeur{monEtat, '_092'}}
	FIN SI
	brI := brI - soldeDebit { 45 } - debit { 481 }

    brN	:=	brD - brI
    SI brS = ? ALORS
    	brS	:=	soldeDebit {40 } [N_2] + soldeDebit { 42 } [N_2] + soldeDebit { 43 } [N_2]
    		+	soldeDebit { 44 } [N_2]+ soldeDebit { 46 } [N_2]+ soldeDebit { 47 } [N_2]
    		+	soldeDebit { 48 } [N_2] - soldeDebit { 481 } [N_2]
    		-(	soldeDebit {40 } [N_1]  + soldeDebit { 42 } [N_1] + soldeDebit { 43 } [N_1]
    		+	soldeDebit { 44 } [N_1]+ soldeDebit { 46 } [N_1]+ soldeDebit { 47 } [N_1]
    		+	soldeDebit { 48 } [N_1] - soldeDebit { 481 } [N_1])
    FINSI
    SI monEtat <> ? ALORS
	    brX	:=	monnaie{chaineValeur{monEtat, '_167'}}
	    brc	:=	monnaie{chaineValeur{monEtat, '_166'}}
	FIN SI
    brr	:=	brc - brX
    SI bsB = ? ALORS
    	bsB	:=	soldeCredit {40} [N_1] - soldeCredit {404}  [N_1] - soldeCredit {405}  [N_1] 
    		-(	soldeCredit {40} [N_2] - soldeCredit {404}  [N_2] - soldeCredit {405}  [N_2] )
    FINSI
    brh	:=	soldeCredit {404} [N_1] + soldeCredit {405}  [N_1]
    brm	:=	soldeCredit {404} + soldeCredit {405} 
    brw	:=	brm - brh
    SI bsG  = ? ALORS
    	bsG	:=	soldeCredit {404}  [N_1] + soldeCredit {405}  [N_1] 
    		-(	soldeCredit {404}  [N_2] + soldeCredit {405}  [N_2] )
    FINSI
    SI monEtat <> ? ALORS
	    bsQ	:=	monnaie{chaineValeur{monEtat, '_165'}} + monnaie{chaineValeur{monEtat, '_173'}} + monnaie{chaineValeur{monEtat, '_175'}}
	FIN SI
	bsQ 	+=	credit {518 } [N_1] + credit {1688 } [N_1] - soldeCredit {404} [N_1] 
    
    SI monEtat <> ? ALORS
	    bsV	:=	monnaie{chaineValeur{monEtat, '_164'}} + monnaie{chaineValeur{monEtat, '_172'}} + monnaie{chaineValeur{monEtat, '_174'}} 
	FIN SI
    bsV +=	credit {518 } + credit {1688 } - soldeCredit {404}
    
    bsa	:=	bsV - bsQ
    SI bsf = ? ALORS
    	bsf	:=	credit { 419 }  [N_1] + soldeCredit { 42 } [N_1] + soldeCredit { 43 } [N_1]
    		+	soldeCredit { 44 } [N_1]+ soldeCredit { 46 } [N_1]+ soldeCredit { 47 } [N_1]
    		+	soldeCredit { 48 } [N_1]  
    		+	credit {518 } [N_1] + credit {1688 } [N_1]
    
    		-(	credit { 419 }  [N_2] + soldeCredit { 42 } [N_2] + soldeCredit { 43 } [N_2]
    		+	soldeCredit { 44 } [N_2]+ soldeCredit { 46 } [N_2]+ soldeCredit { 47 } [N_2]
    		+	soldeCredit { 48 } [N_2] 
    		+	credit {518 } [N_2] + credit {1688 } [N_2])
    FINSI
    
    bsk	:=	bqF + bqe + brD - brX - brh -bsQ
    bsp	:=	bqK + bqj + brI - brc - brm -bsV
    bsu	:=	bqP + bqo + brN + brr + brw + bsa
    bsz	:=	bqU + bqt + brS + bsB + bsG + bsf
    
    
    btD	:=	bpb
    btC	:=	bpW
    
    btE	:=	debit { 5 } [N_1]
    	-	debit {518 } [N_1]
    	-	debit {59 } [N_1]
    
    btJ	:=	debit { 5 }
    	-	debit {518 }
    	-	debit {59 }
    
    btT	:=	btE - btJ
    	
    SI btY = ? ALORS
    btY	:=	soldeDebit { 5 } [N_2]
    	- (	soldeCredit { 512 } [N_2]
    	+	soldeCredit { 514 } [N_2]
    	+	soldeCredit { 515 } [N_2]
    	+	soldeCredit { 516 } [N_2]
    	+	soldeCredit { 517 } [N_2]
    	+	soldeCredit { 519 } [N_2])
    	- (	soldeDebit { 5 } [N_1]
    	- (	soldeCredit { 512 } [N_1]
    	+	soldeCredit { 514 } [N_1]
    	+	soldeCredit { 515 } [N_1]
    	+	soldeCredit { 516 } [N_1]
    	+	soldeCredit { 517 } [N_1]
    	+	soldeCredit { 519 } [N_1])
    	)
    FINSI
    
    ECART := bsu + btD + btT
    ERR := 'LE TOTAL DES VARIATIONS DE L''EXERCICE : BESOIN OU RESSOURCE FR + FR NET GLOBAL + TRÉSORERIE N''EST PAS EGAL À 0' MSG{}
    
    ECART := bsz + btC + btY
    ERR := 'LE TOTAL DES VARIATIONS DE L''EXERCICE PRÉCÉDENT : BESOIN OU RESSOURCE FR + FR NET GLOBAL + TRÉSORERIE N''EST PAS EGAL À 0' MSG{}
    
    EcartN	:=	bsu + btD + btT	
    SI EcartN <> 0 f ALORS
    info {'Le tableau de financement sur N n''est pas équilbré.
L''écart entre le fonds de roulement et son utilisation
est de :   ' + EcartN}
    FINSI
    
    EcartN_1 :=	bsz + btC + btY	
    SI EcartN_1 <> 0 f ALORS
    info {'Le tableau de financement sur N-1 n''est pas équilbré.
L''écart entre le fonds de roulement et son utilisation
est de :   ' + EcartN_1}
    FINSI
###
'CALCUL_VE' 'Fonctions'
    bmr	:=	blj
    bmw	:=	blo
    lCU	:=	lCA - lCK
    bik	:=	bhr - biL
    lDV	:=	 lCU + lCe + lCo + lCy + lDL
    bkv	:=	 bik + bjJ + bji + bkH + bkb
    
    lEg	:=	lDf + lDp + lDz +lEJ + lET
    box	:=	bnL + bmm + bnk + boY + boJ
    
    lFK	:=	0 - ( lEq + lFA )
    lFP	:=	0 - ( bpR + lFF )
###
'PAGE_Bilans_Comparés' 'Fonctions'
    impression{'compta/25/AnnexesMillesimes/ceda_bc'}
###
'PAGE_Charges_Page1' 'Fonctions'
    impression{'compta/25/AnnexesMillesimes/ceda_ca1'}
###
'PAGE_Charges_Page2' 'Fonctions'
    impression{'compta/25/AnnexesMillesimes/ceda_ca2'}
###
'PAGE_Charges_Page3' 'Fonctions'
    impression{'compta/25/AnnexesMillesimes/ceda_ca3'}
###
'PAGE_Charges_Page4' 'Fonctions'
    impression{'compta/25/AnnexesMillesimes/ceda_ca4'}
###
'PAGE_Commentaires' 'Fonctions'
    impression{'compta/25/AnnexesMillesimes/ceda_com'}
###
'PAGE_ComptesRésultats_Comparés' 'Fonctions'
    impression{'compta/25/AnnexesMillesimes/ceda_crc'}
###
'PAGE_Page_Garde' 'Fonctions'
    SI CedageDrome = VRAI ALORS
	    impression{'compta/25/AnnexesMillesimes/ceda_pg2'}
    SINON
    	impression{'compta/25/AnnexesMillesimes/ceda_pg'}
    FINSI
###
'PAGE_Ratios_Page1' 'Fonctions'
    impression{'compta/25/AnnexesMillesimes/ceda_ra1'}
###
'PAGE_Ratios_Page2' 'Fonctions'
    impression{'compta/25/AnnexesMillesimes/ceda_ra2'}
###
'PAGE_Tableau_Financement' 'Fonctions'
    impression{'compta/25/AnnexesMillesimes/ceda_tf'}
###
'PAGE_Vie_Economique' 'Fonctions'
    impression{'compta/25/AnnexesMillesimes/ceda_ve'}
###
'RAPPORT_FINAL' 'Fonctions'

    |
    	cptSub<Chaine>
    |
    
    
    SI IMP ALORS 
    	impression{'compta/liasse.pag', 'RAPPORT FINAL'}
    	SI NbrERR = 0 ALORS	impression{'compta/liasse.lig','AUCUNE ANOMALIE DETECTEE'} FINSI
    	SI NbrERR = 1 ALORS	impression{'compta/liasse.lig','UNE ANOMALIE DETECTEE'} FINSI
    	SI NbrERR > 1 ALORS	impression{'compta/liasse.lig',''+NbrERR +' ANOMALIES DETECTEES'} FINSI
    
    	cptSub	:=	listeComptesSubstitues{}
    	impression{'compta/liasse.lig','COMPTES SUBSTITUES : 
' + (cptSub)} 
    
    FINSI
###
'Ratios_Page1' 'Fonctions'
    CALCUL_Ratios {}
###
'Ratios_Page2' 'Fonctions'
    CALCUL_Ratios {}
###
'Tableau_Financement' 'Fonctions'
    CALCUL_TF{}
###
'Vie_Economique' 'Fonctions'
    CALCUL_VE {}
###
'cedageInit' 'Fonctions'
    
    |
        monEtat<Objet>
    |

    monEtat ::= 'EtatComptable'

    ok				:=	VRAI
    MessageErreur	:=	?
    
    RN				:=	VRAI
    monEtat :=  getEtat{'IR_RN', annee{aujourdhui{}}}

    SI monEtat.categorie = ? ALORS
        RN	:=	FAUX
        monEtat :=  getEtat{'IR_RS', annee{aujourdhui{}}}
        SI monEtat.categorie = ? ALORS
            ok := FAUX
        FINSI
    FINSI

    SI NON ok ALORS
    	info{'IL EST NECESSAIRE D''AVOIR UNE LIASSE FISCALE IR/RN OU IR/RS PREALABLEMENT REMPLIE AU '+finExercice{0}}
    	SORTIR FAUX
    SINON
    SI NON monEtat.EstCalcule[periode.fin] ALORS
    	ok := FAUX
    	 info{'IL EST NECESSAIRE D''AVOIR UNE LIASSE FISCALE IR/RN OU IR/RS PREALABLEMENT CALCULEE AU '+finExercice{0}}
    	SORTIR FAUX
    FINSI
    SI monEtat.devise <> devise ALORS
    	ok := FAUX
    	 info{'IL EST NECESSAIRE D''AVOIR UNE LIASSE FISCALE IR/RN OU IR/RS PREALABLEMENT CALCULEE DANS LA MEME DEVISE'}
    	SORTIR FAUX
    FINSI
    
    SI RN ALORS
    	status {'UTILISATION DE LA LIASSE REELLE NORMALE'}
    SINON
    	status {'UTILISATION DE LA LIASSE REELLE SIMPLIFIEE'}
    FINSI
    
    afz		:=	dateDebut
    afu		:=	N_2 + 1
    agO		:=	N
    agJ		:=	N_1
    aau		:=	dossier.RaisonSociale
    akL		:=	dossier.CGA
    
    
    0A1	:=	dossier.RaisonSociale + '  ' +dossier.formeJuridique
    
    
    SI mois {finExercice {0}, debutExercice {0}} + 1 < 10 	
    	ALORS	0A2	:=	'0'+ (mois {finExercice {0}, debutExercice {0}} + 1)	
    	SINON	0A2	:=	''+ (mois {finExercice {0}, debutExercice {0}} + 1)
    FINSI
    
    0A3	:=	dossier.Adresse1 + ' ' + dossier.Adresse2 + '   '+ dossier.CodePostal + ' ' + dossier.Ville
    
    SI debutExercice {0-1} = ? ALORS 
    	0A5 := ''
    SINON
    	SI mois {finExercice {0-1}, debutExercice {0-1}} + 1 <10 ALORS
    		0A5 	:=	'0' +( mois {finExercice {0-1}, debutExercice {0-1}} + 1)
    	SINON
    		0A5 	:=	'' +( mois {finExercice {0-1}, debutExercice {0-1}} + 1)
    	FINSI
    FINSI
    
    
    0A6	:=	dossier.Siret
    
    0A7	:=	dossier.Ape
    SI 0A12 =  ? ALORS 0A12 := dossier.Activite FINSI
    CAB	:= cabinet.nomDossier
    
    FINSI
    
    SORTIR VRAI
###
'calculer' 'Fonctions'
    CALCUL{}
###
'imprimer' 'Fonctions'
     
    etat.etat	:= 'COMPTE RENDU CEDAGE'
    IMP := VRAI
    
    SI MessageErreur <> '' OU CompteRendu ALORS
    	impression{'listing.ps'}
    	impression{'texte.ps'}
    	impression{'compta/liasse'}
    	OLDPAGE := ''
    	NbrERR := 0
    
    	SI ecrituresSituation ALORS
    		ouvrirBalanceSituation{}
    	FINSI
    
    	CALCUL_BC {}
    	CALCUL_CRC {}
    	CALCUL_Charges {}
    	CALCUL_Ratios {}
    	CALCUL_TF {}
    	CALCUL_VE {}
    	RAPPORT_FINAL{}
    	impression{'fin_lst'}
    FINSI
    
    impression{'liasse.ps'}
    
    
    impression{'tableau.ps'}
    impression{'compta/25/AnnexesMillesimes/cedage'}
    
    SI ImpressionPartielle ALORS
    	SI  I_ceda_pg ALORS 
    		SI CedageDrome = VRAI ALORS
    			impression{'compta/25/AnnexesMillesimes/ceda_pg2'}
    		SINON
    			impression{'compta/25/AnnexesMillesimes/ceda_pg'}
    		FINSI
    	FINSI
    	SI  I_ceda_bc ALORS impression{'compta/25/AnnexesMillesimes/ceda_bc'} FINSI
    	SI  I_ceda_crc ALORS impression{'compta/25/AnnexesMillesimes/ceda_crc'} FINSI
    	SI  I_ceda_ca1 ALORS impression{'compta/25/AnnexesMillesimes/ceda_ca1'} FINSI
    	SI  I_ceda_ca2 ALORS impression{'compta/25/AnnexesMillesimes/ceda_ca2'} FINSI
    	SI  I_ceda_ca3 ALORS impression{'compta/25/AnnexesMillesimes/ceda_ca3'} FINSI
    	SI  I_ceda_ca4 ALORS impression{'compta/25/AnnexesMillesimes/ceda_ca4'} FINSI
    	SI  I_ceda_ra1 ALORS impression{'compta/25/AnnexesMillesimes/ceda_ra1'} FINSI
    	SI  I_ceda_ra2 ALORS impression{'compta/25/AnnexesMillesimes/ceda_ra2'} FINSI
    	SI  I_ceda_tf ALORS impression{'compta/25/AnnexesMillesimes/ceda_tf'} FINSI
    	SI  I_ceda_ve ALORS impression{'compta/25/AnnexesMillesimes/ceda_ve'} FINSI
    	SI  I_ceda_com ALORS impression{'compta/25/AnnexesMillesimes/ceda_com'} FINSI
    
    SINON
    SI CedageDrome = VRAI ALORS
    	impression{'compta/25/AnnexesMillesimes/ceda_pg2'}
    SINON
    	impression{'compta/25/AnnexesMillesimes/ceda_pg'}
    FINSI
    impression{'compta/25/AnnexesMillesimes/ceda_bc'}
    impression{'compta/25/AnnexesMillesimes/ceda_crc'}
    impression{'compta/25/AnnexesMillesimes/ceda_ca1'}
    impression{'compta/25/AnnexesMillesimes/ceda_ca2'}
    impression{'compta/25/AnnexesMillesimes/ceda_ca3'}
    impression{'compta/25/AnnexesMillesimes/ceda_ca4'}
    impression{'compta/25/AnnexesMillesimes/ceda_ra1'}
    impression{'compta/25/AnnexesMillesimes/ceda_ra2'}
    impression{'compta/25/AnnexesMillesimes/ceda_tf'}
    impression{'compta/25/AnnexesMillesimes/ceda_ve'}
    impression{'compta/25/AnnexesMillesimes/ceda_com'}
    FINSI
    IMP := FAUX
###
'CALCUL_BC_POURCENTAGES' 'Toutes fonctions'
    
    -- CALCUL DES POURCENTAGES -- 
    
    SI auV <> 0 ALORS adZ	:=	( adU / auV) * 100.0 FINSI
    SI auL <> 0 ALORS adP	:=	( adK / auL) * 100.0 FINSI
    SI auf <> 0 ALORS ado	:=	( ade / auf) * 100.0 FINSI
    SI auV <> 0 ALORS aeX	:=	( aeS / auV) * 100.0 FINSI
    SI auL <> 0 ALORS aeN	:=	( aeI / auL) * 100.0 FINSI
    SI auf <> 0 ALORS aem	:=	( aec / auf) * 100.0 FINSI
    SI auV <> 0 ALORS afV	:=	( afQ / auV) * 100.0 FINSI
    SI auL <> 0 ALORS afL	:=	( afG / auL) * 100.0 FINSI
    SI auf <> 0 ALORS afk	:=	( afa / auf) * 100.0 FINSI
    SI auV <> 0 ALORS ano	:=	( anj / auV) * 100.0 FINSI
    SI auL <> 0 ALORS ane	:=	( anZ / auL) * 100.0 FINSI
    SI auf <> 0 ALORS aoD	:=	( ant / auf) * 100.0 FINSI
    SI auV <> 0 ALORS aom	:=	( aoh / auV) * 100.0 FINSI
    SI auL <> 0 ALORS aoc	:=	( aoX / auL) * 100.0 FINSI
    SI auf <> 0 ALORS apB	:=	( aor / auf) * 100.0 FINSI
    SI auV <> 0 ALORS apk	:=	( apf / auV) * 100.0 FINSI
    SI auL <> 0 ALORS apa	:=	( adU / auL) * 100.0 FINSI
    SI auf <> 0 ALORS apz	:=	( app / auf) * 100.0 FINSI
    SI auV <> 0 ALORS aqi	:=	( aqd / auV) * 100.0 FINSI
    SI auL <> 0 ALORS aqY	:=	( aqT / auL) * 100.0 FINSI
    SI auf <> 0 ALORS aqx	:=	( aqn / auf) * 100.0 FINSI
    SI auV <> 0 ALORS arg	:=	( arb / auV) * 100.0 FINSI
    SI auL <> 0 ALORS arW	:=	( arR / auL) * 100.0 FINSI
    SI auf <> 0 ALORS arv	:=	( arl / auf) * 100.0 FINSI
    SI auV <> 0 ALORS ase	:=	( asZ / auV) * 100.0 FINSI
    SI auL <> 0 ALORS asU	:=	( asP / auL) * 100.0 FINSI
    SI auf <> 0 ALORS ast	:=	( asj / auf) * 100.0 FINSI
    SI auV <> 0 ALORS atc	:=	( atX / auV) * 100.0 FINSI
    SI auL <> 0 ALORS atS	:=	( atN / auL) * 100.0 FINSI
    SI auf <> 0 ALORS atr	:=	( ath / auf) * 100.0 FINSI
    SI bOa <> 0 ALORS awH	:=	( awC / bOa) * 100.0 FINSI
    SI bOQ <> 0 ALORS avx	:=	( avs / bOQ) * 100.0 FINSI
    SI bOk <> 0 ALORS awW	:=	( awM / bOk) * 100.0 FINSI
    SI bOa <> 0 ALORS axF	:=	( axA / bOa) * 100.0 FINSI
    SI bOQ <> 0 ALORS awv	:=	( awq / bOQ) * 100.0 FINSI
    SI bOk <> 0 ALORS axU	:=	( axK / bOk) * 100.0 FINSI
    SI bOa <> 0 ALORS ayD	:=	( axy / bOa) * 100.0 FINSI
    SI bOQ <> 0 ALORS axt	:=	( axo / bOQ) * 100.0 FINSI
    SI bOk <> 0 ALORS ayS	:=	( ayI / bOk) * 100.0 FINSI
    SI bOa <> 0 ALORS azB	:=	( ayw / bOa) * 100.0 FINSI
    SI bOQ <> 0 ALORS ayr	:=	( aym / bOQ) * 100.0 FINSI
    SI bOk <> 0 ALORS azQ	:=	( azG / bOk) * 100.0 FINSI
    SI bOa <> 0 ALORS azz	:=	( azu / bOa) * 100.0 FINSI
    SI bOQ <> 0 ALORS azp	:=	( azk / bOQ) * 100.0 FINSI
    SI bOk <> 0 ALORS bAO	:=	( bAE / bOk) * 100.0 FINSI
    SI bOa <> 0 ALORS bDm	:=	( bDh / bOa) * 100.0 FINSI
    SI bOQ <> 0 ALORS bDc	:=	( bDX / bOQ) * 100.0 FINSI
    SI bOk <> 0 ALORS bDw	:=	( bDr / bOk) * 100.0 FINSI
    SI bOa <> 0 ALORS bLq	:=	( bLl / bOa) * 100.0 FINSI
    SI bOQ <> 0 ALORS bLg	:=	( bLb / bOQ) * 100.0 FINSI
    SI bOk <> 0 ALORS bMA	:=	( bLv / bOk) * 100.0 FINSI
    SI bOa <> 0 ALORS bGW	:=	( bGR / bOa) * 100.0 FINSI
    SI bOQ <> 0 ALORS bGM	:=	( bGH / bOQ) * 100.0 FINSI
    SI bOk <> 0 ALORS bGg	:=	( bGb / bOk) * 100.0 FINSI
    SI bOa <> 0 ALORS bJG	:=	( bJB / bOa) * 100.0 FINSI
    SI bOQ <> 0 ALORS bIw	:=	( bIr / bOQ) * 100.0 FINSI
    SI bOk <> 0 ALORS bJQ	:=	( bJL / bOk) * 100.0 FINSI
    SI bOa <> 0 ALORS bMj	:=	( bMe / bOa) * 100.0 FINSI
    SI bOQ <> 0 ALORS bMZ	:=	( bMU / bOQ) * 100.0 FINSI
    SI bOk <> 0 ALORS bMy	:=	( bMo / bOk) * 100.0 FINSI
    SI bOa <> 0 ALORS bNh	:=	( bNc / bOa) * 100.0 FINSI
    SI bOQ <> 0 ALORS bNX	:=	( bNS / bOQ) * 100.0 FINSI
    SI bOk <> 0 ALORS bNw	:=	( bNm / bOk) * 100.0 FINSI
###
'SELECTION' 'Toutes fonctions'

###
'OUVERTURE' 'Evénements'
    
    IMP := FAUX
    
    impression{'entete.ps'}
    impression{'liasse.ps'}
    impression{'tableau.ps'}
    impression{'compta/25/AnnexesMillesimes/cedage'}
###
'INITIALISER' 'Evénements'
    numero := 39
    categorie := 'Annexes 2025...'
###
'AIDE' 'Evénements'
    ouvrirAide{'comptabilite\aid.chm::/etatGCompta.htm#'+classe.nom}
###
