'compterExtensions' 'Extensions'
{argExtension <Chaine>}
        
    |
    	toutesExtensions<Objet>
    	nombrePages<Entier>
    |
    
    -- initialisation du dictionnaire des extensions
    SI extensions = ? ALORS 
    	extensions	:=	creerDictionnaire{} 
    FINSI
    
    toutesExtensions	:=	cleValeur{extensions, argExtension}
    
    SI toutesExtensions = ? ALORS
    	toutesExtensions	:=	creerListe{VRAI}
    	cleValeur{extensions, argExtension, toutesExtensions}
    	nombrePages	:=	0
    SINON
    	nombrePages	:=	nbElements{toutesExtensions}
    FINSI
    
    SORTIR nombrePages
###
'remonterExtensions' 'Extensions'
{argExtension <Chaine>}
    
    |
    	toutesExtensions<Objet>
    |
    
    toutesExtensions	:=	cleValeur{extensions, argExtension}
    
    SORTIR toutesExtensions
###
'supprimerExtensions' 'Extensions'
{argExtension <Chaine> argNombre <Entier>}
    
    |
    	toutesExtensions<Objet>
    	ecart<Entier> maTaille<Entier>
    |
    
    ecart		:=	argNombre
    toutesExtensions	:=	cleValeur{extensions, argExtension}
    
    SI toutesExtensions <> ? ALORS
    	maTaille		:=	nbElements{toutesExtensions}
    
    	TANT QUE (ecart > 0) ET (maTaille > 0) FAIRE
    		supprimerElement{toutesExtensions, maTaille}
    		maTaille	-=	1
    		ecart	 -=	1
    	FINFAIRE
    
    	cleValeur{extensions,argExtension,toutesExtensions}
    FINSI
###
'PAGE_OGBIC00' 'Nouveaux OG'
    impression {'compta/25/ogaNouveaux/ogbic00.fnd'}
    impression {'fin_page'}
###
'PAGE_OGBIC01' 'Nouveaux OG'
    impression {'compta/25/ogaNouveaux/ogbic01.fnd'}
    impression {'fin_page'}
###
'PAGE_OGBIC01_EXT' 'Nouveaux OG'
    impressionDirecte {'compta/25/ogaNouveaux/ogbic01_ext.fnd'}
    impression{'compta/25/ogaNouveaux/ogbic01_ext_c.fnd'}
    impression {'fin_page'}
###
'PAGE_OGBIC02' 'Nouveaux OG'
    impression {'compta/25/ogaNouveaux/ogbic02.fnd'}
    impression {'fin_page'}
###
'PAGE_OGBIC02_EXT' 'Nouveaux OG'
    impression {'compta/25/ogaNouveaux/ogbic02_ext.fnd'}
    impression {'fin_page'}
###
'PAGE_OGBIC03_1_1' 'Nouveaux OG'
    impressionDirecte{'compta/25/ogaNouveaux/ogbic03_1_1.fnd'}
    impression{'compta/25/ogaNouveaux/ogbic03_1_1_c.fnd'}
    impression {'fin_page'}
###
'PAGE_OGBIC03_1_2' 'Nouveaux OG'
    impressionDirecte{'compta/25/ogaNouveaux/ogbic03_1_2.fnd'}
    impression{'compta/25/ogaNouveaux/ogbic03_1_2_c.fnd'}
    impression {'fin_page'}
###
'PAGE_OGBIC03_2' 'Nouveaux OG'
    impression {'compta/25/ogaNouveaux/ogbic03_2.fnd'}
    impression {'fin_page'}
###
'PAGE_OGBIC03_3' 'Nouveaux OG'
    impression {'compta/25/ogaNouveaux/ogbic03_3.fnd'}
    impression {'fin_page'}
###
'PAGE_OGBIC03_EXT1' 'Nouveaux OG'
    impression {'compta/25/ogaNouveaux/ogbic03_ext1.fnd'}
    impression {'fin_page'}
###
'PAGE_OGBIC03_EXT2' 'Nouveaux OG'
    impression {'compta/25/ogaNouveaux/ogbic03_ext2.fnd'}
    impression {'fin_page'}
###
'PAGE_OGBIC03_EXT3' 'Nouveaux OG'
    impression {'compta/25/ogaNouveaux/ogbic03_ext3.fnd'}
    impression {'fin_page'}
###
'PAGE_OGBIC03_EXT3_2' 'Nouveaux OG'
    impression {'compta/25/ogaNouveaux/ogbic03_ext3_2.fnd'}
    impression {'fin_page'}
###
'PAGE_OGBIC03_EXT3_3' 'Nouveaux OG'
    impression {'compta/25/ogaNouveaux/ogbic03_ext3_3.fnd'}
    impression {'fin_page'}
###
'PAGE_OGBIC03_EXT4' 'Nouveaux OG'
    impression {'compta/25/ogaNouveaux/ogbic03_ext4.fnd'}
    impression {'fin_page'}
###
'PAGE_OGBIC03_EXT5' 'Nouveaux OG'
    impression {'compta/25/ogaNouveaux/ogbic03_ext5.fnd'}
    impression {'fin_page'}
###
'PAGE_OGBIC03_EXT6' 'Nouveaux OG'
    impression {'compta/25/ogaNouveaux/ogbic03_ext6.fnd'}
    impression {'fin_page'}
###
'PAGE_OGBIC04' 'Nouveaux OG'
    impression {'compta/25/ogaNouveaux/ogbic04.fnd'}
    impression {'fin_page'}
###
'PAGE_2468' 'Nouveaux OG'
	impressionDirecte {'compta/25/2468.fnd'}
    impression {'compta/25/2468_c.fnd'}
    impression {'fin_page'}
###
'OGBIC00' 'Nouveaux OG'
    INTEROGBIC00{}
###
'OGBIC01' 'Nouveaux OG'
	INTEROGBIC01{}
###
'OGBIC01_EXT' 'Nouveaux OG'
	INTEROGBIC01{}
###
'OGBIC03_1_1' 'Nouveaux OG'
    INTEROGBIC03{}
###
'OGBIC03_1_2' 'Nouveaux OG'
    INTEROGBIC03{}
###
'OGBIC03_2' 'Nouveaux OG'
    INTEROGBIC03{}
###
'OGBIC03_3' 'Nouveaux OG'
    INTEROGBIC03{}
###
'OGBIC03_EXT1' 'Nouveaux OG'
    INTEROGBIC03{}
###
'OGBIC03_EXT2' 'Nouveaux OG'
    INTEROGBIC03{}
###
'OGBIC03_EXT3' 'Nouveaux OG'
    INTEROGBIC03{}
###
'OGBIC03_EXT3_2' 'Nouveaux OG'
    INTEROGBIC03{}
###
'OGBIC03_EXT3_3' 'Nouveaux OG'
    INTEROGBIC03{}
###
'OGBIC03_EXT4' 'Nouveaux OG'
    INTEROGBIC03{}
###
'OGBIC03_EXT5' 'Nouveaux OG'
    INTEROGBIC03{}
###
'OGBIC03_EXT6' 'Nouveaux OG'
    INTEROGBIC03{}
###
'OGBIC03_EXT7' 'Nouveaux OG'
    INTEROGBIC03{}
###
'INTEROGBIC00' 'Nouveaux OG'
    SI OGBIC00_AA1 = ? ALORS
    	OGBIC00_AA1	:=	OGBIC00_AA1_C
    FIN SI
    
    SI controleSiretSaisiLiasse{classe{etat}, 'OGBIC00', 'OGBIC00_AA2', OGBIC00_AA2} = FAUX	ALORS	OGBIC00_AA2	:=	?	FINSI
    
    SI OGBIC00_AA2 = ? ALORS
    	OGBIC00_AA2	:=	OGBIC00_AA2_C
    FIN SI
    
    SI OGBIC00_AA3 = ? ALORS
    	OGBIC00_AA3	:=	OGBIC00_AA3_C
    FIN SI
    
    SI OGBIC00_AD1 = ? ALORS
    	OGBIC00_AD1 :=	OGBIC00_AD1_C
    FINSI
    
    SI OGBIC00_AD2 = ? ALORS
    	OGBIC00_AD2 :=	OGBIC00_AD2_C
    FINSI
    
    SI OGBIC00_BA = ? ALORS
    	OGBIC00_BA := OGBIC00_BA_C
    FINSI
    
###
'INTEROGBIC01' 'Nouveaux OG'
    
    |
    	i<Entier>
    |

    -- calcul des totaux
    i := 1
    OGBIC01_BE := ?
    TANT QUE i <= 35 FAIRE
    	etat!{'OGBIC01_BE'}monnaie += entier{etat!{'OGBIC01_BE'+i}monnaie }
		i += 1
	FIN FAIRE 
		
###
'INTEROGBIC03' 'Nouveaux OG'
    
    |
    	i<Entier>
    |
    
    INTEROGBIC03AA{}
    INTEROGBIC03WA{}
    INTEROGBIC03BA{}
    INTEROGBIC03RH{}
    INTEROGBIC03GA{}
    INTEROGBIC03HA{}
    INTEROGBIC03KA{}
    INTEROGBIC03PA{}
    INTEROGBIC03QA{}
    INTEROGBIC03SA{}
    INTEROGBIC03UA{}

    -- calcul des totaux
    i := 1
    TANT QUE i <= 33 FAIRE
    	etat!{'OGBIC03_AC'+i}monnaie := etat!{'OGBIC03_AE'+i}monnaie + etat!{'OGBIC03_AD'+i}monnaie + etat!{'OGBIC03_AF'+i}monnaie + 
    									etat!{'OGBIC03_AB'+i}monnaie + etat!{'OGBIC03_AP'+i}monnaie + etat!{'OGBIC03_GH'+i}monnaie + 
    									etat!{'OGBIC03_JH'+i}monnaie + etat!{'OGBIC03_AG'+i}monnaie
    
    	etat!{'OGBIC03_WC'+i}monnaie := etat!{'OGBIC03_WE'+i}monnaie + etat!{'OGBIC03_WD'+i}monnaie + etat!{'OGBIC03_WF'+i}monnaie + 
    									etat!{'OGBIC03_WB'+i}monnaie + etat!{'OGBIC03_WP'+i}monnaie + etat!{'OGBIC03_GK'+i}monnaie + 
    									etat!{'OGBIC03_JK'+i}monnaie + etat!{'OGBIC03_WG'+i}monnaie

    	etat!{'OGBIC03_CR'+i}monnaie := etat!{'OGBIC03_CS'+i}monnaie + etat!{'OGBIC03_CT'+i}monnaie + etat!{'OGBIC03_CU'+i}monnaie + 
    									etat!{'OGBIC03_CW'+i}monnaie + etat!{'OGBIC03_CY'+i}monnaie + etat!{'OGBIC03_GL'+i}monnaie + 
    									etat!{'OGBIC03_JL'+i}monnaie + etat!{'OGBIC03_CV'+i}monnaie

    	etat!{'OGBIC03_CH'+i}monnaie := etat!{'OGBIC03_DH'+i}monnaie + etat!{'OGBIC03_EH'+i}monnaie + etat!{'OGBIC03_FH'+i}monnaie + 
    									etat!{'OGBIC03_BJ'+i}monnaie + etat!{'OGBIC03_MH'+i}monnaie + etat!{'OGBIC03_NH'+i}monnaie + 
    									etat!{'OGBIC03_PH'+i}monnaie + etat!{'OGBIC03_BH'+i}monnaie

    	etat!{'OGBIC03_UC'+i}monnaie := etat!{'OGBIC03_UE'+i}monnaie + etat!{'OGBIC03_UD'+i}monnaie + etat!{'OGBIC03_UF'+i}monnaie + 
    									etat!{'OGBIC03_UB'+i}monnaie + etat!{'OGBIC03_UP'+i}monnaie + etat!{'OGBIC03_HR'+i}monnaie + 
    									etat!{'OGBIC03_KR'+i}monnaie + etat!{'OGBIC03_UG'+i}monnaie

		etat!{'OGBIC03_GC'+i}monnaie := etat!{'OGBIC03_GE'+i}monnaie + etat!{'OGBIC03_GD'+i}monnaie + etat!{'OGBIC03_GF'+i}monnaie + 
										etat!{'OGBIC03_GB'+i}monnaie + etat!{'OGBIC03_GP'+i}monnaie + etat!{'OGBIC03_GT'+i}monnaie + 
										etat!{'OGBIC03_JT'+i}monnaie + etat!{'OGBIC03_GG'+i}monnaie

		etat!{'OGBIC03_HC'+i}monnaie := etat!{'OGBIC03_HE'+i}monnaie + etat!{'OGBIC03_HD'+i}monnaie + etat!{'OGBIC03_HF'+i}monnaie + 
										etat!{'OGBIC03_HB'+i}monnaie + etat!{'OGBIC03_HP'+i}monnaie + etat!{'OGBIC03_GU'+i}monnaie + 
										etat!{'OGBIC03_JU'+i}monnaie + etat!{'OGBIC03_HG'+i}monnaie

		etat!{'OGBIC03_KC'+i}monnaie := etat!{'OGBIC03_KE'+i}monnaie + etat!{'OGBIC03_GW'+i}monnaie + etat!{'OGBIC03_KD'+i}monnaie + 
										etat!{'OGBIC03_KF'+i}monnaie + etat!{'OGBIC03_KB'+i}monnaie + etat!{'OGBIC03_KP'+i}monnaie + 
										etat!{'OGBIC03_JW'+i}monnaie + etat!{'OGBIC03_KG'+i}monnaie

    	SI i <= 11 ALORS

    		etat!{'OGBIC03_PC'+i}monnaie := etat!{'OGBIC03_PE'+i}monnaie + etat!{'OGBIC03_PD'+i}monnaie + etat!{'OGBIC03_PF'+i}monnaie + 
    										etat!{'OGBIC03_PB'+i}monnaie + etat!{'OGBIC03_PP'+i}monnaie + etat!{'OGBIC03_HJ'+i}monnaie + 
    										etat!{'OGBIC03_KJ'+i}monnaie + etat!{'OGBIC03_PG'+i}monnaie

    		etat!{'OGBIC03_QC'+i}monnaie := etat!{'OGBIC03_QE'+i}monnaie + etat!{'OGBIC03_HK'+i}monnaie + etat!{'OGBIC03_QD'+i}monnaie + 
    										etat!{'OGBIC03_QF'+i}monnaie + etat!{'OGBIC03_QB'+i}monnaie + etat!{'OGBIC03_QP'+i}monnaie + 
    										etat!{'OGBIC03_KK'+i}monnaie + etat!{'OGBIC03_QG'+i}monnaie

    		etat!{'OGBIC03_SC'+i}monnaie := etat!{'OGBIC03_SE'+i}monnaie + etat!{'OGBIC03_HM'+i}monnaie + etat!{'OGBIC03_SD'+i}monnaie + 
    										etat!{'OGBIC03_SF'+i}monnaie + etat!{'OGBIC03_SB'+i}monnaie + etat!{'OGBIC03_SP'+i}monnaie + 
    										etat!{'OGBIC03_KM'+i}monnaie + etat!{'OGBIC03_SG'+i}monnaie

		FIN SI

		i += 1
	FIN FAIRE 

	OGBIC03_BR := OGBIC03_BS + OGBIC03_BT + OGBIC03_BU + OGBIC03_BW + OGBIC03_BY + OGBIC03_GJ + OGBIC03_JJ + OGBIC03_BV
	OGBIC03_DC := OGBIC03_DE + OGBIC03_DD + OGBIC03_DF + OGBIC03_DB + OGBIC03_DP + OGBIC03_GM + OGBIC03_JM + OGBIC03_DG
	OGBIC03_EC := OGBIC03_EE + OGBIC03_ED + OGBIC03_EF + OGBIC03_EB + OGBIC03_EP + OGBIC03_GN + OGBIC03_JN + OGBIC03_EG
	OGBIC03_BC := OGBIC03_BE + OGBIC03_BD + OGBIC03_BF + OGBIC03_BB + OGBIC03_BP + OGBIC03_GR + OGBIC03_JR + OGBIC03_BG
	OGBIC03_FC := OGBIC03_FE + OGBIC03_FD + OGBIC03_FF + OGBIC03_FB + OGBIC03_FP + OGBIC03_GS + OGBIC03_JS + OGBIC03_FG
	OGBIC03_JC := OGBIC03_JE + OGBIC03_JD + OGBIC03_JF + OGBIC03_JB + OGBIC03_JP + OGBIC03_GV + OGBIC03_JV + OGBIC03_JG
	OGBIC03_LC := OGBIC03_LE + OGBIC03_LD + OGBIC03_LF + OGBIC03_LB + OGBIC03_LP + OGBIC03_GX + OGBIC03_JX + OGBIC03_LG
	OGBIC03_MC := OGBIC03_ME + OGBIC03_MD + OGBIC03_MF + OGBIC03_MB + OGBIC03_MP + OGBIC03_GY + OGBIC03_JY + OGBIC03_MG
	OGBIC03_CC := OGBIC03_CE + OGBIC03_CD + OGBIC03_CF + OGBIC03_CB + OGBIC03_CP + OGBIC03_GZ + OGBIC03_JZ + OGBIC03_CG
	OGBIC03_NC := OGBIC03_NE + OGBIC03_ND + OGBIC03_NF + OGBIC03_NB + OGBIC03_NP + OGBIC03_HH + OGBIC03_KH + OGBIC03_NG
	OGBIC03_RC := OGBIC03_RE + OGBIC03_RD + OGBIC03_RF + OGBIC03_RB + OGBIC03_RP + OGBIC03_HL + OGBIC03_KL + OGBIC03_RG
	OGBIC03_TC := OGBIC03_TE + OGBIC03_TD + OGBIC03_TF + OGBIC03_TB + OGBIC03_TP + OGBIC03_HN + OGBIC03_KN + OGBIC03_TG
	OGBIC03_XC := OGBIC03_XE + OGBIC03_XD + OGBIC03_XF + OGBIC03_XB + OGBIC03_XP + OGBIC03_HS + OGBIC03_KS + OGBIC03_XG
	OGBIC03_VC := OGBIC03_VE + OGBIC03_VD + OGBIC03_VF + OGBIC03_VB + OGBIC03_VP + OGBIC03_HT + OGBIC03_KT + OGBIC03_VG
	OGBIC03_FR := OGBIC03_FS + OGBIC03_FT + OGBIC03_FU + OGBIC03_FW + OGBIC03_FY + OGBIC03_HU + OGBIC03_KU + OGBIC03_FV
	OGBIC03_YC := OGBIC03_YE + OGBIC03_YD + OGBIC03_YF + OGBIC03_YB + OGBIC03_YP + OGBIC03_HV + OGBIC03_KV + OGBIC03_YG
	OGBIC03_ZC := OGBIC03_ZE + OGBIC03_ZD + OGBIC03_ZF + OGBIC03_ZB + OGBIC03_ZP + OGBIC03_HW + OGBIC03_KW + OGBIC03_ZG
	OGBIC03_AW := OGBIC03_AX + OGBIC03_AY + OGBIC03_AZ + OGBIC03_DR + OGBIC03_DT + OGBIC03_HY + OGBIC03_KY
    
    
    -- VC
    OGBIC03_VC	:=	0
    i	:=	1
    TANT QUE i <= 33 FAIRE
    	OGBIC03_VC	+=	etat!{'OGBIC03_AC'+i}monnaie
    	OGBIC03_VC	+=	etat!{'OGBIC03_WC'+i}monnaie
    	OGBIC03_VC	+=	etat!{'OGBIC03_CR'+i}monnaie
    	OGBIC03_VC	+=	etat!{'OGBIC03_CH'+i}monnaie
    	OGBIC03_VC	-=	etat!{'OGBIC03_UC'+i}monnaie
		OGBIC03_VC	+=	etat!{'OGBIC03_GC'+i}monnaie
		OGBIC03_VC	-=	etat!{'OGBIC03_HC'+i}monnaie
		OGBIC03_VC	+=	etat!{'OGBIC03_KC'+i}monnaie

    	SI i <= 11 ALORS
    		OGBIC03_VC	-=	etat!{'OGBIC03_PC'+i}monnaie
    		OGBIC03_VC	+=	etat!{'OGBIC03_QC'+i}monnaie
    		OGBIC03_VC	+=	etat!{'OGBIC03_SC'+i}monnaie
    	FIN SI
    	i	+=	1
    FIN FAIRE
    OGBIC03_VC	+=	OGBIC03_BR + OGBIC03_DC - OGBIC03_EC + OGBIC03_BC - OGBIC03_FC + OGBIC03_JC 
    			- OGBIC03_LC + OGBIC03_MC - OGBIC03_CC + OGBIC03_NC - OGBIC03_RC - OGBIC03_TC 
    			+ OGBIC03_XC
    
    -- VE
    OGBIC03_VE	:=	0
    i	:=	1
    TANT QUE i <= 33 FAIRE
    	OGBIC03_VE	+=	etat!{'OGBIC03_AE'+i}monnaie
    	OGBIC03_VE	+=	etat!{'OGBIC03_WE'+i}monnaie
    	OGBIC03_VE	+=	etat!{'OGBIC03_CS'+i}monnaie
    	OGBIC03_VE	+=	etat!{'OGBIC03_DH'+i}monnaie
    	OGBIC03_VE	-=	etat!{'OGBIC03_UE'+i}monnaie
		OGBIC03_VE	+=	etat!{'OGBIC03_GE'+i}monnaie
		OGBIC03_VE	-=	etat!{'OGBIC03_HE'+i}monnaie
		OGBIC03_VE	+=	etat!{'OGBIC03_KE'+i}monnaie

    	SI i <= 11 ALORS
    		OGBIC03_VE	-=	etat!{'OGBIC03_PE'+i}monnaie
    		OGBIC03_VE	+=	etat!{'OGBIC03_QE'+i}monnaie
    		OGBIC03_VE	+=	etat!{'OGBIC03_SE'+i}monnaie
    	FIN SI
    	i	+=	1
    FIN FAIRE
    OGBIC03_VE	+=	OGBIC03_BS + OGBIC03_DE - OGBIC03_EE + OGBIC03_BE - OGBIC03_FE + OGBIC03_JE
    			- OGBIC03_LE + OGBIC03_ME - OGBIC03_CE + OGBIC03_NE - OGBIC03_RE - OGBIC03_TE 
    			+ OGBIC03_XE
    
    -- VD
    OGBIC03_VD	:=	0
    i	:=	1
    TANT QUE i <= 33 FAIRE
    	OGBIC03_VD	+=	etat!{'OGBIC03_AD'+i}monnaie
    	OGBIC03_VD	+=	etat!{'OGBIC03_WD'+i}monnaie
    	OGBIC03_VD	+=	etat!{'OGBIC03_CT'+i}monnaie
    	OGBIC03_VD	+=	etat!{'OGBIC03_EH'+i}monnaie
    	OGBIC03_VD	-=	etat!{'OGBIC03_UD'+i}monnaie
		OGBIC03_VD	+=	etat!{'OGBIC03_GD'+i}monnaie -- Creances clients
		OGBIC03_VD	+=	etat!{'OGBIC03_KD'+i}monnaie -- Autres
		OGBIC03_VD	-=	etat!{'OGBIC03_HD'+i}monnaie -- Avances clients

    	SI i <= 11 ALORS
    		OGBIC03_VD	-=	etat!{'OGBIC03_PD'+i}monnaie
    
    		SI i <=2 ALORS
    			OGBIC03_VD	+=	etat!{'OGBIC03_QD'+i}monnaie
    		SINON
    			OGBIC03_VD	+=	etat!{'OGBIC03_HK'+i}monnaie
    		FINSI
    		SI i <= 2 ALORS
    			OGBIC03_VD	+=	etat!{'OGBIC03_SD'+i}monnaie
    		SINON
    			OGBIC03_VD	+=	etat!{'OGBIC03_HM'+i}monnaie
    		FINSI
    	FIN SI
    	i	+=	1
    FIN FAIRE
    OGBIC03_VD	+=	OGBIC03_BT + OGBIC03_DD - OGBIC03_ED + OGBIC03_BD - OGBIC03_FD + OGBIC03_JD
    			- OGBIC03_LD + OGBIC03_MD - OGBIC03_CD + OGBIC03_ND - OGBIC03_RD - OGBIC03_TD 
    			+ OGBIC03_XD
    
    
    -- VF
    OGBIC03_VF	:=	0
    i	:=	1
    TANT QUE i <= 33 FAIRE
    	OGBIC03_VF	+=	etat!{'OGBIC03_AF'+i}monnaie
    	OGBIC03_VF	+=	etat!{'OGBIC03_WF'+i}monnaie
    	OGBIC03_VF	+=	etat!{'OGBIC03_CU'+i}monnaie
    	OGBIC03_VF	+=	etat!{'OGBIC03_FH'+i}monnaie
    	OGBIC03_VF	-=	etat!{'OGBIC03_UF'+i}monnaie
		OGBIC03_VF	+=	etat!{'OGBIC03_GF'+i}monnaie -- Creances clients
		OGBIC03_VF	+=	etat!{'OGBIC03_KF'+i}monnaie -- Autres
		OGBIC03_VF	-=	etat!{'OGBIC03_HF'+i}monnaie -- Avances clients

    	SI i <= 11 ALORS
    		OGBIC03_VF	-=	etat!{'OGBIC03_PF'+i}monnaie
    		SI i <= 2 ALORS
    			OGBIC03_VF	+=	etat!{'OGBIC03_QF'+i}monnaie
    		SINON
    			OGBIC03_VF	+=	etat!{'OGBIC03_QD'+i}monnaie
    		FINSI
    		SI i <= 2 ALORS
    			OGBIC03_VF	+=	etat!{'OGBIC03_SF'+i}monnaie
    		SINON
    			OGBIC03_VF	+=	etat!{'OGBIC03_SD'+i}monnaie
    		FINSI
    	FIN SI
    	i	+=	1
    FIN FAIRE
    OGBIC03_VF	+=	OGBIC03_BU + OGBIC03_DF - OGBIC03_EF + OGBIC03_BF - OGBIC03_FF + OGBIC03_JF
    			- OGBIC03_LF + OGBIC03_MF - OGBIC03_CF + OGBIC03_NF - OGBIC03_RF - OGBIC03_TF 
    			+ OGBIC03_XF
    
    -- VG
    OGBIC03_VG	:=	0
    i	:=	1
    TANT QUE i <= 33 FAIRE
    	OGBIC03_VG	+=	etat!{'OGBIC03_AG'+i}monnaie
    	OGBIC03_VG	+=	etat!{'OGBIC03_WG'+i}monnaie
    	OGBIC03_VG	+=	etat!{'OGBIC03_CV'+i}monnaie
    	OGBIC03_VG	+=	etat!{'OGBIC03_BH'+i}monnaie
    	OGBIC03_VG	-=	etat!{'OGBIC03_UG'+i}monnaie
		OGBIC03_VG	+=	etat!{'OGBIC03_GG'+i}monnaie
		OGBIC03_VG	-=	etat!{'OGBIC03_HG'+i}monnaie
		OGBIC03_VG	+=	etat!{'OGBIC03_KG'+i}monnaie

    	SI i <= 11 ALORS
    		OGBIC03_VG	-=	etat!{'OGBIC03_PG'+i}monnaie
    		OGBIC03_VG	+=	etat!{'OGBIC03_QG'+i}monnaie
    		OGBIC03_VG	+=	etat!{'OGBIC03_SG'+i}monnaie
    	FIN SI
    	i	+=	1
    FIN FAIRE
    OGBIC03_VG	+=	OGBIC03_BV + OGBIC03_DG - OGBIC03_EG + OGBIC03_BG - OGBIC03_FG + OGBIC03_JG
    			- OGBIC03_LG + OGBIC03_MG - OGBIC03_CG + OGBIC03_NG - OGBIC03_RG - OGBIC03_TG 
    			+ OGBIC03_XG
    
    -- VB
    OGBIC03_VB	:=	0
    i	:=	1
    TANT QUE i <= 33 FAIRE
    	OGBIC03_VB	+=	etat!{'OGBIC03_AB'+i}monnaie
    	OGBIC03_VB	+=	etat!{'OGBIC03_WB'+i}monnaie
    	OGBIC03_VB	+=	etat!{'OGBIC03_CW'+i}monnaie
    	OGBIC03_VB	+=	etat!{'OGBIC03_BJ'+i}monnaie
    	OGBIC03_VB	-=	etat!{'OGBIC03_UB'+i}monnaie
		OGBIC03_VB	+=	etat!{'OGBIC03_GB'+i}monnaie -- Creances clients
		OGBIC03_VB	+=	etat!{'OGBIC03_KB'+i}monnaie -- Autres
		OGBIC03_VB	-=	etat!{'OGBIC03_HB'+i}monnaie -- Avances clients

    	SI i <= 11 ALORS
    		OGBIC03_VB	-=	etat!{'OGBIC03_PB'+i}monnaie
    		SI i <= 2 ALORS
    			OGBIC03_VB	+=	etat!{'OGBIC03_QB'+i}monnaie
    		SINON
    			OGBIC03_VB	+=	etat!{'OGBIC03_QF'+i}monnaie
    		FINSI
    		SI i <= 2 ALORS
    			OGBIC03_VB	+=	etat!{'OGBIC03_SB'+i}monnaie
    		SINON
    			OGBIC03_VB	+=	etat!{'OGBIC03_SF'+i}monnaie
    		FINSI
    	FIN SI
    	i	+=	1
    FIN FAIRE
    OGBIC03_VB	+=	OGBIC03_BW + OGBIC03_DB - OGBIC03_EB + OGBIC03_BB - OGBIC03_FB + OGBIC03_JB
    			- OGBIC03_LB + OGBIC03_MB - OGBIC03_CB + OGBIC03_NB - OGBIC03_RB - OGBIC03_TB 
    			+ OGBIC03_XB
    
    -- VP
    OGBIC03_VP	:=	0
    i	:=	1
    TANT QUE i <= 33 FAIRE
    	OGBIC03_VP	+=	etat!{'OGBIC03_AP'+i}monnaie
    	OGBIC03_VP	+=	etat!{'OGBIC03_WP'+i}monnaie
    	OGBIC03_VP	+=	etat!{'OGBIC03_CY'+i}monnaie
    	OGBIC03_VP	+=	etat!{'OGBIC03_MH'+i}monnaie
    	OGBIC03_VP	-=	etat!{'OGBIC03_UP'+i}monnaie
		OGBIC03_VP	+=	etat!{'OGBIC03_GP'+i}monnaie -- Creances clients
		OGBIC03_VP	+=	etat!{'OGBIC03_KP'+i}monnaie -- Autres
		OGBIC03_VP	-=	etat!{'OGBIC03_HP'+i}monnaie -- Avances clients

    	SI i <= 11 ALORS
    		OGBIC03_VP	-=	etat!{'OGBIC03_PP'+i}monnaie
    		SI i <=2 ALORS
    			OGBIC03_VP	+=	etat!{'OGBIC03_QP'+i}monnaie
    		SINON
    			OGBIC03_VP	+=	etat!{'OGBIC03_QB'+i}monnaie
    		FINSI
    		SI i <= 2 ALORS
    			OGBIC03_VP	+=	etat!{'OGBIC03_SP'+i}monnaie
    		SINON
    			OGBIC03_VP	+=	etat!{'OGBIC03_SB'+i}monnaie
    		FINSI
    	FIN SI
    	i	+=	1
    FIN FAIRE
    OGBIC03_VP	+=	OGBIC03_BY + OGBIC03_DP - OGBIC03_EP + OGBIC03_BP - OGBIC03_FP + OGBIC03_JP
    			- OGBIC03_LP + OGBIC03_MP - OGBIC03_CP + OGBIC03_NP - OGBIC03_RP - OGBIC03_TP 
    			+ OGBIC03_XP
    
    -- HT
    OGBIC03_HT	:=	0
    i	:=	1
    TANT QUE i <= 33 FAIRE
    	OGBIC03_HT	+=	etat!{'OGBIC03_GH'+i}monnaie
    	OGBIC03_HT	+=	etat!{'OGBIC03_GK'+i}monnaie
    	OGBIC03_HT	+=	etat!{'OGBIC03_GL'+i}monnaie
    	OGBIC03_HT	+=	etat!{'OGBIC03_NH'+i}monnaie
    	OGBIC03_HT	-=	etat!{'OGBIC03_HR'+i}monnaie
		OGBIC03_HT	+=	etat!{'OGBIC03_GT'+i}monnaie -- Creances clients
		OGBIC03_HT	+=	etat!{'OGBIC03_GW'+i}monnaie -- Autres
		OGBIC03_HT	-=	etat!{'OGBIC03_GU'+i}monnaie -- Avances clients

    	SI i <= 11 ALORS
    		OGBIC03_HT	-=	etat!{'OGBIC03_HJ'+i}monnaie
    		SI i <= 2 ALORS
    			OGBIC03_HT	+=	etat!{'OGBIC03_HK'+i}monnaie
    		SINON
    			OGBIC03_HT	+=	etat!{'OGBIC03_QP'+i}monnaie
    		FINSI
    		SI i <= 2 ALORS
    			OGBIC03_HT	+=	etat!{'OGBIC03_HM'+i}monnaie
    		SINON
    			OGBIC03_HT	+=	etat!{'OGBIC03_SP'+i}monnaie
    		FINSI
    	FIN SI
    	i	+=	1
    FIN FAIRE
    OGBIC03_HT	+=	OGBIC03_GJ + OGBIC03_GM - OGBIC03_GN + OGBIC03_GR - OGBIC03_GS + OGBIC03_GV
    			- OGBIC03_GX + OGBIC03_GY - OGBIC03_GZ + OGBIC03_HH - OGBIC03_HL - OGBIC03_HN 
    			+ OGBIC03_HS
    
    -- KT
    OGBIC03_KT	:=	0
    i	:=	1
    TANT QUE i <= 33 FAIRE
    	OGBIC03_KT	+=	etat!{'OGBIC03_JH'+i}monnaie
    	OGBIC03_KT	+=	etat!{'OGBIC03_JK'+i}monnaie
    	OGBIC03_KT	+=	etat!{'OGBIC03_JL'+i}monnaie
    	OGBIC03_KT	+=	etat!{'OGBIC03_PH'+i}monnaie
    	OGBIC03_KT	-=	etat!{'OGBIC03_KR'+i}monnaie
		OGBIC03_KT	+=	etat!{'OGBIC03_JT'+i}monnaie
		OGBIC03_KT	-=	etat!{'OGBIC03_JU'+i}monnaie
		OGBIC03_KT	+=	etat!{'OGBIC03_JW'+i}monnaie

    	SI i <= 11 ALORS
    		OGBIC03_KT	-=	etat!{'OGBIC03_KJ'+i}monnaie
    		OGBIC03_KT	+=	etat!{'OGBIC03_KK'+i}monnaie
    		OGBIC03_KT	+=	etat!{'OGBIC03_KM'+i}monnaie
    	FIN SI
    	i	+=	1
    FIN FAIRE
    OGBIC03_KT	+=	OGBIC03_JJ + OGBIC03_JM - OGBIC03_JN + OGBIC03_JR - OGBIC03_JS + OGBIC03_JV
    			- OGBIC03_JX + OGBIC03_JY - OGBIC03_JZ + OGBIC03_KH - OGBIC03_KL - OGBIC03_KN 
    			+ OGBIC03_KS
    
    OGBIC03_YC	:=	OGBIC03_VC - OGBIC03_FR
    OGBIC03_YE	:=	OGBIC03_VE - OGBIC03_FS
    OGBIC03_YD	:=	OGBIC03_VD - OGBIC03_FT
    OGBIC03_YF	:=	OGBIC03_VF - OGBIC03_FU
    OGBIC03_YG	:=	OGBIC03_VG - OGBIC03_FV
    OGBIC03_YB	:=	OGBIC03_VB - OGBIC03_FW
    OGBIC03_YP	:=	OGBIC03_VP - OGBIC03_FY
    OGBIC03_HV	:=	OGBIC03_HT - OGBIC03_HU
    OGBIC03_KV	:=	OGBIC03_KT - OGBIC03_KU
###
'INTEROGBIC03AA' 'Nouveaux OG'
    
    SI OGBIC03_AA1 <> ? ALORS
    	compte ::= OGBIC03_AA1
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib1_C <> compte.libelle ALORS
    			OGBIC03_AAlib1_C := compte.libelle
    			OGBIC03_AAlib1 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib1_C <> ? ALORS
    			OGBIC03_AAlib1_C := ?
    			OGBIC03_AAlib1 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib1 = ? ALORS
    		OGBIC03_AAlib1 := OGBIC03_AAlib1_C 
    	FINSI
    SINON
    	OGBIC03_AAlib1_C := ?
    	OGBIC03_AAlib1 := ?
    FINSI
    
    SI OGBIC03_AA2 <> ? ALORS
    	compte ::= OGBIC03_AA2
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib2_C <> compte.libelle ALORS
    			OGBIC03_AAlib2_C := compte.libelle
    			OGBIC03_AAlib2 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib2_C <> ? ALORS
    			OGBIC03_AAlib2_C := ?
    			OGBIC03_AAlib2 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib2 = ? ALORS
    		OGBIC03_AAlib2 := OGBIC03_AAlib2_C 
    	FINSI
    SINON
    	OGBIC03_AAlib2_C := ?
    	OGBIC03_AAlib2 := ?
    FINSI
    
    SI OGBIC03_AA3 <> ? ALORS
    	compte ::= OGBIC03_AA3
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib3_C <> compte.libelle ALORS
    			OGBIC03_AAlib3_C := compte.libelle
    			OGBIC03_AAlib3 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib3_C <> ? ALORS
    			OGBIC03_AAlib3_C := ?
    			OGBIC03_AAlib3 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib3 = ? ALORS
    		OGBIC03_AAlib3 := OGBIC03_AAlib3_C 
    	FINSI
    SINON
    	OGBIC03_AAlib3_C := ?
    	OGBIC03_AAlib3 := ?
    FINSI
    
    SI OGBIC03_AA4 <> ? ALORS
    	compte ::= OGBIC03_AA4
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib4_C <> compte.libelle ALORS
    			OGBIC03_AAlib4_C := compte.libelle
    			OGBIC03_AAlib4 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib4_C <> ? ALORS
    			OGBIC03_AAlib4_C := ?
    			OGBIC03_AAlib4 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib4 = ? ALORS
    		OGBIC03_AAlib4 := OGBIC03_AAlib4_C 
    	FINSI
    SINON
    	OGBIC03_AAlib4_C := ?
    	OGBIC03_AAlib4 := ?
    FINSI
    
    SI OGBIC03_AA5 <> ? ALORS
    	compte ::= OGBIC03_AA5
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib5_C <> compte.libelle ALORS
    			OGBIC03_AAlib5_C := compte.libelle
    			OGBIC03_AAlib5 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib5_C <> ? ALORS
    			OGBIC03_AAlib5_C := ?
    			OGBIC03_AAlib5 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib5 = ? ALORS
    		OGBIC03_AAlib5 := OGBIC03_AAlib5_C 
    	FINSI
    SINON
    	OGBIC03_AAlib5_C := ?
    	OGBIC03_AAlib5 := ?
    FINSI
    
    SI OGBIC03_AA6 <> ? ALORS
    	compte ::= OGBIC03_AA6
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib6_C <> compte.libelle ALORS
    			OGBIC03_AAlib6_C := compte.libelle
    			OGBIC03_AAlib6 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib6_C <> ? ALORS
    			OGBIC03_AAlib6_C := ?
    			OGBIC03_AAlib6 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib6 = ? ALORS
    		OGBIC03_AAlib6 := OGBIC03_AAlib6_C 
    	FINSI
    SINON
    	OGBIC03_AAlib6_C := ?
    	OGBIC03_AAlib6 := ?
    FINSI
    
    SI OGBIC03_AA7 <> ? ALORS
    	compte ::= OGBIC03_AA7
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib7_C <> compte.libelle ALORS
    			OGBIC03_AAlib7_C := compte.libelle
    			OGBIC03_AAlib7 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib7_C <> ? ALORS
    			OGBIC03_AAlib7_C := ?
    			OGBIC03_AAlib7 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib7 = ? ALORS
    		OGBIC03_AAlib7 := OGBIC03_AAlib7_C 
    	FINSI
    SINON
    	OGBIC03_AAlib7_C := ?
    	OGBIC03_AAlib7 := ?
    FINSI
    
    SI OGBIC03_AA8 <> ? ALORS
    	compte ::= OGBIC03_AA8
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib8_C <> compte.libelle ALORS
    			OGBIC03_AAlib8_C := compte.libelle
    			OGBIC03_AAlib8 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib8_C <> ? ALORS
    			OGBIC03_AAlib8_C := ?
    			OGBIC03_AAlib8 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib8 = ? ALORS
    		OGBIC03_AAlib8 := OGBIC03_AAlib8_C 
    	FINSI
    SINON
    	OGBIC03_AAlib8_C := ?
    	OGBIC03_AAlib8 := ?
    FINSI
    
    SI OGBIC03_AA9 <> ? ALORS
    	compte ::= OGBIC03_AA9
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib9_C <> compte.libelle ALORS
    			OGBIC03_AAlib9_C := compte.libelle
    			OGBIC03_AAlib9 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib9_C <> ? ALORS
    			OGBIC03_AAlib9_C := ?
    			OGBIC03_AAlib9 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib9 = ? ALORS
    		OGBIC03_AAlib9 := OGBIC03_AAlib9_C 
    	FINSI
    SINON
    	OGBIC03_AAlib9_C := ?
    	OGBIC03_AAlib9 := ?
    FINSI
    
    SI OGBIC03_AA10 <> ? ALORS
    	compte ::= OGBIC03_AA10
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib10_C <> compte.libelle ALORS
    			OGBIC03_AAlib10_C := compte.libelle
    			OGBIC03_AAlib10 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib10_C <> ? ALORS
    			OGBIC03_AAlib10_C := ?
    			OGBIC03_AAlib10 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib10 = ? ALORS
    		OGBIC03_AAlib10 := OGBIC03_AAlib10_C 
    	FINSI
    SINON
    	OGBIC03_AAlib10_C := ?
    	OGBIC03_AAlib10 := ?
    FINSI
    
    SI OGBIC03_AA11 <> ? ALORS
    	compte ::= OGBIC03_AA11
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib11_C <> compte.libelle ALORS
    			OGBIC03_AAlib11_C := compte.libelle
    			OGBIC03_AAlib11 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib11_C <> ? ALORS
    			OGBIC03_AAlib11_C := ?
    			OGBIC03_AAlib11 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib11 = ? ALORS
    		OGBIC03_AAlib11 := OGBIC03_AAlib11_C 
    	FINSI
    SINON
    	OGBIC03_AAlib11_C := ?
    	OGBIC03_AAlib11 := ?
    FINSI
    
    
    SI OGBIC03_AA12 <> ? ALORS
    	compte ::= OGBIC03_AA12
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib12_C <> compte.libelle ALORS
    			OGBIC03_AAlib12_C := compte.libelle
    			OGBIC03_AAlib12 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib12_C <> ? ALORS
    			OGBIC03_AAlib12_C := ?
    			OGBIC03_AAlib12 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib12 = ? ALORS
    		OGBIC03_AAlib12 := OGBIC03_AAlib12_C 
    	FINSI
    SINON
    	OGBIC03_AAlib12_C := ?
    	OGBIC03_AAlib12 := ?
    FINSI
    
    SI OGBIC03_AA13 <> ? ALORS
    	compte ::= OGBIC03_AA13
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib13_C <> compte.libelle ALORS
    			OGBIC03_AAlib13_C := compte.libelle
    			OGBIC03_AAlib13 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib13_C <> ? ALORS
    			OGBIC03_AAlib13_C := ?
    			OGBIC03_AAlib13 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib13 = ? ALORS
    		OGBIC03_AAlib13 := OGBIC03_AAlib13_C 
    	FINSI
    SINON
    	OGBIC03_AAlib13_C := ?
    	OGBIC03_AAlib13 := ?
    FINSI
    
    SI OGBIC03_AA14 <> ? ALORS
    	compte ::= OGBIC03_AA14
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib14_C <> compte.libelle ALORS
    			OGBIC03_AAlib14_C := compte.libelle
    			OGBIC03_AAlib14 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib14_C <> ? ALORS
    			OGBIC03_AAlib14_C := ?
    			OGBIC03_AAlib14 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib14 = ? ALORS
    		OGBIC03_AAlib14 := OGBIC03_AAlib14_C 
    	FINSI
    SINON
    	OGBIC03_AAlib14_C := ?
    	OGBIC03_AAlib14 := ?
    FINSI
    
    SI OGBIC03_AA15 <> ? ALORS
    	compte ::= OGBIC03_AA15
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib15_C <> compte.libelle ALORS
    			OGBIC03_AAlib15_C := compte.libelle
    			OGBIC03_AAlib15 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib15_C <> ? ALORS
    			OGBIC03_AAlib15_C := ?
    			OGBIC03_AAlib15 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib15 = ? ALORS
    		OGBIC03_AAlib15 := OGBIC03_AAlib15_C 
    	FINSI
    SINON
    	OGBIC03_AAlib15_C := ?
    	OGBIC03_AAlib15 := ?
    FINSI
    
    SI OGBIC03_AA16 <> ? ALORS
    	compte ::= OGBIC03_AA16
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib16_C <> compte.libelle ALORS
    			OGBIC03_AAlib16_C := compte.libelle
    			OGBIC03_AAlib16 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib16_C <> ? ALORS
    			OGBIC03_AAlib16_C := ?
    			OGBIC03_AAlib16 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib16 = ? ALORS
    		OGBIC03_AAlib16 := OGBIC03_AAlib16_C 
    	FINSI
    SINON
    	OGBIC03_AAlib16_C := ?
    	OGBIC03_AAlib16 := ?
    FINSI
    
    SI OGBIC03_AA17 <> ? ALORS
    	compte ::= OGBIC03_AA17
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib17_C <> compte.libelle ALORS
    			OGBIC03_AAlib17_C := compte.libelle
    			OGBIC03_AAlib17 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib17_C <> ? ALORS
    			OGBIC03_AAlib17_C := ?
    			OGBIC03_AAlib17 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib17 = ? ALORS
    		OGBIC03_AAlib17 := OGBIC03_AAlib17_C 
    	FINSI
    SINON
    	OGBIC03_AAlib17_C := ?
    	OGBIC03_AAlib17 := ?
    FINSI
    
    SI OGBIC03_AA18 <> ? ALORS
    	compte ::= OGBIC03_AA18
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib18_C <> compte.libelle ALORS
    			OGBIC03_AAlib18_C := compte.libelle
    			OGBIC03_AAlib18 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib18_C <> ? ALORS
    			OGBIC03_AAlib18_C := ?
    			OGBIC03_AAlib18 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib18 = ? ALORS
    		OGBIC03_AAlib18 := OGBIC03_AAlib18_C 
    	FINSI
    SINON
    	OGBIC03_AAlib18_C := ?
    	OGBIC03_AAlib18 := ?
    FINSI
    
    SI OGBIC03_AA19 <> ? ALORS
    	compte ::= OGBIC03_AA19
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib19_C <> compte.libelle ALORS
    			OGBIC03_AAlib19_C := compte.libelle
    			OGBIC03_AAlib19 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib19_C <> ? ALORS
    			OGBIC03_AAlib19_C := ?
    			OGBIC03_AAlib19 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib19 = ? ALORS
    		OGBIC03_AAlib19 := OGBIC03_AAlib19_C 
    	FINSI
    SINON
    	OGBIC03_AAlib19_C := ?
    	OGBIC03_AAlib19 := ?
    FINSI
    
    SI OGBIC03_AA20 <> ? ALORS
    	compte ::= OGBIC03_AA20
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib20_C <> compte.libelle ALORS
    			OGBIC03_AAlib20_C := compte.libelle
    			OGBIC03_AAlib20 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib20_C <> ? ALORS
    			OGBIC03_AAlib20_C := ?
    			OGBIC03_AAlib20 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib20 = ? ALORS
    		OGBIC03_AAlib20 := OGBIC03_AAlib20_C 
    	FINSI
    SINON
    	OGBIC03_AAlib20_C := ?
    	OGBIC03_AAlib20 := ?
    FINSI
    
    SI OGBIC03_AA21 <> ? ALORS
    	compte ::= OGBIC03_AA21
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib21_C <> compte.libelle ALORS
    			OGBIC03_AAlib21_C := compte.libelle
    			OGBIC03_AAlib21 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib21_C <> ? ALORS
    			OGBIC03_AAlib21_C := ?
    			OGBIC03_AAlib21 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib21 = ? ALORS
    		OGBIC03_AAlib21 := OGBIC03_AAlib21_C 
    	FINSI
    SINON
    	OGBIC03_AAlib21_C := ?
    	OGBIC03_AAlib21 := ?
    FINSI
    
    SI OGBIC03_AA22 <> ? ALORS
    	compte ::= OGBIC03_AA22
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib22_C <> compte.libelle ALORS
    			OGBIC03_AAlib22_C := compte.libelle
    			OGBIC03_AAlib22 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib22_C <> ? ALORS
    			OGBIC03_AAlib22_C := ?
    			OGBIC03_AAlib22 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib22 = ? ALORS
    		OGBIC03_AAlib22 := OGBIC03_AAlib22_C 
    	FINSI
    SINON
    	OGBIC03_AAlib22_C := ?
    	OGBIC03_AAlib22 := ?
    FINSI
    
    SI OGBIC03_AA23 <> ? ALORS
    	compte ::= OGBIC03_AA23
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib23_C <> compte.libelle ALORS
    			OGBIC03_AAlib23_C := compte.libelle
    			OGBIC03_AAlib23 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib23_C <> ? ALORS
    			OGBIC03_AAlib23_C := ?
    			OGBIC03_AAlib23 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib23 = ? ALORS
    		OGBIC03_AAlib23 := OGBIC03_AAlib23_C 
    	FINSI
    SINON
    	OGBIC03_AAlib23_C := ?
    	OGBIC03_AAlib23 := ?
    FINSI
    
    SI OGBIC03_AA24 <> ? ALORS
    	compte ::= OGBIC03_AA24
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib24_C <> compte.libelle ALORS
    			OGBIC03_AAlib24_C := compte.libelle
    			OGBIC03_AAlib24 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib24_C <> ? ALORS
    			OGBIC03_AAlib24_C := ?
    			OGBIC03_AAlib24 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib24 = ? ALORS
    		OGBIC03_AAlib24 := OGBIC03_AAlib24_C 
    	FINSI
    SINON
    	OGBIC03_AAlib24_C := ?
    	OGBIC03_AAlib24 := ?
    FINSI
    
    SI OGBIC03_AA25 <> ? ALORS
    	compte ::= OGBIC03_AA25
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib25_C <> compte.libelle ALORS
    			OGBIC03_AAlib25_C := compte.libelle
    			OGBIC03_AAlib25 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib25_C <> ? ALORS
    			OGBIC03_AAlib25_C := ?
    			OGBIC03_AAlib25 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib25 = ? ALORS
    		OGBIC03_AAlib25 := OGBIC03_AAlib25_C 
    	FINSI
    SINON
    	OGBIC03_AAlib25_C := ?
    	OGBIC03_AAlib25 := ?
    FINSI
    
    SI OGBIC03_AA26 <> ? ALORS
    	compte ::= OGBIC03_AA26
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib26_C <> compte.libelle ALORS
    			OGBIC03_AAlib26_C := compte.libelle
    			OGBIC03_AAlib26 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib26_C <> ? ALORS
    			OGBIC03_AAlib26_C := ?
    			OGBIC03_AAlib26 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib26 = ? ALORS
    		OGBIC03_AAlib26 := OGBIC03_AAlib26_C 
    	FINSI
    SINON
    	OGBIC03_AAlib26_C := ?
    	OGBIC03_AAlib26 := ?
    FINSI
    
    SI OGBIC03_AA27 <> ? ALORS
    	compte ::= OGBIC03_AA27
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib27_C <> compte.libelle ALORS
    			OGBIC03_AAlib27_C := compte.libelle
    			OGBIC03_AAlib27 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib27_C <> ? ALORS
    			OGBIC03_AAlib27_C := ?
    			OGBIC03_AAlib27 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib27 = ? ALORS
    		OGBIC03_AAlib27 := OGBIC03_AAlib27_C 
    	FINSI
    SINON
    	OGBIC03_AAlib27_C := ?
    	OGBIC03_AAlib27 := ?
    FINSI
    
    SI OGBIC03_AA28 <> ? ALORS
    	compte ::= OGBIC03_AA28
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib28_C <> compte.libelle ALORS
    			OGBIC03_AAlib28_C := compte.libelle
    			OGBIC03_AAlib28 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib28_C <> ? ALORS
    			OGBIC03_AAlib28_C := ?
    			OGBIC03_AAlib28 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib28 = ? ALORS
    		OGBIC03_AAlib28 := OGBIC03_AAlib28_C 
    	FINSI
    SINON
    	OGBIC03_AAlib28_C := ?
    	OGBIC03_AAlib28 := ?
    FINSI
    
    SI OGBIC03_AA29 <> ? ALORS
    	compte ::= OGBIC03_AA29
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib29_C <> compte.libelle ALORS
    			OGBIC03_AAlib29_C := compte.libelle
    			OGBIC03_AAlib29 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib29_C <> ? ALORS
    			OGBIC03_AAlib29_C := ?
    			OGBIC03_AAlib29 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib29 = ? ALORS
    		OGBIC03_AAlib29 := OGBIC03_AAlib29_C 
    	FINSI
    SINON
    	OGBIC03_AAlib29_C := ?
    	OGBIC03_AAlib29 := ?
    FINSI
    
    SI OGBIC03_AA30 <> ? ALORS
    	compte ::= OGBIC03_AA30
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib30_C <> compte.libelle ALORS
    			OGBIC03_AAlib30_C := compte.libelle
    			OGBIC03_AAlib30 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib30_C <> ? ALORS
    			OGBIC03_AAlib30_C := ?
    			OGBIC03_AAlib30 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib30 = ? ALORS
    		OGBIC03_AAlib30 := OGBIC03_AAlib30_C 
    	FINSI
    SINON
    	OGBIC03_AAlib30_C := ?
    	OGBIC03_AAlib30 := ?
    FINSI
    
    SI OGBIC03_AA31 <> ? ALORS
    	compte ::= OGBIC03_AA31
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib31_C <> compte.libelle ALORS
    			OGBIC03_AAlib31_C := compte.libelle
    			OGBIC03_AAlib31 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib31_C <> ? ALORS
    			OGBIC03_AAlib31_C := ?
    			OGBIC03_AAlib31 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib31 = ? ALORS
    		OGBIC03_AAlib31 := OGBIC03_AAlib31_C 
    	FINSI
    SINON
    	OGBIC03_AAlib31_C := ?
    	OGBIC03_AAlib31 := ?
    FINSI
    
    SI OGBIC03_AA32 <> ? ALORS
    	compte ::= OGBIC03_AA32
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib32_C <> compte.libelle ALORS
    			OGBIC03_AAlib32_C := compte.libelle
    			OGBIC03_AAlib32 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib32_C <> ? ALORS
    			OGBIC03_AAlib32_C := ?
    			OGBIC03_AAlib32 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib32 = ? ALORS
    		OGBIC03_AAlib32 := OGBIC03_AAlib32_C 
    	FINSI
    SINON
    	OGBIC03_AAlib32_C := ?
    	OGBIC03_AAlib32 := ?
    FINSI
    
    SI OGBIC03_AA33 <> ? ALORS
    	compte ::= OGBIC03_AA33
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_AAlib33_C <> compte.libelle ALORS
    			OGBIC03_AAlib33_C := compte.libelle
    			OGBIC03_AAlib33 := ?
    		FINSI
    	SINON
    		SI OGBIC03_AAlib33_C <> ? ALORS
    			OGBIC03_AAlib33_C := ?
    			OGBIC03_AAlib33 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_AAlib33 = ? ALORS
    		OGBIC03_AAlib33 := OGBIC03_AAlib33_C 
    	FINSI
    SINON
    	OGBIC03_AAlib33_C := ?
    	OGBIC03_AAlib33 := ?
    FINSI
###
'INTEROGBIC03RH' 'Nouveaux OG'
    
    SI OGBIC03_RH1 <> ? ALORS
    	compte ::= OGBIC03_RH1
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib1_C <> compte.libelle ALORS
    			OGBIC03_RHlib1_C := compte.libelle
    			OGBIC03_RHlib1 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib1_C <> ? ALORS
    			OGBIC03_RHlib1_C := ?
    			OGBIC03_RHlib1 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib1 = ? ALORS
    		OGBIC03_RHlib1 := OGBIC03_RHlib1_C 
    	FINSI
    SINON
    	OGBIC03_RHlib1_C := ?
    	OGBIC03_RHlib1 := ?
    FINSI
    
    SI OGBIC03_RH2 <> ? ALORS
    	compte ::= OGBIC03_RH2
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib2_C <> compte.libelle ALORS
    			OGBIC03_RHlib2_C := compte.libelle
    			OGBIC03_RHlib2 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib2_C <> ? ALORS
    			OGBIC03_RHlib2_C := ?
    			OGBIC03_RHlib2 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib2 = ? ALORS
    		OGBIC03_RHlib2 := OGBIC03_RHlib2_C 
    	FINSI
    SINON
    	OGBIC03_RHlib2_C := ?
    	OGBIC03_RHlib2 := ?
    FINSI
    
    SI OGBIC03_RH3 <> ? ALORS
    	compte ::= OGBIC03_RH3
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib3_C <> compte.libelle ALORS
    			OGBIC03_RHlib3_C := compte.libelle
    			OGBIC03_RHlib3 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib3_C <> ? ALORS
    			OGBIC03_RHlib3_C := ?
    			OGBIC03_RHlib3 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib3 = ? ALORS
    		OGBIC03_RHlib3 := OGBIC03_RHlib3_C 
    	FINSI
    SINON
    	OGBIC03_RHlib3_C := ?
    	OGBIC03_RHlib3 := ?
    FINSI
    
    SI OGBIC03_RH4 <> ? ALORS
    	compte ::= OGBIC03_RH4
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib4_C <> compte.libelle ALORS
    			OGBIC03_RHlib4_C := compte.libelle
    			OGBIC03_RHlib4 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib4_C <> ? ALORS
    			OGBIC03_RHlib4_C := ?
    			OGBIC03_RHlib4 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib4 = ? ALORS
    		OGBIC03_RHlib4 := OGBIC03_RHlib4_C 
    	FINSI
    SINON
    	OGBIC03_RHlib4_C := ?
    	OGBIC03_RHlib4 := ?
    FINSI
    
    SI OGBIC03_RH5 <> ? ALORS
    	compte ::= OGBIC03_RH5
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib5_C <> compte.libelle ALORS
    			OGBIC03_RHlib5_C := compte.libelle
    			OGBIC03_RHlib5 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib5_C <> ? ALORS
    			OGBIC03_RHlib5_C := ?
    			OGBIC03_RHlib5 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib5 = ? ALORS
    		OGBIC03_RHlib5 := OGBIC03_RHlib5_C 
    	FINSI
    SINON
    	OGBIC03_RHlib5_C := ?
    	OGBIC03_RHlib5 := ?
    FINSI
    
    SI OGBIC03_RH6 <> ? ALORS
    	compte ::= OGBIC03_RH6
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib6_C <> compte.libelle ALORS
    			OGBIC03_RHlib6_C := compte.libelle
    			OGBIC03_RHlib6 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib6_C <> ? ALORS
    			OGBIC03_RHlib6_C := ?
    			OGBIC03_RHlib6 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib6 = ? ALORS
    		OGBIC03_RHlib6 := OGBIC03_RHlib6_C 
    	FINSI
    SINON
    	OGBIC03_RHlib6_C := ?
    	OGBIC03_RHlib6 := ?
    FINSI
    
    SI OGBIC03_RH7 <> ? ALORS
    	compte ::= OGBIC03_RH7
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib7_C <> compte.libelle ALORS
    			OGBIC03_RHlib7_C := compte.libelle
    			OGBIC03_RHlib7 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib7_C <> ? ALORS
    			OGBIC03_RHlib7_C := ?
    			OGBIC03_RHlib7 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib7 = ? ALORS
    		OGBIC03_RHlib7 := OGBIC03_RHlib7_C 
    	FINSI
    SINON
    	OGBIC03_RHlib7_C := ?
    	OGBIC03_RHlib7 := ?
    FINSI
    
    SI OGBIC03_RH8 <> ? ALORS
    	compte ::= OGBIC03_RH8
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib8_C <> compte.libelle ALORS
    			OGBIC03_RHlib8_C := compte.libelle
    			OGBIC03_RHlib8 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib8_C <> ? ALORS
    			OGBIC03_RHlib8_C := ?
    			OGBIC03_RHlib8 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib8 = ? ALORS
    		OGBIC03_RHlib8 := OGBIC03_RHlib8_C 
    	FINSI
    SINON
    	OGBIC03_RHlib8_C := ?
    	OGBIC03_RHlib8 := ?
    FINSI
    
    SI OGBIC03_RH9 <> ? ALORS
    	compte ::= OGBIC03_RH9
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib9_C <> compte.libelle ALORS
    			OGBIC03_RHlib9_C := compte.libelle
    			OGBIC03_RHlib9 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib9_C <> ? ALORS
    			OGBIC03_RHlib9_C := ?
    			OGBIC03_RHlib9 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib9 = ? ALORS
    		OGBIC03_RHlib9 := OGBIC03_RHlib9_C 
    	FINSI
    SINON
    	OGBIC03_RHlib9_C := ?
    	OGBIC03_RHlib9 := ?
    FINSI
    
    SI OGBIC03_RH10 <> ? ALORS
    	compte ::= OGBIC03_RH10
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib10_C <> compte.libelle ALORS
    			OGBIC03_RHlib10_C := compte.libelle
    			OGBIC03_RHlib10 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib10_C <> ? ALORS
    			OGBIC03_RHlib10_C := ?
    			OGBIC03_RHlib10 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib10 = ? ALORS
    		OGBIC03_RHlib10 := OGBIC03_RHlib10_C 
    	FINSI
    SINON
    	OGBIC03_RHlib10_C := ?
    	OGBIC03_RHlib10 := ?
    FINSI
    
    SI OGBIC03_RH11 <> ? ALORS
    	compte ::= OGBIC03_RH11
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib11_C <> compte.libelle ALORS
    			OGBIC03_RHlib11_C := compte.libelle
    			OGBIC03_RHlib11 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib11_C <> ? ALORS
    			OGBIC03_RHlib11_C := ?
    			OGBIC03_RHlib11 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib11 = ? ALORS
    		OGBIC03_RHlib11 := OGBIC03_RHlib11_C 
    	FINSI
    SINON
    	OGBIC03_RHlib11_C := ?
    	OGBIC03_RHlib11 := ?
    FINSI
    
    
    SI OGBIC03_RH12 <> ? ALORS
    	compte ::= OGBIC03_RH12
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib12_C <> compte.libelle ALORS
    			OGBIC03_RHlib12_C := compte.libelle
    			OGBIC03_RHlib12 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib12_C <> ? ALORS
    			OGBIC03_RHlib12_C := ?
    			OGBIC03_RHlib12 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib12 = ? ALORS
    		OGBIC03_RHlib12 := OGBIC03_RHlib12_C 
    	FINSI
    SINON
    	OGBIC03_RHlib12_C := ?
    	OGBIC03_RHlib12 := ?
    FINSI
    
    SI OGBIC03_RH13 <> ? ALORS
    	compte ::= OGBIC03_RH13
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib13_C <> compte.libelle ALORS
    			OGBIC03_RHlib13_C := compte.libelle
    			OGBIC03_RHlib13 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib13_C <> ? ALORS
    			OGBIC03_RHlib13_C := ?
    			OGBIC03_RHlib13 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib13 = ? ALORS
    		OGBIC03_RHlib13 := OGBIC03_RHlib13_C 
    	FINSI
    SINON
    	OGBIC03_RHlib13_C := ?
    	OGBIC03_RHlib13 := ?
    FINSI
    
    SI OGBIC03_RH14 <> ? ALORS
    	compte ::= OGBIC03_RH14
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib14_C <> compte.libelle ALORS
    			OGBIC03_RHlib14_C := compte.libelle
    			OGBIC03_RHlib14 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib14_C <> ? ALORS
    			OGBIC03_RHlib14_C := ?
    			OGBIC03_RHlib14 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib14 = ? ALORS
    		OGBIC03_RHlib14 := OGBIC03_RHlib14_C 
    	FINSI
    SINON
    	OGBIC03_RHlib14_C := ?
    	OGBIC03_RHlib14 := ?
    FINSI
    
    SI OGBIC03_RH15 <> ? ALORS
    	compte ::= OGBIC03_RH15
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib15_C <> compte.libelle ALORS
    			OGBIC03_RHlib15_C := compte.libelle
    			OGBIC03_RHlib15 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib15_C <> ? ALORS
    			OGBIC03_RHlib15_C := ?
    			OGBIC03_RHlib15 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib15 = ? ALORS
    		OGBIC03_RHlib15 := OGBIC03_RHlib15_C 
    	FINSI
    SINON
    	OGBIC03_RHlib15_C := ?
    	OGBIC03_RHlib15 := ?
    FINSI
    
    SI OGBIC03_RH16 <> ? ALORS
    	compte ::= OGBIC03_RH16
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib16_C <> compte.libelle ALORS
    			OGBIC03_RHlib16_C := compte.libelle
    			OGBIC03_RHlib16 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib16_C <> ? ALORS
    			OGBIC03_RHlib16_C := ?
    			OGBIC03_RHlib16 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib16 = ? ALORS
    		OGBIC03_RHlib16 := OGBIC03_RHlib16_C 
    	FINSI
    SINON
    	OGBIC03_RHlib16_C := ?
    	OGBIC03_RHlib16 := ?
    FINSI
    
    SI OGBIC03_RH17 <> ? ALORS
    	compte ::= OGBIC03_RH17
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib17_C <> compte.libelle ALORS
    			OGBIC03_RHlib17_C := compte.libelle
    			OGBIC03_RHlib17 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib17_C <> ? ALORS
    			OGBIC03_RHlib17_C := ?
    			OGBIC03_RHlib17 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib17 = ? ALORS
    		OGBIC03_RHlib17 := OGBIC03_RHlib17_C 
    	FINSI
    SINON
    	OGBIC03_RHlib17_C := ?
    	OGBIC03_RHlib17 := ?
    FINSI
    
    SI OGBIC03_RH18 <> ? ALORS
    	compte ::= OGBIC03_RH18
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib18_C <> compte.libelle ALORS
    			OGBIC03_RHlib18_C := compte.libelle
    			OGBIC03_RHlib18 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib18_C <> ? ALORS
    			OGBIC03_RHlib18_C := ?
    			OGBIC03_RHlib18 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib18 = ? ALORS
    		OGBIC03_RHlib18 := OGBIC03_RHlib18_C 
    	FINSI
    SINON
    	OGBIC03_RHlib18_C := ?
    	OGBIC03_RHlib18 := ?
    FINSI
    
    SI OGBIC03_RH19 <> ? ALORS
    	compte ::= OGBIC03_RH19
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib19_C <> compte.libelle ALORS
    			OGBIC03_RHlib19_C := compte.libelle
    			OGBIC03_RHlib19 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib19_C <> ? ALORS
    			OGBIC03_RHlib19_C := ?
    			OGBIC03_RHlib19 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib19 = ? ALORS
    		OGBIC03_RHlib19 := OGBIC03_RHlib19_C 
    	FINSI
    SINON
    	OGBIC03_RHlib19_C := ?
    	OGBIC03_RHlib19 := ?
    FINSI
    
    SI OGBIC03_RH20 <> ? ALORS
    	compte ::= OGBIC03_RH20
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib20_C <> compte.libelle ALORS
    			OGBIC03_RHlib20_C := compte.libelle
    			OGBIC03_RHlib20 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib20_C <> ? ALORS
    			OGBIC03_RHlib20_C := ?
    			OGBIC03_RHlib20 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib20 = ? ALORS
    		OGBIC03_RHlib20 := OGBIC03_RHlib20_C 
    	FINSI
    SINON
    	OGBIC03_RHlib20_C := ?
    	OGBIC03_RHlib20 := ?
    FINSI
    
    SI OGBIC03_RH21 <> ? ALORS
    	compte ::= OGBIC03_RH21
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib21_C <> compte.libelle ALORS
    			OGBIC03_RHlib21_C := compte.libelle
    			OGBIC03_RHlib21 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib21_C <> ? ALORS
    			OGBIC03_RHlib21_C := ?
    			OGBIC03_RHlib21 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib21 = ? ALORS
    		OGBIC03_RHlib21 := OGBIC03_RHlib21_C 
    	FINSI
    SINON
    	OGBIC03_RHlib21_C := ?
    	OGBIC03_RHlib21 := ?
    FINSI
    
    SI OGBIC03_RH22 <> ? ALORS
    	compte ::= OGBIC03_RH22
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib22_C <> compte.libelle ALORS
    			OGBIC03_RHlib22_C := compte.libelle
    			OGBIC03_RHlib22 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib22_C <> ? ALORS
    			OGBIC03_RHlib22_C := ?
    			OGBIC03_RHlib22 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib22 = ? ALORS
    		OGBIC03_RHlib22 := OGBIC03_RHlib22_C 
    	FINSI
    SINON
    	OGBIC03_RHlib22_C := ?
    	OGBIC03_RHlib22 := ?
    FINSI
    
    SI OGBIC03_RH23 <> ? ALORS
    	compte ::= OGBIC03_RH23
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib23_C <> compte.libelle ALORS
    			OGBIC03_RHlib23_C := compte.libelle
    			OGBIC03_RHlib23 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib23_C <> ? ALORS
    			OGBIC03_RHlib23_C := ?
    			OGBIC03_RHlib23 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib23 = ? ALORS
    		OGBIC03_RHlib23 := OGBIC03_RHlib23_C 
    	FINSI
    SINON
    	OGBIC03_RHlib23_C := ?
    	OGBIC03_RHlib23 := ?
    FINSI
    
    SI OGBIC03_RH24 <> ? ALORS
    	compte ::= OGBIC03_RH24
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib24_C <> compte.libelle ALORS
    			OGBIC03_RHlib24_C := compte.libelle
    			OGBIC03_RHlib24 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib24_C <> ? ALORS
    			OGBIC03_RHlib24_C := ?
    			OGBIC03_RHlib24 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib24 = ? ALORS
    		OGBIC03_RHlib24 := OGBIC03_RHlib24_C 
    	FINSI
    SINON
    	OGBIC03_RHlib24_C := ?
    	OGBIC03_RHlib24 := ?
    FINSI
    
    SI OGBIC03_RH25 <> ? ALORS
    	compte ::= OGBIC03_RH25
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib25_C <> compte.libelle ALORS
    			OGBIC03_RHlib25_C := compte.libelle
    			OGBIC03_RHlib25 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib25_C <> ? ALORS
    			OGBIC03_RHlib25_C := ?
    			OGBIC03_RHlib25 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib25 = ? ALORS
    		OGBIC03_RHlib25 := OGBIC03_RHlib25_C 
    	FINSI
    SINON
    	OGBIC03_RHlib25_C := ?
    	OGBIC03_RHlib25 := ?
    FINSI
    
    SI OGBIC03_RH26 <> ? ALORS
    	compte ::= OGBIC03_RH26
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib26_C <> compte.libelle ALORS
    			OGBIC03_RHlib26_C := compte.libelle
    			OGBIC03_RHlib26 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib26_C <> ? ALORS
    			OGBIC03_RHlib26_C := ?
    			OGBIC03_RHlib26 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib26 = ? ALORS
    		OGBIC03_RHlib26 := OGBIC03_RHlib26_C 
    	FINSI
    SINON
    	OGBIC03_RHlib26_C := ?
    	OGBIC03_RHlib26 := ?
    FINSI
    
    SI OGBIC03_RH27 <> ? ALORS
    	compte ::= OGBIC03_RH27
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib27_C <> compte.libelle ALORS
    			OGBIC03_RHlib27_C := compte.libelle
    			OGBIC03_RHlib27 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib27_C <> ? ALORS
    			OGBIC03_RHlib27_C := ?
    			OGBIC03_RHlib27 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib27 = ? ALORS
    		OGBIC03_RHlib27 := OGBIC03_RHlib27_C 
    	FINSI
    SINON
    	OGBIC03_RHlib27_C := ?
    	OGBIC03_RHlib27 := ?
    FINSI
    
    SI OGBIC03_RH28 <> ? ALORS
    	compte ::= OGBIC03_RH28
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib28_C <> compte.libelle ALORS
    			OGBIC03_RHlib28_C := compte.libelle
    			OGBIC03_RHlib28 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib28_C <> ? ALORS
    			OGBIC03_RHlib28_C := ?
    			OGBIC03_RHlib28 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib28 = ? ALORS
    		OGBIC03_RHlib28 := OGBIC03_RHlib28_C 
    	FINSI
    SINON
    	OGBIC03_RHlib28_C := ?
    	OGBIC03_RHlib28 := ?
    FINSI
    
    SI OGBIC03_RH29 <> ? ALORS
    	compte ::= OGBIC03_RH29
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib29_C <> compte.libelle ALORS
    			OGBIC03_RHlib29_C := compte.libelle
    			OGBIC03_RHlib29 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib29_C <> ? ALORS
    			OGBIC03_RHlib29_C := ?
    			OGBIC03_RHlib29 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib29 = ? ALORS
    		OGBIC03_RHlib29 := OGBIC03_RHlib29_C 
    	FINSI
    SINON
    	OGBIC03_RHlib29_C := ?
    	OGBIC03_RHlib29 := ?
    FINSI
    
    SI OGBIC03_RH30 <> ? ALORS
    	compte ::= OGBIC03_RH30
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib30_C <> compte.libelle ALORS
    			OGBIC03_RHlib30_C := compte.libelle
    			OGBIC03_RHlib30 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib30_C <> ? ALORS
    			OGBIC03_RHlib30_C := ?
    			OGBIC03_RHlib30 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib30 = ? ALORS
    		OGBIC03_RHlib30 := OGBIC03_RHlib30_C 
    	FINSI
    SINON
    	OGBIC03_RHlib30_C := ?
    	OGBIC03_RHlib30 := ?
    FINSI
    
    SI OGBIC03_RH31 <> ? ALORS
    	compte ::= OGBIC03_RH31
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib31_C <> compte.libelle ALORS
    			OGBIC03_RHlib31_C := compte.libelle
    			OGBIC03_RHlib31 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib31_C <> ? ALORS
    			OGBIC03_RHlib31_C := ?
    			OGBIC03_RHlib31 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib31 = ? ALORS
    		OGBIC03_RHlib31 := OGBIC03_RHlib31_C 
    	FINSI
    SINON
    	OGBIC03_RHlib31_C := ?
    	OGBIC03_RHlib31 := ?
    FINSI
    
    SI OGBIC03_RH32 <> ? ALORS
    	compte ::= OGBIC03_RH32
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib32_C <> compte.libelle ALORS
    			OGBIC03_RHlib32_C := compte.libelle
    			OGBIC03_RHlib32 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib32_C <> ? ALORS
    			OGBIC03_RHlib32_C := ?
    			OGBIC03_RHlib32 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib32 = ? ALORS
    		OGBIC03_RHlib32 := OGBIC03_RHlib32_C 
    	FINSI
    SINON
    	OGBIC03_RHlib32_C := ?
    	OGBIC03_RHlib32 := ?
    FINSI
    
    SI OGBIC03_RH33 <> ? ALORS
    	compte ::= OGBIC03_RH33
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_RHlib33_C <> compte.libelle ALORS
    			OGBIC03_RHlib33_C := compte.libelle
    			OGBIC03_RHlib33 := ?
    		FINSI
    	SINON
    		SI OGBIC03_RHlib33_C <> ? ALORS
    			OGBIC03_RHlib33_C := ?
    			OGBIC03_RHlib33 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_RHlib33 = ? ALORS
    		OGBIC03_RHlib33 := OGBIC03_RHlib33_C 
    	FINSI
    SINON
    	OGBIC03_RHlib33_C := ?
    	OGBIC03_RHlib33 := ?
    FINSI
###
'INTEROGBIC03BA' 'Nouveaux OG'
    
    SI OGBIC03_BA1 <> ? ALORS
    	compte ::= OGBIC03_BA1
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib1_C <> compte.libelle ALORS
    			OGBIC03_BAlib1_C := compte.libelle
    			OGBIC03_BAlib1 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib1_C <> ? ALORS
    			OGBIC03_BAlib1_C := ?
    			OGBIC03_BAlib1 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib1 = ? ALORS
    		OGBIC03_BAlib1 := OGBIC03_BAlib1_C 
    	FINSI
    SINON
    	OGBIC03_BAlib1_C := ?
    	OGBIC03_BAlib1 := ?
    FINSI
    
    SI OGBIC03_BA2 <> ? ALORS
    	compte ::= OGBIC03_BA2
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib2_C <> compte.libelle ALORS
    			OGBIC03_BAlib2_C := compte.libelle
    			OGBIC03_BAlib2 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib2_C <> ? ALORS
    			OGBIC03_BAlib2_C := ?
    			OGBIC03_BAlib2 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib2 = ? ALORS
    		OGBIC03_BAlib2 := OGBIC03_BAlib2_C 
    	FINSI
    SINON
    	OGBIC03_BAlib2_C := ?
    	OGBIC03_BAlib2 := ?
    FINSI
    
    SI OGBIC03_BA3 <> ? ALORS
    	compte ::= OGBIC03_BA3
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib3_C <> compte.libelle ALORS
    			OGBIC03_BAlib3_C := compte.libelle
    			OGBIC03_BAlib3 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib3_C <> ? ALORS
    			OGBIC03_BAlib3_C := ?
    			OGBIC03_BAlib3 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib3 = ? ALORS
    		OGBIC03_BAlib3 := OGBIC03_BAlib3_C 
    	FINSI
    SINON
    	OGBIC03_BAlib3_C := ?
    	OGBIC03_BAlib3 := ?
    FINSI
    
    SI OGBIC03_BA4 <> ? ALORS
    	compte ::= OGBIC03_BA4
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib4_C <> compte.libelle ALORS
    			OGBIC03_BAlib4_C := compte.libelle
    			OGBIC03_BAlib4 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib4_C <> ? ALORS
    			OGBIC03_BAlib4_C := ?
    			OGBIC03_BAlib4 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib4 = ? ALORS
    		OGBIC03_BAlib4 := OGBIC03_BAlib4_C 
    	FINSI
    SINON
    	OGBIC03_BAlib4_C := ?
    	OGBIC03_BAlib4 := ?
    FINSI
    
    SI OGBIC03_BA5 <> ? ALORS
    	compte ::= OGBIC03_BA5
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib5_C <> compte.libelle ALORS
    			OGBIC03_BAlib5_C := compte.libelle
    			OGBIC03_BAlib5 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib5_C <> ? ALORS
    			OGBIC03_BAlib5_C := ?
    			OGBIC03_BAlib5 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib5 = ? ALORS
    		OGBIC03_BAlib5 := OGBIC03_BAlib5_C 
    	FINSI
    SINON
    	OGBIC03_BAlib5_C := ?
    	OGBIC03_BAlib5 := ?
    FINSI
    
    SI OGBIC03_BA6 <> ? ALORS
    	compte ::= OGBIC03_BA6
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib6_C <> compte.libelle ALORS
    			OGBIC03_BAlib6_C := compte.libelle
    			OGBIC03_BAlib6 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib6_C <> ? ALORS
    			OGBIC03_BAlib6_C := ?
    			OGBIC03_BAlib6 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib6 = ? ALORS
    		OGBIC03_BAlib6 := OGBIC03_BAlib6_C 
    	FINSI
    SINON
    	OGBIC03_BAlib6_C := ?
    	OGBIC03_BAlib6 := ?
    FINSI
    
    SI OGBIC03_BA7 <> ? ALORS
    	compte ::= OGBIC03_BA7
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib7_C <> compte.libelle ALORS
    			OGBIC03_BAlib7_C := compte.libelle
    			OGBIC03_BAlib7 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib7_C <> ? ALORS
    			OGBIC03_BAlib7_C := ?
    			OGBIC03_BAlib7 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib7 = ? ALORS
    		OGBIC03_BAlib7 := OGBIC03_BAlib7_C 
    	FINSI
    SINON
    	OGBIC03_BAlib7_C := ?
    	OGBIC03_BAlib7 := ?
    FINSI
    
    SI OGBIC03_BA8 <> ? ALORS
    	compte ::= OGBIC03_BA8
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib8_C <> compte.libelle ALORS
    			OGBIC03_BAlib8_C := compte.libelle
    			OGBIC03_BAlib8 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib8_C <> ? ALORS
    			OGBIC03_BAlib8_C := ?
    			OGBIC03_BAlib8 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib8 = ? ALORS
    		OGBIC03_BAlib8 := OGBIC03_BAlib8_C 
    	FINSI
    SINON
    	OGBIC03_BAlib8_C := ?
    	OGBIC03_BAlib8 := ?
    FINSI
    
    SI OGBIC03_BA9 <> ? ALORS
    	compte ::= OGBIC03_BA9
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib9_C <> compte.libelle ALORS
    			OGBIC03_BAlib9_C := compte.libelle
    			OGBIC03_BAlib9 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib9_C <> ? ALORS
    			OGBIC03_BAlib9_C := ?
    			OGBIC03_BAlib9 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib9 = ? ALORS
    		OGBIC03_BAlib9 := OGBIC03_BAlib9_C 
    	FINSI
    SINON
    	OGBIC03_BAlib9_C := ?
    	OGBIC03_BAlib9 := ?
    FINSI
    
    SI OGBIC03_BA10 <> ? ALORS
    	compte ::= OGBIC03_BA10
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib10_C <> compte.libelle ALORS
    			OGBIC03_BAlib10_C := compte.libelle
    			OGBIC03_BAlib10 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib10_C <> ? ALORS
    			OGBIC03_BAlib10_C := ?
    			OGBIC03_BAlib10 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib10 = ? ALORS
    		OGBIC03_BAlib10 := OGBIC03_BAlib10_C 
    	FINSI
    SINON
    	OGBIC03_BAlib10_C := ?
    	OGBIC03_BAlib10 := ?
    FINSI
    
    SI OGBIC03_BA11 <> ? ALORS
    	compte ::= OGBIC03_BA11
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib11_C <> compte.libelle ALORS
    			OGBIC03_BAlib11_C := compte.libelle
    			OGBIC03_BAlib11 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib11_C <> ? ALORS
    			OGBIC03_BAlib11_C := ?
    			OGBIC03_BAlib11 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib11 = ? ALORS
    		OGBIC03_BAlib11 := OGBIC03_BAlib11_C 
    	FINSI
    SINON
    	OGBIC03_BAlib11_C := ?
    	OGBIC03_BAlib11 := ?
    FINSI
    
    
    SI OGBIC03_BA12 <> ? ALORS
    	compte ::= OGBIC03_BA12
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib12_C <> compte.libelle ALORS
    			OGBIC03_BAlib12_C := compte.libelle
    			OGBIC03_BAlib12 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib12_C <> ? ALORS
    			OGBIC03_BAlib12_C := ?
    			OGBIC03_BAlib12 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib12 = ? ALORS
    		OGBIC03_BAlib12 := OGBIC03_BAlib12_C 
    	FINSI
    SINON
    	OGBIC03_BAlib12_C := ?
    	OGBIC03_BAlib12 := ?
    FINSI
    
    SI OGBIC03_BA13 <> ? ALORS
    	compte ::= OGBIC03_BA13
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib13_C <> compte.libelle ALORS
    			OGBIC03_BAlib13_C := compte.libelle
    			OGBIC03_BAlib13 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib13_C <> ? ALORS
    			OGBIC03_BAlib13_C := ?
    			OGBIC03_BAlib13 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib13 = ? ALORS
    		OGBIC03_BAlib13 := OGBIC03_BAlib13_C 
    	FINSI
    SINON
    	OGBIC03_BAlib13_C := ?
    	OGBIC03_BAlib13 := ?
    FINSI
    
    SI OGBIC03_BA14 <> ? ALORS
    	compte ::= OGBIC03_BA14
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib14_C <> compte.libelle ALORS
    			OGBIC03_BAlib14_C := compte.libelle
    			OGBIC03_BAlib14 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib14_C <> ? ALORS
    			OGBIC03_BAlib14_C := ?
    			OGBIC03_BAlib14 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib14 = ? ALORS
    		OGBIC03_BAlib14 := OGBIC03_BAlib14_C 
    	FINSI
    SINON
    	OGBIC03_BAlib14_C := ?
    	OGBIC03_BAlib14 := ?
    FINSI
    
    SI OGBIC03_BA15 <> ? ALORS
    	compte ::= OGBIC03_BA15
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib15_C <> compte.libelle ALORS
    			OGBIC03_BAlib15_C := compte.libelle
    			OGBIC03_BAlib15 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib15_C <> ? ALORS
    			OGBIC03_BAlib15_C := ?
    			OGBIC03_BAlib15 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib15 = ? ALORS
    		OGBIC03_BAlib15 := OGBIC03_BAlib15_C 
    	FINSI
    SINON
    	OGBIC03_BAlib15_C := ?
    	OGBIC03_BAlib15 := ?
    FINSI
    
    SI OGBIC03_BA16 <> ? ALORS
    	compte ::= OGBIC03_BA16
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib16_C <> compte.libelle ALORS
    			OGBIC03_BAlib16_C := compte.libelle
    			OGBIC03_BAlib16 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib16_C <> ? ALORS
    			OGBIC03_BAlib16_C := ?
    			OGBIC03_BAlib16 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib16 = ? ALORS
    		OGBIC03_BAlib16 := OGBIC03_BAlib16_C 
    	FINSI
    SINON
    	OGBIC03_BAlib16_C := ?
    	OGBIC03_BAlib16 := ?
    FINSI
    
    SI OGBIC03_BA17 <> ? ALORS
    	compte ::= OGBIC03_BA17
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib17_C <> compte.libelle ALORS
    			OGBIC03_BAlib17_C := compte.libelle
    			OGBIC03_BAlib17 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib17_C <> ? ALORS
    			OGBIC03_BAlib17_C := ?
    			OGBIC03_BAlib17 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib17 = ? ALORS
    		OGBIC03_BAlib17 := OGBIC03_BAlib17_C 
    	FINSI
    SINON
    	OGBIC03_BAlib17_C := ?
    	OGBIC03_BAlib17 := ?
    FINSI
    
    SI OGBIC03_BA18 <> ? ALORS
    	compte ::= OGBIC03_BA18
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib18_C <> compte.libelle ALORS
    			OGBIC03_BAlib18_C := compte.libelle
    			OGBIC03_BAlib18 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib18_C <> ? ALORS
    			OGBIC03_BAlib18_C := ?
    			OGBIC03_BAlib18 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib18 = ? ALORS
    		OGBIC03_BAlib18 := OGBIC03_BAlib18_C 
    	FINSI
    SINON
    	OGBIC03_BAlib18_C := ?
    	OGBIC03_BAlib18 := ?
    FINSI
    
    SI OGBIC03_BA19 <> ? ALORS
    	compte ::= OGBIC03_BA19
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib19_C <> compte.libelle ALORS
    			OGBIC03_BAlib19_C := compte.libelle
    			OGBIC03_BAlib19 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib19_C <> ? ALORS
    			OGBIC03_BAlib19_C := ?
    			OGBIC03_BAlib19 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib19 = ? ALORS
    		OGBIC03_BAlib19 := OGBIC03_BAlib19_C 
    	FINSI
    SINON
    	OGBIC03_BAlib19_C := ?
    	OGBIC03_BAlib19 := ?
    FINSI
    
    SI OGBIC03_BA20 <> ? ALORS
    	compte ::= OGBIC03_BA20
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib20_C <> compte.libelle ALORS
    			OGBIC03_BAlib20_C := compte.libelle
    			OGBIC03_BAlib20 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib20_C <> ? ALORS
    			OGBIC03_BAlib20_C := ?
    			OGBIC03_BAlib20 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib20 = ? ALORS
    		OGBIC03_BAlib20 := OGBIC03_BAlib20_C 
    	FINSI
    SINON
    	OGBIC03_BAlib20_C := ?
    	OGBIC03_BAlib20 := ?
    FINSI
    
    SI OGBIC03_BA21 <> ? ALORS
    	compte ::= OGBIC03_BA21
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib21_C <> compte.libelle ALORS
    			OGBIC03_BAlib21_C := compte.libelle
    			OGBIC03_BAlib21 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib21_C <> ? ALORS
    			OGBIC03_BAlib21_C := ?
    			OGBIC03_BAlib21 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib21 = ? ALORS
    		OGBIC03_BAlib21 := OGBIC03_BAlib21_C 
    	FINSI
    SINON
    	OGBIC03_BAlib21_C := ?
    	OGBIC03_BAlib21 := ?
    FINSI
    
    SI OGBIC03_BA22 <> ? ALORS
    	compte ::= OGBIC03_BA22
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib22_C <> compte.libelle ALORS
    			OGBIC03_BAlib22_C := compte.libelle
    			OGBIC03_BAlib22 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib22_C <> ? ALORS
    			OGBIC03_BAlib22_C := ?
    			OGBIC03_BAlib22 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib22 = ? ALORS
    		OGBIC03_BAlib22 := OGBIC03_BAlib22_C 
    	FINSI
    SINON
    	OGBIC03_BAlib22_C := ?
    	OGBIC03_BAlib22 := ?
    FINSI
    
    SI OGBIC03_BA23 <> ? ALORS
    	compte ::= OGBIC03_BA23
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib23_C <> compte.libelle ALORS
    			OGBIC03_BAlib23_C := compte.libelle
    			OGBIC03_BAlib23 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib23_C <> ? ALORS
    			OGBIC03_BAlib23_C := ?
    			OGBIC03_BAlib23 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib23 = ? ALORS
    		OGBIC03_BAlib23 := OGBIC03_BAlib23_C 
    	FINSI
    SINON
    	OGBIC03_BAlib23_C := ?
    	OGBIC03_BAlib23 := ?
    FINSI
    
    SI OGBIC03_BA24 <> ? ALORS
    	compte ::= OGBIC03_BA24
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib24_C <> compte.libelle ALORS
    			OGBIC03_BAlib24_C := compte.libelle
    			OGBIC03_BAlib24 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib24_C <> ? ALORS
    			OGBIC03_BAlib24_C := ?
    			OGBIC03_BAlib24 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib24 = ? ALORS
    		OGBIC03_BAlib24 := OGBIC03_BAlib24_C 
    	FINSI
    SINON
    	OGBIC03_BAlib24_C := ?
    	OGBIC03_BAlib24 := ?
    FINSI
    
    SI OGBIC03_BA25 <> ? ALORS
    	compte ::= OGBIC03_BA25
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib25_C <> compte.libelle ALORS
    			OGBIC03_BAlib25_C := compte.libelle
    			OGBIC03_BAlib25 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib25_C <> ? ALORS
    			OGBIC03_BAlib25_C := ?
    			OGBIC03_BAlib25 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib25 = ? ALORS
    		OGBIC03_BAlib25 := OGBIC03_BAlib25_C 
    	FINSI
    SINON
    	OGBIC03_BAlib25_C := ?
    	OGBIC03_BAlib25 := ?
    FINSI
    
    SI OGBIC03_BA26 <> ? ALORS
    	compte ::= OGBIC03_BA26
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib26_C <> compte.libelle ALORS
    			OGBIC03_BAlib26_C := compte.libelle
    			OGBIC03_BAlib26 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib26_C <> ? ALORS
    			OGBIC03_BAlib26_C := ?
    			OGBIC03_BAlib26 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib26 = ? ALORS
    		OGBIC03_BAlib26 := OGBIC03_BAlib26_C 
    	FINSI
    SINON
    	OGBIC03_BAlib26_C := ?
    	OGBIC03_BAlib26 := ?
    FINSI
    
    SI OGBIC03_BA27 <> ? ALORS
    	compte ::= OGBIC03_BA27
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib27_C <> compte.libelle ALORS
    			OGBIC03_BAlib27_C := compte.libelle
    			OGBIC03_BAlib27 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib27_C <> ? ALORS
    			OGBIC03_BAlib27_C := ?
    			OGBIC03_BAlib27 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib27 = ? ALORS
    		OGBIC03_BAlib27 := OGBIC03_BAlib27_C 
    	FINSI
    SINON
    	OGBIC03_BAlib27_C := ?
    	OGBIC03_BAlib27 := ?
    FINSI
    
    SI OGBIC03_BA28 <> ? ALORS
    	compte ::= OGBIC03_BA28
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib28_C <> compte.libelle ALORS
    			OGBIC03_BAlib28_C := compte.libelle
    			OGBIC03_BAlib28 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib28_C <> ? ALORS
    			OGBIC03_BAlib28_C := ?
    			OGBIC03_BAlib28 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib28 = ? ALORS
    		OGBIC03_BAlib28 := OGBIC03_BAlib28_C 
    	FINSI
    SINON
    	OGBIC03_BAlib28_C := ?
    	OGBIC03_BAlib28 := ?
    FINSI
    
    SI OGBIC03_BA29 <> ? ALORS
    	compte ::= OGBIC03_BA29
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib29_C <> compte.libelle ALORS
    			OGBIC03_BAlib29_C := compte.libelle
    			OGBIC03_BAlib29 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib29_C <> ? ALORS
    			OGBIC03_BAlib29_C := ?
    			OGBIC03_BAlib29 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib29 = ? ALORS
    		OGBIC03_BAlib29 := OGBIC03_BAlib29_C 
    	FINSI
    SINON
    	OGBIC03_BAlib29_C := ?
    	OGBIC03_BAlib29 := ?
    FINSI
    
    SI OGBIC03_BA30 <> ? ALORS
    	compte ::= OGBIC03_BA30
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib30_C <> compte.libelle ALORS
    			OGBIC03_BAlib30_C := compte.libelle
    			OGBIC03_BAlib30 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib30_C <> ? ALORS
    			OGBIC03_BAlib30_C := ?
    			OGBIC03_BAlib30 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib30 = ? ALORS
    		OGBIC03_BAlib30 := OGBIC03_BAlib30_C 
    	FINSI
    SINON
    	OGBIC03_BAlib30_C := ?
    	OGBIC03_BAlib30 := ?
    FINSI
    
    SI OGBIC03_BA31 <> ? ALORS
    	compte ::= OGBIC03_BA31
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib31_C <> compte.libelle ALORS
    			OGBIC03_BAlib31_C := compte.libelle
    			OGBIC03_BAlib31 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib31_C <> ? ALORS
    			OGBIC03_BAlib31_C := ?
    			OGBIC03_BAlib31 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib31 = ? ALORS
    		OGBIC03_BAlib31 := OGBIC03_BAlib31_C 
    	FINSI
    SINON
    	OGBIC03_BAlib31_C := ?
    	OGBIC03_BAlib31 := ?
    FINSI
    
    SI OGBIC03_BA32 <> ? ALORS
    	compte ::= OGBIC03_BA32
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib32_C <> compte.libelle ALORS
    			OGBIC03_BAlib32_C := compte.libelle
    			OGBIC03_BAlib32 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib32_C <> ? ALORS
    			OGBIC03_BAlib32_C := ?
    			OGBIC03_BAlib32 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib32 = ? ALORS
    		OGBIC03_BAlib32 := OGBIC03_BAlib32_C 
    	FINSI
    SINON
    	OGBIC03_BAlib32_C := ?
    	OGBIC03_BAlib32 := ?
    FINSI
    
    SI OGBIC03_BA33 <> ? ALORS
    	compte ::= OGBIC03_BA33
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_BAlib33_C <> compte.libelle ALORS
    			OGBIC03_BAlib33_C := compte.libelle
    			OGBIC03_BAlib33 := ?
    		FINSI
    	SINON
    		SI OGBIC03_BAlib33_C <> ? ALORS
    			OGBIC03_BAlib33_C := ?
    			OGBIC03_BAlib33 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_BAlib33 = ? ALORS
    		OGBIC03_BAlib33 := OGBIC03_BAlib33_C 
    	FINSI
    SINON
    	OGBIC03_BAlib33_C := ?
    	OGBIC03_BAlib33 := ?
    FINSI
###
'INTEROGBIC03GA' 'Nouveaux OG'
    
    SI OGBIC03_GA1 <> ? ALORS
    	compte ::= OGBIC03_GA1
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_GAlib1_C <> compte.libelle ALORS
    			OGBIC03_GAlib1_C := compte.libelle
    			OGBIC03_GAlib1 := ?
    		FINSI
    	SINON
    		SI OGBIC03_GAlib1_C <> ? ALORS
    			OGBIC03_GAlib1_C := ?
    			OGBIC03_GAlib1 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_GAlib1 = ? ALORS
    		OGBIC03_GAlib1 := OGBIC03_GAlib1_C 
    	FINSI
    SINON
    	OGBIC03_GAlib1_C := ?
    	OGBIC03_GAlib1 := ?
    FINSI
    
    SI OGBIC03_GA2 <> ? ALORS
    	compte ::= OGBIC03_GA2
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_GAlib2_C <> compte.libelle ALORS
    			OGBIC03_GAlib2_C := compte.libelle
    			OGBIC03_GAlib2 := ?
    		FINSI
    	SINON
    		SI OGBIC03_GAlib2_C <> ? ALORS
    			OGBIC03_GAlib2_C := ?
    			OGBIC03_GAlib2 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_GAlib2 = ? ALORS
    		OGBIC03_GAlib2 := OGBIC03_GAlib2_C 
    	FINSI
    SINON
    	OGBIC03_GAlib2_C := ?
    	OGBIC03_GAlib2 := ?
    FINSI
    
    SI OGBIC03_GA3 <> ? ALORS
    	compte ::= OGBIC03_GA3
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_GAlib3_C <> compte.libelle ALORS
    			OGBIC03_GAlib3_C := compte.libelle
    			OGBIC03_GAlib3 := ?
    		FINSI
    	SINON
    		SI OGBIC03_GAlib3_C <> ? ALORS
    			OGBIC03_GAlib3_C := ?
    			OGBIC03_GAlib3 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_GAlib3 = ? ALORS
    		OGBIC03_GAlib3 := OGBIC03_GAlib3_C 
    	FINSI
    SINON
    	OGBIC03_GAlib3_C := ?
    	OGBIC03_GAlib3 := ?
    FINSI
    
    SI OGBIC03_GA4 <> ? ALORS
    	compte ::= OGBIC03_GA4
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_GAlib4_C <> compte.libelle ALORS
    			OGBIC03_GAlib4_C := compte.libelle
    			OGBIC03_GAlib4 := ?
    		FINSI
    	SINON
    		SI OGBIC03_GAlib4_C <> ? ALORS
    			OGBIC03_GAlib4_C := ?
    			OGBIC03_GAlib4 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_GAlib4 = ? ALORS
    		OGBIC03_GAlib4 := OGBIC03_GAlib4_C 
    	FINSI
    SINON
    	OGBIC03_GAlib4_C := ?
    	OGBIC03_GAlib4 := ?
    FINSI
    
    SI OGBIC03_GA5 <> ? ALORS
    	compte ::= OGBIC03_GA5
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_GAlib5_C <> compte.libelle ALORS
    			OGBIC03_GAlib5_C := compte.libelle
    			OGBIC03_GAlib5 := ?
    		FINSI
    	SINON
    		SI OGBIC03_GAlib5_C <> ? ALORS
    			OGBIC03_GAlib5_C := ?
    			OGBIC03_GAlib5 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_GAlib5 = ? ALORS
    		OGBIC03_GAlib5 := OGBIC03_GAlib5_C 
    	FINSI
    SINON
    	OGBIC03_GAlib5_C := ?
    	OGBIC03_GAlib5 := ?
    FINSI
    
    SI OGBIC03_GA6 <> ? ALORS
    	compte ::= OGBIC03_GA6
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_GAlib6_C <> compte.libelle ALORS
    			OGBIC03_GAlib6_C := compte.libelle
    			OGBIC03_GAlib6 := ?
    		FINSI
    	SINON
    		SI OGBIC03_GAlib6_C <> ? ALORS
    			OGBIC03_GAlib6_C := ?
    			OGBIC03_GAlib6 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_GAlib6 = ? ALORS
    		OGBIC03_GAlib6 := OGBIC03_GAlib6_C 
    	FINSI
    SINON
    	OGBIC03_GAlib6_C := ?
    	OGBIC03_GAlib6 := ?
    FINSI
    
    SI OGBIC03_GA7 <> ? ALORS
    	compte ::= OGBIC03_GA7
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_GAlib7_C <> compte.libelle ALORS
    			OGBIC03_GAlib7_C := compte.libelle
    			OGBIC03_GAlib7 := ?
    		FINSI
    	SINON
    		SI OGBIC03_GAlib7_C <> ? ALORS
    			OGBIC03_GAlib7_C := ?
    			OGBIC03_GAlib7 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_GAlib7 = ? ALORS
    		OGBIC03_GAlib7 := OGBIC03_GAlib7_C 
    	FINSI
    SINON
    	OGBIC03_GAlib7_C := ?
    	OGBIC03_GAlib7 := ?
    FINSI
    
    SI OGBIC03_GA8 <> ? ALORS
    	compte ::= OGBIC03_GA8
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_GAlib8_C <> compte.libelle ALORS
    			OGBIC03_GAlib8_C := compte.libelle
    			OGBIC03_GAlib8 := ?
    		FINSI
    	SINON
    		SI OGBIC03_GAlib8_C <> ? ALORS
    			OGBIC03_GAlib8_C := ?
    			OGBIC03_GAlib8 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_GAlib8 = ? ALORS
    		OGBIC03_GAlib8 := OGBIC03_GAlib8_C 
    	FINSI
    SINON
    	OGBIC03_GAlib8_C := ?
    	OGBIC03_GAlib8 := ?
    FINSI
    
    SI OGBIC03_GA9 <> ? ALORS
    	compte ::= OGBIC03_GA9
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_GAlib9_C <> compte.libelle ALORS
    			OGBIC03_GAlib9_C := compte.libelle
    			OGBIC03_GAlib9 := ?
    		FINSI
    	SINON
    		SI OGBIC03_GAlib9_C <> ? ALORS
    			OGBIC03_GAlib9_C := ?
    			OGBIC03_GAlib9 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_GAlib9 = ? ALORS
    		OGBIC03_GAlib9 := OGBIC03_GAlib9_C 
    	FINSI
    SINON
    	OGBIC03_GAlib9_C := ?
    	OGBIC03_GAlib9 := ?
    FINSI
    
    SI OGBIC03_GA10 <> ? ALORS
    	compte ::= OGBIC03_GA10
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_GAlib10_C <> compte.libelle ALORS
    			OGBIC03_GAlib10_C := compte.libelle
    			OGBIC03_GAlib10 := ?
    		FINSI
    	SINON
    		SI OGBIC03_GAlib10_C <> ? ALORS
    			OGBIC03_GAlib10_C := ?
    			OGBIC03_GAlib10 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_GAlib10 = ? ALORS
    		OGBIC03_GAlib10 := OGBIC03_GAlib10_C 
    	FINSI
    SINON
    	OGBIC03_GAlib10_C := ?
    	OGBIC03_GAlib10 := ?
    FINSI
    
    SI OGBIC03_GA11 <> ? ALORS
    	compte ::= OGBIC03_GA11
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_GAlib11_C <> compte.libelle ALORS
    			OGBIC03_GAlib11_C := compte.libelle
    			OGBIC03_GAlib11 := ?
    		FINSI
    	SINON
    		SI OGBIC03_GAlib11_C <> ? ALORS
    			OGBIC03_GAlib11_C := ?
    			OGBIC03_GAlib11 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_GAlib11 = ? ALORS
    		OGBIC03_GAlib11 := OGBIC03_GAlib11_C 
    	FINSI
    SINON
    	OGBIC03_GAlib11_C := ?
    	OGBIC03_GAlib11 := ?
    FINSI

	SI OGBIC03_GA12 <> ? ALORS
		compte ::= OGBIC03_GA12
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib12_C <> compte.libelle ALORS
				OGBIC03_GAlib12_C := compte.libelle
				OGBIC03_GAlib12 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib12_C <> ? ALORS
				OGBIC03_GAlib12_C := ?
				OGBIC03_GAlib12 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib12 = ? ALORS
			OGBIC03_GAlib12 := OGBIC03_GAlib12_C
		FINSI
	SINON
		OGBIC03_GAlib12_C := ?
		OGBIC03_GAlib12 := ?
	FINSI

	SI OGBIC03_GA13 <> ? ALORS
		compte ::= OGBIC03_GA13
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib13_C <> compte.libelle ALORS
				OGBIC03_GAlib13_C := compte.libelle
				OGBIC03_GAlib13 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib13_C <> ? ALORS
				OGBIC03_GAlib13_C := ?
				OGBIC03_GAlib13 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib13 = ? ALORS
			OGBIC03_GAlib13 := OGBIC03_GAlib13_C
		FINSI
	SINON
		OGBIC03_GAlib13_C := ?
		OGBIC03_GAlib13 := ?
	FINSI

	SI OGBIC03_GA14 <> ? ALORS
		compte ::= OGBIC03_GA14
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib14_C <> compte.libelle ALORS
				OGBIC03_GAlib14_C := compte.libelle
				OGBIC03_GAlib14 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib14_C <> ? ALORS
				OGBIC03_GAlib14_C := ?
				OGBIC03_GAlib14 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib14 = ? ALORS
			OGBIC03_GAlib14 := OGBIC03_GAlib14_C
		FINSI
	SINON
		OGBIC03_GAlib14_C := ?
		OGBIC03_GAlib14 := ?
	FINSI

	SI OGBIC03_GA15 <> ? ALORS
		compte ::= OGBIC03_GA15
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib15_C <> compte.libelle ALORS
				OGBIC03_GAlib15_C := compte.libelle
				OGBIC03_GAlib15 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib15_C <> ? ALORS
				OGBIC03_GAlib15_C := ?
				OGBIC03_GAlib15 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib15 = ? ALORS
			OGBIC03_GAlib15 := OGBIC03_GAlib15_C
		FINSI
	SINON
		OGBIC03_GAlib15_C := ?
		OGBIC03_GAlib15 := ?
	FINSI

	SI OGBIC03_GA16 <> ? ALORS
		compte ::= OGBIC03_GA16
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib16_C <> compte.libelle ALORS
				OGBIC03_GAlib16_C := compte.libelle
				OGBIC03_GAlib16 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib16_C <> ? ALORS
				OGBIC03_GAlib16_C := ?
				OGBIC03_GAlib16 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib16 = ? ALORS
			OGBIC03_GAlib16 := OGBIC03_GAlib16_C
		FINSI
	SINON
		OGBIC03_GAlib16_C := ?
		OGBIC03_GAlib16 := ?
	FINSI

	SI OGBIC03_GA17 <> ? ALORS
		compte ::= OGBIC03_GA17
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib17_C <> compte.libelle ALORS
				OGBIC03_GAlib17_C := compte.libelle
				OGBIC03_GAlib17 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib17_C <> ? ALORS
				OGBIC03_GAlib17_C := ?
				OGBIC03_GAlib17 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib17 = ? ALORS
			OGBIC03_GAlib17 := OGBIC03_GAlib17_C
		FINSI
	SINON
		OGBIC03_GAlib17_C := ?
		OGBIC03_GAlib17 := ?
	FINSI


	SI OGBIC03_GA18 <> ? ALORS
		compte ::= OGBIC03_GA18
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib18_C <> compte.libelle ALORS
				OGBIC03_GAlib18_C := compte.libelle
				OGBIC03_GAlib18 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib18_C <> ? ALORS
				OGBIC03_GAlib18_C := ?
				OGBIC03_GAlib18 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib18 = ? ALORS
			OGBIC03_GAlib18 := OGBIC03_GAlib18_C
		FINSI
	SINON
		OGBIC03_GAlib18_C := ?
		OGBIC03_GAlib18 := ?
	FINSI

	SI OGBIC03_GA19 <> ? ALORS
		compte ::= OGBIC03_GA19
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib19_C <> compte.libelle ALORS
				OGBIC03_GAlib19_C := compte.libelle
				OGBIC03_GAlib19 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib19_C <> ? ALORS
				OGBIC03_GAlib19_C := ?
				OGBIC03_GAlib19 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib19 = ? ALORS
			OGBIC03_GAlib19 := OGBIC03_GAlib19_C
		FINSI
	SINON
		OGBIC03_GAlib19_C := ?
		OGBIC03_GAlib19 := ?
	FINSI

	SI OGBIC03_GA20 <> ? ALORS
		compte ::= OGBIC03_GA20
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib20_C <> compte.libelle ALORS
				OGBIC03_GAlib20_C := compte.libelle
				OGBIC03_GAlib20 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib20_C <> ? ALORS
				OGBIC03_GAlib20_C := ?
				OGBIC03_GAlib20 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib20 = ? ALORS
			OGBIC03_GAlib20 := OGBIC03_GAlib20_C
		FINSI
	SINON
		OGBIC03_GAlib20_C := ?
		OGBIC03_GAlib20 := ?
	FINSI

	SI OGBIC03_GA21 <> ? ALORS
		compte ::= OGBIC03_GA21
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib21_C <> compte.libelle ALORS
				OGBIC03_GAlib21_C := compte.libelle
				OGBIC03_GAlib21 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib21_C <> ? ALORS
				OGBIC03_GAlib21_C := ?
				OGBIC03_GAlib21 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib21 = ? ALORS
			OGBIC03_GAlib21 := OGBIC03_GAlib21_C
		FINSI
	SINON
		OGBIC03_GAlib21_C := ?
		OGBIC03_GAlib21 := ?
	FINSI

	SI OGBIC03_GA22 <> ? ALORS
		compte ::= OGBIC03_GA22
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib22_C <> compte.libelle ALORS
				OGBIC03_GAlib22_C := compte.libelle
				OGBIC03_GAlib22 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib22_C <> ? ALORS
				OGBIC03_GAlib22_C := ?
				OGBIC03_GAlib22 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib22 = ? ALORS
			OGBIC03_GAlib22 := OGBIC03_GAlib22_C
		FINSI
	SINON
		OGBIC03_GAlib22_C := ?
		OGBIC03_GAlib22 := ?
	FINSI

	SI OGBIC03_GA23 <> ? ALORS
		compte ::= OGBIC03_GA23
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib23_C <> compte.libelle ALORS
				OGBIC03_GAlib23_C := compte.libelle
				OGBIC03_GAlib23 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib23_C <> ? ALORS
				OGBIC03_GAlib23_C := ?
				OGBIC03_GAlib23 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib23 = ? ALORS
			OGBIC03_GAlib23 := OGBIC03_GAlib23_C
		FINSI
	SINON
		OGBIC03_GAlib23_C := ?
		OGBIC03_GAlib23 := ?
	FINSI

	SI OGBIC03_GA24 <> ? ALORS
		compte ::= OGBIC03_GA24
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib24_C <> compte.libelle ALORS
				OGBIC03_GAlib24_C := compte.libelle
				OGBIC03_GAlib24 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib24_C <> ? ALORS
				OGBIC03_GAlib24_C := ?
				OGBIC03_GAlib24 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib24 = ? ALORS
			OGBIC03_GAlib24 := OGBIC03_GAlib24_C
		FINSI
	SINON
		OGBIC03_GAlib24_C := ?
		OGBIC03_GAlib24 := ?
	FINSI

	SI OGBIC03_GA25 <> ? ALORS
		compte ::= OGBIC03_GA25
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib25_C <> compte.libelle ALORS
				OGBIC03_GAlib25_C := compte.libelle
				OGBIC03_GAlib25 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib25_C <> ? ALORS
				OGBIC03_GAlib25_C := ?
				OGBIC03_GAlib25 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib25 = ? ALORS
			OGBIC03_GAlib25 := OGBIC03_GAlib25_C
		FINSI
	SINON
		OGBIC03_GAlib25_C := ?
		OGBIC03_GAlib25 := ?
	FINSI

	SI OGBIC03_GA26 <> ? ALORS
		compte ::= OGBIC03_GA26
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib26_C <> compte.libelle ALORS
				OGBIC03_GAlib26_C := compte.libelle
				OGBIC03_GAlib26 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib26_C <> ? ALORS
				OGBIC03_GAlib26_C := ?
				OGBIC03_GAlib26 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib26 = ? ALORS
			OGBIC03_GAlib26 := OGBIC03_GAlib26_C
		FINSI
	SINON
		OGBIC03_GAlib26_C := ?
		OGBIC03_GAlib26 := ?
	FINSI

	SI OGBIC03_GA27 <> ? ALORS
		compte ::= OGBIC03_GA27
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib27_C <> compte.libelle ALORS
				OGBIC03_GAlib27_C := compte.libelle
				OGBIC03_GAlib27 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib27_C <> ? ALORS
				OGBIC03_GAlib27_C := ?
				OGBIC03_GAlib27 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib27 = ? ALORS
			OGBIC03_GAlib27 := OGBIC03_GAlib27_C
		FINSI
	SINON
		OGBIC03_GAlib27_C := ?
		OGBIC03_GAlib27 := ?
	FINSI

	SI OGBIC03_GA28 <> ? ALORS
		compte ::= OGBIC03_GA28
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib28_C <> compte.libelle ALORS
				OGBIC03_GAlib28_C := compte.libelle
				OGBIC03_GAlib28 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib28_C <> ? ALORS
				OGBIC03_GAlib28_C := ?
				OGBIC03_GAlib28 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib28 = ? ALORS
			OGBIC03_GAlib28 := OGBIC03_GAlib28_C
		FINSI
	SINON
		OGBIC03_GAlib28_C := ?
		OGBIC03_GAlib28 := ?
	FINSI

	SI OGBIC03_GA29 <> ? ALORS
		compte ::= OGBIC03_GA29
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib29_C <> compte.libelle ALORS
				OGBIC03_GAlib29_C := compte.libelle
				OGBIC03_GAlib29 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib29_C <> ? ALORS
				OGBIC03_GAlib29_C := ?
				OGBIC03_GAlib29 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib29 = ? ALORS
			OGBIC03_GAlib29 := OGBIC03_GAlib29_C
		FINSI
	SINON
		OGBIC03_GAlib29_C := ?
		OGBIC03_GAlib29 := ?
	FINSI

	SI OGBIC03_GA30 <> ? ALORS
		compte ::= OGBIC03_GA30
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib30_C <> compte.libelle ALORS
				OGBIC03_GAlib30_C := compte.libelle
				OGBIC03_GAlib30 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib30_C <> ? ALORS
				OGBIC03_GAlib30_C := ?
				OGBIC03_GAlib30 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib30 = ? ALORS
			OGBIC03_GAlib30 := OGBIC03_GAlib30_C
		FINSI
	SINON
		OGBIC03_GAlib30_C := ?
		OGBIC03_GAlib30 := ?
	FINSI

	SI OGBIC03_GA31 <> ? ALORS
		compte ::= OGBIC03_GA31
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib31_C <> compte.libelle ALORS
				OGBIC03_GAlib31_C := compte.libelle
				OGBIC03_GAlib31 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib31_C <> ? ALORS
				OGBIC03_GAlib31_C := ?
				OGBIC03_GAlib31 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib31 = ? ALORS
			OGBIC03_GAlib31 := OGBIC03_GAlib31_C
		FINSI
	SINON
		OGBIC03_GAlib31_C := ?
		OGBIC03_GAlib31 := ?
	FINSI

	SI OGBIC03_GA32 <> ? ALORS
		compte ::= OGBIC03_GA32
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib32_C <> compte.libelle ALORS
				OGBIC03_GAlib32_C := compte.libelle
				OGBIC03_GAlib32 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib32_C <> ? ALORS
				OGBIC03_GAlib32_C := ?
				OGBIC03_GAlib32 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib32 = ? ALORS
			OGBIC03_GAlib32 := OGBIC03_GAlib32_C
		FINSI
	SINON
		OGBIC03_GAlib32_C := ?
		OGBIC03_GAlib32 := ?
	FINSI

	SI OGBIC03_GA33 <> ? ALORS
		compte ::= OGBIC03_GA33
		SI compte.numero <> ? ALORS
			SI OGBIC03_GAlib33_C <> compte.libelle ALORS
				OGBIC03_GAlib33_C := compte.libelle
				OGBIC03_GAlib33 := ?
			FINSI
		SINON
			SI OGBIC03_GAlib33_C <> ? ALORS
				OGBIC03_GAlib33_C := ?
				OGBIC03_GAlib33 := ?
			FINSI
		FINSI
		SI OGBIC03_GAlib33 = ? ALORS
			OGBIC03_GAlib33 := OGBIC03_GAlib33_C
		FINSI
	SINON
		OGBIC03_GAlib33_C := ?
		OGBIC03_GAlib33 := ?
	FINSI

###
'INTEROGBIC03HA' 'Nouveaux OG'
    SI OGBIC03_HA1 <> ? ALORS
    	compte ::= OGBIC03_HA1
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_HAlib1_C <> compte.libelle ALORS
    			OGBIC03_HAlib1_C := compte.libelle
    			OGBIC03_HAlib1 := ?
    		FINSI
    	SINON
    		SI OGBIC03_HAlib1_C <> ? ALORS
    			OGBIC03_HAlib1_C := ?
    			OGBIC03_HAlib1 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_HAlib1 = ? ALORS
    		OGBIC03_HAlib1 := OGBIC03_HAlib1_C 
    	FINSI
    SINON
    	OGBIC03_HAlib1_C := ?
    	OGBIC03_HAlib1 := ?
    FINSI
    
    SI OGBIC03_HA2 <> ? ALORS
    	compte ::= OGBIC03_HA2
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_HAlib2_C <> compte.libelle ALORS
    			OGBIC03_HAlib2_C := compte.libelle
    			OGBIC03_HAlib2 := ?
    		FINSI
    	SINON
    		SI OGBIC03_HAlib2_C <> ? ALORS
    			OGBIC03_HAlib2_C := ?
    			OGBIC03_HAlib2 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_HAlib2 = ? ALORS
    		OGBIC03_HAlib2 := OGBIC03_HAlib2_C 
    	FINSI
    SINON
    	OGBIC03_HAlib2_C := ?
    	OGBIC03_HAlib2 := ?
    FINSI
    
    SI OGBIC03_HA3 <> ? ALORS
    	compte ::= OGBIC03_HA3
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_HAlib3_C <> compte.libelle ALORS
    			OGBIC03_HAlib3_C := compte.libelle
    			OGBIC03_HAlib3 := ?
    		FINSI
    	SINON
    		SI OGBIC03_HAlib3_C <> ? ALORS
    			OGBIC03_HAlib3_C := ?
    			OGBIC03_HAlib3 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_HAlib3 = ? ALORS
    		OGBIC03_HAlib3 := OGBIC03_HAlib3_C 
    	FINSI
    SINON
    	OGBIC03_HAlib3_C := ?
    	OGBIC03_HAlib3 := ?
    FINSI
    
    SI OGBIC03_HA4 <> ? ALORS
    	compte ::= OGBIC03_HA4
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_HAlib4_C <> compte.libelle ALORS
    			OGBIC03_HAlib4_C := compte.libelle
    			OGBIC03_HAlib4 := ?
    		FINSI
    	SINON
    		SI OGBIC03_HAlib4_C <> ? ALORS
    			OGBIC03_HAlib4_C := ?
    			OGBIC03_HAlib4 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_HAlib4 = ? ALORS
    		OGBIC03_HAlib4 := OGBIC03_HAlib4_C 
    	FINSI
    SINON
    	OGBIC03_HAlib4_C := ?
    	OGBIC03_HAlib4 := ?
    FINSI
    
    SI OGBIC03_HA5 <> ? ALORS
    	compte ::= OGBIC03_HA5
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_HAlib5_C <> compte.libelle ALORS
    			OGBIC03_HAlib5_C := compte.libelle
    			OGBIC03_HAlib5 := ?
    		FINSI
    	SINON
    		SI OGBIC03_HAlib5_C <> ? ALORS
    			OGBIC03_HAlib5_C := ?
    			OGBIC03_HAlib5 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_HAlib5 = ? ALORS
    		OGBIC03_HAlib5 := OGBIC03_HAlib5_C 
    	FINSI
    SINON
    	OGBIC03_HAlib5_C := ?
    	OGBIC03_HAlib5 := ?
    FINSI
    
    SI OGBIC03_HA6 <> ? ALORS
    	compte ::= OGBIC03_HA6
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_HAlib6_C <> compte.libelle ALORS
    			OGBIC03_HAlib6_C := compte.libelle
    			OGBIC03_HAlib6 := ?
    		FINSI
    	SINON
    		SI OGBIC03_HAlib6_C <> ? ALORS
    			OGBIC03_HAlib6_C := ?
    			OGBIC03_HAlib6 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_HAlib6 = ? ALORS
    		OGBIC03_HAlib6 := OGBIC03_HAlib6_C 
    	FINSI
    SINON
    	OGBIC03_HAlib6_C := ?
    	OGBIC03_HAlib6 := ?
    FINSI
    
    SI OGBIC03_HA7 <> ? ALORS
    	compte ::= OGBIC03_HA7
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_HAlib7_C <> compte.libelle ALORS
    			OGBIC03_HAlib7_C := compte.libelle
    			OGBIC03_HAlib7 := ?
    		FINSI
    	SINON
    		SI OGBIC03_HAlib7_C <> ? ALORS
    			OGBIC03_HAlib7_C := ?
    			OGBIC03_HAlib7 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_HAlib7 = ? ALORS
    		OGBIC03_HAlib7 := OGBIC03_HAlib7_C 
    	FINSI
    SINON
    	OGBIC03_HAlib7_C := ?
    	OGBIC03_HAlib7 := ?
    FINSI
    
    SI OGBIC03_HA8 <> ? ALORS
    	compte ::= OGBIC03_HA8
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_HAlib8_C <> compte.libelle ALORS
    			OGBIC03_HAlib8_C := compte.libelle
    			OGBIC03_HAlib8 := ?
    		FINSI
    	SINON
    		SI OGBIC03_HAlib8_C <> ? ALORS
    			OGBIC03_HAlib8_C := ?
    			OGBIC03_HAlib8 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_HAlib8 = ? ALORS
    		OGBIC03_HAlib8 := OGBIC03_HAlib8_C 
    	FINSI
    SINON
    	OGBIC03_HAlib8_C := ?
    	OGBIC03_HAlib8 := ?
    FINSI
    
    SI OGBIC03_HA9 <> ? ALORS
    	compte ::= OGBIC03_HA9
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_HAlib9_C <> compte.libelle ALORS
    			OGBIC03_HAlib9_C := compte.libelle
    			OGBIC03_HAlib9 := ?
    		FINSI
    	SINON
    		SI OGBIC03_HAlib9_C <> ? ALORS
    			OGBIC03_HAlib9_C := ?
    			OGBIC03_HAlib9 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_HAlib9 = ? ALORS
    		OGBIC03_HAlib9 := OGBIC03_HAlib9_C 
    	FINSI
    SINON
    	OGBIC03_HAlib9_C := ?
    	OGBIC03_HAlib9 := ?
    FINSI
    
    SI OGBIC03_HA10 <> ? ALORS
    	compte ::= OGBIC03_HA10
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_HAlib10_C <> compte.libelle ALORS
    			OGBIC03_HAlib10_C := compte.libelle
    			OGBIC03_HAlib10 := ?
    		FINSI
    	SINON
    		SI OGBIC03_HAlib10_C <> ? ALORS
    			OGBIC03_HAlib10_C := ?
    			OGBIC03_HAlib10 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_HAlib10 = ? ALORS
    		OGBIC03_HAlib10 := OGBIC03_HAlib10_C 
    	FINSI
    SINON
    	OGBIC03_HAlib10_C := ?
    	OGBIC03_HAlib10 := ?
    FINSI
    
    SI OGBIC03_HA11 <> ? ALORS
    	compte ::= OGBIC03_HA11
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_HAlib11_C <> compte.libelle ALORS
    			OGBIC03_HAlib11_C := compte.libelle
    			OGBIC03_HAlib11 := ?
    		FINSI
    	SINON
    		SI OGBIC03_HAlib11_C <> ? ALORS
    			OGBIC03_HAlib11_C := ?
    			OGBIC03_HAlib11 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_HAlib11 = ? ALORS
    		OGBIC03_HAlib11 := OGBIC03_HAlib11_C 
    	FINSI
    SINON
    	OGBIC03_HAlib11_C := ?
    	OGBIC03_HAlib11 := ?
    FINSI


	SI OGBIC03_HA12 <> ? ALORS
		compte ::= OGBIC03_HA12
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib12_C <> compte.libelle ALORS
				OGBIC03_HAlib12_C := compte.libelle
				OGBIC03_HAlib12 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib12_C <> ? ALORS
				OGBIC03_HAlib12_C := ?
				OGBIC03_HAlib12 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib12 = ? ALORS
			OGBIC03_HAlib12 := OGBIC03_HAlib12_C
		FINSI
	SINON
		OGBIC03_HAlib12_C := ?
		OGBIC03_HAlib12 := ?
	FINSI

	SI OGBIC03_HA13 <> ? ALORS
		compte ::= OGBIC03_HA13
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib13_C <> compte.libelle ALORS
				OGBIC03_HAlib13_C := compte.libelle
				OGBIC03_HAlib13 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib13_C <> ? ALORS
				OGBIC03_HAlib13_C := ?
				OGBIC03_HAlib13 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib13 = ? ALORS
			OGBIC03_HAlib13 := OGBIC03_HAlib13_C
		FINSI
	SINON
		OGBIC03_HAlib13_C := ?
		OGBIC03_HAlib13 := ?
	FINSI

	SI OGBIC03_HA14 <> ? ALORS
		compte ::= OGBIC03_HA14
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib14_C <> compte.libelle ALORS
				OGBIC03_HAlib14_C := compte.libelle
				OGBIC03_HAlib14 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib14_C <> ? ALORS
				OGBIC03_HAlib14_C := ?
				OGBIC03_HAlib14 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib14 = ? ALORS
			OGBIC03_HAlib14 := OGBIC03_HAlib14_C
		FINSI
	SINON
		OGBIC03_HAlib14_C := ?
		OGBIC03_HAlib14 := ?
	FINSI

	SI OGBIC03_HA15 <> ? ALORS
		compte ::= OGBIC03_HA15
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib15_C <> compte.libelle ALORS
				OGBIC03_HAlib15_C := compte.libelle
				OGBIC03_HAlib15 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib15_C <> ? ALORS
				OGBIC03_HAlib15_C := ?
				OGBIC03_HAlib15 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib15 = ? ALORS
			OGBIC03_HAlib15 := OGBIC03_HAlib15_C
		FINSI
	SINON
		OGBIC03_HAlib15_C := ?
		OGBIC03_HAlib15 := ?
	FINSI

	SI OGBIC03_HA16 <> ? ALORS
		compte ::= OGBIC03_HA16
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib16_C <> compte.libelle ALORS
				OGBIC03_HAlib16_C := compte.libelle
				OGBIC03_HAlib16 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib16_C <> ? ALORS
				OGBIC03_HAlib16_C := ?
				OGBIC03_HAlib16 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib16 = ? ALORS
			OGBIC03_HAlib16 := OGBIC03_HAlib16_C
		FINSI
	SINON
		OGBIC03_HAlib16_C := ?
		OGBIC03_HAlib16 := ?
	FINSI

	SI OGBIC03_HA17 <> ? ALORS
		compte ::= OGBIC03_HA17
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib17_C <> compte.libelle ALORS
				OGBIC03_HAlib17_C := compte.libelle
				OGBIC03_HAlib17 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib17_C <> ? ALORS
				OGBIC03_HAlib17_C := ?
				OGBIC03_HAlib17 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib17 = ? ALORS
			OGBIC03_HAlib17 := OGBIC03_HAlib17_C
		FINSI
	SINON
		OGBIC03_HAlib17_C := ?
		OGBIC03_HAlib17 := ?
	FINSI

	SI OGBIC03_HA18 <> ? ALORS
		compte ::= OGBIC03_HA18
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib18_C <> compte.libelle ALORS
				OGBIC03_HAlib18_C := compte.libelle
				OGBIC03_HAlib18 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib18_C <> ? ALORS
				OGBIC03_HAlib18_C := ?
				OGBIC03_HAlib18 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib18 = ? ALORS
			OGBIC03_HAlib18 := OGBIC03_HAlib18_C
		FINSI
	SINON
		OGBIC03_HAlib18_C := ?
		OGBIC03_HAlib18 := ?
	FINSI

	SI OGBIC03_HA19 <> ? ALORS
		compte ::= OGBIC03_HA19
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib19_C <> compte.libelle ALORS
				OGBIC03_HAlib19_C := compte.libelle
				OGBIC03_HAlib19 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib19_C <> ? ALORS
				OGBIC03_HAlib19_C := ?
				OGBIC03_HAlib19 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib19 = ? ALORS
			OGBIC03_HAlib19 := OGBIC03_HAlib19_C
		FINSI
	SINON
		OGBIC03_HAlib19_C := ?
		OGBIC03_HAlib19 := ?
	FINSI

	SI OGBIC03_HA20 <> ? ALORS
		compte ::= OGBIC03_HA20
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib20_C <> compte.libelle ALORS
				OGBIC03_HAlib20_C := compte.libelle
				OGBIC03_HAlib20 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib20_C <> ? ALORS
				OGBIC03_HAlib20_C := ?
				OGBIC03_HAlib20 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib20 = ? ALORS
			OGBIC03_HAlib20 := OGBIC03_HAlib20_C
		FINSI
	SINON
		OGBIC03_HAlib20_C := ?
		OGBIC03_HAlib20 := ?
	FINSI

	SI OGBIC03_HA21 <> ? ALORS
		compte ::= OGBIC03_HA21
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib21_C <> compte.libelle ALORS
				OGBIC03_HAlib21_C := compte.libelle
				OGBIC03_HAlib21 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib21_C <> ? ALORS
				OGBIC03_HAlib21_C := ?
				OGBIC03_HAlib21 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib21 = ? ALORS
			OGBIC03_HAlib21 := OGBIC03_HAlib21_C
		FINSI
	SINON
		OGBIC03_HAlib21_C := ?
		OGBIC03_HAlib21 := ?
	FINSI

	SI OGBIC03_HA22 <> ? ALORS
		compte ::= OGBIC03_HA22
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib22_C <> compte.libelle ALORS
				OGBIC03_HAlib22_C := compte.libelle
				OGBIC03_HAlib22 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib22_C <> ? ALORS
				OGBIC03_HAlib22_C := ?
				OGBIC03_HAlib22 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib22 = ? ALORS
			OGBIC03_HAlib22 := OGBIC03_HAlib22_C
		FINSI
	SINON
		OGBIC03_HAlib22_C := ?
		OGBIC03_HAlib22 := ?
	FINSI

	SI OGBIC03_HA23 <> ? ALORS
		compte ::= OGBIC03_HA23
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib23_C <> compte.libelle ALORS
				OGBIC03_HAlib23_C := compte.libelle
				OGBIC03_HAlib23 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib23_C <> ? ALORS
				OGBIC03_HAlib23_C := ?
				OGBIC03_HAlib23 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib23 = ? ALORS
			OGBIC03_HAlib23 := OGBIC03_HAlib23_C
		FINSI
	SINON
		OGBIC03_HAlib23_C := ?
		OGBIC03_HAlib23 := ?
	FINSI

	SI OGBIC03_HA24 <> ? ALORS
		compte ::= OGBIC03_HA24
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib24_C <> compte.libelle ALORS
				OGBIC03_HAlib24_C := compte.libelle
				OGBIC03_HAlib24 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib24_C <> ? ALORS
				OGBIC03_HAlib24_C := ?
				OGBIC03_HAlib24 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib24 = ? ALORS
			OGBIC03_HAlib24 := OGBIC03_HAlib24_C
		FINSI
	SINON
		OGBIC03_HAlib24_C := ?
		OGBIC03_HAlib24 := ?
	FINSI

	SI OGBIC03_HA25 <> ? ALORS
		compte ::= OGBIC03_HA25
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib25_C <> compte.libelle ALORS
				OGBIC03_HAlib25_C := compte.libelle
				OGBIC03_HAlib25 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib25_C <> ? ALORS
				OGBIC03_HAlib25_C := ?
				OGBIC03_HAlib25 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib25 = ? ALORS
			OGBIC03_HAlib25 := OGBIC03_HAlib25_C
		FINSI
	SINON
		OGBIC03_HAlib25_C := ?
		OGBIC03_HAlib25 := ?
	FINSI

	SI OGBIC03_HA26 <> ? ALORS
		compte ::= OGBIC03_HA26
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib26_C <> compte.libelle ALORS
				OGBIC03_HAlib26_C := compte.libelle
				OGBIC03_HAlib26 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib26_C <> ? ALORS
				OGBIC03_HAlib26_C := ?
				OGBIC03_HAlib26 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib26 = ? ALORS
			OGBIC03_HAlib26 := OGBIC03_HAlib26_C
		FINSI
	SINON
		OGBIC03_HAlib26_C := ?
		OGBIC03_HAlib26 := ?
	FINSI

	SI OGBIC03_HA27 <> ? ALORS
		compte ::= OGBIC03_HA27
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib27_C <> compte.libelle ALORS
				OGBIC03_HAlib27_C := compte.libelle
				OGBIC03_HAlib27 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib27_C <> ? ALORS
				OGBIC03_HAlib27_C := ?
				OGBIC03_HAlib27 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib27 = ? ALORS
			OGBIC03_HAlib27 := OGBIC03_HAlib27_C
		FINSI
	SINON
		OGBIC03_HAlib27_C := ?
		OGBIC03_HAlib27 := ?
	FINSI

	SI OGBIC03_HA28 <> ? ALORS
		compte ::= OGBIC03_HA28
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib28_C <> compte.libelle ALORS
				OGBIC03_HAlib28_C := compte.libelle
				OGBIC03_HAlib28 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib28_C <> ? ALORS
				OGBIC03_HAlib28_C := ?
				OGBIC03_HAlib28 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib28 = ? ALORS
			OGBIC03_HAlib28 := OGBIC03_HAlib28_C
		FINSI
	SINON
		OGBIC03_HAlib28_C := ?
		OGBIC03_HAlib28 := ?
	FINSI

	SI OGBIC03_HA29 <> ? ALORS
		compte ::= OGBIC03_HA29
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib29_C <> compte.libelle ALORS
				OGBIC03_HAlib29_C := compte.libelle
				OGBIC03_HAlib29 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib29_C <> ? ALORS
				OGBIC03_HAlib29_C := ?
				OGBIC03_HAlib29 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib29 = ? ALORS
			OGBIC03_HAlib29 := OGBIC03_HAlib29_C
		FINSI
	SINON
		OGBIC03_HAlib29_C := ?
		OGBIC03_HAlib29 := ?
	FINSI

	SI OGBIC03_HA30 <> ? ALORS
		compte ::= OGBIC03_HA30
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib30_C <> compte.libelle ALORS
				OGBIC03_HAlib30_C := compte.libelle
				OGBIC03_HAlib30 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib30_C <> ? ALORS
				OGBIC03_HAlib30_C := ?
				OGBIC03_HAlib30 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib30 = ? ALORS
			OGBIC03_HAlib30 := OGBIC03_HAlib30_C
		FINSI
	SINON
		OGBIC03_HAlib30_C := ?
		OGBIC03_HAlib30 := ?
	FINSI

	SI OGBIC03_HA31 <> ? ALORS
		compte ::= OGBIC03_HA31
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib31_C <> compte.libelle ALORS
				OGBIC03_HAlib31_C := compte.libelle
				OGBIC03_HAlib31 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib31_C <> ? ALORS
				OGBIC03_HAlib31_C := ?
				OGBIC03_HAlib31 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib31 = ? ALORS
			OGBIC03_HAlib31 := OGBIC03_HAlib31_C
		FINSI
	SINON
		OGBIC03_HAlib31_C := ?
		OGBIC03_HAlib31 := ?
	FINSI

	SI OGBIC03_HA32 <> ? ALORS
		compte ::= OGBIC03_HA32
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib32_C <> compte.libelle ALORS
				OGBIC03_HAlib32_C := compte.libelle
				OGBIC03_HAlib32 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib32_C <> ? ALORS
				OGBIC03_HAlib32_C := ?
				OGBIC03_HAlib32 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib32 = ? ALORS
			OGBIC03_HAlib32 := OGBIC03_HAlib32_C
		FINSI
	SINON
		OGBIC03_HAlib32_C := ?
		OGBIC03_HAlib32 := ?
	FINSI

	SI OGBIC03_HA33 <> ? ALORS
		compte ::= OGBIC03_HA33
		SI compte.numero <> ? ALORS
			SI OGBIC03_HAlib33_C <> compte.libelle ALORS
				OGBIC03_HAlib33_C := compte.libelle
				OGBIC03_HAlib33 := ?
			FINSI
		SINON
			SI OGBIC03_HAlib33_C <> ? ALORS
				OGBIC03_HAlib33_C := ?
				OGBIC03_HAlib33 := ?
			FINSI
		FINSI
		SI OGBIC03_HAlib33 = ? ALORS
			OGBIC03_HAlib33 := OGBIC03_HAlib33_C
		FINSI
	SINON
		OGBIC03_HAlib33_C := ?
		OGBIC03_HAlib33 := ?
	FINSI

###
'INTEROGBIC03KA' 'Nouveaux OG'
    
    SI OGBIC03_KA1 <> ? ALORS
    	compte ::= OGBIC03_KA1
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_KAlib1_C <> compte.libelle ALORS
    			OGBIC03_KAlib1_C := compte.libelle
    			OGBIC03_KAlib1 := ?
    		FINSI
    	SINON
    		SI OGBIC03_KAlib1_C <> ? ALORS
    			OGBIC03_KAlib1_C := ?
    			OGBIC03_KAlib1 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_KAlib1 = ? ALORS
    		OGBIC03_KAlib1 := OGBIC03_KAlib1_C 
    	FINSI
    SINON
    	OGBIC03_KAlib1_C := ?
    	OGBIC03_KAlib1 := ?
    FINSI
    
    SI OGBIC03_KA2 <> ? ALORS
    	compte ::= OGBIC03_KA2
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_KAlib2_C <> compte.libelle ALORS
    			OGBIC03_KAlib2_C := compte.libelle
    			OGBIC03_KAlib2 := ?
    		FINSI
    	SINON
    		SI OGBIC03_KAlib2_C <> ? ALORS
    			OGBIC03_KAlib2_C := ?
    			OGBIC03_KAlib2 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_KAlib2 = ? ALORS
    		OGBIC03_KAlib2 := OGBIC03_KAlib2_C 
    	FINSI
    SINON
    	OGBIC03_KAlib2_C := ?
    	OGBIC03_KAlib2 := ?
    FINSI
    
    SI OGBIC03_KA3 <> ? ALORS
    	compte ::= OGBIC03_KA3
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_KAlib3_C <> compte.libelle ALORS
    			OGBIC03_KAlib3_C := compte.libelle
    			OGBIC03_KAlib3 := ?
    		FINSI
    	SINON
    		SI OGBIC03_KAlib3_C <> ? ALORS
    			OGBIC03_KAlib3_C := ?
    			OGBIC03_KAlib3 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_KAlib3 = ? ALORS
    		OGBIC03_KAlib3 := OGBIC03_KAlib3_C 
    	FINSI
    SINON
    	OGBIC03_KAlib3_C := ?
    	OGBIC03_KAlib3 := ?
    FINSI
    
    SI OGBIC03_KA4 <> ? ALORS
    	compte ::= OGBIC03_KA4
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_KAlib4_C <> compte.libelle ALORS
    			OGBIC03_KAlib4_C := compte.libelle
    			OGBIC03_KAlib4 := ?
    		FINSI
    	SINON
    		SI OGBIC03_KAlib4_C <> ? ALORS
    			OGBIC03_KAlib4_C := ?
    			OGBIC03_KAlib4 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_KAlib4 = ? ALORS
    		OGBIC03_KAlib4 := OGBIC03_KAlib4_C 
    	FINSI
    SINON
    	OGBIC03_KAlib4_C := ?
    	OGBIC03_KAlib4 := ?
    FINSI
    
    SI OGBIC03_KA5 <> ? ALORS
    	compte ::= OGBIC03_KA5
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_KAlib5_C <> compte.libelle ALORS
    			OGBIC03_KAlib5_C := compte.libelle
    			OGBIC03_KAlib5 := ?
    		FINSI
    	SINON
    		SI OGBIC03_KAlib5_C <> ? ALORS
    			OGBIC03_KAlib5_C := ?
    			OGBIC03_KAlib5 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_KAlib5 = ? ALORS
    		OGBIC03_KAlib5 := OGBIC03_KAlib5_C 
    	FINSI
    SINON
    	OGBIC03_KAlib5_C := ?
    	OGBIC03_KAlib5 := ?
    FINSI
    
    SI OGBIC03_KA6 <> ? ALORS
    	compte ::= OGBIC03_KA6
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_KAlib6_C <> compte.libelle ALORS
    			OGBIC03_KAlib6_C := compte.libelle
    			OGBIC03_KAlib6 := ?
    		FINSI
    	SINON
    		SI OGBIC03_KAlib6_C <> ? ALORS
    			OGBIC03_KAlib6_C := ?
    			OGBIC03_KAlib6 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_KAlib6 = ? ALORS
    		OGBIC03_KAlib6 := OGBIC03_KAlib6_C 
    	FINSI
    SINON
    	OGBIC03_KAlib6_C := ?
    	OGBIC03_KAlib6 := ?
    FINSI
    
    SI OGBIC03_KA7 <> ? ALORS
    	compte ::= OGBIC03_KA7
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_KAlib7_C <> compte.libelle ALORS
    			OGBIC03_KAlib7_C := compte.libelle
    			OGBIC03_KAlib7 := ?
    		FINSI
    	SINON
    		SI OGBIC03_KAlib7_C <> ? ALORS
    			OGBIC03_KAlib7_C := ?
    			OGBIC03_KAlib7 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_KAlib7 = ? ALORS
    		OGBIC03_KAlib7 := OGBIC03_KAlib7_C 
    	FINSI
    SINON
    	OGBIC03_KAlib7_C := ?
    	OGBIC03_KAlib7 := ?
    FINSI
    
    SI OGBIC03_KA8 <> ? ALORS
    	compte ::= OGBIC03_KA8
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_KAlib8_C <> compte.libelle ALORS
    			OGBIC03_KAlib8_C := compte.libelle
    			OGBIC03_KAlib8 := ?
    		FINSI
    	SINON
    		SI OGBIC03_KAlib8_C <> ? ALORS
    			OGBIC03_KAlib8_C := ?
    			OGBIC03_KAlib8 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_KAlib8 = ? ALORS
    		OGBIC03_KAlib8 := OGBIC03_KAlib8_C 
    	FINSI
    SINON
    	OGBIC03_KAlib8_C := ?
    	OGBIC03_KAlib8 := ?
    FINSI
    
    SI OGBIC03_KA9 <> ? ALORS
    	compte ::= OGBIC03_KA9
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_KAlib9_C <> compte.libelle ALORS
    			OGBIC03_KAlib9_C := compte.libelle
    			OGBIC03_KAlib9 := ?
    		FINSI
    	SINON
    		SI OGBIC03_KAlib9_C <> ? ALORS
    			OGBIC03_KAlib9_C := ?
    			OGBIC03_KAlib9 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_KAlib9 = ? ALORS
    		OGBIC03_KAlib9 := OGBIC03_KAlib9_C 
    	FINSI
    SINON
    	OGBIC03_KAlib9_C := ?
    	OGBIC03_KAlib9 := ?
    FINSI
    
    SI OGBIC03_KA10 <> ? ALORS
    	compte ::= OGBIC03_KA10
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_KAlib10_C <> compte.libelle ALORS
    			OGBIC03_KAlib10_C := compte.libelle
    			OGBIC03_KAlib10 := ?
    		FINSI
    	SINON
    		SI OGBIC03_KAlib10_C <> ? ALORS
    			OGBIC03_KAlib10_C := ?
    			OGBIC03_KAlib10 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_KAlib10 = ? ALORS
    		OGBIC03_KAlib10 := OGBIC03_KAlib10_C 
    	FINSI
    SINON
    	OGBIC03_KAlib10_C := ?
    	OGBIC03_KAlib10 := ?
    FINSI
    
    SI OGBIC03_KA11 <> ? ALORS
    	compte ::= OGBIC03_KA11
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_KAlib11_C <> compte.libelle ALORS
    			OGBIC03_KAlib11_C := compte.libelle
    			OGBIC03_KAlib11 := ?
    		FINSI
    	SINON
    		SI OGBIC03_KAlib11_C <> ? ALORS
    			OGBIC03_KAlib11_C := ?
    			OGBIC03_KAlib11 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_KAlib11 = ? ALORS
    		OGBIC03_KAlib11 := OGBIC03_KAlib11_C 
    	FINSI
    SINON
    	OGBIC03_KAlib11_C := ?
    	OGBIC03_KAlib11 := ?
    FINSI

	SI OGBIC03_KA12 <> ? ALORS
		compte ::= OGBIC03_KA12
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib12_C <> compte.libelle ALORS
				OGBIC03_KAlib12_C := compte.libelle
				OGBIC03_KAlib12 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib12_C <> ? ALORS
				OGBIC03_KAlib12_C := ?
				OGBIC03_KAlib12 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib12 = ? ALORS
			OGBIC03_KAlib12 := OGBIC03_KAlib12_C
		FINSI
	SINON
		OGBIC03_KAlib12_C := ?
		OGBIC03_KAlib12 := ?
	FINSI

	SI OGBIC03_KA13 <> ? ALORS
		compte ::= OGBIC03_KA13
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib13_C <> compte.libelle ALORS
				OGBIC03_KAlib13_C := compte.libelle
				OGBIC03_KAlib13 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib13_C <> ? ALORS
				OGBIC03_KAlib13_C := ?
				OGBIC03_KAlib13 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib13 = ? ALORS
			OGBIC03_KAlib13 := OGBIC03_KAlib13_C
		FINSI
	SINON
		OGBIC03_KAlib13_C := ?
		OGBIC03_KAlib13 := ?
	FINSI

	SI OGBIC03_KA14 <> ? ALORS
		compte ::= OGBIC03_KA14
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib14_C <> compte.libelle ALORS
				OGBIC03_KAlib14_C := compte.libelle
				OGBIC03_KAlib14 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib14_C <> ? ALORS
				OGBIC03_KAlib14_C := ?
				OGBIC03_KAlib14 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib14 = ? ALORS
			OGBIC03_KAlib14 := OGBIC03_KAlib14_C
		FINSI
	SINON
		OGBIC03_KAlib14_C := ?
		OGBIC03_KAlib14 := ?
	FINSI

	SI OGBIC03_KA15 <> ? ALORS
		compte ::= OGBIC03_KA15
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib15_C <> compte.libelle ALORS
				OGBIC03_KAlib15_C := compte.libelle
				OGBIC03_KAlib15 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib15_C <> ? ALORS
				OGBIC03_KAlib15_C := ?
				OGBIC03_KAlib15 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib15 = ? ALORS
			OGBIC03_KAlib15 := OGBIC03_KAlib15_C
		FINSI
	SINON
		OGBIC03_KAlib15_C := ?
		OGBIC03_KAlib15 := ?
	FINSI

	SI OGBIC03_KA16 <> ? ALORS
		compte ::= OGBIC03_KA16
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib16_C <> compte.libelle ALORS
				OGBIC03_KAlib16_C := compte.libelle
				OGBIC03_KAlib16 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib16_C <> ? ALORS
				OGBIC03_KAlib16_C := ?
				OGBIC03_KAlib16 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib16 = ? ALORS
			OGBIC03_KAlib16 := OGBIC03_KAlib16_C
		FINSI
	SINON
		OGBIC03_KAlib16_C := ?
		OGBIC03_KAlib16 := ?
	FINSI

	SI OGBIC03_KA17 <> ? ALORS
		compte ::= OGBIC03_KA17
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib17_C <> compte.libelle ALORS
				OGBIC03_KAlib17_C := compte.libelle
				OGBIC03_KAlib17 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib17_C <> ? ALORS
				OGBIC03_KAlib17_C := ?
				OGBIC03_KAlib17 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib17 = ? ALORS
			OGBIC03_KAlib17 := OGBIC03_KAlib17_C
		FINSI
	SINON
		OGBIC03_KAlib17_C := ?
		OGBIC03_KAlib17 := ?
	FINSI

	SI OGBIC03_KA18 <> ? ALORS
		compte ::= OGBIC03_KA18
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib18_C <> compte.libelle ALORS
				OGBIC03_KAlib18_C := compte.libelle
				OGBIC03_KAlib18 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib18_C <> ? ALORS
				OGBIC03_KAlib18_C := ?
				OGBIC03_KAlib18 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib18 = ? ALORS
			OGBIC03_KAlib18 := OGBIC03_KAlib18_C
		FINSI
	SINON
		OGBIC03_KAlib18_C := ?
		OGBIC03_KAlib18 := ?
	FINSI

	SI OGBIC03_KA19 <> ? ALORS
		compte ::= OGBIC03_KA19
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib19_C <> compte.libelle ALORS
				OGBIC03_KAlib19_C := compte.libelle
				OGBIC03_KAlib19 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib19_C <> ? ALORS
				OGBIC03_KAlib19_C := ?
				OGBIC03_KAlib19 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib19 = ? ALORS
			OGBIC03_KAlib19 := OGBIC03_KAlib19_C
		FINSI
	SINON
		OGBIC03_KAlib19_C := ?
		OGBIC03_KAlib19 := ?
	FINSI

	SI OGBIC03_KA20 <> ? ALORS
		compte ::= OGBIC03_KA20
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib20_C <> compte.libelle ALORS
				OGBIC03_KAlib20_C := compte.libelle
				OGBIC03_KAlib20 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib20_C <> ? ALORS
				OGBIC03_KAlib20_C := ?
				OGBIC03_KAlib20 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib20 = ? ALORS
			OGBIC03_KAlib20 := OGBIC03_KAlib20_C
		FINSI
	SINON
		OGBIC03_KAlib20_C := ?
		OGBIC03_KAlib20 := ?
	FINSI


	SI OGBIC03_KA21 <> ? ALORS
		compte ::= OGBIC03_KA21
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib21_C <> compte.libelle ALORS
				OGBIC03_KAlib21_C := compte.libelle
				OGBIC03_KAlib21 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib21_C <> ? ALORS
				OGBIC03_KAlib21_C := ?
				OGBIC03_KAlib21 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib21 = ? ALORS
			OGBIC03_KAlib21 := OGBIC03_KAlib21_C
		FINSI
	SINON
		OGBIC03_KAlib21_C := ?
		OGBIC03_KAlib21 := ?
	FINSI

	SI OGBIC03_KA22 <> ? ALORS
		compte ::= OGBIC03_KA22
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib22_C <> compte.libelle ALORS
				OGBIC03_KAlib22_C := compte.libelle
				OGBIC03_KAlib22 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib22_C <> ? ALORS
				OGBIC03_KAlib22_C := ?
				OGBIC03_KAlib22 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib22 = ? ALORS
			OGBIC03_KAlib22 := OGBIC03_KAlib22_C
		FINSI
	SINON
		OGBIC03_KAlib22_C := ?
		OGBIC03_KAlib22 := ?
	FINSI

	SI OGBIC03_KA23 <> ? ALORS
		compte ::= OGBIC03_KA23
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib23_C <> compte.libelle ALORS
				OGBIC03_KAlib23_C := compte.libelle
				OGBIC03_KAlib23 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib23_C <> ? ALORS
				OGBIC03_KAlib23_C := ?
				OGBIC03_KAlib23 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib23 = ? ALORS
			OGBIC03_KAlib23 := OGBIC03_KAlib23_C
		FINSI
	SINON
		OGBIC03_KAlib23_C := ?
		OGBIC03_KAlib23 := ?
	FINSI

	SI OGBIC03_KA24 <> ? ALORS
		compte ::= OGBIC03_KA24
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib24_C <> compte.libelle ALORS
				OGBIC03_KAlib24_C := compte.libelle
				OGBIC03_KAlib24 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib24_C <> ? ALORS
				OGBIC03_KAlib24_C := ?
				OGBIC03_KAlib24 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib24 = ? ALORS
			OGBIC03_KAlib24 := OGBIC03_KAlib24_C
		FINSI
	SINON
		OGBIC03_KAlib24_C := ?
		OGBIC03_KAlib24 := ?
	FINSI

	SI OGBIC03_KA25 <> ? ALORS
		compte ::= OGBIC03_KA25
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib25_C <> compte.libelle ALORS
				OGBIC03_KAlib25_C := compte.libelle
				OGBIC03_KAlib25 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib25_C <> ? ALORS
				OGBIC03_KAlib25_C := ?
				OGBIC03_KAlib25 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib25 = ? ALORS
			OGBIC03_KAlib25 := OGBIC03_KAlib25_C
		FINSI
	SINON
		OGBIC03_KAlib25_C := ?
		OGBIC03_KAlib25 := ?
	FINSI

	SI OGBIC03_KA26 <> ? ALORS
		compte ::= OGBIC03_KA26
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib26_C <> compte.libelle ALORS
				OGBIC03_KAlib26_C := compte.libelle
				OGBIC03_KAlib26 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib26_C <> ? ALORS
				OGBIC03_KAlib26_C := ?
				OGBIC03_KAlib26 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib26 = ? ALORS
			OGBIC03_KAlib26 := OGBIC03_KAlib26_C
		FINSI
	SINON
		OGBIC03_KAlib26_C := ?
		OGBIC03_KAlib26 := ?
	FINSI

	SI OGBIC03_KA27 <> ? ALORS
		compte ::= OGBIC03_KA27
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib27_C <> compte.libelle ALORS
				OGBIC03_KAlib27_C := compte.libelle
				OGBIC03_KAlib27 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib27_C <> ? ALORS
				OGBIC03_KAlib27_C := ?
				OGBIC03_KAlib27 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib27 = ? ALORS
			OGBIC03_KAlib27 := OGBIC03_KAlib27_C
		FINSI
	SINON
		OGBIC03_KAlib27_C := ?
		OGBIC03_KAlib27 := ?
	FINSI

	SI OGBIC03_KA28 <> ? ALORS
		compte ::= OGBIC03_KA28
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib28_C <> compte.libelle ALORS
				OGBIC03_KAlib28_C := compte.libelle
				OGBIC03_KAlib28 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib28_C <> ? ALORS
				OGBIC03_KAlib28_C := ?
				OGBIC03_KAlib28 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib28 = ? ALORS
			OGBIC03_KAlib28 := OGBIC03_KAlib28_C
		FINSI
	SINON
		OGBIC03_KAlib28_C := ?
		OGBIC03_KAlib28 := ?
	FINSI

	SI OGBIC03_KA29 <> ? ALORS
		compte ::= OGBIC03_KA29
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib29_C <> compte.libelle ALORS
				OGBIC03_KAlib29_C := compte.libelle
				OGBIC03_KAlib29 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib29_C <> ? ALORS
				OGBIC03_KAlib29_C := ?
				OGBIC03_KAlib29 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib29 = ? ALORS
			OGBIC03_KAlib29 := OGBIC03_KAlib29_C
		FINSI
	SINON
		OGBIC03_KAlib29_C := ?
		OGBIC03_KAlib29 := ?
	FINSI

	SI OGBIC03_KA30 <> ? ALORS
		compte ::= OGBIC03_KA30
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib30_C <> compte.libelle ALORS
				OGBIC03_KAlib30_C := compte.libelle
				OGBIC03_KAlib30 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib30_C <> ? ALORS
				OGBIC03_KAlib30_C := ?
				OGBIC03_KAlib30 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib30 = ? ALORS
			OGBIC03_KAlib30 := OGBIC03_KAlib30_C
		FINSI
	SINON
		OGBIC03_KAlib30_C := ?
		OGBIC03_KAlib30 := ?
	FINSI

	SI OGBIC03_KA31 <> ? ALORS
		compte ::= OGBIC03_KA31
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib31_C <> compte.libelle ALORS
				OGBIC03_KAlib31_C := compte.libelle
				OGBIC03_KAlib31 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib31_C <> ? ALORS
				OGBIC03_KAlib31_C := ?
				OGBIC03_KAlib31 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib31 = ? ALORS
			OGBIC03_KAlib31 := OGBIC03_KAlib31_C
		FINSI
	SINON
		OGBIC03_KAlib31_C := ?
		OGBIC03_KAlib31 := ?
	FINSI

	SI OGBIC03_KA32 <> ? ALORS
		compte ::= OGBIC03_KA32
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib32_C <> compte.libelle ALORS
				OGBIC03_KAlib32_C := compte.libelle
				OGBIC03_KAlib32 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib32_C <> ? ALORS
				OGBIC03_KAlib32_C := ?
				OGBIC03_KAlib32 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib32 = ? ALORS
			OGBIC03_KAlib32 := OGBIC03_KAlib32_C
		FINSI
	SINON
		OGBIC03_KAlib32_C := ?
		OGBIC03_KAlib32 := ?
	FINSI

	SI OGBIC03_KA33 <> ? ALORS
		compte ::= OGBIC03_KA33
		SI compte.numero <> ? ALORS
			SI OGBIC03_KAlib33_C <> compte.libelle ALORS
				OGBIC03_KAlib33_C := compte.libelle
				OGBIC03_KAlib33 := ?
			FINSI
		SINON
			SI OGBIC03_KAlib33_C <> ? ALORS
				OGBIC03_KAlib33_C := ?
				OGBIC03_KAlib33 := ?
			FINSI
		FINSI
		SI OGBIC03_KAlib33 = ? ALORS
			OGBIC03_KAlib33 := OGBIC03_KAlib33_C
		FINSI
	SINON
		OGBIC03_KAlib33_C := ?
		OGBIC03_KAlib33 := ?
	FINSI

###
'INTEROGBIC03PA' 'Nouveaux OG'
    
    SI OGBIC03_PA1 <> ? ALORS
    	compte ::= OGBIC03_PA1
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_PAlib1_C <> compte.libelle ALORS
    			OGBIC03_PAlib1_C := compte.libelle
    			OGBIC03_PAlib1 := ?
    		FINSI
    	SINON
    		SI OGBIC03_PAlib1_C <> ? ALORS
    			OGBIC03_PAlib1_C := ?
    			OGBIC03_PAlib1 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_PAlib1 = ? ALORS
    		OGBIC03_PAlib1 := OGBIC03_PAlib1_C 
    	FINSI
    SINON
    	OGBIC03_PAlib1_C := ?
    	OGBIC03_PAlib1 := ?
    FINSI
    
    SI OGBIC03_PA2 <> ? ALORS
    	compte ::= OGBIC03_PA2
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_PAlib2_C <> compte.libelle ALORS
    			OGBIC03_PAlib2_C := compte.libelle
    			OGBIC03_PAlib2 := ?
    		FINSI
    	SINON
    		SI OGBIC03_PAlib2_C <> ? ALORS
    			OGBIC03_PAlib2_C := ?
    			OGBIC03_PAlib2 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_PAlib2 = ? ALORS
    		OGBIC03_PAlib2 := OGBIC03_PAlib2_C 
    	FINSI
    SINON
    	OGBIC03_PAlib2_C := ?
    	OGBIC03_PAlib2 := ?
    FINSI
    
    SI OGBIC03_PA3 <> ? ALORS
    	compte ::= OGBIC03_PA3
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_PAlib3_C <> compte.libelle ALORS
    			OGBIC03_PAlib3_C := compte.libelle
    			OGBIC03_PAlib3 := ?
    		FINSI
    	SINON
    		SI OGBIC03_PAlib3_C <> ? ALORS
    			OGBIC03_PAlib3_C := ?
    			OGBIC03_PAlib3 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_PAlib3 = ? ALORS
    		OGBIC03_PAlib3 := OGBIC03_PAlib3_C 
    	FINSI
    SINON
    	OGBIC03_PAlib3_C := ?
    	OGBIC03_PAlib3 := ?
    FINSI
    
    SI OGBIC03_PA4 <> ? ALORS
    	compte ::= OGBIC03_PA4
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_PAlib4_C <> compte.libelle ALORS
    			OGBIC03_PAlib4_C := compte.libelle
    			OGBIC03_PAlib4 := ?
    		FINSI
    	SINON
    		SI OGBIC03_PAlib4_C <> ? ALORS
    			OGBIC03_PAlib4_C := ?
    			OGBIC03_PAlib4 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_PAlib4 = ? ALORS
    		OGBIC03_PAlib4 := OGBIC03_PAlib4_C 
    	FINSI
    SINON
    	OGBIC03_PAlib4_C := ?
    	OGBIC03_PAlib4 := ?
    FINSI
    
    SI OGBIC03_PA5 <> ? ALORS
    	compte ::= OGBIC03_PA5
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_PAlib5_C <> compte.libelle ALORS
    			OGBIC03_PAlib5_C := compte.libelle
    			OGBIC03_PAlib5 := ?
    		FINSI
    	SINON
    		SI OGBIC03_PAlib5_C <> ? ALORS
    			OGBIC03_PAlib5_C := ?
    			OGBIC03_PAlib5 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_PAlib5 = ? ALORS
    		OGBIC03_PAlib5 := OGBIC03_PAlib5_C 
    	FINSI
    SINON
    	OGBIC03_PAlib5_C := ?
    	OGBIC03_PAlib5 := ?
    FINSI
    
    SI OGBIC03_PA6 <> ? ALORS
    	compte ::= OGBIC03_PA6
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_PAlib6_C <> compte.libelle ALORS
    			OGBIC03_PAlib6_C := compte.libelle
    			OGBIC03_PAlib6 := ?
    		FINSI
    	SINON
    		SI OGBIC03_PAlib6_C <> ? ALORS
    			OGBIC03_PAlib6_C := ?
    			OGBIC03_PAlib6 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_PAlib6 = ? ALORS
    		OGBIC03_PAlib6 := OGBIC03_PAlib6_C 
    	FINSI
    SINON
    	OGBIC03_PAlib6_C := ?
    	OGBIC03_PAlib6 := ?
    FINSI
    
    SI OGBIC03_PA7 <> ? ALORS
    	compte ::= OGBIC03_PA7
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_PAlib7_C <> compte.libelle ALORS
    			OGBIC03_PAlib7_C := compte.libelle
    			OGBIC03_PAlib7 := ?
    		FINSI
    	SINON
    		SI OGBIC03_PAlib7_C <> ? ALORS
    			OGBIC03_PAlib7_C := ?
    			OGBIC03_PAlib7 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_PAlib7 = ? ALORS
    		OGBIC03_PAlib7 := OGBIC03_PAlib7_C 
    	FINSI
    SINON
    	OGBIC03_PAlib7_C := ?
    	OGBIC03_PAlib7 := ?
    FINSI
    
    SI OGBIC03_PA8 <> ? ALORS
    	compte ::= OGBIC03_PA8
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_PAlib8_C <> compte.libelle ALORS
    			OGBIC03_PAlib8_C := compte.libelle
    			OGBIC03_PAlib8 := ?
    		FINSI
    	SINON
    		SI OGBIC03_PAlib8_C <> ? ALORS
    			OGBIC03_PAlib8_C := ?
    			OGBIC03_PAlib8 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_PAlib8 = ? ALORS
    		OGBIC03_PAlib8 := OGBIC03_PAlib8_C 
    	FINSI
    SINON
    	OGBIC03_PAlib8_C := ?
    	OGBIC03_PAlib8 := ?
    FINSI
    
    SI OGBIC03_PA9 <> ? ALORS
    	compte ::= OGBIC03_PA9
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_PAlib9_C <> compte.libelle ALORS
    			OGBIC03_PAlib9_C := compte.libelle
    			OGBIC03_PAlib9 := ?
    		FINSI
    	SINON
    		SI OGBIC03_PAlib9_C <> ? ALORS
    			OGBIC03_PAlib9_C := ?
    			OGBIC03_PAlib9 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_PAlib9 = ? ALORS
    		OGBIC03_PAlib9 := OGBIC03_PAlib9_C 
    	FINSI
    SINON
    	OGBIC03_PAlib9_C := ?
    	OGBIC03_PAlib9 := ?
    FINSI
    
    SI OGBIC03_PA10 <> ? ALORS
    	compte ::= OGBIC03_PA10
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_PAlib10_C <> compte.libelle ALORS
    			OGBIC03_PAlib10_C := compte.libelle
    			OGBIC03_PAlib10 := ?
    		FINSI
    	SINON
    		SI OGBIC03_PAlib10_C <> ? ALORS
    			OGBIC03_PAlib10_C := ?
    			OGBIC03_PAlib10 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_PAlib10 = ? ALORS
    		OGBIC03_PAlib10 := OGBIC03_PAlib10_C 
    	FINSI
    SINON
    	OGBIC03_PAlib10_C := ?
    	OGBIC03_PAlib10 := ?
    FINSI
    
    SI OGBIC03_PA11 <> ? ALORS
    	compte ::= OGBIC03_PA11
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_PAlib11_C <> compte.libelle ALORS
    			OGBIC03_PAlib11_C := compte.libelle
    			OGBIC03_PAlib11 := ?
    		FINSI
    	SINON
    		SI OGBIC03_PAlib11_C <> ? ALORS
    			OGBIC03_PAlib11_C := ?
    			OGBIC03_PAlib11 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_PAlib11 = ? ALORS
    		OGBIC03_PAlib11 := OGBIC03_PAlib11_C 
    	FINSI
    SINON
    	OGBIC03_PAlib11_C := ?
    	OGBIC03_PAlib11 := ?
    FINSI
###
'INTEROGBIC03QA' 'Nouveaux OG'
    
    SI OGBIC03_QA1 <> ? ALORS
    	compte ::= OGBIC03_QA1
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_QAlib1_C <> compte.libelle ALORS
    			OGBIC03_QAlib1_C := compte.libelle
    			OGBIC03_QAlib1 := ?
    		FINSI
    	SINON
    		SI OGBIC03_QAlib1_C <> ? ALORS
    			OGBIC03_QAlib1_C := ?
    			OGBIC03_QAlib1 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_QAlib1 = ? ALORS
    		OGBIC03_QAlib1 := OGBIC03_QAlib1_C 
    	FINSI
    SINON
    	OGBIC03_QAlib1_C := ?
    	OGBIC03_QAlib1 := ?
    FINSI
    
    SI OGBIC03_QA2 <> ? ALORS
    	compte ::= OGBIC03_QA2
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_QAlib2_C <> compte.libelle ALORS
    			OGBIC03_QAlib2_C := compte.libelle
    			OGBIC03_QAlib2 := ?
    		FINSI
    	SINON
    		SI OGBIC03_QAlib2_C <> ? ALORS
    			OGBIC03_QAlib2_C := ?
    			OGBIC03_QAlib2 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_QAlib2 = ? ALORS
    		OGBIC03_QAlib2 := OGBIC03_QAlib2_C 
    	FINSI
    SINON
    	OGBIC03_QAlib2_C := ?
    	OGBIC03_QAlib2 := ?
    FINSI
    
    SI OGBIC03_QA3 <> ? ALORS
    	compte ::= OGBIC03_QA3
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_QAlib3_C <> compte.libelle ALORS
    			OGBIC03_QAlib3_C := compte.libelle
    			OGBIC03_QAlib3 := ?
    		FINSI
    	SINON
    		SI OGBIC03_QAlib3_C <> ? ALORS
    			OGBIC03_QAlib3_C := ?
    			OGBIC03_QAlib3 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_QAlib3 = ? ALORS
    		OGBIC03_QAlib3 := OGBIC03_QAlib3_C 
    	FINSI
    SINON
    	OGBIC03_QAlib3_C := ?
    	OGBIC03_QAlib3 := ?
    FINSI
    
    SI OGBIC03_QA4 <> ? ALORS
    	compte ::= OGBIC03_QA4
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_QAlib4_C <> compte.libelle ALORS
    			OGBIC03_QAlib4_C := compte.libelle
    			OGBIC03_QAlib4 := ?
    		FINSI
    	SINON
    		SI OGBIC03_QAlib4_C <> ? ALORS
    			OGBIC03_QAlib4_C := ?
    			OGBIC03_QAlib4 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_QAlib4 = ? ALORS
    		OGBIC03_QAlib4 := OGBIC03_QAlib4_C 
    	FINSI
    SINON
    	OGBIC03_QAlib4_C := ?
    	OGBIC03_QAlib4 := ?
    FINSI
    
    SI OGBIC03_QA5 <> ? ALORS
    	compte ::= OGBIC03_QA5
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_QAlib5_C <> compte.libelle ALORS
    			OGBIC03_QAlib5_C := compte.libelle
    			OGBIC03_QAlib5 := ?
    		FINSI
    	SINON
    		SI OGBIC03_QAlib5_C <> ? ALORS
    			OGBIC03_QAlib5_C := ?
    			OGBIC03_QAlib5 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_QAlib5 = ? ALORS
    		OGBIC03_QAlib5 := OGBIC03_QAlib5_C 
    	FINSI
    SINON
    	OGBIC03_QAlib5_C := ?
    	OGBIC03_QAlib5 := ?
    FINSI
    
    SI OGBIC03_QA6 <> ? ALORS
    	compte ::= OGBIC03_QA6
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_QAlib6_C <> compte.libelle ALORS
    			OGBIC03_QAlib6_C := compte.libelle
    			OGBIC03_QAlib6 := ?
    		FINSI
    	SINON
    		SI OGBIC03_QAlib6_C <> ? ALORS
    			OGBIC03_QAlib6_C := ?
    			OGBIC03_QAlib6 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_QAlib6 = ? ALORS
    		OGBIC03_QAlib6 := OGBIC03_QAlib6_C 
    	FINSI
    SINON
    	OGBIC03_QAlib6_C := ?
    	OGBIC03_QAlib6 := ?
    FINSI
    
    SI OGBIC03_QA7 <> ? ALORS
    	compte ::= OGBIC03_QA7
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_QAlib7_C <> compte.libelle ALORS
    			OGBIC03_QAlib7_C := compte.libelle
    			OGBIC03_QAlib7 := ?
    		FINSI
    	SINON
    		SI OGBIC03_QAlib7_C <> ? ALORS
    			OGBIC03_QAlib7_C := ?
    			OGBIC03_QAlib7 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_QAlib7 = ? ALORS
    		OGBIC03_QAlib7 := OGBIC03_QAlib7_C 
    	FINSI
    SINON
    	OGBIC03_QAlib7_C := ?
    	OGBIC03_QAlib7 := ?
    FINSI
    
    SI OGBIC03_QA8 <> ? ALORS
    	compte ::= OGBIC03_QA8
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_QAlib8_C <> compte.libelle ALORS
    			OGBIC03_QAlib8_C := compte.libelle
    			OGBIC03_QAlib8 := ?
    		FINSI
    	SINON
    		SI OGBIC03_QAlib8_C <> ? ALORS
    			OGBIC03_QAlib8_C := ?
    			OGBIC03_QAlib8 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_QAlib8 = ? ALORS
    		OGBIC03_QAlib8 := OGBIC03_QAlib8_C 
    	FINSI
    SINON
    	OGBIC03_QAlib8_C := ?
    	OGBIC03_QAlib8 := ?
    FINSI
    
    SI OGBIC03_QA9 <> ? ALORS
    	compte ::= OGBIC03_QA9
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_QAlib9_C <> compte.libelle ALORS
    			OGBIC03_QAlib9_C := compte.libelle
    			OGBIC03_QAlib9 := ?
    		FINSI
    	SINON
    		SI OGBIC03_QAlib9_C <> ? ALORS
    			OGBIC03_QAlib9_C := ?
    			OGBIC03_QAlib9 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_QAlib9 = ? ALORS
    		OGBIC03_QAlib9 := OGBIC03_QAlib9_C 
    	FINSI
    SINON
    	OGBIC03_QAlib9_C := ?
    	OGBIC03_QAlib9 := ?
    FINSI
    
    SI OGBIC03_QA10 <> ? ALORS
    	compte ::= OGBIC03_QA10
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_QAlib10_C <> compte.libelle ALORS
    			OGBIC03_QAlib10_C := compte.libelle
    			OGBIC03_QAlib10 := ?
    		FINSI
    	SINON
    		SI OGBIC03_QAlib10_C <> ? ALORS
    			OGBIC03_QAlib10_C := ?
    			OGBIC03_QAlib10 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_QAlib10 = ? ALORS
    		OGBIC03_QAlib10 := OGBIC03_QAlib10_C 
    	FINSI
    SINON
    	OGBIC03_QAlib10_C := ?
    	OGBIC03_QAlib10 := ?
    FINSI
    
    SI OGBIC03_QA11 <> ? ALORS
    	compte ::= OGBIC03_QA11
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_QAlib11_C <> compte.libelle ALORS
    			OGBIC03_QAlib11_C := compte.libelle
    			OGBIC03_QAlib11 := ?
    		FINSI
    	SINON
    		SI OGBIC03_QAlib11_C <> ? ALORS
    			OGBIC03_QAlib11_C := ?
    			OGBIC03_QAlib11 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_QAlib11 = ? ALORS
    		OGBIC03_QAlib11 := OGBIC03_QAlib11_C 
    	FINSI
    SINON
    	OGBIC03_QAlib11_C := ?
    	OGBIC03_QAlib11 := ?
    FINSI
###
'INTEROGBIC03SA' 'Nouveaux OG'
    
    SI OGBIC03_SA1 <> ? ALORS
    	compte ::= OGBIC03_SA1
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_SAlib1_C <> compte.libelle ALORS
    			OGBIC03_SAlib1_C := compte.libelle
    			OGBIC03_SAlib1 := ?
    		FINSI
    	SINON
    		SI OGBIC03_SAlib1_C <> ? ALORS
    			OGBIC03_SAlib1_C := ?
    			OGBIC03_SAlib1 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_SAlib1 = ? ALORS
    		OGBIC03_SAlib1 := OGBIC03_SAlib1_C 
    	FINSI
    SINON
    	OGBIC03_SAlib1_C := ?
    	OGBIC03_SAlib1 := ?
    FINSI
    
    SI OGBIC03_SA2 <> ? ALORS
    	compte ::= OGBIC03_SA2
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_SAlib2_C <> compte.libelle ALORS
    			OGBIC03_SAlib2_C := compte.libelle
    			OGBIC03_SAlib2 := ?
    		FINSI
    	SINON
    		SI OGBIC03_SAlib2_C <> ? ALORS
    			OGBIC03_SAlib2_C := ?
    			OGBIC03_SAlib2 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_SAlib2 = ? ALORS
    		OGBIC03_SAlib2 := OGBIC03_SAlib2_C 
    	FINSI
    SINON
    	OGBIC03_SAlib2_C := ?
    	OGBIC03_SAlib2 := ?
    FINSI
    
    SI OGBIC03_SA3 <> ? ALORS
    	compte ::= OGBIC03_SA3
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_SAlib3_C <> compte.libelle ALORS
    			OGBIC03_SAlib3_C := compte.libelle
    			OGBIC03_SAlib3 := ?
    		FINSI
    	SINON
    		SI OGBIC03_SAlib3_C <> ? ALORS
    			OGBIC03_SAlib3_C := ?
    			OGBIC03_SAlib3 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_SAlib3 = ? ALORS
    		OGBIC03_SAlib3 := OGBIC03_SAlib3_C 
    	FINSI
    SINON
    	OGBIC03_SAlib3_C := ?
    	OGBIC03_SAlib3 := ?
    FINSI
    
    SI OGBIC03_SA4 <> ? ALORS
    	compte ::= OGBIC03_SA4
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_SAlib4_C <> compte.libelle ALORS
    			OGBIC03_SAlib4_C := compte.libelle
    			OGBIC03_SAlib4 := ?
    		FINSI
    	SINON
    		SI OGBIC03_SAlib4_C <> ? ALORS
    			OGBIC03_SAlib4_C := ?
    			OGBIC03_SAlib4 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_SAlib4 = ? ALORS
    		OGBIC03_SAlib4 := OGBIC03_SAlib4_C 
    	FINSI
    SINON
    	OGBIC03_SAlib4_C := ?
    	OGBIC03_SAlib4 := ?
    FINSI
    
    SI OGBIC03_SA5 <> ? ALORS
    	compte ::= OGBIC03_SA5
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_SAlib5_C <> compte.libelle ALORS
    			OGBIC03_SAlib5_C := compte.libelle
    			OGBIC03_SAlib5 := ?
    		FINSI
    	SINON
    		SI OGBIC03_SAlib5_C <> ? ALORS
    			OGBIC03_SAlib5_C := ?
    			OGBIC03_SAlib5 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_SAlib5 = ? ALORS
    		OGBIC03_SAlib5 := OGBIC03_SAlib5_C 
    	FINSI
    SINON
    	OGBIC03_SAlib5_C := ?
    	OGBIC03_SAlib5 := ?
    FINSI
    
    SI OGBIC03_SA6 <> ? ALORS
    	compte ::= OGBIC03_SA6
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_SAlib6_C <> compte.libelle ALORS
    			OGBIC03_SAlib6_C := compte.libelle
    			OGBIC03_SAlib6 := ?
    		FINSI
    	SINON
    		SI OGBIC03_SAlib6_C <> ? ALORS
    			OGBIC03_SAlib6_C := ?
    			OGBIC03_SAlib6 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_SAlib6 = ? ALORS
    		OGBIC03_SAlib6 := OGBIC03_SAlib6_C 
    	FINSI
    SINON
    	OGBIC03_SAlib6_C := ?
    	OGBIC03_SAlib6 := ?
    FINSI
    
    SI OGBIC03_SA7 <> ? ALORS
    	compte ::= OGBIC03_SA7
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_SAlib7_C <> compte.libelle ALORS
    			OGBIC03_SAlib7_C := compte.libelle
    			OGBIC03_SAlib7 := ?
    		FINSI
    	SINON
    		SI OGBIC03_SAlib7_C <> ? ALORS
    			OGBIC03_SAlib7_C := ?
    			OGBIC03_SAlib7 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_SAlib7 = ? ALORS
    		OGBIC03_SAlib7 := OGBIC03_SAlib7_C 
    	FINSI
    SINON
    	OGBIC03_SAlib7_C := ?
    	OGBIC03_SAlib7 := ?
    FINSI
    
    SI OGBIC03_SA8 <> ? ALORS
    	compte ::= OGBIC03_SA8
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_SAlib8_C <> compte.libelle ALORS
    			OGBIC03_SAlib8_C := compte.libelle
    			OGBIC03_SAlib8 := ?
    		FINSI
    	SINON
    		SI OGBIC03_SAlib8_C <> ? ALORS
    			OGBIC03_SAlib8_C := ?
    			OGBIC03_SAlib8 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_SAlib8 = ? ALORS
    		OGBIC03_SAlib8 := OGBIC03_SAlib8_C 
    	FINSI
    SINON
    	OGBIC03_SAlib8_C := ?
    	OGBIC03_SAlib8 := ?
    FINSI
    
    SI OGBIC03_SA9 <> ? ALORS
    	compte ::= OGBIC03_SA9
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_SAlib9_C <> compte.libelle ALORS
    			OGBIC03_SAlib9_C := compte.libelle
    			OGBIC03_SAlib9 := ?
    		FINSI
    	SINON
    		SI OGBIC03_SAlib9_C <> ? ALORS
    			OGBIC03_SAlib9_C := ?
    			OGBIC03_SAlib9 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_SAlib9 = ? ALORS
    		OGBIC03_SAlib9 := OGBIC03_SAlib9_C 
    	FINSI
    SINON
    	OGBIC03_SAlib9_C := ?
    	OGBIC03_SAlib9 := ?
    FINSI
    
    SI OGBIC03_SA10 <> ? ALORS
    	compte ::= OGBIC03_SA10
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_SAlib10_C <> compte.libelle ALORS
    			OGBIC03_SAlib10_C := compte.libelle
    			OGBIC03_SAlib10 := ?
    		FINSI
    	SINON
    		SI OGBIC03_SAlib10_C <> ? ALORS
    			OGBIC03_SAlib10_C := ?
    			OGBIC03_SAlib10 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_SAlib10 = ? ALORS
    		OGBIC03_SAlib10 := OGBIC03_SAlib10_C 
    	FINSI
    SINON
    	OGBIC03_SAlib10_C := ?
    	OGBIC03_SAlib10 := ?
    FINSI
    
    SI OGBIC03_SA11 <> ? ALORS
    	compte ::= OGBIC03_SA11
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_SAlib11_C <> compte.libelle ALORS
    			OGBIC03_SAlib11_C := compte.libelle
    			OGBIC03_SAlib11 := ?
    		FINSI
    	SINON
    		SI OGBIC03_SAlib11_C <> ? ALORS
    			OGBIC03_SAlib11_C := ?
    			OGBIC03_SAlib11 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_SAlib11 = ? ALORS
    		OGBIC03_SAlib11 := OGBIC03_SAlib11_C 
    	FINSI
    SINON
    	OGBIC03_SAlib11_C := ?
    	OGBIC03_SAlib11 := ?
    FINSI
###
'INTEROGBIC03UA' 'Nouveaux OG'
    
    SI OGBIC03_UA1 <> ? ALORS
    	compte ::= OGBIC03_UA1
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib1_C <> compte.libelle ALORS
    			OGBIC03_UAlib1_C := compte.libelle
    			OGBIC03_UAlib1 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib1_C <> ? ALORS
    			OGBIC03_UAlib1_C := ?
    			OGBIC03_UAlib1 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib1 = ? ALORS
    		OGBIC03_UAlib1 := OGBIC03_UAlib1_C 
    	FINSI
    SINON
    	OGBIC03_UAlib1_C := ?
    	OGBIC03_UAlib1 := ?
    FINSI
    
    SI OGBIC03_UA2 <> ? ALORS
    	compte ::= OGBIC03_UA2
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib2_C <> compte.libelle ALORS
    			OGBIC03_UAlib2_C := compte.libelle
    			OGBIC03_UAlib2 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib2_C <> ? ALORS
    			OGBIC03_UAlib2_C := ?
    			OGBIC03_UAlib2 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib2 = ? ALORS
    		OGBIC03_UAlib2 := OGBIC03_UAlib2_C 
    	FINSI
    SINON
    	OGBIC03_UAlib2_C := ?
    	OGBIC03_UAlib2 := ?
    FINSI
    
    SI OGBIC03_UA3 <> ? ALORS
    	compte ::= OGBIC03_UA3
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib3_C <> compte.libelle ALORS
    			OGBIC03_UAlib3_C := compte.libelle
    			OGBIC03_UAlib3 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib3_C <> ? ALORS
    			OGBIC03_UAlib3_C := ?
    			OGBIC03_UAlib3 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib3 = ? ALORS
    		OGBIC03_UAlib3 := OGBIC03_UAlib3_C 
    	FINSI
    SINON
    	OGBIC03_UAlib3_C := ?
    	OGBIC03_UAlib3 := ?
    FINSI
    
    SI OGBIC03_UA4 <> ? ALORS
    	compte ::= OGBIC03_UA4
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib4_C <> compte.libelle ALORS
    			OGBIC03_UAlib4_C := compte.libelle
    			OGBIC03_UAlib4 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib4_C <> ? ALORS
    			OGBIC03_UAlib4_C := ?
    			OGBIC03_UAlib4 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib4 = ? ALORS
    		OGBIC03_UAlib4 := OGBIC03_UAlib4_C 
    	FINSI
    SINON
    	OGBIC03_UAlib4_C := ?
    	OGBIC03_UAlib4 := ?
    FINSI
    
    SI OGBIC03_UA5 <> ? ALORS
    	compte ::= OGBIC03_UA5
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib5_C <> compte.libelle ALORS
    			OGBIC03_UAlib5_C := compte.libelle
    			OGBIC03_UAlib5 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib5_C <> ? ALORS
    			OGBIC03_UAlib5_C := ?
    			OGBIC03_UAlib5 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib5 = ? ALORS
    		OGBIC03_UAlib5 := OGBIC03_UAlib5_C 
    	FINSI
    SINON
    	OGBIC03_UAlib5_C := ?
    	OGBIC03_UAlib5 := ?
    FINSI
    
    SI OGBIC03_UA6 <> ? ALORS
    	compte ::= OGBIC03_UA6
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib6_C <> compte.libelle ALORS
    			OGBIC03_UAlib6_C := compte.libelle
    			OGBIC03_UAlib6 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib6_C <> ? ALORS
    			OGBIC03_UAlib6_C := ?
    			OGBIC03_UAlib6 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib6 = ? ALORS
    		OGBIC03_UAlib6 := OGBIC03_UAlib6_C 
    	FINSI
    SINON
    	OGBIC03_UAlib6_C := ?
    	OGBIC03_UAlib6 := ?
    FINSI
    
    SI OGBIC03_UA7 <> ? ALORS
    	compte ::= OGBIC03_UA7
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib7_C <> compte.libelle ALORS
    			OGBIC03_UAlib7_C := compte.libelle
    			OGBIC03_UAlib7 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib7_C <> ? ALORS
    			OGBIC03_UAlib7_C := ?
    			OGBIC03_UAlib7 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib7 = ? ALORS
    		OGBIC03_UAlib7 := OGBIC03_UAlib7_C 
    	FINSI
    SINON
    	OGBIC03_UAlib7_C := ?
    	OGBIC03_UAlib7 := ?
    FINSI
    
    SI OGBIC03_UA8 <> ? ALORS
    	compte ::= OGBIC03_UA8
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib8_C <> compte.libelle ALORS
    			OGBIC03_UAlib8_C := compte.libelle
    			OGBIC03_UAlib8 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib8_C <> ? ALORS
    			OGBIC03_UAlib8_C := ?
    			OGBIC03_UAlib8 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib8 = ? ALORS
    		OGBIC03_UAlib8 := OGBIC03_UAlib8_C 
    	FINSI
    SINON
    	OGBIC03_UAlib8_C := ?
    	OGBIC03_UAlib8 := ?
    FINSI
    
    SI OGBIC03_UA9 <> ? ALORS
    	compte ::= OGBIC03_UA9
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib9_C <> compte.libelle ALORS
    			OGBIC03_UAlib9_C := compte.libelle
    			OGBIC03_UAlib9 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib9_C <> ? ALORS
    			OGBIC03_UAlib9_C := ?
    			OGBIC03_UAlib9 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib9 = ? ALORS
    		OGBIC03_UAlib9 := OGBIC03_UAlib9_C 
    	FINSI
    SINON
    	OGBIC03_UAlib9_C := ?
    	OGBIC03_UAlib9 := ?
    FINSI
    
    SI OGBIC03_UA10 <> ? ALORS
    	compte ::= OGBIC03_UA10
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib10_C <> compte.libelle ALORS
    			OGBIC03_UAlib10_C := compte.libelle
    			OGBIC03_UAlib10 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib10_C <> ? ALORS
    			OGBIC03_UAlib10_C := ?
    			OGBIC03_UAlib10 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib10 = ? ALORS
    		OGBIC03_UAlib10 := OGBIC03_UAlib10_C 
    	FINSI
    SINON
    	OGBIC03_UAlib10_C := ?
    	OGBIC03_UAlib10 := ?
    FINSI
    
    SI OGBIC03_UA11 <> ? ALORS
    	compte ::= OGBIC03_UA11
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib11_C <> compte.libelle ALORS
    			OGBIC03_UAlib11_C := compte.libelle
    			OGBIC03_UAlib11 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib11_C <> ? ALORS
    			OGBIC03_UAlib11_C := ?
    			OGBIC03_UAlib11 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib11 = ? ALORS
    		OGBIC03_UAlib11 := OGBIC03_UAlib11_C 
    	FINSI
    SINON
    	OGBIC03_UAlib11_C := ?
    	OGBIC03_UAlib11 := ?
    FINSI
    
    
    SI OGBIC03_UA12 <> ? ALORS
    	compte ::= OGBIC03_UA12
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib12_C <> compte.libelle ALORS
    			OGBIC03_UAlib12_C := compte.libelle
    			OGBIC03_UAlib12 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib12_C <> ? ALORS
    			OGBIC03_UAlib12_C := ?
    			OGBIC03_UAlib12 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib12 = ? ALORS
    		OGBIC03_UAlib12 := OGBIC03_UAlib12_C 
    	FINSI
    SINON
    	OGBIC03_UAlib12_C := ?
    	OGBIC03_UAlib12 := ?
    FINSI
    
    SI OGBIC03_UA13 <> ? ALORS
    	compte ::= OGBIC03_UA13
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib13_C <> compte.libelle ALORS
    			OGBIC03_UAlib13_C := compte.libelle
    			OGBIC03_UAlib13 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib13_C <> ? ALORS
    			OGBIC03_UAlib13_C := ?
    			OGBIC03_UAlib13 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib13 = ? ALORS
    		OGBIC03_UAlib13 := OGBIC03_UAlib13_C 
    	FINSI
    SINON
    	OGBIC03_UAlib13_C := ?
    	OGBIC03_UAlib13 := ?
    FINSI
    
    SI OGBIC03_UA14 <> ? ALORS
    	compte ::= OGBIC03_UA14
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib14_C <> compte.libelle ALORS
    			OGBIC03_UAlib14_C := compte.libelle
    			OGBIC03_UAlib14 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib14_C <> ? ALORS
    			OGBIC03_UAlib14_C := ?
    			OGBIC03_UAlib14 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib14 = ? ALORS
    		OGBIC03_UAlib14 := OGBIC03_UAlib14_C 
    	FINSI
    SINON
    	OGBIC03_UAlib14_C := ?
    	OGBIC03_UAlib14 := ?
    FINSI
    
    SI OGBIC03_UA15 <> ? ALORS
    	compte ::= OGBIC03_UA15
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib15_C <> compte.libelle ALORS
    			OGBIC03_UAlib15_C := compte.libelle
    			OGBIC03_UAlib15 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib15_C <> ? ALORS
    			OGBIC03_UAlib15_C := ?
    			OGBIC03_UAlib15 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib15 = ? ALORS
    		OGBIC03_UAlib15 := OGBIC03_UAlib15_C 
    	FINSI
    SINON
    	OGBIC03_UAlib15_C := ?
    	OGBIC03_UAlib15 := ?
    FINSI
    
    SI OGBIC03_UA16 <> ? ALORS
    	compte ::= OGBIC03_UA16
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib16_C <> compte.libelle ALORS
    			OGBIC03_UAlib16_C := compte.libelle
    			OGBIC03_UAlib16 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib16_C <> ? ALORS
    			OGBIC03_UAlib16_C := ?
    			OGBIC03_UAlib16 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib16 = ? ALORS
    		OGBIC03_UAlib16 := OGBIC03_UAlib16_C 
    	FINSI
    SINON
    	OGBIC03_UAlib16_C := ?
    	OGBIC03_UAlib16 := ?
    FINSI
    
    SI OGBIC03_UA17 <> ? ALORS
    	compte ::= OGBIC03_UA17
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib17_C <> compte.libelle ALORS
    			OGBIC03_UAlib17_C := compte.libelle
    			OGBIC03_UAlib17 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib17_C <> ? ALORS
    			OGBIC03_UAlib17_C := ?
    			OGBIC03_UAlib17 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib17 = ? ALORS
    		OGBIC03_UAlib17 := OGBIC03_UAlib17_C 
    	FINSI
    SINON
    	OGBIC03_UAlib17_C := ?
    	OGBIC03_UAlib17 := ?
    FINSI
    
    SI OGBIC03_UA18 <> ? ALORS
    	compte ::= OGBIC03_UA18
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib18_C <> compte.libelle ALORS
    			OGBIC03_UAlib18_C := compte.libelle
    			OGBIC03_UAlib18 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib18_C <> ? ALORS
    			OGBIC03_UAlib18_C := ?
    			OGBIC03_UAlib18 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib18 = ? ALORS
    		OGBIC03_UAlib18 := OGBIC03_UAlib18_C 
    	FINSI
    SINON
    	OGBIC03_UAlib18_C := ?
    	OGBIC03_UAlib18 := ?
    FINSI
    
    SI OGBIC03_UA19 <> ? ALORS
    	compte ::= OGBIC03_UA19
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib19_C <> compte.libelle ALORS
    			OGBIC03_UAlib19_C := compte.libelle
    			OGBIC03_UAlib19 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib19_C <> ? ALORS
    			OGBIC03_UAlib19_C := ?
    			OGBIC03_UAlib19 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib19 = ? ALORS
    		OGBIC03_UAlib19 := OGBIC03_UAlib19_C 
    	FINSI
    SINON
    	OGBIC03_UAlib19_C := ?
    	OGBIC03_UAlib19 := ?
    FINSI
    
    SI OGBIC03_UA20 <> ? ALORS
    	compte ::= OGBIC03_UA20
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib20_C <> compte.libelle ALORS
    			OGBIC03_UAlib20_C := compte.libelle
    			OGBIC03_UAlib20 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib20_C <> ? ALORS
    			OGBIC03_UAlib20_C := ?
    			OGBIC03_UAlib20 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib20 = ? ALORS
    		OGBIC03_UAlib20 := OGBIC03_UAlib20_C 
    	FINSI
    SINON
    	OGBIC03_UAlib20_C := ?
    	OGBIC03_UAlib20 := ?
    FINSI
    
    SI OGBIC03_UA21 <> ? ALORS
    	compte ::= OGBIC03_UA21
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib21_C <> compte.libelle ALORS
    			OGBIC03_UAlib21_C := compte.libelle
    			OGBIC03_UAlib21 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib21_C <> ? ALORS
    			OGBIC03_UAlib21_C := ?
    			OGBIC03_UAlib21 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib21 = ? ALORS
    		OGBIC03_UAlib21 := OGBIC03_UAlib21_C 
    	FINSI
    SINON
    	OGBIC03_UAlib21_C := ?
    	OGBIC03_UAlib21 := ?
    FINSI
    
    SI OGBIC03_UA22 <> ? ALORS
    	compte ::= OGBIC03_UA22
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib22_C <> compte.libelle ALORS
    			OGBIC03_UAlib22_C := compte.libelle
    			OGBIC03_UAlib22 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib22_C <> ? ALORS
    			OGBIC03_UAlib22_C := ?
    			OGBIC03_UAlib22 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib22 = ? ALORS
    		OGBIC03_UAlib22 := OGBIC03_UAlib22_C 
    	FINSI
    SINON
    	OGBIC03_UAlib22_C := ?
    	OGBIC03_UAlib22 := ?
    FINSI
    
    SI OGBIC03_UA23 <> ? ALORS
    	compte ::= OGBIC03_UA23
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib23_C <> compte.libelle ALORS
    			OGBIC03_UAlib23_C := compte.libelle
    			OGBIC03_UAlib23 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib23_C <> ? ALORS
    			OGBIC03_UAlib23_C := ?
    			OGBIC03_UAlib23 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib23 = ? ALORS
    		OGBIC03_UAlib23 := OGBIC03_UAlib23_C 
    	FINSI
    SINON
    	OGBIC03_UAlib23_C := ?
    	OGBIC03_UAlib23 := ?
    FINSI
    
    SI OGBIC03_UA24 <> ? ALORS
    	compte ::= OGBIC03_UA24
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib24_C <> compte.libelle ALORS
    			OGBIC03_UAlib24_C := compte.libelle
    			OGBIC03_UAlib24 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib24_C <> ? ALORS
    			OGBIC03_UAlib24_C := ?
    			OGBIC03_UAlib24 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib24 = ? ALORS
    		OGBIC03_UAlib24 := OGBIC03_UAlib24_C 
    	FINSI
    SINON
    	OGBIC03_UAlib24_C := ?
    	OGBIC03_UAlib24 := ?
    FINSI
    
    SI OGBIC03_UA25 <> ? ALORS
    	compte ::= OGBIC03_UA25
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib25_C <> compte.libelle ALORS
    			OGBIC03_UAlib25_C := compte.libelle
    			OGBIC03_UAlib25 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib25_C <> ? ALORS
    			OGBIC03_UAlib25_C := ?
    			OGBIC03_UAlib25 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib25 = ? ALORS
    		OGBIC03_UAlib25 := OGBIC03_UAlib25_C 
    	FINSI
    SINON
    	OGBIC03_UAlib25_C := ?
    	OGBIC03_UAlib25 := ?
    FINSI
    
    SI OGBIC03_UA26 <> ? ALORS
    	compte ::= OGBIC03_UA26
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib26_C <> compte.libelle ALORS
    			OGBIC03_UAlib26_C := compte.libelle
    			OGBIC03_UAlib26 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib26_C <> ? ALORS
    			OGBIC03_UAlib26_C := ?
    			OGBIC03_UAlib26 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib26 = ? ALORS
    		OGBIC03_UAlib26 := OGBIC03_UAlib26_C 
    	FINSI
    SINON
    	OGBIC03_UAlib26_C := ?
    	OGBIC03_UAlib26 := ?
    FINSI
    
    SI OGBIC03_UA27 <> ? ALORS
    	compte ::= OGBIC03_UA27
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib27_C <> compte.libelle ALORS
    			OGBIC03_UAlib27_C := compte.libelle
    			OGBIC03_UAlib27 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib27_C <> ? ALORS
    			OGBIC03_UAlib27_C := ?
    			OGBIC03_UAlib27 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib27 = ? ALORS
    		OGBIC03_UAlib27 := OGBIC03_UAlib27_C 
    	FINSI
    SINON
    	OGBIC03_UAlib27_C := ?
    	OGBIC03_UAlib27 := ?
    FINSI
    
    SI OGBIC03_UA28 <> ? ALORS
    	compte ::= OGBIC03_UA28
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib28_C <> compte.libelle ALORS
    			OGBIC03_UAlib28_C := compte.libelle
    			OGBIC03_UAlib28 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib28_C <> ? ALORS
    			OGBIC03_UAlib28_C := ?
    			OGBIC03_UAlib28 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib28 = ? ALORS
    		OGBIC03_UAlib28 := OGBIC03_UAlib28_C 
    	FINSI
    SINON
    	OGBIC03_UAlib28_C := ?
    	OGBIC03_UAlib28 := ?
    FINSI
    
    SI OGBIC03_UA29 <> ? ALORS
    	compte ::= OGBIC03_UA29
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib29_C <> compte.libelle ALORS
    			OGBIC03_UAlib29_C := compte.libelle
    			OGBIC03_UAlib29 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib29_C <> ? ALORS
    			OGBIC03_UAlib29_C := ?
    			OGBIC03_UAlib29 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib29 = ? ALORS
    		OGBIC03_UAlib29 := OGBIC03_UAlib29_C 
    	FINSI
    SINON
    	OGBIC03_UAlib29_C := ?
    	OGBIC03_UAlib29 := ?
    FINSI
    
    SI OGBIC03_UA30 <> ? ALORS
    	compte ::= OGBIC03_UA30
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib30_C <> compte.libelle ALORS
    			OGBIC03_UAlib30_C := compte.libelle
    			OGBIC03_UAlib30 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib30_C <> ? ALORS
    			OGBIC03_UAlib30_C := ?
    			OGBIC03_UAlib30 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib30 = ? ALORS
    		OGBIC03_UAlib30 := OGBIC03_UAlib30_C 
    	FINSI
    SINON
    	OGBIC03_UAlib30_C := ?
    	OGBIC03_UAlib30 := ?
    FINSI
    
    SI OGBIC03_UA31 <> ? ALORS
    	compte ::= OGBIC03_UA31
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib31_C <> compte.libelle ALORS
    			OGBIC03_UAlib31_C := compte.libelle
    			OGBIC03_UAlib31 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib31_C <> ? ALORS
    			OGBIC03_UAlib31_C := ?
    			OGBIC03_UAlib31 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib31 = ? ALORS
    		OGBIC03_UAlib31 := OGBIC03_UAlib31_C 
    	FINSI
    SINON
    	OGBIC03_UAlib31_C := ?
    	OGBIC03_UAlib31 := ?
    FINSI
    
    SI OGBIC03_UA32 <> ? ALORS
    	compte ::= OGBIC03_UA32
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib32_C <> compte.libelle ALORS
    			OGBIC03_UAlib32_C := compte.libelle
    			OGBIC03_UAlib32 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib32_C <> ? ALORS
    			OGBIC03_UAlib32_C := ?
    			OGBIC03_UAlib32 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib32 = ? ALORS
    		OGBIC03_UAlib32 := OGBIC03_UAlib32_C 
    	FINSI
    SINON
    	OGBIC03_UAlib32_C := ?
    	OGBIC03_UAlib32 := ?
    FINSI
    
    SI OGBIC03_UA33 <> ? ALORS
    	compte ::= OGBIC03_UA33
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_UAlib33_C <> compte.libelle ALORS
    			OGBIC03_UAlib33_C := compte.libelle
    			OGBIC03_UAlib33 := ?
    		FINSI
    	SINON
    		SI OGBIC03_UAlib33_C <> ? ALORS
    			OGBIC03_UAlib33_C := ?
    			OGBIC03_UAlib33 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_UAlib33 = ? ALORS
    		OGBIC03_UAlib33 := OGBIC03_UAlib33_C 
    	FINSI
    SINON
    	OGBIC03_UAlib33_C := ?
    	OGBIC03_UAlib33 := ?
    FINSI
###
'PAGE_OGBIC03_EXT7' 'Toutes fonctions'
    impression {'compta/25/ogaNouveaux/ogbic03_ext7.fnd'}
    impression {'fin_page'}
###
'PAGE_OGBIC05' 'Toutes fonctions'
    impression {'compta/25/ogaNouveaux/ogbic05.fnd'}
    impression {'fin_page'}
###
'INTEROGBIC03WA' 'Toutes fonctions'

    SI OGBIC03_WA1 <> ? ALORS
    	compte ::= OGBIC03_WA1
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib1_C <> compte.libelle ALORS
    			OGBIC03_WAlib1_C := compte.libelle
    			OGBIC03_WAlib1 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib1_C <> ? ALORS
    			OGBIC03_WAlib1_C := ?
    			OGBIC03_WAlib1 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib1 = ? ALORS
    		OGBIC03_WAlib1 := OGBIC03_WAlib1_C 
    	FINSI
    SINON
    	OGBIC03_WAlib1_C := ?
    	OGBIC03_WAlib1 := ?
    FINSI
    
    SI OGBIC03_WA2 <> ? ALORS
    	compte ::= OGBIC03_WA2
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib2_C <> compte.libelle ALORS
    			OGBIC03_WAlib2_C := compte.libelle
    			OGBIC03_WAlib2 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib2_C <> ? ALORS
    			OGBIC03_WAlib2_C := ?
    			OGBIC03_WAlib2 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib2 = ? ALORS
    		OGBIC03_WAlib2 := OGBIC03_WAlib2_C 
    	FINSI
    SINON
    	OGBIC03_WAlib2_C := ?
    	OGBIC03_WAlib2 := ?
    FINSI
    
    SI OGBIC03_WA3 <> ? ALORS
    	compte ::= OGBIC03_WA3
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib3_C <> compte.libelle ALORS
    			OGBIC03_WAlib3_C := compte.libelle
    			OGBIC03_WAlib3 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib3_C <> ? ALORS
    			OGBIC03_WAlib3_C := ?
    			OGBIC03_WAlib3 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib3 = ? ALORS
    		OGBIC03_WAlib3 := OGBIC03_WAlib3_C 
    	FINSI
    SINON
    	OGBIC03_WAlib3_C := ?
    	OGBIC03_WAlib3 := ?
    FINSI
    
    SI OGBIC03_WA4 <> ? ALORS
    	compte ::= OGBIC03_WA4
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib4_C <> compte.libelle ALORS
    			OGBIC03_WAlib4_C := compte.libelle
    			OGBIC03_WAlib4 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib4_C <> ? ALORS
    			OGBIC03_WAlib4_C := ?
    			OGBIC03_WAlib4 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib4 = ? ALORS
    		OGBIC03_WAlib4 := OGBIC03_WAlib4_C 
    	FINSI
    SINON
    	OGBIC03_WAlib4_C := ?
    	OGBIC03_WAlib4 := ?
    FINSI
    
    SI OGBIC03_WA5 <> ? ALORS
    	compte ::= OGBIC03_WA5
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib5_C <> compte.libelle ALORS
    			OGBIC03_WAlib5_C := compte.libelle
    			OGBIC03_WAlib5 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib5_C <> ? ALORS
    			OGBIC03_WAlib5_C := ?
    			OGBIC03_WAlib5 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib5 = ? ALORS
    		OGBIC03_WAlib5 := OGBIC03_WAlib5_C 
    	FINSI
    SINON
    	OGBIC03_WAlib5_C := ?
    	OGBIC03_WAlib5 := ?
    FINSI
    
    SI OGBIC03_WA6 <> ? ALORS
    	compte ::= OGBIC03_WA6
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib6_C <> compte.libelle ALORS
    			OGBIC03_WAlib6_C := compte.libelle
    			OGBIC03_WAlib6 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib6_C <> ? ALORS
    			OGBIC03_WAlib6_C := ?
    			OGBIC03_WAlib6 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib6 = ? ALORS
    		OGBIC03_WAlib6 := OGBIC03_WAlib6_C 
    	FINSI
    SINON
    	OGBIC03_WAlib6_C := ?
    	OGBIC03_WAlib6 := ?
    FINSI
    
    SI OGBIC03_WA7 <> ? ALORS
    	compte ::= OGBIC03_WA7
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib7_C <> compte.libelle ALORS
    			OGBIC03_WAlib7_C := compte.libelle
    			OGBIC03_WAlib7 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib7_C <> ? ALORS
    			OGBIC03_WAlib7_C := ?
    			OGBIC03_WAlib7 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib7 = ? ALORS
    		OGBIC03_WAlib7 := OGBIC03_WAlib7_C 
    	FINSI
    SINON
    	OGBIC03_WAlib7_C := ?
    	OGBIC03_WAlib7 := ?
    FINSI
    
    SI OGBIC03_WA8 <> ? ALORS
    	compte ::= OGBIC03_WA8
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib8_C <> compte.libelle ALORS
    			OGBIC03_WAlib8_C := compte.libelle
    			OGBIC03_WAlib8 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib8_C <> ? ALORS
    			OGBIC03_WAlib8_C := ?
    			OGBIC03_WAlib8 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib8 = ? ALORS
    		OGBIC03_WAlib8 := OGBIC03_WAlib8_C 
    	FINSI
    SINON
    	OGBIC03_WAlib8_C := ?
    	OGBIC03_WAlib8 := ?
    FINSI
    
    SI OGBIC03_WA9 <> ? ALORS
    	compte ::= OGBIC03_WA9
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib9_C <> compte.libelle ALORS
    			OGBIC03_WAlib9_C := compte.libelle
    			OGBIC03_WAlib9 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib9_C <> ? ALORS
    			OGBIC03_WAlib9_C := ?
    			OGBIC03_WAlib9 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib9 = ? ALORS
    		OGBIC03_WAlib9 := OGBIC03_WAlib9_C 
    	FINSI
    SINON
    	OGBIC03_WAlib9_C := ?
    	OGBIC03_WAlib9 := ?
    FINSI
    
    SI OGBIC03_WA10 <> ? ALORS
    	compte ::= OGBIC03_WA10
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib10_C <> compte.libelle ALORS
    			OGBIC03_WAlib10_C := compte.libelle
    			OGBIC03_WAlib10 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib10_C <> ? ALORS
    			OGBIC03_WAlib10_C := ?
    			OGBIC03_WAlib10 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib10 = ? ALORS
    		OGBIC03_WAlib10 := OGBIC03_WAlib10_C 
    	FINSI
    SINON
    	OGBIC03_WAlib10_C := ?
    	OGBIC03_WAlib10 := ?
    FINSI
    
    SI OGBIC03_WA11 <> ? ALORS
    	compte ::= OGBIC03_WA11
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib11_C <> compte.libelle ALORS
    			OGBIC03_WAlib11_C := compte.libelle
    			OGBIC03_WAlib11 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib11_C <> ? ALORS
    			OGBIC03_WAlib11_C := ?
    			OGBIC03_WAlib11 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib11 = ? ALORS
    		OGBIC03_WAlib11 := OGBIC03_WAlib11_C 
    	FINSI
    SINON
    	OGBIC03_WAlib11_C := ?
    	OGBIC03_WAlib11 := ?
    FINSI
    
    
    SI OGBIC03_WA12 <> ? ALORS
    	compte ::= OGBIC03_WA12
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib12_C <> compte.libelle ALORS
    			OGBIC03_WAlib12_C := compte.libelle
    			OGBIC03_WAlib12 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib12_C <> ? ALORS
    			OGBIC03_WAlib12_C := ?
    			OGBIC03_WAlib12 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib12 = ? ALORS
    		OGBIC03_WAlib12 := OGBIC03_WAlib12_C 
    	FINSI
    SINON
    	OGBIC03_WAlib12_C := ?
    	OGBIC03_WAlib12 := ?
    FINSI
    
    SI OGBIC03_WA13 <> ? ALORS
    	compte ::= OGBIC03_WA13
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib13_C <> compte.libelle ALORS
    			OGBIC03_WAlib13_C := compte.libelle
    			OGBIC03_WAlib13 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib13_C <> ? ALORS
    			OGBIC03_WAlib13_C := ?
    			OGBIC03_WAlib13 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib13 = ? ALORS
    		OGBIC03_WAlib13 := OGBIC03_WAlib13_C 
    	FINSI
    SINON
    	OGBIC03_WAlib13_C := ?
    	OGBIC03_WAlib13 := ?
    FINSI
    
    SI OGBIC03_WA14 <> ? ALORS
    	compte ::= OGBIC03_WA14
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib14_C <> compte.libelle ALORS
    			OGBIC03_WAlib14_C := compte.libelle
    			OGBIC03_WAlib14 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib14_C <> ? ALORS
    			OGBIC03_WAlib14_C := ?
    			OGBIC03_WAlib14 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib14 = ? ALORS
    		OGBIC03_WAlib14 := OGBIC03_WAlib14_C 
    	FINSI
    SINON
    	OGBIC03_WAlib14_C := ?
    	OGBIC03_WAlib14 := ?
    FINSI
    
    SI OGBIC03_WA15 <> ? ALORS
    	compte ::= OGBIC03_WA15
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib15_C <> compte.libelle ALORS
    			OGBIC03_WAlib15_C := compte.libelle
    			OGBIC03_WAlib15 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib15_C <> ? ALORS
    			OGBIC03_WAlib15_C := ?
    			OGBIC03_WAlib15 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib15 = ? ALORS
    		OGBIC03_WAlib15 := OGBIC03_WAlib15_C 
    	FINSI
    SINON
    	OGBIC03_WAlib15_C := ?
    	OGBIC03_WAlib15 := ?
    FINSI
    
    SI OGBIC03_WA16 <> ? ALORS
    	compte ::= OGBIC03_WA16
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib16_C <> compte.libelle ALORS
    			OGBIC03_WAlib16_C := compte.libelle
    			OGBIC03_WAlib16 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib16_C <> ? ALORS
    			OGBIC03_WAlib16_C := ?
    			OGBIC03_WAlib16 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib16 = ? ALORS
    		OGBIC03_WAlib16 := OGBIC03_WAlib16_C 
    	FINSI
    SINON
    	OGBIC03_WAlib16_C := ?
    	OGBIC03_WAlib16 := ?
    FINSI
    
    SI OGBIC03_WA17 <> ? ALORS
    	compte ::= OGBIC03_WA17
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib17_C <> compte.libelle ALORS
    			OGBIC03_WAlib17_C := compte.libelle
    			OGBIC03_WAlib17 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib17_C <> ? ALORS
    			OGBIC03_WAlib17_C := ?
    			OGBIC03_WAlib17 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib17 = ? ALORS
    		OGBIC03_WAlib17 := OGBIC03_WAlib17_C 
    	FINSI
    SINON
    	OGBIC03_WAlib17_C := ?
    	OGBIC03_WAlib17 := ?
    FINSI
    
    SI OGBIC03_WA18 <> ? ALORS
    	compte ::= OGBIC03_WA18
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib18_C <> compte.libelle ALORS
    			OGBIC03_WAlib18_C := compte.libelle
    			OGBIC03_WAlib18 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib18_C <> ? ALORS
    			OGBIC03_WAlib18_C := ?
    			OGBIC03_WAlib18 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib18 = ? ALORS
    		OGBIC03_WAlib18 := OGBIC03_WAlib18_C 
    	FINSI
    SINON
    	OGBIC03_WAlib18_C := ?
    	OGBIC03_WAlib18 := ?
    FINSI
    
    SI OGBIC03_WA19 <> ? ALORS
    	compte ::= OGBIC03_WA19
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib19_C <> compte.libelle ALORS
    			OGBIC03_WAlib19_C := compte.libelle
    			OGBIC03_WAlib19 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib19_C <> ? ALORS
    			OGBIC03_WAlib19_C := ?
    			OGBIC03_WAlib19 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib19 = ? ALORS
    		OGBIC03_WAlib19 := OGBIC03_WAlib19_C 
    	FINSI
    SINON
    	OGBIC03_WAlib19_C := ?
    	OGBIC03_WAlib19 := ?
    FINSI
    
    SI OGBIC03_WA20 <> ? ALORS
    	compte ::= OGBIC03_WA20
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib20_C <> compte.libelle ALORS
    			OGBIC03_WAlib20_C := compte.libelle
    			OGBIC03_WAlib20 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib20_C <> ? ALORS
    			OGBIC03_WAlib20_C := ?
    			OGBIC03_WAlib20 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib20 = ? ALORS
    		OGBIC03_WAlib20 := OGBIC03_WAlib20_C 
    	FINSI
    SINON
    	OGBIC03_WAlib20_C := ?
    	OGBIC03_WAlib20 := ?
    FINSI
    
    SI OGBIC03_WA21 <> ? ALORS
    	compte ::= OGBIC03_WA21
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib21_C <> compte.libelle ALORS
    			OGBIC03_WAlib21_C := compte.libelle
    			OGBIC03_WAlib21 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib21_C <> ? ALORS
    			OGBIC03_WAlib21_C := ?
    			OGBIC03_WAlib21 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib21 = ? ALORS
    		OGBIC03_WAlib21 := OGBIC03_WAlib21_C 
    	FINSI
    SINON
    	OGBIC03_WAlib21_C := ?
    	OGBIC03_WAlib21 := ?
    FINSI
    
    SI OGBIC03_WA22 <> ? ALORS
    	compte ::= OGBIC03_WA22
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib22_C <> compte.libelle ALORS
    			OGBIC03_WAlib22_C := compte.libelle
    			OGBIC03_WAlib22 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib22_C <> ? ALORS
    			OGBIC03_WAlib22_C := ?
    			OGBIC03_WAlib22 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib22 = ? ALORS
    		OGBIC03_WAlib22 := OGBIC03_WAlib22_C 
    	FINSI
    SINON
    	OGBIC03_WAlib22_C := ?
    	OGBIC03_WAlib22 := ?
    FINSI
    
    SI OGBIC03_WA23 <> ? ALORS
    	compte ::= OGBIC03_WA23
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib23_C <> compte.libelle ALORS
    			OGBIC03_WAlib23_C := compte.libelle
    			OGBIC03_WAlib23 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib23_C <> ? ALORS
    			OGBIC03_WAlib23_C := ?
    			OGBIC03_WAlib23 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib23 = ? ALORS
    		OGBIC03_WAlib23 := OGBIC03_WAlib23_C 
    	FINSI
    SINON
    	OGBIC03_WAlib23_C := ?
    	OGBIC03_WAlib23 := ?
    FINSI
    
    SI OGBIC03_WA24 <> ? ALORS
    	compte ::= OGBIC03_WA24
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib24_C <> compte.libelle ALORS
    			OGBIC03_WAlib24_C := compte.libelle
    			OGBIC03_WAlib24 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib24_C <> ? ALORS
    			OGBIC03_WAlib24_C := ?
    			OGBIC03_WAlib24 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib24 = ? ALORS
    		OGBIC03_WAlib24 := OGBIC03_WAlib24_C 
    	FINSI
    SINON
    	OGBIC03_WAlib24_C := ?
    	OGBIC03_WAlib24 := ?
    FINSI
    
    SI OGBIC03_WA25 <> ? ALORS
    	compte ::= OGBIC03_WA25
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib25_C <> compte.libelle ALORS
    			OGBIC03_WAlib25_C := compte.libelle
    			OGBIC03_WAlib25 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib25_C <> ? ALORS
    			OGBIC03_WAlib25_C := ?
    			OGBIC03_WAlib25 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib25 = ? ALORS
    		OGBIC03_WAlib25 := OGBIC03_WAlib25_C 
    	FINSI
    SINON
    	OGBIC03_WAlib25_C := ?
    	OGBIC03_WAlib25 := ?
    FINSI
    
    SI OGBIC03_WA26 <> ? ALORS
    	compte ::= OGBIC03_WA26
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib26_C <> compte.libelle ALORS
    			OGBIC03_WAlib26_C := compte.libelle
    			OGBIC03_WAlib26 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib26_C <> ? ALORS
    			OGBIC03_WAlib26_C := ?
    			OGBIC03_WAlib26 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib26 = ? ALORS
    		OGBIC03_WAlib26 := OGBIC03_WAlib26_C 
    	FINSI
    SINON
    	OGBIC03_WAlib26_C := ?
    	OGBIC03_WAlib26 := ?
    FINSI
    
    SI OGBIC03_WA27 <> ? ALORS
    	compte ::= OGBIC03_WA27
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib27_C <> compte.libelle ALORS
    			OGBIC03_WAlib27_C := compte.libelle
    			OGBIC03_WAlib27 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib27_C <> ? ALORS
    			OGBIC03_WAlib27_C := ?
    			OGBIC03_WAlib27 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib27 = ? ALORS
    		OGBIC03_WAlib27 := OGBIC03_WAlib27_C 
    	FINSI
    SINON
    	OGBIC03_WAlib27_C := ?
    	OGBIC03_WAlib27 := ?
    FINSI
    
    SI OGBIC03_WA28 <> ? ALORS
    	compte ::= OGBIC03_WA28
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib28_C <> compte.libelle ALORS
    			OGBIC03_WAlib28_C := compte.libelle
    			OGBIC03_WAlib28 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib28_C <> ? ALORS
    			OGBIC03_WAlib28_C := ?
    			OGBIC03_WAlib28 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib28 = ? ALORS
    		OGBIC03_WAlib28 := OGBIC03_WAlib28_C 
    	FINSI
    SINON
    	OGBIC03_WAlib28_C := ?
    	OGBIC03_WAlib28 := ?
    FINSI
    
    SI OGBIC03_WA29 <> ? ALORS
    	compte ::= OGBIC03_WA29
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib29_C <> compte.libelle ALORS
    			OGBIC03_WAlib29_C := compte.libelle
    			OGBIC03_WAlib29 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib29_C <> ? ALORS
    			OGBIC03_WAlib29_C := ?
    			OGBIC03_WAlib29 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib29 = ? ALORS
    		OGBIC03_WAlib29 := OGBIC03_WAlib29_C 
    	FINSI
    SINON
    	OGBIC03_WAlib29_C := ?
    	OGBIC03_WAlib29 := ?
    FINSI
    
    SI OGBIC03_WA30 <> ? ALORS
    	compte ::= OGBIC03_WA30
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib30_C <> compte.libelle ALORS
    			OGBIC03_WAlib30_C := compte.libelle
    			OGBIC03_WAlib30 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib30_C <> ? ALORS
    			OGBIC03_WAlib30_C := ?
    			OGBIC03_WAlib30 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib30 = ? ALORS
    		OGBIC03_WAlib30 := OGBIC03_WAlib30_C 
    	FINSI
    SINON
    	OGBIC03_WAlib30_C := ?
    	OGBIC03_WAlib30 := ?
    FINSI
    
    SI OGBIC03_WA31 <> ? ALORS
    	compte ::= OGBIC03_WA31
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib31_C <> compte.libelle ALORS
    			OGBIC03_WAlib31_C := compte.libelle
    			OGBIC03_WAlib31 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib31_C <> ? ALORS
    			OGBIC03_WAlib31_C := ?
    			OGBIC03_WAlib31 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib31 = ? ALORS
    		OGBIC03_WAlib31 := OGBIC03_WAlib31_C 
    	FINSI
    SINON
    	OGBIC03_WAlib31_C := ?
    	OGBIC03_WAlib31 := ?
    FINSI
    
    SI OGBIC03_WA32 <> ? ALORS
    	compte ::= OGBIC03_WA32
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib32_C <> compte.libelle ALORS
    			OGBIC03_WAlib32_C := compte.libelle
    			OGBIC03_WAlib32 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib32_C <> ? ALORS
    			OGBIC03_WAlib32_C := ?
    			OGBIC03_WAlib32 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib32 = ? ALORS
    		OGBIC03_WAlib32 := OGBIC03_WAlib32_C 
    	FINSI
    SINON
    	OGBIC03_WAlib32_C := ?
    	OGBIC03_WAlib32 := ?
    FINSI
    
    SI OGBIC03_WA33 <> ? ALORS
    	compte ::= OGBIC03_WA33
    	SI compte.numero <> ? ALORS
    		SI OGBIC03_WAlib33_C <> compte.libelle ALORS
    			OGBIC03_WAlib33_C := compte.libelle
    			OGBIC03_WAlib33 := ?
    		FINSI
    	SINON
    		SI OGBIC03_WAlib33_C <> ? ALORS
    			OGBIC03_WAlib33_C := ?
    			OGBIC03_WAlib33 := ?
    		FINSI	
    	FINSI
    	SI OGBIC03_WAlib33 = ? ALORS
    		OGBIC03_WAlib33 := OGBIC03_WAlib33_C 
    	FINSI
    SINON
    	OGBIC03_WAlib33_C := ?
    	OGBIC03_WAlib33 := ?
    FINSI
###
'DEDUCACTIO' 'Toutes fonctions'
    INTERDEDUCACTIO {}
###
'INTERDEDUCACTIO' 'Toutes fonctions'
    
    deduc_AE1	:=	deduc_AC1 * deduc_AD1
    deduc_AE2	:=	deduc_AC2 * deduc_AD2
    deduc_AE3	:=	deduc_AC3 * deduc_AD3
    deduc_AE4	:=	deduc_AC4 * deduc_AD4
    deduc_AE5	:=	deduc_AC5 * deduc_AD5
    deduc_AE6	:=	deduc_AC6 * deduc_AD6
    deduc_AE7	:=	deduc_AC7 * deduc_AD7
    deduc_AE8	:=	deduc_AC8 * deduc_AD8
    deduc_AE9	:=	deduc_AC9 * deduc_AD9
    deduc_AE10	:=	deduc_AC10 * deduc_AD10
    deduc_AE11	:=	deduc_AC11 * deduc_AD11
    deduc_AE12	:=	deduc_AC12 * deduc_AD12
    deduc_AE13	:=	deduc_AC13 * deduc_AD13
    
    deduc_AH1	:=	deduc_AF1 * deduc_AG1
    deduc_AH2	:=	deduc_AF2 * deduc_AG2
    deduc_AH3	:=	deduc_AF3 * deduc_AG3
    deduc_AH4	:=	deduc_AF4 * deduc_AG4
    deduc_AH5	:=	deduc_AF5 * deduc_AG5
    deduc_AH6	:=	deduc_AF6 * deduc_AG6
    deduc_AH7	:=	deduc_AF7 * deduc_AG7
    deduc_AH8	:=	deduc_AF8 * deduc_AG8
    deduc_AH9	:=	deduc_AF9 * deduc_AG9
    deduc_AH10	:=	deduc_AF10 * deduc_AG10
    deduc_AH11	:=	deduc_AF11 * deduc_AG11
    deduc_AH12	:=	deduc_AF12 * deduc_AG12
    deduc_AH13	:=	deduc_AF13 * deduc_AG13
    
    deduc_BE1	:=	deduc_BC1 * deduc_BD1
    deduc_BE2	:=	deduc_BC2 * deduc_BD2
    deduc_BE3	:=	deduc_BC3 * deduc_BD3
    deduc_BE4	:=	deduc_BC4 * deduc_BD4
    deduc_BE5	:=	deduc_BC5 * deduc_BD5
    deduc_BE6	:=	deduc_BC6 * deduc_BD6
    deduc_BE7	:=	deduc_BC7 * deduc_BD7
    deduc_BE8	:=	deduc_BC8 * deduc_BD8
    deduc_BE9	:=	deduc_BC9 * deduc_BD9
    deduc_BE10	:=	deduc_BC10 * deduc_BD10
    deduc_BE11	:=	deduc_BC11 * deduc_BD11
    deduc_BE12	:=	deduc_BC12 * deduc_BD12
    deduc_BE13	:=	deduc_BC13 * deduc_BD13
    
    deduc_BH1	:=	deduc_BF1 * deduc_BG1
    deduc_BH2	:=	deduc_BF2 * deduc_BG2
    deduc_BH3	:=	deduc_BF3 * deduc_BG3
    deduc_BH4	:=	deduc_BF4 * deduc_BG4
    deduc_BH5	:=	deduc_BF5 * deduc_BG5
    deduc_BH6	:=	deduc_BF6 * deduc_BG6
    deduc_BH7	:=	deduc_BF7 * deduc_BG7
    deduc_BH8	:=	deduc_BF8 * deduc_BG8
    deduc_BH9	:=	deduc_BF9 * deduc_BG9
    deduc_BH10	:=	deduc_BF10 * deduc_BG10
    deduc_BH11	:=	deduc_BF11 * deduc_BG11
    deduc_BH12	:=	deduc_BF12 * deduc_BG12
    deduc_BH13	:=	deduc_BF13 * deduc_BG13
    
    deduc_CE1	:=	deduc_CC1 * deduc_CD1
    deduc_CE2	:=	deduc_CC2 * deduc_CD2
    deduc_CE3	:=	deduc_CC3 * deduc_CD3
    deduc_CE4	:=	deduc_CC4 * deduc_CD4
    deduc_CE5	:=	deduc_CC5 * deduc_CD5
    deduc_CE6	:=	deduc_CC6 * deduc_CD6
    deduc_CE7	:=	deduc_CC7 * deduc_CD7
    deduc_CE8	:=	deduc_CC8 * deduc_CD8
    deduc_CE9	:=	deduc_CC9 * deduc_CD9
    deduc_CE10	:=	deduc_CC10 * deduc_CD10
    deduc_CE11	:=	deduc_CC11 * deduc_CD11
    deduc_CE12	:=	deduc_CC12 * deduc_CD12
    deduc_CE13	:=	deduc_CC13 * deduc_CD13
    
    deduc_CH1	:=	deduc_CF1 * deduc_CG1
    deduc_CH2	:=	deduc_CF2 * deduc_CG2
    deduc_CH3	:=	deduc_CF3 * deduc_CG3
    deduc_CH4	:=	deduc_CF4 * deduc_CG4
    deduc_CH5	:=	deduc_CF5 * deduc_CG5
    deduc_CH6	:=	deduc_CF6 * deduc_CG6
    deduc_CH7	:=	deduc_CF7 * deduc_CG7
    deduc_CH8	:=	deduc_CF8 * deduc_CG8
    deduc_CH9	:=	deduc_CF9 * deduc_CG9
    deduc_CH10	:=	deduc_CF10 * deduc_CG10
    deduc_CH11	:=	deduc_CF11 * deduc_CG11
    deduc_CH12	:=	deduc_CF12 * deduc_CG12
    deduc_CH13	:=	deduc_CF13 * deduc_CG13
    
    deduc_ED	:=	deduc_AD1 + deduc_AD2 + deduc_AD3 + deduc_AD4 + deduc_AD5 + deduc_AD6 + deduc_AD7
    			 + deduc_AD8 + deduc_AD9 + deduc_AD10 + deduc_AD11 + deduc_AD12 + deduc_AD13
    			 + deduc_BD1 + deduc_BD2 + deduc_BD3 + deduc_BD4 + deduc_BD5 + deduc_BD6 + deduc_BD7
    			 + deduc_BD8 + deduc_BD9 + deduc_BD10 + deduc_BD11 + deduc_BD12 + deduc_BD13
    			 + deduc_CD1 + deduc_CD2 + deduc_CD3 + deduc_CD4 + deduc_CD5 + deduc_CD6 + deduc_CD7
    			 + deduc_CD8 + deduc_CD9 + deduc_CD10 + deduc_CD11 + deduc_CD12 + deduc_CD13
    
    deduc_EE	:=	deduc_AE1 + deduc_AE2 + deduc_AE3 + deduc_AE4 + deduc_AE5 + deduc_AE6 + deduc_AE7
    			 + deduc_AE8 + deduc_AE9 + deduc_AE10 + deduc_AE11 + deduc_AE12 + deduc_AE13
    			 + deduc_BE1 + deduc_BE2 + deduc_BE3 + deduc_BE4 + deduc_BE5 + deduc_BE6 + deduc_BE7
    			 + deduc_BE8 + deduc_BE9 + deduc_BE10 + deduc_BE11 + deduc_BE12 + deduc_BE13
    			 + deduc_CE1 + deduc_CE2 + deduc_CE3 + deduc_CE4 + deduc_CE5 + deduc_CE6 + deduc_CE7
    			 + deduc_CE8 + deduc_CE9 + deduc_CE10 + deduc_CE11 + deduc_CE12 + deduc_CE13
    
    deduc_EG	:=	deduc_AG1 + deduc_AG2 + deduc_AG3 + deduc_AG4 + deduc_AG5 + deduc_AG6 + deduc_AG7
    			 + deduc_AG8 + deduc_AG9 + deduc_AG10 + deduc_AG11 + deduc_AG12 + deduc_AG13
    			 + deduc_BG1 + deduc_BG2 + deduc_BG3 + deduc_BG4 + deduc_BG5 + deduc_BG6 + deduc_BG7
    			 + deduc_BG8 + deduc_BG9 + deduc_BG10 + deduc_BG11 + deduc_BG12 + deduc_BG13
    			 + deduc_CG1 + deduc_CG2 + deduc_CG3 + deduc_CG4 + deduc_CG5 + deduc_CG6 + deduc_CG7
    			 + deduc_CG8 + deduc_CG9 + deduc_CG10 + deduc_CG11 + deduc_CG12 + deduc_CG13
    
    deduc_EH	:=	deduc_AH1 + deduc_AH2 + deduc_AH3 + deduc_AH4 + deduc_AH5 + deduc_AH6 + deduc_AH7
    			 + deduc_AH8 + deduc_AH9 + deduc_AH10 + deduc_AH11 + deduc_AH12 + deduc_AH13
    			 + deduc_BH1 + deduc_BH2 + deduc_BH3 + deduc_BH4 + deduc_BH5 + deduc_BH6 + deduc_BH7
    			 + deduc_BH8 + deduc_BH9 + deduc_BH10 + deduc_BH11 + deduc_BH12 + deduc_BH13
    			 + deduc_CH1 + deduc_CH2 + deduc_CH3 + deduc_CH4 + deduc_CH5 + deduc_CH6 + deduc_CH7
    			 + deduc_CH8 + deduc_CH9 + deduc_CH10 + deduc_CH11 + deduc_CH12 + deduc_CH13
    
    deduc_EJ	:=	deduc_EH - deduc_EE
###
'PAGE_DEDUCACTIO' 'Toutes fonctions'
    impressionDirecte {'compta/25/annexes/deducactio.fnd'}
    impression {'compta/25/annexes/deducactio_c.fnd'}
    impression {'fin_page'}
###
'2033B' 'Toutes fonctions'
    message {}
    
    INTER2033B{}
    CONTROLE2033B{}
    CONTROLE2033E{}
###
'2033B_2' 'Toutes fonctions'
	message {}

	INTER2033B{}
	CONTROLE2033B{}
	CONTROLE2033E{}
###
'2033B_EXT1' 'Toutes fonctions'
    INTER2033Bext1 {}
###
'2033B_2_EXT1' 'Toutes fonctions'
	INTER2033Bext1{}
###
'2033C' 'Toutes fonctions'
    INTER2033C{}
    CONTROLE2033C{}
###
'2033C_2' 'Toutes fonctions'
    INTER2033C{}
    CONTROLE2033C{}
###
'2033C_EXT2' 'Toutes fonctions'
    INTER2033C_EXT1 {}
###
'2033C_2_EXT2' 'Toutes fonctions'
    INTER2033C_EXT1 {}
###
'2033D' 'Toutes fonctions'
    message {}
    
    INTER2033D {}
    
    CONTROLE2033D {}
    
    affichage{}
###
'2033D_2' 'Toutes fonctions'
    message {}
    
    INTER2033D {}
    
    CONTROLE2033D {}
    
    affichage{}
###
'2033D_EXT1' 'Toutes fonctions'
    INTER2033Dext1 {}
###
'2033D_2_EXT1' 'Toutes fonctions'
    INTER2033Dext1 {}
###
'2033E' 'Toutes fonctions'
    message {}
    
    INTER2033E {}
    CONTROLE2033E{}
###
'2033F' 'Toutes fonctions'
    INTER2033F {}
###
'2033F_EXT1' 'Toutes fonctions'
    INTER2033F {}
###
'2033G' 'Toutes fonctions'
    INTER2033G {}
###
'2033G_EXT' 'Toutes fonctions'
    INTER2033G {}
###
'2033G_EXT2' 'Toutes fonctions'
    INTER2033G {}
###
'2067' 'Toutes fonctions'
    INTER2067 {}
###
'annulerImportImmos' 'Toutes fonctions'

    | okt <Booléen> i <Entier> listeDeClasses<Objet> nomClasset<Chaine>|
    
     okt := ouiNon {'Confirmez-vous l''annulation des données figurant 
dans le tableau des immobilisations et amortissements ?'}
    
    SI okt ALORS
    importImmos := FAUX
    _402 := ?
    _404 := ?
    _412 := ?
    _414 := ?
    _422 := ?
    _424 := ?
    _432 := ?
    _434 := ?
    _442 := ?
    _444 := ?
    _452 := ?
    _454 := ?
    _462 := ?
    _464 := ?
    _472 := ?
    _474 := ?
    _482 := ?
    _484 := ?
    2033C_AM := ?
    2033C_AN := ?
    _502 := ?
    _504 := ?
    _512 := ?
    _514 := ?
    _522 := ?
    _524 := ?
    _532 := ?
    _534 := ?
    _542 := ?
    _544 := ?
    _552 := ?
    _554 := ?
    _562 := ?
    _564 := ?
    
    INTER2033C_EXT1 {}
    INTER2033C {}
    INTER2033C_IMMOS {}
    
    affichage {}
    
    
    FINSI
    
     okt := ouiNon {'Voulez vous également supprimer les données
relatives aux plus ou moins values ?'}
    
    SI okt ALORS
    
    
    
    PV0 := ?
    PV1 := ?
    PV2 := ?
    PV3 := ?		
    PV4 := ?	
    PV5 := ?
    PV6 := ?
    PV7 := ?
    PV8 := ?
    PV9 := ?
    
    PV101 := ?
    PV102 := ?
    PV103 := ?
    PV104 := ?		
    PV105 := ?	
    PV106 := ?
    PV107 := ?
    PV108 := ?
    PV109 := ?
    PV110 := ?
    PV111 := ?
    PV112 := ?
    PV113 := ?
    PV114 := ?		
    PV115 := ?	
    PV116 := ?
    PV117 := ?
    PV118 := ?
    PV119 := ?
    PV120 := ?
    PV121 := ?
    PV122 := ?
    PV123 := ?
    PV124 := ?		
    PV125 := ?	
    PV126 := ?
    PV127 := ?
    PV128 := ?
    PV129 := ?
    PV130 := ?
    PV131 := ?
    PV132 := ?
    PV133 := ?
    PV134 := ?		
    PV135 := ?	
    PV136 := ?
    PV137 := ?
    PV138 := ?
    PV139 := ?	
    PV140 := ?
    PV141 := ?
    PV142 := ?
    PV143 := ?
    PV144 := ?
    PV145 := ?
    PV146 := ?
    PV147 := ?
    PV148 := ?		
    PV149 := ?	
    PV150 := ?
    
    P01 := ?
    P02 := ?
    P03 := ?
    P04 := ?
    P05 := ?
    P06 := ?
    P07 := ?
    P08 := ?
    P09 := ?
    P06b := ?
    P06c := ?

    P12c := ?
    P18c := ?
    P24c := ?
    P30c := ?
    P36c := ?
    P42c := ?
    P48c := ?
    P54c := ?
    P60c := ?

    P12b := ?
    P18b := ?
    P24b := ?
    P30b := ?
    P36b := ?
    P42b := ?
    P48b := ?
    P54b := ?
    P60b := ?

    S2_P12c := ?
    S2_P18c := ?
    S2_P24c := ?
    S2_P30c := ?
    S2_P36c := ?
    S2_P42c := ?
    S2_P48c := ?
    S2_P54c := ?
    S2_P60c := ?
    S2_P12b := ?
    S2_P18b := ?
    S2_P24b := ?
    S2_P30b := ?
    S2_P36b := ?
    S2_P42b := ?
    S2_P48b := ?
    S2_P54b := ?
    S2_P60b := ?    

    S2_P05 := ?
    S2_P06 := ?
    

    listeDeClasses := [|'Liasse_24_RS';'Liasse_RS';'calcul_etatFi_simplifie';'EtatComptable'|]
    ajouterElement{listeDeClasses,classe{etat}}

	i	:=	1

    TANT QUE i < nbElements{listeDeClasses} FAIRE
    	nomClasset := ''+listeDeClasses.[i]

	    classe ::= nomClasset
	    variable::=?	    
	    POUR TOUTE variable FAIRE	    		    
	    	SI variable.type = 'Monnaie' ALORS    			    		
	    		SI valider{ variable.nom, '^P[0-9]+$'}     		
	    		   OU  valider{ variable.nom, '^S2_P[0-9]+$'} 
	    		   OU  valider{ variable.nom, '^P[0-9]+b$'} 
	    		   OU  valider{ variable.nom, '^S2_P[0-9]+b$'} 
	    		   OU  valider{ variable.nom, '^P[0-9]+c$'} 
	    		   OU  valider{ variable.nom, '^S2_P[0-9]+c$'} 
	    		ALORS
	    			etat!{variable.nom} monnaie:=	?	    			
	    		FINSI	    	
	    	FINSI
	    FIN FAIRE

	    i += 1

	FIN FAIRE

   
    INTER2033C_EXT1 {}
    INTER2033C {}
    INTER2033C_IMMOS {}
    
    affichage {}
    
    FINSI
###
'CALC219BF4' 'Toutes fonctions'
    INTERCALC219BF4 {}
###
'CALCUL2033C' 'Toutes fonctions'

    _400_C	:=	debit{ 206 }[ N_1 ]
    	+	debit{ 207 }[ N_1 ]
    
    _410_C	:=	debit{ 201 }[ N_1 ]
    	+	debit{ 203 }[ N_1 ]
    	+	debit{ 204 }[ N_1 ]
    	+	debit{ 208 }[ N_1 ]
    	+	debit{ 205 }[ N_1 ]
    	+	debit{ 232 }[ N_1 ]
    	+	debit{ 237 }[ N_1 ]
    
    _420_C	:=	debit{ 211 }[ N_1 ]
    	+	debit{ 212 }[ N_1 ]
    
    _430_C	:=	debit{ 213 }[ N_1 ]
    	+	debit{ 214 }[ N_1 ]
    
    _440_C	:=	debit{ 215 }[ N_1 ]
    
    _450_C	:=	debit{ 2181 }[ N_1 ]
    
    _460_C	:=	debit{ 2182 }[ N_1 ]
    		
    _470_C	:=	debit{ 2183 }[ N_1 ]
    	+	debit{ 2184 }[ N_1 ]
    	+	debit{ 2185 }[ N_1 ]
    	+	debit{ 2186 }[ N_1 ]
    	+	debit{ 2187 }[ N_1 ]
    	+	debit{ 23 }[ N_1 ]
    	-	debit{ 232 }[ N_1 ]
    	-	debit{ 237 }[ N_1 ]
    	+	debit{ 22 }[ N_1 ]	
    	+	debit{ 217 }[ N_1 ]		
    
    _480_C	:=	soldeDebit{ 26 }[ N_1 ] 
    	+	soldeDebit{ 27 }[ N_1 ] 
    
    
    _490	:=	_400_C
    	+	_410_C
    	+	_420_C
    	+	_430_C
    	+	_440_C
    	+	_450_C
    	+	_460_C
    	+	_470_C
    	+	_480_C
    
    _406	:=	debit{ 206 }
    	+	debit{ 207 }
    ligneDetail {}
    _416	:=	debit{ 201 }
    	+	debit{ 203 }
    	+	debit{ 204 }
    	+	debit{ 208 }
    	+	debit{ 205 }
    	+	debit{ 232 }
    	+	debit{ 237 }
    
    _426	:=	debit{ 211 }
    	+	debit{ 212 }
    	
    
    _436	:=	debit{ 213 }
    	+	debit{ 214 }
    ligneDetail {}	
    _446	:=	debit{ 215 }
    	
    _456	:=	debit{ 2181 }
    
    _466	:=	debit{ 2182 }	
    	
    _476	:=	debit{ 2183 }
    	+	debit{ 2184 }
    	+	debit{ 2185 }
    	+	debit{ 2186 }
    	+	debit{ 2187 }
    	+	debit{ 23 }
    	-	debit{ 232 }
    	-	debit{ 237 }
    	+	debit{ 22 }
    	+	debit{ 217 }
    
    _486	:=	soldeDebit{ 26 }
    	+	soldeDebit{ 27 }
    
    _496	:=	_406 
    	+	_416
    	+ 	_426
    	+	_436
    	+ 	_446
    	+	_456
    	+	_466
    	+	_476
    	+	_486
    											
    
    _500_C	:=	credit{ 280 }[ N_1 ]	
    		- credit {2806}[N_1]
    		- credit {2807}[N_1]

    2033C_AL_C := credit{2806}[N_1]
    			+ credit{2807}[N_1]
    
    _510_C	:=	credit{ 2811 }[ N_1 ]
    	+	credit{ 2812 }[ N_1 ]
    
    _520_C	:=	credit{ 2813 }[ N_1 ]	
    	+	credit{ 2814 }[ N_1 ]
    
    _530_C	:=	credit{ 2815 }[ N_1 ]
    
    _540_C	:=	credit{ 28181 }[ N_1 ]
    
    _550_C	:=	credit{ 28182 }[ N_1 ]
    
    _560_C	:=	credit{ 28183}[ N_1 ]
    	+	credit{ 28184 }[ N_1 ]
    	+	credit{ 28185 }[ N_1 ]	
    	+	credit{ 28186 }[ N_1 ]
    	+	credit{ 28187 }[ N_1 ]
    	+	credit{ 282 }[ N_1 ]
    	+	credit{ 2817 }[ N_1 ]
    
    
    _506	:=	credit{ 280 }
    		- credit{2806}
    		- credit{2807}		

    2033C_AP := credit{2806}
    		+ credit{2807}
    	
    _516	:=	credit{ 2811 }
    	+	credit{ 2812 }
    
    _526	:=	credit{ 2813 }	
    	+	credit{ 2814 }
    
    _536	:=	credit{ 2815 }
    
    _546	:=	credit{ 28181 }
    
    _556	:=	credit{ 28182 }
    
    _566	:=	credit{ 28183}
    	+	credit{ 28184 }
    	+	credit{ 28185 }
    	+	credit{ 28186 }
    	+	credit{ 28187 }
    	+	credit{ 282 }
    	+	credit{ 2817 }
    
    
    
    
    INTER2033C{}
    INTER2033C_EXT1 {}
###
'INTER2033C_IMMOS' 'Toutes fonctions'
    --Modification : 18/02/2014 16:49:48 gqu-PC101402; 
    SI importImmos <> VRAI ALORS SORTIR FAUX FINSI
    devise {devise }
    SI _402 = ? ALORS
    	_402 := 0 f
    	POUR TOUT compte '206' FAIRE _402	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    	POUR TOUT compte '207' FAIRE _402	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    FINSI
    SI _404 = ? ALORS
    	_404 := 0 f
    	POUR TOUT compte '206' FAIRE _404	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    	POUR TOUT compte '207' FAIRE _404	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    FINSI
    SI _412 = ? ALORS
    	_412 := 0 f
    	POUR TOUT compte '201' FAIRE _412	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    	POUR TOUT compte '203' FAIRE _412	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    	POUR TOUT compte '205' FAIRE _412	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    	POUR TOUT compte '208' FAIRE _412	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    
    FINSI
    SI _414 = ? ALORS
    	_414 := 0 f
    	POUR TOUT compte '201' FAIRE _414	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    	POUR TOUT compte '203' FAIRE _414	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    	POUR TOUT compte '205' FAIRE _414	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    	POUR TOUT compte '208' FAIRE _414	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    
    FINSI
    SI _422 = ? ALORS
    	_422 := 0 f
    	POUR TOUT compte '211' FAIRE _422	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    	POUR TOUT compte '212' FAIRE _422	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    FINSI
    SI _424 = ? ALORS
    	_424 := 0 f
    	POUR TOUT compte '211' FAIRE _424	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    	POUR TOUT compte '212' FAIRE _424	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    FINSI
    SI _432 = ? ALORS
    	_432 := 0 f
    	POUR TOUT compte '213' FAIRE _432	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    	POUR TOUT compte '214' FAIRE _432	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    FINSI
    SI _434 = ? ALORS
    	_434 := 0 f
    	POUR TOUT compte '213' FAIRE _434	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    	POUR TOUT compte '214' FAIRE _434	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    FINSI
    SI _442 = ? ALORS
    	_442 := 0 f
    	POUR TOUT compte '215' FAIRE _442	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    FINSI
    SI _444 = ? ALORS
    	_444 := 0 f
    	POUR TOUT compte '215' FAIRE _444	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    FINSI
    SI _452 = ? ALORS
    	_452 := 0 f
    	POUR TOUT compte '2181' FAIRE _452	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    FINSI
    SI _454 = ? ALORS
    	_454 := 0 f
    	POUR TOUT compte '2181' FAIRE _454	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    FINSI
    SI _462 = ? ALORS
    	_462 := 0 f
    	POUR TOUT compte '2182' FAIRE _462	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    	POUR TOUT compte '217' FAIRE _462	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    FINSI
    SI _464 = ? ALORS
    	_464 := 0 f
    	POUR TOUT compte '2182' FAIRE _464	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    	POUR TOUT compte '217' FAIRE _464	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    FINSI
    SI _472 = ? ALORS
    	_472 := 0 f
    	POUR TOUT compte '2183' FAIRE _472	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    	POUR TOUT compte '2184' FAIRE _472	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    	POUR TOUT compte '2185' FAIRE _472	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    	POUR TOUT compte '2186' FAIRE _472	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    	POUR TOUT compte '22' FAIRE _472	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    	POUR TOUT compte '23' FAIRE _472	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    FINSI
    SI _474 = ? ALORS
    	_474 := 0 f
    	POUR TOUT compte '2183' FAIRE _474	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    	POUR TOUT compte '2184' FAIRE _474	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    	POUR TOUT compte '2185' FAIRE _474	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    	POUR TOUT compte '2186' FAIRE _474	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    	POUR TOUT compte '22' FAIRE _474	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    	POUR TOUT compte '23' FAIRE _474	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    FINSI
    SI _482 = ? ALORS
    	_482 := 0 f
    	POUR TOUT compte '26' FAIRE _482	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    	POUR TOUT compte '27' FAIRE _482	+=	compte.entrees + compte.entreesMutations FIN FAIRE
    FINSI
    SI _484 = ? ALORS
    	_484 := 0 f
    	POUR TOUT compte '26' FAIRE _484	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    	POUR TOUT compte '27' FAIRE _484	+=	compte.sorties + compte.sortiesMutations FIN FAIRE
    FINSI

    SI 2033C_AM = ? ALORS
    	2033C_AM := 0 f
    	POUR TOUT compte '2806' FAIRE 2033C_AM	+=	compte.dotPlus FIN FAIRE
    	POUR TOUT compte '2807' FAIRE 2033C_AM	+=	compte.dotPlus FIN FAIRE
    FINSI

    SI 2033C_AN = ? ALORS
    	2033C_AN := 0 f
    	POUR TOUT compte '2806' FAIRE 2033C_AN	+=	compte.dotMoins FIN FAIRE
    	POUR TOUT compte '2807' FAIRE 2033C_AN	+=	compte.dotMoins FIN FAIRE
    FINSI
    
    SI _502 = ? ALORS
    	_502 := 0 f
    	POUR TOUT compte '280' TEL QUE NON (compte.numero # '2806' OU compte.numero # '2807') FAIRE _502	+=	compte.dotPlus FIN FAIRE
    FINSI

    SI _504 = ? ALORS
    	_504 := 0 f
    	POUR TOUT compte '280' TEL QUE NON (compte.numero # '2806' OU compte.numero # '2807') FAIRE _504	+=	compte.dotMoins FIN FAIRE
    FINSI

    SI _512 = ? ALORS
    	_512 := 0 f
    	POUR TOUT compte '2811' FAIRE _512	+=	compte.dotPlus FIN FAIRE
    	POUR TOUT compte '2812' FAIRE _512	+=	compte.dotPlus FIN FAIRE
    --	_512 -= _502
    FINSI
    SI _514 = ? ALORS
    	_514 := 0 f
    	POUR TOUT compte '2811' FAIRE _514	+=	compte.dotMoins FIN FAIRE
    	POUR TOUT compte '2812' FAIRE _514	+=	compte.dotMoins FIN FAIRE
    --	_514 -= _504
    FINSI
    SI _522 = ? ALORS
    	_522 := 0 f
    	POUR TOUT compte '2813' FAIRE _522	+=	compte.dotPlus FIN FAIRE
    	POUR TOUT compte '2814' FAIRE _522	+=	compte.dotPlus FIN FAIRE
    FINSI
    SI _524 = ? ALORS
    	_524 := 0 f
    	POUR TOUT compte '2813' FAIRE _524	+=	compte.dotMoins FIN FAIRE
    	POUR TOUT compte '2814' FAIRE _524	+=	compte.dotMoins FIN FAIRE
    FINSI
    SI _532 = ? ALORS
    	_532 := 0 f
    	POUR TOUT compte '2815' FAIRE _532	+=	compte.dotPlus FIN FAIRE
    FINSI
    SI _534 = ? ALORS
    	_534 := 0 f
    	POUR TOUT compte '2815' FAIRE _534	+=	compte.dotMoins FIN FAIRE
    FINSI
    SI _542 = ? ALORS
    	_542 := 0 f
    	POUR TOUT compte '28181' FAIRE _542	+=	compte.dotPlus FIN FAIRE
    FINSI
    SI _544 = ? ALORS
    	_544 := 0 f
    	POUR TOUT compte '28181' FAIRE _544	+=	compte.dotMoins FIN FAIRE
    FINSI
    SI _552 = ? ALORS
    	_552 := 0 f
    	POUR TOUT compte '28182' FAIRE _552	+=	compte.dotPlus FIN FAIRE
    	POUR TOUT compte '2817' FAIRE _552		+=	compte.dotPlus FIN FAIRE
    FINSI
    SI _554 = ? ALORS
    	_554 := 0 f
    	POUR TOUT compte '28182' FAIRE _554	+=	compte.dotMoins FIN FAIRE
    	POUR TOUT compte '2817' FAIRE _554		+=	compte.dotMoins FIN FAIRE
    FINSI
    SI _562 = ? ALORS
    	_562 := 0 f
    	POUR TOUT compte '28183' FAIRE _562	+=	compte.dotPlus FIN FAIRE
    	POUR TOUT compte '28184' FAIRE _562	+=	compte.dotPlus FIN FAIRE
    	POUR TOUT compte '28185' FAIRE _562	+=	compte.dotPlus FIN FAIRE
    	POUR TOUT compte '28186' FAIRE _562	+=	compte.dotPlus FIN FAIRE
    	POUR TOUT compte '282' FAIRE	 _562	+=	compte.dotPlus FIN FAIRE
    FINSI
    SI _564 = ? ALORS
    	_564 := 0 f
    	POUR TOUT compte '28183' FAIRE _564	+=	compte.dotMoins FIN FAIRE
    	POUR TOUT compte '28184' FAIRE _564	+=	compte.dotMoins FIN FAIRE
    	POUR TOUT compte '28185' FAIRE _564	+=	compte.dotMoins FIN FAIRE
    	POUR TOUT compte '28186' FAIRE _564	+=	compte.dotMoins FIN FAIRE
    	POUR TOUT compte '282' FAIRE 	 _564	+=	compte.dotMoins FIN FAIRE
    FINSI
    
    -- MODIF 09/10/08 gqu
    SORTIR VRAI
###
'CALCUL2033D' 'Toutes fonctions'
    
    _600	:=	credit{ 145 }[ N_1 ]
    
    _602	:=	debit{ 68725 }
    
    _604	:=	credit{ 78725 }
    
    _606	:=	credit{ 145 }
    
    _620	:=	credit{ 15 }[ N_1 ]
    
    _622	:=	debit{ 6815 }
    	+	debit{ 6865 }
    	+	debit{ 6875 }
    	+	debit{ 689 }
    
    _624	:=	credit{ 7815 }
    	+	credit{ 7865 }
    	+	credit{ 7875 }
    	+	credit{ 789 }
    
    _626	:=	credit{ 15 }
    
    _630	:=	credit{ 29 }[ N_1 ]
    
    _632	:=	debit { 6816 }
    	+	debit { 6866 } - debit { 68665 }
    	+	debit { 68762 }
    
    _634	:=	credit { 7816 }
    	+	credit { 7866 } - credit { 78665 }
    
    _636	:=	credit{ 29 }
    
    _640	:=	credit{ 39 }[ N_1 ]
    
    _642	:=	debit{ 68173 }
    
    _644	:=	credit{ 78173 }
    
    _646	:=	credit{ 39 }
    
    _650	:=	credit{ 491 }[ N_1 ]
    
    _652	:=	debit{ 68174 }
    
    _654	:=	credit{ 78174 }
    
    _656	:=	credit{ 491 }
    
    _660	:=	credit{ 49 }[ N_1 ] - credit{ 491 }[ N_1 ]
    	+	credit{ 59 }[ N_1 ]
    
    _662	:=	debit { 68760 }
    	+	debit { 68761 }
    	+	debit { 68763 }
    	+	debit { 68764 }
    	+	debit { 68765 }
    	+	debit { 68766 }
    	+	debit { 68767 }
    	+	debit { 68768 }
    	+	debit { 68769 }
    	+	debit {68176 }
    	+	debit { 68665 }
    
    _664	:=	credit { 7876 }
    	+	credit { 78665 }
    	+	credit { 78176}
    
    _666	:=	credit{ 49 } - credit{ 491 }
    	+	credit{ 59 }
    
    
    INTER2033D{}
###
'CALCUL2033E' 'Toutes fonctions'
    
    SI importB ALORS
    	_118_C	:=	arrondirMonnaieSansDecimale{credit { 751 }}
    	_125s_I	:=	debit {612} + debit {613}
    	_146_C	:=	debit {612} + debit{613}
    	_148_I	:=	 debit { 655 } 
    
    	_115_C 	:= 	credit{752}
    		+	credit{753}
    		+ 	credit{754}
    		+	credit{756}
    		+ 	credit{757}
    		+ 	credit{758}
    	_115_C 	:= 	arrondirMonnaieSansDecimale{_115_C}
    	
    	
    	SI credit{775} - debit{675} > 0
    	ALORS
    		_119_C	 :=   credit{775} - debit{675}
    	SINON
    		_119_C :=    0
    	FINSI
        	
    	_143s_C := arrondirMonnaieSansDecimale{credit{721} + credit{722}}

    	SI debit{675} - credit{775}  > 0
    	ALORS
    		_150_C	 :=   debit{675} - credit{775}
    	SINON
    		_150_C :=    0
    	FINSI
    SINON
    	_118_C	:=	?
    	_125s_I	:=	?
    	_146_C	:=	?
    	_148_I	:=	?
    
    	_115_C :=	?
    	_119_C :=	?
    	_143s_C :=	?
    	_150_C :=	?    	
    FINSI

###
'CONTROLE2033A' 'Toutes fonctions'
     
    
    controleComptesGeneraux {}	
    
    PAGE := 'Feuillet 2033A'
    ECART := _180 - N31
    SI abs { ECART } > SEUIL ALORS
    MessageErreur := '!!! COMPTES HORS CALCUL !!!'
    ERR := 'LE TOTAL DU BILAN PASSIF  EST DIFFERENT DU TOTAL DU BILAN ACTIF ' MSG {}
    SINON
    	N31	+=	ECART
    FINSI
        
    SI periode.fin > date{31,12,2012} ALORS
    	SEUIL	:=	2 f
    	PAGE	:=	'COMPTES EN ATTENTE DE REAFFECTATION'
    	ECART	:=	?
    
    	SI debit{129} <> 0 ALORS
    		ERR	:=	'Comptes de racine 129 RESULTAT DE  L''EXERCICE PERTE (D) (' + debit{129} + ')' MSG{}
    	FINSI
    FINSI
###
'CONTROLE2033B' 'Toutes fonctions'

    SEUIL	:=	2 f
    
    PAGE := 'Feuillet 2033B'
    
    ECART := _310 - (_270 + _280 + _290 - _294 - _300 - _306 -PAR1)
    SI ECART <> 0 ALORS
    ERR := 'Erreur de parametrage (_310)' MSG {}
    FINSI
    
    ECART:= _311 - (_271 + _281 + _291 - _295 - _301 - _307-PAR2)
    SI ECART <> 0 ALORS
    ERR := 'Erreur de parametrage (_311)' MSG {}
    FINSI
    
    ECART := _310 - _136
    SI abs { ECART } > SEUIL ALORS
    MessageErreur := '!!! COMPTES HORS CALCUL !!!'
    ERR := 'LE RESULTAT NET COMPTABLE DE L''EXERCICE  AU COMPTE DE RESULTAT  (2033B : 310) EST DIFFERENT DU RESULTAT NET PRESENTE AU PASSIF DU BILAN (2033A : 136)' MSG {}
    FINSI
    
    SI _324 < (debit{ 63514 } + debit{ 695 } + debit{ 689 } - credit{ 789 } + debit{ 697 })
    ALORS ERR := 'LES IMPOTS ET TAXES NON DEDUCTIBLES (2033-B : 324) SONT INFERIEURS AUX REINTEGRATIONS THEORIQUES MINIMALES ( TVTS : 63514X, IS : 695XXX + 689XXX - 789XXX + 697XXX , ...)' MSG {}
    FINSI
    
    SI _350 < _346  + _344
    ALORS ERR := 'LA DEDUCTION PORTEE EN DIVERS (2033-B : 350) EST INFERIEURE A L''ADDITION DES ZONES DE REPORT (2033-B : 344 ET 346), ELLE DEVRAIT ETRE AU MOINS EGALE !' MSG {}
    FINSI
    
    -------------------------------------------------
        
    
###
'CONTROLE2033C' 'Toutes fonctions'

    SEUIL	:=	2 f
    PAGE := 'Feuillet 2033C'
    ECART := _490  - (debit{ 206 }[ N_1 ]
    	+	debit{ 207 }[ N_1 ]
    	+	debit{ 201 }[ N_1 ]
    	+	debit{ 203 }[ N_1 ]
    	+	debit{ 208 }[ N_1 ]
    	+	debit{ 205 }[ N_1 ]
    	+	debit{ 21 }[ N_1 ]
    	+	debit{ 22 }[ N_1 ]
    	+	debit{ 23 }[ N_1 ]
    	+	debit{ 26 }[ N_1 ]
    	+	debit{ 27 }[ N_1 ])
    
    
    ERR := 'LE TOTAL DE LA VALEUR BRUTE DES IMMOBILISATIONS EN DEBUT D''EXERCICE (2033C : 490 )  EST DIFFERENT DU TOTAL DES IMMOBILISATIONS COMPTABILISEES EN A NOUVEAU' MSG {}
    
    ECART := _406 - (_400 + _402 - _404 ) 
    ERR := 'LA VALEUR BRUTE DES IMMOBILISATIONS AU DEBUT DE L''EXERCICE (2033C : 400) CORRIGEE  DES  VARIATIONS DE L''EXERCICE  (2033C : 402 ET/OU 404) NE CORRESPOND PAS A LA VALEUR BRUTE DES IMMOBILISATIONS A LA FIN DE L''EXERCICE (2033C : 406)' MSG {}
    
    ECART := _416 - (_410 + _412 - _414 ) 
    ERR := 'LA VALEUR BRUTE DES IMMOBILISATIONS AU DEBUT DE L''EXERCICE (2033C : 410) CORRIGEE  DES  VARIATIONS DE L''EXERCICE  (2033C : 412 ET/OU 414) NE CORRESPOND PAS A LA VALEUR BRUTE DES IMMOBILISATIONS A LA FIN DE L''EXERCICE (2033C : 416)' MSG {}
    
    ECART := _426 - (_420 + _422 - _424 ) 
    ERR := 'LA VALEUR BRUTE DES IMMOBILISATIONS AU DEBUT DE L''EXERCICE (2033C : 420) CORRIGEE  DES  VARIATIONS DE L''EXERCICE  (2033C : 422 ET/OU 424) NE CORRESPOND PAS A LA VALEUR BRUTE DES IMMOBILISATIONS A LA FIN DE L''EXERCICE (2033C : 426)' MSG {}
    
    ECART := _436 - (_430 + _432 - _434 ) 
    ERR := 'LA VALEUR BRUTE DES IMMOBILISATIONS AU DEBUT DE L''EXERCICE (2033C : 430) CORRIGEE  DES  VARIATIONS DE L''EXERCICE  (2033C : 432 ET/OU 434) NE CORRESPOND PAS A LA VALEUR BRUTE DES IMMOBILISATIONS A LA FIN DE L''EXERCICE (2033C : 436)' MSG {}
    
    ECART := _446 - (_440 + _442 - _444 ) 
    ERR := 'LA VALEUR BRUTE DES IMMOBILISATIONS AU DEBUT DE L''EXERCICE (2033C : 440) CORRIGEE  DES  VARIATIONS DE L''EXERCICE  (2033C : 442 ET/OU 444) NE CORRESPOND PAS A LA VALEUR BRUTE DES IMMOBILISATIONS A LA FIN DE L''EXERCICE (2033C : 446)' MSG {}
    
    ECART := _456 - (_450 + _452 - _454 ) 
    ERR := 'LA VALEUR BRUTE DES IMMOBILISATIONS AU DEBUT DE L''EXERCICE (2033C : 450) CORRIGEE  DES  VARIATIONS DE L''EXERCICE  (2033C : 452 ET/OU 454) NE CORRESPOND PAS A LA VALEUR BRUTE DES IMMOBILISATIONS A LA FIN DE L''EXERCICE (2033C : 456)' MSG {}
    
    ECART := _466 - (_460 + _462 - _464 ) 
    ERR := 'LA VALEUR BRUTE DES IMMOBILISATIONS AU DEBUT DE L''EXERCICE (2033C : 460) CORRIGEE  DES  VARIATIONS DE L''EXERCICE  (2033C : 462 ET/OU 464) NE CORRESPOND PAS A LA VALEUR BRUTE DES IMMOBILISATIONS A LA FIN DE L''EXERCICE (2033C : 466)' MSG {}
    
    ECART := _476 - (_470 + _472 - _474 ) 
    ERR := 'LA VALEUR BRUTE DES IMMOBILISATIONS AU DEBUT DE L''EXERCICE (2033C : 470) CORRIGEE  DES  VARIATIONS DE L''EXERCICE  (2033C : 472 ET/OU 474) NE CORRESPOND PAS A LA VALEUR BRUTE DES IMMOBILISATIONS A LA FIN DE L''EXERCICE (2033C : 476)' MSG {}
    
    ECART := _486 - (_480 + _482 - _484 ) 
    ERR := 'LA VALEUR BRUTE DES IMMOBILISATIONS AU DEBUT DE L''EXERCICE (2033C : 480) CORRIGEE  DES  VARIATIONS DE L''EXERCICE  (2033C : 482 ET/OU 484) NE CORRESPOND PAS A LA VALEUR BRUTE DES IMMOBILISATIONS A LA FIN DE L''EXERCICE (2033C : 486)' MSG {}
    
    ECART := _496 - _044 + soldeDebit{109}
    ERR := 'LE TOTAL DE LA VALEUR BRUTE DES IMMOBILISATIONS EN FIN D''EXERCICE (2033C : 496 )  EST DIFFERENT DU TOTAL DES IMMOBILISATIONS PORTEES A L''ACTIF DU BILAN (2033A : 044)' MSG {}
    
    ECART := _496 - (_490 + _492 - _494 ) 
    ERR := 'LE TOTAL DES IMMOBILISATIONS (2033C : 490) CORRIGE DES  VARIATIONS DE L''EXERCICE  (2033C : 492 ET/OU 494) NE CORRESPOND PAS A LA VALEUR BRUTE DES IMMOBILISATIONS A LA FIN DE L''EXERCICE (2033C : 496)' MSG {}
    
    ECART := _570 - (	credit{ 2801 }[ N_1 ]
    	+	credit{ 2803 }[ N_1 ]
    	+	credit{ 2805 }[ N_1 ]
    	+	credit{ 2807 }[ N_1 ]
    	+	credit{ 2808 }[ N_1 ]
    	+	credit{ 281 }[ N_1 ]
    	+	credit{ 282 }[ N_1 ])  
    ERR := 'LE TOTAL DES AMORTISSEMENTS EN DEBUT D''EXERCICE (2033C : 570 )  EST DIFFERENT DU TOTAL DES AMORTISSEMENTS COMPTABILISES EN A NOUVEAU' MSG {}
    
    ECART := _572 - debit { 6811 }  
    ERR := 'L''AUGMENTATION DES  AMORTISSEMENTS DES IMMOBILISATIONS  (2033C : 572 )  EST DIFFERENTE DU TOTAL DES DOTATIONS COMPTABILISEES AU COMPTE DE RESULTAT ( 6811XX)' MSG {}
    
    ECART := _576 -(_048 - credit { 29 }) 
    ERR := 'LE TOTAL DES AMORTISSEMENTS EN FIN D''EXERCICE (2033C : 576 )  EST DIFFERENT DU TOTAL DES AMORTISSEMENTS PORTES A L''ACTIF DU BILAN' MSG {}
    
    ECART := _576 - (_570 + _572 - _574 ) 
    ERR := 'LE TOTAL DES AMORTISSEMENTS (2033C : 570) CORRIGE DES  VARIATIONS DE L''EXERCICE  (2033C : 572 ET/OU 574) NE CORRESPOND PAS A LA VALEUR DES AMORTISSEMENTS A LA FIN DE L''EXERCICE (2033C : 576)' MSG {}
    
    
    ECART := _578 - _494 ----MODIF SL 19/04/1999--------------
    ERR := 'CADRE : LE TOTAL DES VALEURS D''ACTIF DES IMMOBILISATIONS SORTIES DANS LE TABLEAU DES PLUS OU MOINS VALUES (2033C III : 578 ) EST DIFFERENT DU TOTAL DES DIMINUTIONS DU TABLEAU DES IMMOBILISATIONS (2033C I : 494)' MSG {}
    
    ECART := _580 - _574  
    ERR := 'CADRE : LE TOTAL DES AMORTISSEMENTS DES IMMOBILISATIONS SORTIES DANS LE TABLEAU DES PLUS OU MOINS VALUES (2033C III : 580 ) EST DIFFERENT DU TOTAL DES DIMINUTIONS DU TABLEAU DES AMORTISSEMENTS (2033C II : 574)' MSG {}
    
    ECART := _582 - (debit { 6751 } + debit { 6752 } + debit { 6756 })
     
    ERR := 'CADRE : LE TOTAL DES VALEURS RESIDUELLES DES IMMOBILISATIONS SORTIES (2033C III : 582 )   NE CORRESPOND PAS AUX SOMMES PRESENTES DANS LES COMPTES DE CHARGES CORRESPONDANTS ( 6751XX, 6752XX, 6756XX )' MSG {}
    
    ECART := _584 - (credit { 7751 } + credit { 7752 } + credit {  7756 })
      
    ERR := 'CADRE : LE TOTAL DES PRIX DE CESSIONS  DES IMMOBILISATIONS CEDEES (2033C III : 584 )   NE CORRESPOND PAS AUX SOMMES PRESENTES DANS LES COMPTES DE PRODUITS CORRESPONDANTS ( 7751XX, 7752XX, 7756XX )' MSG {}
    
    ECART := (_579 + _586 + _581+ _587+ _589) - (credit { 7751 } + credit { 7752 } + credit { 7756 }) +  (debit { 6751 } + debit { 6752 } + debit { 6756 } ) 
    ERR := 'LES PLUS OU MOINS VALUES DEGAGEES AU TABLEAU DES PLUS OU MOINS VALUES ( 2033C III : 579 + 586 + 581 + 587 + 589 ), NE CORRESPONDENT PAS AUX MONTANTS RESULTANT DES COMPTES DE CHARGES ET PRODUITS CORRESPONDANTS ( 675X ET 775X )' MSG {}
    
    SI  (credit {775 } - debit{ 675 }) > 0 ALORS
    	ECART	:=	(credit {775 } - debit{ 675 }) - (_579 + _586 + _581+ _587+ _589)
    	ERR	:=	'LA PLUS VALUE NETTE DEGAGEE PAR DIFFERENCE ENTRE LES COMPTES 775XX ET 675XX  N''EST PAS IDENTIQUE A CELLE VENTILEE EN 2033.C CADRE III.' MSG{}
    FINSI
    
    SI  (credit{ 775 } - debit{ 675 }) < 0  ALORS
    	ECART	:=	(credit{ 775 } - debit{ 675 }) - (_579 + _586 + _581+ _587+ _589)
    	ERR	:=	'LA MOINS VALUE NETTE DEGAGEE PAR DIFFERENCE ENTRE LES COMPTES 775XX ET 675XX  N''EST PAS IDENTIQUE A CELLE VENTILEE EN 2033.C CADRE III.' MSG{}
    FINSI
    
    ECART := (P05 + P06 + P06b + P06c) - (P04 - P03)
    ERR := 'CADRE III LIGNE 1: LA VENTILATION ENTRE COURT ET LONG TERME DES PLUS OU MOINS VALUES EST DIFFERENTE DE LA PLUS OU MOINS VALUE NETTE CALCULEE' MSG {}
    
    SI (P04 > P01) ET (P06 + P06b + P06c) = 0 ALORS 
    	ERR	:=	'CADRE III LIGNE 1: LE PRIX DE CESSION EST SUPERIEUR A LA VALEUR D''ACTIF, LA PLUS VALUE NETTE DEGAGEE N''EST ELLE PAS POUR PARTIE A LONG TERME ?' MSG{} 
    FINSI
    
    SI (P05 < P02) ET (P06 + P06b + P06c) > 0  ALORS 
    	ERR	:=	'CADRE III LIGNE 1: LA PLUS VALUE COURT TERME EST INFERIEURE AUX AMORTISSEMENTS DU BIEN SORTI DE l''ACTIF IMMOBILISE; DANS CE CAS UNE PLUS VALUE A LONG TERME N''EST PAS POSSIBLE' MSG {} 
    FINSI
    
    ECART := (P11 + P12 + P12b + P12c) - (P10 - P09)
    ERR := 'CADRE III LIGNE 2: LA VENTILATION ENTRE COURT ET LONG TERME DES PLUS OU MOINS VALUES EST DIFFERENTE DE LA PLUS OU MOINS VALUE NETTE CALCULEE' MSG {}
    
    SI (P10 > P07) ET (P12 + P12b + P12c) = 0  ALORS
    	ERR	:=	'CADRE III  LIGNE 2: LE PRIX DE CESSION EST SUPERIEUR A LA VALEUR D''ACTIF, LA PLUS VALUE NETTE DEGAGEE N''EST ELLE PAS POUR PARTIE A LONG TERME ?' MSG{} 
    FINSI
    
    SI (P11 < P08) ET (P12 + P12b+ P12c) > 0  ALORS 
    	ERR	:=	'CADRE III  LIGNE 2: LA PLUS VALUE COURT TERME EST INFERIEURE AUX AMORTISSEMENTS DU BIEN SORTI DE l''ACTIF IMMOBILISE; DANS CE CAS UNE PLUS VALUE A LONG TERME N''EST PAS POSSIBLE' MSG{} 
    FINSI
    
    ECART	:=	(P17 + P18 + P18b + P18c) - (P16 - P15)
    ERR	:=	'CADRE III LIGNE 3: LA VENTILATION ENTRE COURT ET LONG TERME DES PLUS OU MOINS VALUES EST DIFFERENTE DE LA PLUS OU MOINS VALUE NETTE CALCULEE' MSG {}
    
    SI (P16 > P13) ET (P18 + P18b + P18c) = 0  ALORS
    	ERR	:=	'CADRE III  LIGNE 3: LE PRIX DE CESSION EST SUPERIEUR A LA VALEUR D''ACTIF, LA PLUS VALUE NETTE DEGAGEE N''EST ELLE PAS POUR PARTIE A LONG TERME ?' MSG{} 
    FINSI
    
    SI (P17 < P14) ET (P18 + P18b + P18c) > 0 ALORS
    	ERR	:=	'CADRE III  LIGNE 3: LA PLUS VALUE COURT TERME EST INFERIEURE AUX AMORTISSEMENTS DU BIEN SORTI DE l''ACTIF IMMOBILISE; DANS CE CAS UNE PLUS VALUE A LONG TERME N''EST PAS POSSIBLE' MSG {} 
    FINSI	
    
    ECART	:=	(P23 + P24 + P24b + P24c) - (P22 - P21)
    ERR	:=	'CADRE III LIGNE 4: LA VENTILATION ENTRE COURT ET LONG TERME DES PLUS OU MOINS VALUES EST DIFFERENTE DE LA PLUS OU MOINS VALUE NETTE CALCULEE' MSG {}
    
    SI (P22 > P19) ET (P24 + P24b + P24c) = 0 ALORS
    	ERR	:=	'CADRE III  LIGNE 4: LE PRIX DE CESSION EST SUPERIEUR A LA VALEUR D''ACTIF, LA PLUS VALUE NETTE DEGAGEE N''EST ELLE PAS POUR PARTIE A LONG TERME ?' MSG{} 
    FINSI
    
    SI (P23 < P20) ET (P24 + P24b + P24c) > 0 ALORS
    	ERR	:=	'CADRE III  LIGNE 4: LA PLUS VALUE COURT TERME EST INFERIEURE AUX AMORTISSEMENTS DU BIEN SORTI DE l''ACTIF IMMOBILISE; DANS CE CAS UNE PLUS VALUE A LONG TERME N''EST PAS POSSIBLE' MSG{} 
    FINSI
    
    ECART := (P29 + P30 + P30b + P30c) - (P28 - P27)
    ERR := 'CADRE III LIGNE 5: LA VENTILATION ENTRE COURT ET LONG TERME DES PLUS OU MOINS VALUES EST DIFFERENTE DE LA PLUS OU MOINS VALUE NETTE CALCULEE' MSG {}
    
    SI (P28 > P25) ET (P30 + P30b + P30c) = 0 ALORS 
    	ERR	:=	'CADRE III  LIGNE 5: LE PRIX DE CESSION EST SUPERIEUR A LA VALEUR D''ACTIF, LA PLUS VALUE NETTE DEGAGEE N''EST ELLE PAS POUR PARTIE A LONG TERME ?' MSG{} 
    FINSI
    
    SI P29 < P26 ET (P30 + P30b + P30c) > 0  ALORS
    	ERR	:=	'CADRE III  LIGNE 5: LA PLUS VALUE COURT TERME EST INFERIEURE AUX AMORTISSEMENTS DU BIEN SORTI DE l''ACTIF IMMOBILISE; DANS CE CAS UNE PLUS VALUE A LONG TERME N''EST PAS POSSIBLE' MSG{} 
    FINSI
    
    ECART	:=	(P35 + P36 + P36b+ P36c) - (P34 - P33)
    ERR	:=	'CADRE III LIGNE 6: LA VENTILATION ENTRE COURT ET LONG TERME DES PLUS OU MOINS VALUES EST DIFFERENTE DE LA PLUS OU MOINS VALUE NETTE CALCULEE' MSG {}
    
    SI (P34 > P31) ET (P36 + P36b+ P36c) = 0 ALORS 
    	ERR	:=	'CADRE III  LIGNE 6: LE PRIX DE CESSION EST SUPERIEUR A LA VALEUR D''ACTIF, LA PLUS VALUE NETTE DEGAGEE N''EST ELLE PAS POUR PARTIE A LONG TERME ?' MSG{} 
    FINSI
    
    SI (P35 < P32) ET (P36 + P36b+ P36c) > 0 ALORS
    	ERR	:=	'CADRE III  LIGNE 6: LA PLUS VALUE COURT TERME EST INFERIEURE AUX AMORTISSEMENTS DU BIEN SORTI DE l''ACTIF IMMOBILISE; DANS CE CAS UNE PLUS VALUE A LONG TERME N''EST PAS POSSIBLE' MSG{} 
    FINSI
    
    ECART	:=	(P41 + P42 + P42b + P42c) - (P40 - P39)
    ERR	:=	'CADRE III LIGNE 7: LA VENTILATION ENTRE COURT ET LONG TERME DES PLUS OU MOINS VALUES EST DIFFERENTE DE LA PLUS OU MOINS VALUE NETTE CALCULEE' MSG {}
    
    SI (P40 > P37) ET (P42 + P42b+ P42c) = 0 ALORS
    	ERR	:=	'CADRE III  LIGNE 7: LE PRIX DE CESSION EST SUPERIEUR A LA VALEUR D''ACTIF, LA PLUS VALUE NETTE DEGAGEE N''EST ELLE PAS POUR PARTIE A LONG TERME ?' MSG{} 
    FINSI
    
    SI P41 < P38 ET (P42 + P42b+ P42c) > 0 ALORS
    	ERR	:=	'CADRE III  LIGNE 7: LA PLUS VALUE COURT TERME EST INFERIEURE AUX AMORTISSEMENTS DU BIEN SORTI DE l''ACTIF IMMOBILISE; DANS CE CAS UNE PLUS VALUE A LONG TERME N''EST PAS POSSIBLE' MSG{} 
    FINSI
    
    ECART	:=	(P47 + P48 + P48b+ P48c) - (P46 - P45)
    ERR	:=	'CADRE III LIGNE 8: LA VENTILATION ENTRE COURT ET LONG TERME DES PLUS OU MOINS VALUES EST DIFFERENTE DE LA PLUS OU MOINS VALUE NETTE CALCULEE' MSG {}
    
    SI (P46 > P43) ET (P48 + P48b+ P48c) = 0 ALORS
    	ERR	:=	'CADRE III  LIGNE 8: LE PRIX DE CESSION EST SUPERIEUR A LA VALEUR D''ACTIF, LA PLUS VALUE NETTE DEGAGEE N''EST ELLE PAS POUR PARTIE A LONG TERME ?' MSG{} 
    FINSI
    
    SI (P47 < P44) ET (P48 + P48b+ P48c) > 0 ALORS
    	ERR	:=	'CADRE III  LIGNE 8: LA PLUS VALUE COURT TERME EST INFERIEURE AUX AMORTISSEMENTS DU BIEN SORTI DE l''ACTIF IMMOBILISE; DANS CE CAS UNE PLUS VALUE A LONG TERME N''EST PAS POSSIBLE' MSG{} 
    FINSI
    
    ECART	:=	(P53 + P54 + P54b + P54c) - (P52 - P51)
    ERR	:=	'CADRE III LIGNE 9: LA VENTILATION ENTRE COURT ET LONG TERME DES PLUS OU MOINS VALUES EST DIFFERENTE DE LA PLUS OU MOINS VALUE NETTE CALCULEE' MSG {}
    
    SI (P52 > P49) ET (P54 + P54b + P54c) = 0 ALORS
    	ERR	:=	'CADRE III  LIGNE 9: LE PRIX DE CESSION EST SUPERIEUR A LA VALEUR D''ACTIF, LA PLUS VALUE NETTE DEGAGEE N''EST ELLE PAS POUR PARTIE A LONG TERME ?' MSG{} 
    FINSI
    
    SI (P53 < P50) ET (P54 + P54b + P54c) > 0 ALORS
    	ERR	:=	'CADRE III  LIGNE 9: LA PLUS VALUE COURT TERME EST INFERIEURE AUX AMORTISSEMENTS DU BIEN SORTI DE l''ACTIF IMMOBILISE; DANS CE CAS UNE PLUS VALUE A LONG TERME N''EST PAS POSSIBLE' MSG{} 
    FINSI
    
    ECART	:=	(P59 + P60 + P60b + P60c) - (P58 - P57)
    ERR	:=	'CADRE III LIGNE 10: LA VENTILATION ENTRE COURT ET LONG TERME DES PLUS OU MOINS VALUES EST DIFFERENTE DE LA PLUS OU MOINS VALUE NETTE CALCULEE' MSG {}
    
    SI (P58 > P55) ET (P60 + P60b + P60c) = 0 ALORS
    	ERR	:=	'CADRE III  LIGNE 10: LE PRIX DE CESSION EST SUPERIEUR A LA VALEUR D''ACTIF, LA PLUS VALUE NETTE DEGAGEE N''EST ELLE PAS POUR PARTIE A LONG TERME ?' MSG{} 
    FINSI
    
    SI (P59 < P56) ET (P60 + P60b + P60c) > 0 ALORS
    	ERR	:=	'CADRE III  LIGNE 10: LA PLUS VALUE COURT TERME EST INFERIEURE AUX AMORTISSEMENTS DU BIEN SORTI DE l''ACTIF IMMOBILISE; DANS CE CAS UNE PLUS VALUE A LONG TERME N''EST PAS POSSIBLE' MSG{} 
    FINSI
###
'CONTROLE2033D' 'Toutes fonctions'
    
    SEUIL	:=	2 f
    PAGE := 'Feuillet 2033D'
    
    ECART	:=	_606 - (_600 + _602 - _604)
    ERR	:=	'LES SOLDES OU VARIATIONS DES AMORTISSEMENTS DEROGATOIRES ( CADRE A : 600, 602, 604, 606) SONT DIFFERENTS DES MONTANTS PRESENTS DANS LES COMPTES' MSG {}
    
    ECART	:=	_616 - (_610 + _612 - _614)
    ERR	:=	'LES SOLDES OU  VARIATIONS DES AUTRES PROVISIONS REGLEMENTEES ( CADRE A : 610, 612, 614, 616) SONT DIFFERENTS DES MONTANTS PRESENTS DANS LES COMPTES' MSG {}
    
    ECART	:=	_626 - (_620 + _622 - _624)
    ERR	:=	'LES SOLDES OU VARIATIONS DES PROVISIONS POUR RISQUES ET CHARGES ( CADRE A : 620, 622, 624, 626) SONT DIFFERENTS DES MONTANTS PRESENTS DANS LES COMPTES' MSG {}
    
    ECART	:=	_636 - (_630 + _632 - _634)
    ERR	:=	'LES SOLDES OU VARIATIONS DES PROVISIONS POUR DEPRECIATIONS DES IMMOBILISATIONS ( CADRE A : 630, 600, 634, 636) SONT DIFFERENTS DES MONTANTS PRESENTS DANS LES COMPTES' MSG {}
    
    ECART	:=	_646 - (_640 + _642 - _644)
    ERR	:=	'LES SOLDES OU VARIATIONS DES PROVISIONS POUR DEPRECIATIONS DES STOCKS ET EN-COURS ( CADRE A : 640, 642, 644, 646) SONT DIFFERENTS DES MONTANTS PRESENTS DANS LES COMPTES' MSG {}
    
    ECART	:=	_656 - (_650 + _652 - _654)
    ERR	:=	'LES SOLDES OU VARIATIONS DES PROVISIONS POUR DEPRECIATIONS DES CLIENTS ET COMPTES RATTACHES ( CADRE A : 650, 652, 654, 656) SONT DIFFERENTS DES MONTANTS PRESENTS DANS LES COMPTES' MSG {}
    
    ECART	:=	_666 - (_660 + _662 - _664)
    ERR	:=	'LES SOLDES OU VARIATIONS DES AUTRES PROVISIONS POUR DEPRECIATIONS  ( CADRE A : 660, 662, 664, 666) SONT DIFFERENTS DES MONTANTS PRESENTS DANS LES COMPTES' MSG {}
    
    ECART	:=	_770 - _602
    ERR	:=	'LE MOUVEMENT AFFECTANT LA PROVISION POUR AMORTISSEMENTS DEROGATOIRES (2033D : CADRE B 770 ) EST DIFFERENT DE L''AUGMENTATION PORTEE AU RELEVE DES PROVISIONS ( 2033D : CADRE A 602)' MSG {}
    
    ECART	:=	_775 - _604
    ERR	:=	'LE MOUVEMENT AFFECTANT LA PROVISION POUR AMORTISSEMENTS DEROGATOIRES (2033D : CADRE B 775 ) EST DIFFERENT DE LA DIMINUTION PORTEE AU RELEVE DES PROVISIONS ( 2033D : CADRE A 604)' MSG {}
    
    SI _870 < 0 ALORS
    	ECART	:=	_870
    	ERR	:=	'LE TOTAL DES DEFICITS A REPORTER NE PEUT ETRE INFERIEUR A zéro (2033-D CADRE II : 870). VERIFIEZ L''AFFECTATION DES DEFICITS REPORTABLES (2033-D CADRE II : 983 ET 860)' MSG {}
    FINSI
    
    SI _983 > _982   ALORS
    	ECART	:=	_983 - _982
    	ERR	:=	'LE TOTAL DES DEFICITS IMPUTES (2033-D CADRE II : 983) NE PEUT ETRE SUPERIEUR AU MONTANT DES DEFICITS REPORTES AU TITRE DE L''EXERCICE PRECEDENT (2033-D CADRE II : 982).' MSG {}
    FINSI

    SI  2033D_399 = ? ALORS
    	ERR := 'VOUS N''AVEZ PAS RENSEIGNE LE MONTANT DES PRELEVEMENTS PERSONNELS; EN EXISTE-T-IL ? (sinon remplissez la zone 399 avec 0).'
    	MSG {}
    FINSI

    SI masseCredit { 4457 } > 0 ET 2033D_374 = ? ALORS
    	ERR := 'DES MOUVEMENTS DE TVA COLLECTEE SONT DETECTES EN COMPTABILITE GENERALE. LA ZONE  RELATIVE A LA T.V.A. COLLECTEE (2033-D : 374) DOIT ETRE RENSEIGNEE.'
    	MSG {}
    FINSI
    
    SI masseDebit { 4456 } > 0 ET 2033D_378 = ? ALORS
    	ERR := ' DES MOUVEMENTS DE TVA DEDUCTIBLE SONT DETECTES EN COMPTABILITE GENERALE. LA ZONE  RELATIVE A LA T.V.A. DEDUCTIBLE (2033-D : 378) DOIT ETRE RENSEIGNEE.'
    	MSG {}
    FINSI
###
'CONTROLE2033E' 'Toutes fonctions'
    
    |
     verification<Monnaie> 
    |

    PAGE	:=	'Feuillet 2033E'
    
    SI (debit { 64 } - debit { 646 }) > 0 ET 2033E_376 = ? ALORS
    	ERR := 'VOUS N''AVEZ PAS RENSEIGNE L''EFFECTIF MOYEN DU PERSONNEL (2033-E : 376) ALORS QU''IL EXISTE DES COMPTES 64XX EN COMPTABILITE GENERALE.'
    	MSG {}
    FINSI

    SI 2033E_376 > 0 ET (debit { 64 } - debit { 646 }) = 0 ALORS
    	ERR := 'VOUS AVEZ RENSEIGNE L''EFFECTIF MOYEN DU PERSONNEL (2033-E : 376) ALORS QU''IL N''EXISTE PAS DE COMPTES 64XX EN COMPTABILITE GENERALE.' 
    	MSG {}
    FINSI
    
    SI TotalC = 0 ET _137s = 0 ALORS
    	message{'ATTENTION! AUCUN MONTANT RENSEIGNE. EST-CE NORMAL ? ' }
    FINSI        
    
    verification	:=	credit{ 791 } + credit{796 } + credit{797}
    SI verification <> 0 ALORS	
    	ERR	:=	'Les comptes 791 ou 796 ou 797 sont mouvementés, vérifiez s''il s''agit de refacturations de frais inscrits au compte de transfert de charges afin d''alimenter le feuillet 2033 E.' MSG{}	
    FINSI
###
'DEMAGRECOR' 'Toutes fonctions'
    INTERDEMAGRECOR {}
###
'DEMAGREZFU' 'Toutes fonctions'
    INTERDEMAGREZFU {}
###
'DRESZFUREC' 'Toutes fonctions'
    INTERDRESZFUREC {}
###
'DRESZFUVER' 'Toutes fonctions'
    INTERDRESZFUVER {}
###
'importB2033E' 'Toutes fonctions'
    
    _108_C := arrondirMonnaieSansDecimale{_210} + arrondirMonnaieSansDecimale{_214} + arrondirMonnaieSansDecimale{_218}
    
    SI _108 = ? ALORS
    	_108 := arrondirMonnaieSansDecimale{_108_C}
    SINON
    	_108 := arrondirMonnaieSansDecimale{_108}
    FINSI
    
    2033E_AK_C := 0
	SI credit{713} > 0 ALORS
		2033E_AK_C += credit{713}
	FINSI
	SI credit{603} > 0 ALORS
		2033E_AK_C += credit{603}
	FINSI

    SI 2033E_AK = ? ALORS
    	2033E_AK := entier{2033E_AK_C}
    SINON
    	2033E_AK := entier{2033E_AK}
    FINSI

	2033E_AH_C := 2033E_376
    SI 2033E_AH = ? ALORS
		2033E_AH := 2033E_AH_C    
	FINSI
        
    SI _143s = ? ALORS
    	_143s := entier{_143s_C}
    SINON
    	_143s := entier{_143s}
    FINSI
    
    _113_C := arrondirMonnaieSansDecimale{_226} + arrondirMonnaieSansDecimale{credit{7715}}
    
    SI _113 = ? ALORS
    	_113	:=	entier{_113_C}
    SINON
    	_113	:=	entier{_113}
    FINSI
    
    SI _115 = ? ALORS
    	_115	:=	entier{_115_C}
    SINON
    	_115	:=	entier{_115}
    FINSI
    
    _116	:=	entier{_116}
    
    
    SI _118 = ? ALORS
    	_118	:=	entier{_118_C}
    SINON
    	_118	:=	entier{_118}
    FINSI
    
    SI _119 = ? ALORS
    	_119	:=	entier{_119_C}
    SINON
    	_119	:=	entier{_119}
    FINSI
    
    2033E_153	:=	entier{2033E_153}
    
    -------CADRE  B  ----------------
    _121s_C	:=	_234 + _238 + _242 - debit{61} - debit{62}
    
    SI _121s = ? ALORS
    	_121s	:=	entier{_121s_C}
    SINON
    	_121s	:=	entier{_121s}
    FINSI
    
    _122_C	:=	_236
    
    SI _122 = ? ALORS
    	_122	:=	entier{_122_C}
    SINON
    	_122	:=	entier{_122}
    FINSI
    
    _123_C	:=	_238
    
    SI _123 = ? ALORS
    	_123	:=	entier{_123_C}
    SINON
    	_123	:=	entier{_123}
    FINSI
    
    _145_C := 0
	SI debit{713} > 0 ALORS
		_145_C += debit{713}
	FINSI
	SI debit{603} > 0 ALORS
		_145_C += debit{603}
	FINSI
    
    SI _145 = ? ALORS
    	_145	:=	entier{_145_C}
    SINON
    	_145	:=	entier{_145}
    FINSI
    
    _125s_C	:=	debit{61} + debit{62} - debit{612} - debit{613}
    
    SI _125s = ? ALORS
    	_125s	:=	entier{_125s_C}
    SINON
    	_125s	:=	entier{_125s}
    FINSI
    
    SI _146 = ? ALORS
    	_146	:=	entier{_146_C}
    SINON
    	_146	:=	entier{_146}
    FINSI
    
    _128	:=	entier{_128}
    _148_C	:=	arrondirMonnaieSansDecimale{_262} - arrondirMonnaieSansDecimale{_148_I}
    
    SI _148 = ? ALORS
    	_148	:=	entier{_148_C}
    SINON
    	_148	:=	entier{_148}
    FINSI
    
    _149		:=	entier{_149}
    SI _150 = ? ALORS
    	_150	:=	entier{_150_C}
    SINON
    	_150	:=	entier{_150}
    FINSI
    
    _135s		:=	entier{_135s}
###
'INTER2033B' 'Toutes fonctions'

    devise {devise }
    
    _259_C	:=	debit { 68745 }
    SI _259 = ? ALORS _259	:=	_259_C FINSI
    
    _260_C	:=	?
    
    SI _260 = ? ALORS 
    	_260	:=	_260_C 
    FINSI

    _342 	:=  2033B_EU +  _986 + _987 +  _989 + _990 + 2033B_127 + 2033B_138 + 2033B_AQ + _345 + _344 + 2033B_AR + 2033B_AY
    S2__342 :=  S2_2033B2_EU +  S2__986 + S2__987 +  S2__989 + S2__990 + S2_2033B_127 + S2_2033B_138 + S2_2033B_AQ + S2__345 + S2__344 + S2_2033B_AR + S2_2033B_AY

    _352 := _312 - _314 + _316 + _318 + _322 + _324 + _330 + 2033B_998 + 2033B_999 + 2033B_AE - _342 - _350 - 2033B_997   
    S2__352		:=	_312 - _314 + S2__316 + S2__318 + S2__322 + S2__324 + S2__330 + S2_2033B_998 + S2_2033B_999 + S2_2033B_AE - S2__342 - S2__350 - S2_2033B_997
    
    CALC_a_C	:=	_352
    
    _354	:=	0
    S2__354	:=	0
    
    SI _352 < 0 ALORS
    	_354 :=	0 - _352
    	_352 :=	0
    FINSI

    SI S2__352 < 0 ALORS
		S2__354 :=	0 - S2__352
		S2__352 :=	0
    FINSI

    SI S2__360 = ? ALORS
    	S2__360	:=	S2__360_C
    FINSI
    
    _370	:=	_352 - _354 + _356 - _360 + _366 - _368
    S2__370	:=	S2__352 - S2__354 + S2__356 - S2__360 + _366 - _368
    
    _372	:=	0
    S2__372	:=	0
    
    SI _370 < 0 ALORS
    	_372 :=	0 -  _370
    	_370 :=	0
    FINSI
    
    SI S2__370 < 0 ALORS
    	S2__372 :=	0 -  S2__370
    	S2__370 :=	0
    FINSI
    
    SI IMPOT_SOCIETE ALORS
    	BENF	:=	_370
    	DEFF	:=	_372
    SINON
    	BENF_C	:=	_370
    	DEFF_C	:=	_372
    	SI BENF = ? ALORS
    		BENF	:=	BENF_C
    	FIN SI
    	SI DEFF = ? ALORS
    		DEFF	:=	DEFF_C
    	FIN SI
    FIN SI
    INTER2031 {}
    
    _346_C	:=	credit{ 699 }
    S2__346_C	:=	credit{ 699 }
    SI _346 = ? ALORS _346	:=	_346_C	FINSI
    SI S2__346 = ? ALORS S2__346	:=	S2__346_C	FINSI
    
        
    INTER2033E{}
    INTER2067{}
    
    SI _232 <> 0 OU _233 <> 0 OU _264 <> 0 OU _265 <> 0 OU _310 <> 0 OU _311 <> 0 
    OU _342 <> 0 OU _370 <> 0 OU _372 <> 0 OU  _374 <> 0 OU _378 <> 0 
    OU _399 <> 0 OU _376 <> 0 OU APP <> 0 OU HAN <> 0
    OU 2033B_AK <> 0 OU 2033B_AL <> 0 OU 2033B_AD <> 0 ALORS
    	neant2033b	:=	?
    SINON
    	neant2033b	:=	'x'	
    FINSI
###
'INTER2033Bext1' 'Toutes fonctions'
    
    _330	:= DRD_201 + DRD_202 + DRD_203 + DRD_204 + DRD_205 + DRD_206 + DRD_207 + DRD_208 + DRD_209 + DRD_210 
    	 + DRD_211 + DRD_212 + DRD_213 + DRD_214 + DRD_215 + DRD_216 + DRD_217 + DRD_218 + DRD_219 + DRD_220
    
    _350	:=  DDD_401 + DDD_402 + DDD_403 + DDD_404 + DDD_405 + DDD_406 + DDD_407 + DDD_408 + DDD_409 + DDD_410
    	  + DDD_411 + DDD_412 + DDD_413 + DDD_414 + DDD_415 + DDD_416 + DDD_417 + DDD_418 + DDD_419 + DDD_420
    
    S2__330	:= S2_DRD_201 + S2_DRD_202 + S2_DRD_203 + S2_DRD_204 + S2_DRD_205 + S2_DRD_206 + S2_DRD_207 + S2_DRD_208 + S2_DRD_209 + S2_DRD_210 
    	 + S2_DRD_211 + S2_DRD_212 + S2_DRD_213 + S2_DRD_214 + S2_DRD_215 + S2_DRD_216 + S2_DRD_217 + S2_DRD_218 + S2_DRD_219 + S2_DRD_220
    
    S2__350	:=  S2_DDD_401 + S2_DDD_402 + S2_DDD_403 + S2_DDD_404 + S2_DDD_405 + S2_DDD_406 + S2_DDD_407 + S2_DDD_408 + S2_DDD_409 + S2_DDD_410
    	  + S2_DDD_411 + S2_DDD_412 + S2_DDD_413 + S2_DDD_414 + S2_DDD_415 + S2_DDD_416 + S2_DDD_417 + S2_DDD_418 + S2_DDD_419 + S2_DDD_420
    
    
    INTER2033B{}
###
'AfficheInfoAmortissementSupValeurActif' 'Toutes fonctions'

	info{'L''amortissement est supérieur à la valeur d''actif.'}

###
'INTER2033C_EXT1' 'Toutes fonctions'
    
    |
    	msgAmortSupVA<Booléen>
    |

    msgAmortSupVA := FAUX

    devise {devise }
    
    -- EXTENSION 1 -- Tester si valeur d'amortissement est supérieure à la valeur d'actif.
    
    P63 :=P61-P62	
    SI P63< 0 ALORS P62 := 0 P63 := 0 msgAmortSupVA := VRAI FINSI
    P69 :=P67-P68	
    SI P69< 0 ALORS P68 := 0 P69 := 0 msgAmortSupVA := VRAI FINSI
    P75 :=P73-P74	
    SI P75< 0 ALORS P74 := 0 P75 := 0 msgAmortSupVA := VRAI FINSI
    P81 :=P79-P80	
    SI P81< 0 ALORS P80 := 0 P81 := 0 msgAmortSupVA := VRAI FINSI
    P87 :=P85-P86	
    SI P87< 0 ALORS P86 := 0 P87 := 0 msgAmortSupVA := VRAI FINSI
    P93 :=P91-P92	
    SI P93< 0 ALORS P92 := 0 P93 := 0 msgAmortSupVA := VRAI FINSI
    P99 :=P97-P98	
    SI P99< 0 ALORS P98 := 0 P99 := 0 msgAmortSupVA := VRAI FINSI
    P105 :=P103-P104	
    SI P105< 0 ALORS P104 := 0 P105 := 0 msgAmortSupVA := VRAI FINSI
    P111 :=P109-P110	
    SI P111< 0 ALORS P110 := 0 P111 := 0 msgAmortSupVA := VRAI FINSI
    P117 :=P115-P116	
    SI P117< 0 ALORS P116 := 0 P117 := 0 msgAmortSupVA := VRAI FINSI
    P123 :=P121-P122	
    SI P123< 0 ALORS P122 := 0 P123 := 0 msgAmortSupVA := VRAI FINSI
    P129 :=P127-P128	
    SI P129< 0 ALORS P128 := 0 P129 := 0 msgAmortSupVA := VRAI FINSI
    P135 :=P133-P134	
    SI P135< 0 ALORS P134 := 0 P135 := 0 msgAmortSupVA := VRAI FINSI
    P141 :=P139-P140	
    SI P141< 0 ALORS P140 := 0 P141 := 0 msgAmortSupVA := VRAI FINSI
    P147 :=P145-P146	
    SI P147< 0 ALORS P146 := 0 P147 := 0 msgAmortSupVA := VRAI FINSI
    P153 :=P151-P152	
    SI P153< 0 ALORS P152 := 0 P153 := 0 msgAmortSupVA := VRAI FINSI
    P159 :=P157-P158	
    SI P159< 0 ALORS P158 := 0 P159 := 0 msgAmortSupVA := VRAI FINSI
    P165 :=P163-P164	
    SI P165< 0 ALORS P164 := 0 P165 := 0 msgAmortSupVA := VRAI FINSI
    P171 :=P169-P170	
    SI P171< 0 ALORS P170 := 0 P171 := 0 msgAmortSupVA := VRAI FINSI
    P177 :=P175-P176	
    SI P177< 0 ALORS P176 := 0 P177 := 0 msgAmortSupVA := VRAI FINSI
    P183 :=P181-P182	
    SI P183< 0 ALORS P182 := 0 P183 := 0 msgAmortSupVA := VRAI FINSI
    P189 :=P187-P188	
    SI P189< 0 ALORS P188 := 0 P189 := 0 msgAmortSupVA := VRAI FINSI
    P195 :=P193-P194	
    SI P195< 0 ALORS P194 := 0 P195 := 0 msgAmortSupVA := VRAI FINSI
    P201 :=P199-P200	
    SI P201< 0 ALORS P200 := 0 P201 := 0 msgAmortSupVA := VRAI FINSI
    P207 :=P205-P206	
    SI P207< 0 ALORS P206 := 0 P207 := 0 msgAmortSupVA := VRAI FINSI
    
    
    -- EXTENSION 2 -- Tester si valeur d'amortissement est supérieure à la valeur d'actif.
    
    P213 :=P211-P212	
    SI P213< 0 ALORS P212 := 0 P213 := 0 msgAmortSupVA := VRAI FINSI
    P219 :=P217-P218	
    SI P219< 0 ALORS P218 := 0 P219 := 0 msgAmortSupVA := VRAI FINSI
    P225 :=P223-P224	
    SI P225< 0 ALORS P224 := 0 P225 := 0 msgAmortSupVA := VRAI FINSI
    P231 :=P229-P230	
    SI P231< 0 ALORS P230 := 0 P231 := 0 msgAmortSupVA := VRAI FINSI
    P237 :=P235-P236	
    SI P237< 0 ALORS P236 := 0 P237 := 0 msgAmortSupVA := VRAI FINSI
    P243 :=P241-P242	
    SI P243< 0 ALORS P242 := 0 P243 := 0 msgAmortSupVA := VRAI FINSI
    P249 :=P247-P248	
    SI P249< 0 ALORS P248 := 0 P249 := 0 msgAmortSupVA := VRAI FINSI
    P255 :=P253-P254	
    SI P255< 0 ALORS P254 := 0 P255 := 0 msgAmortSupVA := VRAI FINSI
    P261 :=P259-P260	
    SI P261< 0 ALORS P260 := 0 P261 := 0 msgAmortSupVA := VRAI FINSI
    P267 :=P265-P266	
    SI P267< 0 ALORS P266 := 0 P267 := 0 msgAmortSupVA := VRAI FINSI
    P273 :=P271-P272	
    SI P273< 0 ALORS P272 := 0 P273 := 0 msgAmortSupVA := VRAI FINSI
    P279 :=P277-P278	
    SI P279< 0 ALORS P278 := 0 P279 := 0 msgAmortSupVA := VRAI FINSI
    P285 :=P283-P284	
    SI P285< 0 ALORS P284 := 0 P285 := 0 msgAmortSupVA := VRAI FINSI
    P291 :=P289-P290	
    SI P291< 0 ALORS P290 := 0 P291 := 0 msgAmortSupVA := VRAI FINSI
    P297 :=P295-P296	
    SI P297< 0 ALORS P296 := 0 P297 := 0 msgAmortSupVA := VRAI FINSI
    P303 :=P301-P302	
    SI P303< 0 ALORS P302 := 0 P303 := 0 msgAmortSupVA := VRAI FINSI
    P309 :=P307-P308	
    SI P309< 0 ALORS P308 := 0 P309 := 0 msgAmortSupVA := VRAI FINSI
    P315 :=P313-P314	
    SI P315< 0 ALORS P314 := 0 P315 := 0 msgAmortSupVA := VRAI FINSI
    P321 :=P319-P320	
    SI P321< 0 ALORS P320 := 0 P321 := 0 msgAmortSupVA := VRAI FINSI
    P327 :=P325-P326	
    SI P327< 0 ALORS P326 := 0 P327 := 0 msgAmortSupVA := VRAI FINSI
    P333 :=P331-P332	
    SI P333< 0 ALORS P332 := 0 P333 := 0 msgAmortSupVA := VRAI FINSI
    P339 :=P337-P338	
    SI P339< 0 ALORS P338 := 0 P339 := 0 msgAmortSupVA := VRAI FINSI
    P345 :=P343-P344	
    SI P345< 0 ALORS P344 := 0 P345 := 0 msgAmortSupVA := VRAI FINSI
    P351 :=P349-P350	
    SI P351< 0 ALORS P350 := 0 P351 := 0 msgAmortSupVA := VRAI FINSI
    P357 :=P355-P356	
    SI P357< 0 ALORS P356 := 0 P357 := 0 msgAmortSupVA := VRAI FINSI
    
    
    SI msgAmortSupVA ALORS
    	AfficheInfoAmortissementSupValeurActif{}
    FINSI
    
    --- SOUS TOTAL EXTENSION 1 et 2 --
    
    TOT_VA_EXT1 := 	P61 + P67 + P73 + P79 + P85 + P91 + P97 + P103 + P109 + P115 + P121 + P127 + P133 + P139 + P145 + P151 + P157 + P163 + P169 + P175 + P181 + P187 + P193 + P199 + P205 + 
    			P211 + P217 + P223 + P229 + P235 + P241 + P247 + P253 + P259 + P265 + P271 + P277 + P283 + P289 + P295 + P301 + P307 + P313 + P319 + P325 + P331 + P337 + P343 + P349 + P355
    
    TOT_AM_EXT1 := 	P62 + P68 + P74 + P80 + P86 + P92 + P98 + P104 + P110 + P116 + P122 + P128 + P134 + P140 + P146 + P152 + P158 + P164 + P170 + P176 + P182 + P188 + P194 + P200 + P206 + 
    			P212 + P218 + P224 + P230 + P236 + P242 + P248 + P254 + P260 + P266 + P272 + P278 + P284 + P290 + P296 + P302 + P308 + P314 + P320 + P326 + P332 + P338 + P344 + P350 + P356
    
    TOT_VR_EXT1 := 	P63 + P69 + P75 + P81 + P87 + P93 + P99 + P105 + P111 + P117 + P123 + P129 + P135 + P141 + P147 + P153 + P159 + P165 + P171 + P177 + P183 + P189 + P195 + P201 + P207 + 
    			P213 + P219 + P225 + P231 + P237 + P243 + P249 + P255 + P261 + P267 + P273 + P279 + P285 + P291 + P297 + P303 + P309 + P315 + P321 + P327 + P333 + P339 + P345 + P351 + P357
    
    TOT_PC_EXT1 := 	P64 + P70 + P76 + P82 + P88 + P94 + P100 + P106 + P112 + P118 + P124 + P130 + P136 + P142 + P148 + P154 + P160 + P166 + P172 + P178 + P184 + P190 + P196 + P202 + P208 + 
    			P214 + P220 + P226 + P232 + P238 + P244 + P250 + P256 + P262 + P268 + P274 + P280 + P286 + P292 + P298 + P304 + P310 + P316 + P322 + P328 + P334 + P340 + P346 + P352 + P358
    
    TOT_PVCT_EXT1 := 	P65 + P71 + P77 + P83 + P89 + P95 + P101 + P107 + P113 + P119 + P125 + P131 + P137 + P143 + P149 + P155 + P161 + P167 + P173 + P179 + P185 + P191 + P197 + P203 + P209 + 
    			P215 + P221 + P227 + P233 + P239 + P245 + P251 + P257 + P263 + P269 + P275 + P281 + P287 + P293 + P299 + P305 + P311 + P317 + P323 + P329 + P335 + P341 + P347 + P353 + P359
    
    TOT_PVLT_EXT1 := 	P66 + P72 + P78 + P84 + P90 + P96 + P102 + P108 + P114 + P120 + P126 + P132 + P138 + P144 + P150 + P156 + P162 + P168 + P174 + P180 + P186 + P192 + P198 + P204 + P210 + 
    			P216 + P222 + P228 + P234 + P240 + P246 + P252 + P258 + P264 + P270 + P276 + P282 + P288 + P294 + P300 + P306 + P312 + P318 + P324 + P330 + P336 + P342 + P348 + P354 + P360
    
    TOT_PVLTb_EXT1 := 	P66b + P72b + P78b + P84b + P90b + P96b + P102b + P108b + P114b + P120b + P126b + P132b + P138b + P144b + P150b + P156b + P162b + P168b + P174b + P180b + P186b + P192b + P198b + P204b + P210b + 
    			P216b + P222b + P228b + P234b + P240b + P246b + P252b + P258b + P264b + P270b + P276b + P282b + P288b + P294b + P300b + P306b + P312b + P318b + P324b + P330b + P336b + P342b + P348b + P354b + P360b
    
    TOT_PVLTc_EXT1 := 	P66c + P72c + P78c + P84c + P90c + P96c + P102c + P108c + P114c + P120c + P126c + P132c + P138c + P144c + P150c + P156c + P162c + P168c + P174c + P180c + P186c + P192c + P198c + P204c + P210c + 
    			P216c + P222c + P228c + P234c + P240c + P246c + P252c + P258c + P264c + P270c + P276c + P282c + P288c + P294c + P300c + P306c + P312c + P318c + P324c + P330c + P336c + P342c + P348c + P354c + P360c
    
    -- Extensions feuillet 2
    S2_TOT_PVCT_EXT1 := 	S2_P65 + S2_P71 + S2_P77 + S2_P83 + S2_P89 + S2_P95 + S2_P101 + S2_P107 + S2_P113 + S2_P119 + S2_P125 + S2_P131 + S2_P137 + S2_P143 + S2_P149 + S2_P155 + S2_P161 + S2_P167 + S2_P173 + S2_P179 + S2_P185 + S2_P191 + S2_P197 + S2_P203 + S2_P209 + 
    			S2_P215 + S2_P221 + S2_P227 + S2_P233 + S2_P239 + S2_P245 + S2_P251 + S2_P257 + S2_P263 + S2_P269 + S2_P275 + S2_P281 + S2_P287 + S2_P293 + S2_P299 + S2_P305 + S2_P311 + S2_P317 + S2_P323 + S2_P329 + S2_P335 + S2_P341 + S2_P347 + S2_P353 + S2_P359
    
    S2_TOT_PVLT_EXT1 := 	S2_P66 + S2_P72 + S2_P78 + S2_P84 + S2_P90 + S2_P96 + S2_P102 + S2_P108 + S2_P114 + S2_P120 + S2_P126 + S2_P132 + S2_P138 + S2_P144 + S2_P150 + S2_P156 + S2_P162 + S2_P168 + S2_P174 + S2_P180 + S2_P186 + S2_P192 + S2_P198 + S2_P204 + S2_P210 + 
    			S2_P216 + S2_P222 + S2_P228 + S2_P234 + S2_P240 + S2_P246 + S2_P252 + S2_P258 + S2_P264 + S2_P270 + S2_P276 + S2_P282 + S2_P288 + S2_P294 + S2_P300 + S2_P306 + S2_P312 + S2_P318 + S2_P324 + S2_P330 + S2_P336 + S2_P342 + S2_P348 + S2_P354 + S2_P360
    
    S2_TOT_PVLTb_EXT1 := 	S2_P66b + S2_P72b + S2_P78b + S2_P84b + S2_P90b + S2_P96b + S2_P102b + S2_P108b + S2_P114b + S2_P120b + S2_P126b + S2_P132b + S2_P138b + S2_P144b + S2_P150b + S2_P156b + S2_P162b + S2_P168b + S2_P174b + S2_P180b + S2_P186b + S2_P192b + S2_P198b + S2_P204b + S2_P210b + 
    			S2_P216b + S2_P222b + S2_P228b + S2_P234b + S2_P240b + S2_P246b + S2_P252b + S2_P258b + S2_P264b + S2_P270b + S2_P276b + S2_P282b + S2_P288b + S2_P294b + S2_P300b + S2_P306b + S2_P312b + S2_P318b + S2_P324b + S2_P330b + S2_P336b + S2_P342b + S2_P348b + S2_P354b + S2_P360b
    
    S2_TOT_PVLTc_EXT1 := 	S2_P66c + S2_P72c + S2_P78c + S2_P84c + S2_P90c + S2_P96c + S2_P102c + S2_P108c + S2_P114c + S2_P120c + S2_P126c + S2_P132c + S2_P138c + S2_P144c + S2_P150c + S2_P156c + S2_P162c + S2_P168c + S2_P174c + S2_P180c + S2_P186c + S2_P192c + S2_P198c + S2_P204c + S2_P210c + 
    			S2_P216c + S2_P222c + S2_P228c + S2_P234c + S2_P240c + S2_P246c + S2_P252c + S2_P258c + S2_P264c + S2_P270c + S2_P276c + S2_P282c + S2_P288c + S2_P294c + S2_P300c + S2_P306c + S2_P312c + S2_P318c + S2_P324c + S2_P330c + S2_P336c + S2_P342c + S2_P348c + S2_P354c + S2_P360c
###
'INTER2033D' 'Toutes fonctions'
    
    devise { devise }
    
    -------------------------------- TABLEAU 1A --------------------------------------------------------
    
    _607	:=	_601 + _603 - _605
    
    _610_C	:=	credit{ 14 }[ N_1 ] - credit { 145 }[ N_1 ]		
    
    SI _610 = ?	ALORS	_610 := _610_C	FINSI
    
    _612_C	:=	debit { 6872 } - debit{ 68725 } + debit { 6873 } + debit { 6874 }
    
    SI _612 = ?	ALORS	_612 := _612_C	FINSI
    
    _614_C	:=	credit { 7872 } - credit { 78725 } + credit { 7873 } + credit { 7874 }
    
    SI _614 = ?	ALORS	_614 := _614_C	FINSI
    
    _616_C	:=	credit{ 14 } - credit { 145 }	
    
    SI _616 = ?	ALORS	_616 := _616_C	FINSI
    
    _680	:=	_600		-- ligne 601 non intégrée dans total 
    	+	_610
    	+	_620
    	+	_630
    	+	_640
    	+	_650
    	+	_660
    
    _682	:=	_602
    	+	_612
    	+	_622
    	+	_632
    	+	_642
    	+	_652
    	+	_662
    
    _684	:=	_604
    	+	_614
    	+	_624
    	+	_634
    	+	_644
    	+	_654
    	+	_664
    
    
    _686	:=	_680 + _682 - _684
    
    -------------------------------- TABLEAU 1B --------------------------------------------------------
    
    _770	:=	2033D_AY + _700 + _710 + _720 + _730 + _740 + _750 + _760
    
    _775	:=	2033D_AZ + _705 + _715 + _725 + _735 + _745 + _755 + _765
    
    
    -------------------------------- TABLEAU 1C --------------------------------------------------------
    
    _780	:=	CP1 + CP3 + CP5 + CP7 + CP9 + C11 + C13 + _780b
    S2__780	:=	S2_CP1 + S2_CP3 + S2_CP5 + S2_CP7 + S2_CP9 + S2_C11 + S2_C13 + S2__780b
    
    _322	:=	_780
    S2__322	:=	S2__780
    
    INTER2033B {}
    
    SI classe{etat} # '*IS_RS'  ALORS
    	SI _860 = ?  OU _860 = _860_C 	ALORS 
    		_860_C	:=	_372 	-- Pour report sur 2033D
    		_860		:=	_860_C 
    	FINSI
    	S2__860_C	:=	?
    SINON
    	_860_C	:=	? 
    	SI S2__860 = ?  OU S2__860 = S2__860_C 	ALORS 
    		S2__860_C	:=	S2__372 	-- Pour report sur 2033D_2
    		S2__860		:=	S2__860_C 
    	FINSI
    FINSI
    
    -------------------------------- TABLEAU 2 --------------------------------------------------------

    _984 := _982 - _983 + _982Bis
    S2__984 := S2__982 - S2__983 + S2__982Bis
    _870 :=  _984 + _860
    S2__870 :=  S2__984 + S2__860
    
    -- report sur 2033B
    DEF_REP := _982
    S2_DEF_REP := S2__982
    _360 := _983
    S2__360_C	:=	_983

    -------------------------------- TABLEAU 6 --------------------------------------------------------
    SI NON EstVerrouille ALORS
    	_380	:=	debit {646} - _381
    	S2__380	:=	debit {646} - _381
    FINSI

    _388_C	:=	NCGA
    SI _388 = ?	ALORS	_388 := _388_C	FINSI

    affichage {}
    
    SI _680 <> 0 OU _682 <> 0 OU _684 <> 0 OU _686 <> 0 OU _607 <> 0 
    OU _770 <> 0 OU _775 <> 0 OU _780 <> 0
    OU _982 <> 0 OU _983 <> 0 OU _860 <> 0 OU _870 <> 0 
    OU _995 <> 0 OU _996 <> 0 OU _380 <> 0 OU  _381 <> 0 
    OU 2033D_202 <> 0 OU 2033D_203 <> 0 OU 2033D_204 <> 0 OU 2033D_205 <> 0 
    OU 2033D_206 <> 0 OU 2033D_207 <> 0 OU 2033D_208 <> 0 OU 2033D_211 <> 0 
    OU 2033D_800 <> ?
    OU 2033D_139 <> 0 OU _616 <> 0
    OU _381 <> 0 OU _380 <> 0 OU 2033D_374 <> 0 OU 2033D_378 <> 0 OU 2033D_399 <> 0
    OU 2033D_AJ <> 0 OU 2033D_AK <> 0
    ALORS
    	neant2033d	:=	?
    SINON
    	neant2033d	:=	'x'
    FINSI
###
'INTER2033Dext1' 'Toutes fonctions'
    
    _780b	:= CP15 + CP17 + CP19 + CP21 + CP23 + CP25 + CP27 + CP29 + CP31 + CP33 + CP35 + CP37 + CP39 + CP41 + 
    	CP43 +  CP45 + CP47 + CP49 + CP51 + CP53 + CP55 + CP57 + CP59 + CP61 + CP63 + CP65 + CP67 + CP69
    	 + CP71 + CP73 + CP75 + CP77 + CP79 + CP81 + CP83 + CP85 + CP87 + CP89 + CP91
    
    S2__780b	:= S2_CP15 + S2_CP17 + S2_CP19 + S2_CP21 + S2_CP23 + S2_CP25 + S2_CP27 + S2_CP29 + S2_CP31 + S2_CP33 + S2_CP35 + S2_CP37 + S2_CP39 + S2_CP41 + 
    	S2_CP43 +  S2_CP45 + S2_CP47 + S2_CP49 + S2_CP51 + S2_CP53 + S2_CP55 + S2_CP57 + S2_CP59 + S2_CP61 + S2_CP63 + S2_CP65 + S2_CP67 + S2_CP69
    	 + S2_CP71 + S2_CP73 + S2_CP75 + S2_CP77 + S2_CP79 + S2_CP81 + S2_CP83 + S2_CP85 + S2_CP87 + S2_CP89 + S2_CP91
    
    INTER2033D{}
###
'INTER2033F' 'Toutes fonctions'
    
    |
    	unNomLiasse<Chaine>
    |

    unNomLiasse := classe{etat}

    CODEP		:=	dossier.CodePostal
    ADR		:=	dossier.Adresse1 + ' ' + dossier.Adresse2 + ' ' + dossier.Adresse3
    NBA_C		:=	0
    nbA_M_C	:=	0
    nbA_P_C	:=	0
    npA_M_C	:=	0
    npA_P_C	:=	0
    
    POUR TOUT associe TEL QUE associe.TypeAss # 'Personne morale' FAIRE
    	nbA_M_C	+=	1
    	npA_M_C	+=	associe.nbTitres
    FIN FAIRE
    
    POUR TOUT associe TEL QUE associe.TypeAss # 'Personne physique' FAIRE
    	nbA_P_C	+=	1
    	npA_P_C	+=	associe.nbTitres
    FIN FAIRE
    
    SI nbA_M = ? ALORS
    	nbA_M	:=	nbA_M_C
    FINSI
    
    SI nbA_P = ? ALORS
    	nbA_P	:=	nbA_P_C
    FINSI
    
    NPA_C		:=	dossier.nbTitres
    
    SI npA_M = ? ALORS
    	npA_M	:=	npA_M_C
    FINSI
    
    SI npA_P = ? ALORS
    	npA_P	:=	npA_P_C
    FINSI
	
	2033F_GX := nbA_M + nbA_P
	2033F_GY := npA_M + npA_P
    
    -- Contrôles SIRET --
    SI controleSirenSaisiAssocieLiasse{unNomLiasse, '2033F', 'PMSI1', PMSI1, PMDE1} = FAUX ALORS PMSI1 := ? FINSI
    SI controleSirenSaisiAssocieLiasse{unNomLiasse, '2033F', 'PMSI2', PMSI2, PMDE2} = FAUX ALORS PMSI2 := ? FINSI
    SI controleSirenSaisiAssocieLiasse{unNomLiasse, '2033F', 'PMSI3', PMSI3, PMDE3} = FAUX ALORS PMSI3 := ? FINSI
    SI controleSirenSaisiAssocieLiasse{unNomLiasse, '2033F', 'PMSI4', PMSI4, PMDE4} = FAUX ALORS PMSI4 := ? FINSI
    SI controleSirenSaisiAssocieLiasse{unNomLiasse, '2033F', 'PMSI5', PMSI5, PMDE5} = FAUX ALORS PMSI5 := ? FINSI
    SI controleSirenSaisiAssocieLiasse{unNomLiasse, '2033F', 'PMSI6', PMSI6, PMDE6} = FAUX ALORS PMSI6 := ? FINSI
    SI controleSirenSaisiAssocieLiasse{unNomLiasse, '2033F', 'PMSI7', PMSI7, PMDE7} = FAUX ALORS PMSI7 := ? FINSI
    SI controleSirenSaisiAssocieLiasse{unNomLiasse, '2033F', 'PMSI8', PMSI8, PMDE8} = FAUX ALORS PMSI8 := ? FINSI
    SI controleSirenSaisiAssocieLiasse{unNomLiasse, '2033F', 'PMSI9', PMSI9, PMDE9} = FAUX ALORS PMSI9 := ? FINSI
    SI controleSirenSaisiAssocieLiasse{unNomLiasse, '2033F', 'PMSI10', PMSI10, PMDE10} = FAUX ALORS PMSI10 := ? FINSI
    SI controleSirenSaisiAssocieLiasse{unNomLiasse, '2033F', 'PMSI11', PMSI11, PMDE11} = FAUX ALORS PMSI11 := ? FINSI
    SI controleSirenSaisiAssocieLiasse{unNomLiasse, '2033F', 'PMSI12', PMSI12, PMDE12} = FAUX ALORS PMSI12 := ? FINSI
    SI controleSirenSaisiAssocieLiasse{unNomLiasse, '2033F', 'PMSI13', PMSI13, PMDE13} = FAUX ALORS PMSI13 := ? FINSI
    
    SI PMFJ1 <> ? OU PMDE1 <> ? OU PMSI1 <> ? OU PMPD1 <> ? 
    OU PMNP1 <> ? OU PMNU1 <> ? OU PMLV1 <> ? OU PMCD1 <> ? 
    OU PMCO1 <> ? OU PMPA1 <> ? 
    OU PPTI1 <> ? OU PPNP1 <> ? OU PPPR1 <> ? OU PPNM1 <> ? OU PPPD1 <> ? OU PPNPA1 <> ? 
    OU PPND1 <> ? OU PPDP1 <> ? OU PPCN1 <> ? OU PPPN1 <> ? OU PPNU1 <> ? OU PPLV1 <> ?
    OU PPCD1 <> ? OU PPCO1 <> ? OU PPPA1 <> ? ALORS
    	neant2033f	:=	?
    SINON
    	neant2033f	:=	'x'
    FINSI
###
'INTER2033G' 'Toutes fonctions'
    
    |
    	i<Entier> compteur<Entier> k<Entier>
    	unNomLiasse<Chaine>
    	extension2033G<Objet> 	toutesExtensions<Objet>
    |
    
    extension2033G	::=	'Extensions_25_IS_RS'   
    unNomLiasse := classe{etat}
    
    -- Contrôles SIRET --
    
    SI controleSirenSaisiLiasse{unNomLiasse, '2033G', 'FPSIR1', FPSIR1} = FAUX ALORS FPSIR1 := ? FINSI
    SI controleSirenSaisiLiasse{unNomLiasse, '2033G', 'FPSIR2', FPSIR2} = FAUX ALORS FPSIR2 := ? FINSI
    SI controleSirenSaisiLiasse{unNomLiasse, '2033G', 'FPSIR3', FPSIR3} = FAUX ALORS FPSIR3 := ? FINSI
    SI controleSirenSaisiLiasse{unNomLiasse, '2033G', 'FPSIR4', FPSIR4} = FAUX ALORS FPSIR4 := ? FINSI
    SI controleSirenSaisiLiasse{unNomLiasse, '2033G', 'FPSIR5', FPSIR5} = FAUX ALORS FPSIR5 := ? FINSI
    SI controleSirenSaisiLiasse{unNomLiasse, '2033G', 'FPSIR6', FPSIR6} = FAUX ALORS FPSIR6 := ? FINSI
    SI controleSirenSaisiLiasse{unNomLiasse, '2033G', 'FPSIR7', FPSIR7} = FAUX ALORS FPSIR7 := ? FINSI
    SI controleSirenSaisiLiasse{unNomLiasse, '2033G', 'FPSIR8', FPSIR8} = FAUX ALORS FPSIR8 := ? FINSI
    SI controleSirenSaisiLiasse{unNomLiasse, '2033G', 'FPSIR9', FPSIR9} = FAUX ALORS FPSIR9 := ? FINSI
    SI controleSirenSaisiLiasse{unNomLiasse, '2033G', 'FPSIR10', FPSIR10} = FAUX ALORS FPSIR10 := ? FINSI
    SI controleSirenSaisiLiasse{unNomLiasse, '2033G', 'FPSIR11', FPSIR11} = FAUX ALORS FPSIR11 := ? FINSI
    SI controleSirenSaisiLiasse{unNomLiasse, '2033G', 'FPSIR12', FPSIR12} = FAUX ALORS FPSIR12 := ? FINSI
    SI controleSirenSaisiLiasse{unNomLiasse, '2033G', 'FPSIR13', FPSIR13} = FAUX ALORS FPSIR13 := ? FINSI
    SI controleSirenSaisiLiasse{unNomLiasse, '2033G', 'FPSIR14', FPSIR14} = FAUX ALORS FPSIR14 := ? FINSI
    SI controleSirenSaisiLiasse{unNomLiasse, '2033G', 'FPSIR15', FPSIR15} = FAUX ALORS FPSIR15 := ? FINSI
    SI controleSirenSaisiLiasse{unNomLiasse, '2033G', 'FPSIR16', FPSIR16} = FAUX ALORS FPSIR16 := ? FINSI
    SI controleSirenSaisiLiasse{unNomLiasse, '2033G', 'FPSIR17', FPSIR17} = FAUX ALORS FPSIR17 := ? FINSI
    
    i := 18
    TANT QUE i<= 26 FAIRE
    	SI controleSirenSaisiLiasse{unNomLiasse, '2033G', 'FPSIR' + i, etat!{'FPSIR' + i}chaine} = FAUX	ALORS etat!{'FPSIR' + i}chaine := ? FINSI
    	i += 1
    FINFAIRE
    
    -- COMPTAGE DES FILIALES SAISIES --
    
    i := 0 
    nbTotFiliales := 0
    
    TANT QUE i < 150 FAIRE
    	i += 1
    	SI taille{etat!{'FPDE' + i }chaine} >= 1		ALORS	nbTotFiliales += 1	FINSI
    FIN FAIRE

	toutesExtensions	:=	remonterExtensions{'2033G_EXT'}
	SI nbElements{toutesExtensions} > 0 ALORS
		i	:=	1
		compteur 	:= 	9
		TANT QUE i <= nbElements{toutesExtensions} FAIRE
			extension2033G	:=	toutesExtensions.[i]
			k	:=	9
			TANT QUE k <= 17 FAIRE

				SI extension2033G!{'FPDE'+k}chaine <> ? ALORS nbTotFiliales += 1 FINSI	

				k	+=	1
				compteur 	+=	1
			FIN FAIRE
			i	+=	1
		FINFAIRE
	FIN SI
    
    SI FPFJ1 <> ? OU FPDE1 <> ? OU FPSIR1 <> ? OU FPPCT1 <> ? 
    OU FPNUM1 <> ? OU  FPVO1 <> ? OU  FPCOD1 <> ? 
    OU  FPCOM1 <> ? OU  FPPAY1 <> ? ALORS
    	neant2033g	:=	?
    SINON
    	neant2033g	:=	'x'
    FINSI
###
'INTER2065' 'Toutes fonctions'
###
'INTER2067' 'Toutes fonctions'
    
    devise {devise }

    CADE_C := arrondirMonnaieSansDecimale{debit{6234}}
    SI CADE = ? ALORS CADE	:=	CADE_C		FINSI
    
    RECE_C := arrondirMonnaieSansDecimale{debit{6257}}
    SI RECE = ? ALORS RECE	:= 	RECE_C		FINSI
    
    ----------------FIXATION DES DATES SUR 2067-------------------------
    SI jour { dateDebutReel } <> 1 OU mois { dateDebutReel } <> 1 OU jour { dateFinReel } <> 31  OU mois { dateFinReel } <> 12 ALORS
    	du := dateDebutReel
    	au := dateFinReel
    	ANNEE := ?
    SINON
    	du := ?
    	au := ?
    	ANNEE := annee { dateFinReel } 
    FINSI
    
    ANNEE2067	:= annee { dateFinReel } 
    ---------------------------------------------------------------------------------------
    
    TRF1	:=	MRN1 + MIA1 + VAN1 + RDP1
    TRF2	:=	MRN2 + MIA2 + VAN2 + RDP2
    TRF3	:=	MRN3 + MIA3 + VAN3 + RDP3
    TRF4	:=	MRN4 + MIA4 + VAN4 + RDP4
    TRF5	:=	MRN5 + MIA5 + VAN5 + RDP5
    TRF6	:=	MRN6 + MIA6 + VAN6 + RDP6
    TRF7	:=	MRN7 + MIA7 + VAN7 + RDP7
    TRF8	:=	MRN8 + MIA8 + VAN8 + RDP8
    TRF9	:=	MRN9 + MIA9 + VAN9 + RDP9
    TRF10	:=	MRN10 + MIA10 + VAN10 + RDP10
    
    TRD1	:=	TRF1 + FVD1 + DCV1 + DCI1
    TRD2	:=	TRF2 + FVD2 + DCV2 + DCI2
    TRD3	:=	TRF3 + FVD3 + DCV3 + DCI3
    TRD4	:=	TRF4 + FVD4 + DCV4 + DCI4
    TRD5	:=	TRF5 + FVD5 + DCV5 + DCI5
    TRD6	:=	TRF6 + FVD6 + DCV6 + DCI6
    TRD7	:=	TRF7 + FVD7 + DCV7 + DCI7
    TRD8	:=	TRF8 + FVD8 + DCV8 + DCI8
    TRD9	:=	TRF9 + FVD9 + DCV9 + DCI9
    TRD10	:=	TRF10 + FVD10 + DCV10 + DCI10
    
    MRNT	:=	MRN1 + MRN2 +  MRN3 + MRN4 + MRN5
    	+		MRN6 +MRN7 + MRN8 + MRN9 + MRN10
    MIAT	:=	MIA1 + MIA2 +  MIA3 + MIA4 + MIA5
    	+		MIA6 +MIA7 + MIA8 + MIA9 + MIA10
    VANT	:=	VAN1 + VAN2 +  VAN3 + VAN4 + VAN5
    	+		VAN6 +VAN7 + VAN8 + VAN9 + VAN10
    RDPT	:=	RDP1 + RDP2 +  RDP3 + RDP4 + RDP5
    	+		RDP6 +RDP7 + RDP8 + RDP9 + RDP10
    TRFT	:=	TRF1 + TRF2 +  TRF3 + TRF4 + TRF5
    	+		TRF6 +TRF7 + TRF8 + TRF9 + TRF10
    FVDT	:=	FVD1 + FVD2 +  FVD3 + FVD4 + FVD5
    	+		FVD6 +FVD7 + FVD8 + FVD9 + FVD10
    DCVT	:=	DCV1 + DCV2 +  DCV3 + DCV4 + DCV5
    	+		DCV6 +DCV7 + DCV8 + DCV9 + DCV10
    DCIT		:=	DCI1 + DCI2 +  DCI3 + DCI4 + DCI5
    	+		DCI6 +DCI7 + DCI8 + DCI9 + DCI10
    TRDT	:=	TRD1 + TRD2 +  TRD3 + TRD4 + TRD5
    	+		TRD6 +TRD7 + TRD8 + TRD9 + TRD10
    
    TAF		:=	CADE + RECE
    
    ---------------CADRE C---------------------------------
    TDEX_C := arrondirMonnaieSansDecimale{TRDT} + arrondirMonnaieSansDecimale{TAF}
    SI TDEX	= ? OU TDEX = TDEX_C ALORS	
    	TDEX	:=	TDEX_C		
    FINSI
    
    BIEX_C	:=	arrondirMonnaieSansDecimale{_352}
    SI BIEX = ? OU BIEX=BIEX_C ALORS		
    	BIEX	:=	BIEX_C		
    FINSI
    ------------------------------------------------------------------
###
'INTER2468' 'Toutes fonctions'
	
###
'INTERCALC219BF4' 'Toutes fonctions'
    
    SI ADSS1 = ? ALORS
    	ADSS1	:=	ADSS1_C
    FINSI
    
    SI ADSS2 = ? ALORS
    	ADSS2	:=	ADSS2_C
    FINSI
    
    SI ADSS3 = ? ALORS
    	ADSS3	:=	ADSS3_C
    FINSI
    
    SI CALC_a = ? ALORS
    	CALC_a	:=	CALC_a_C
    FINSI

    SI CALC_i = ? ALORS
    	CALC_i	:=	CALC_i_C
    FINSI
    
    SI CALC_g = ? ALORS
    	CALC_g	:=	CALC_g_C
    FINSI
    
    CALC_Tot1 := CALC_h + CALC_i + CALC_j + CALC_k
    
    CALC_Tot2 := CALC_a - CALC_c - CALC_h - CALC_i
    
    CALC_Tot3 := CALC_d - CALC_j - CALC_k
    
    0A1_C		:=	dossier.RaisonSociale
    0A6_C		:=	dossier.Siret
    0A7_C		:=	dossier.Ape
    0A1Adr_C	:=	dossier.Adresse1+' '+dossier.Adresse2+' '+dossier.Adresse3+' '+dossier.CodePostal+' '+dossier.Ville
    
    SI 0A1 = ? ALORS
    	0A1	:=	0A1_C
    FINSI
    
    SI controleSiretSaisiLiasse{classe{etat}, 'CALC219BF4', '0A6', 0A6} = FAUX	ALORS	0A6	:=	?	FINSI
    
    SI 0A6 = ? ALORS
    	0A6	:=	0A6_C
    FINSI
    
    SI 0A7 = ? ALORS
    	0A7	:=	0A7_C
    FINSI
    
    SI 0A1Adr = ? ALORS
    	0A1Adr	:=	0A1Adr_C
    FINSI
    
    message {}
###
'INTERDEMAGRECOR' 'Toutes fonctions'
    
    DERS1_C	:=	dossier.RaisonSociale
    SI DERS1= ?  ALORS 	DERS1	:=	DERS1_C	FINSI
    
    DCE_C	:=	dossier.DateDeCreation
    SI DCE = ?  ALORS 	DCE	:=	DCE_C	FINSI
    
    FJUR_C	:=	dossier.formeJuridique
    SI FJUR= ?  ALORS 	FJUR	:=	FJUR_C	FINSI
    
    LSS_C	:=	dossier.Ville
    SI LSS= ?  ALORS 	LSS	:=	LSS_C	FINSI
    
    NACT_C	:=	dossier.Activite
    SI NACT= ?  ALORS 	NACT	:=	NACT_C	FINSI

    SI PAP2 <> ? ET PAP2 < PAPR ALORS
    	info{'La date de fin de période ne peut être inférieure à la date de début'}
    	PAP2 := ?
    FIN SI    
###
'INTERDEMAGREZFU' 'Toutes fonctions'
    
    DCE_FU_C	:=	dossier.DateDeCreation
    SI DCE_FU = ?  ALORS 	DCE_FU	:=	DCE_FU_C	FINSI
    
    DERS1_FU_C	:=	dossier.RaisonSociale
    SI DERS1_FU = ?  ALORS 	DERS1_FU	:=	DERS1_FU_C	FINSI
    
    FJUR_FU_C	:=	dossier.formeJuridique
    SI FJUR_FU = ?  ALORS 	FJUR_FU	:=	FJUR_FU_C	FINSI
    
    LSS_FU_C	:=	dossier.Ville
    SI LSS_FU= ?  ALORS 	LSS_FU	:=	LSS_FU_C	FINSI
    
    NACT_FU_C	:=	dossier.Activite
    SI NACT_FU = ?  ALORS 	NACT_FU	:=	NACT_FU_C	FINSI
###
'INTERDRESZFUREC' 'Toutes fonctions'
    
    TT_RH_ZFU	:=	monnaie{''+ (arrondi{PRDA_ZFU} + arrondi{RSRFSP_RC_ZFU} + arrondi{RCTP_RD_ZFU} + arrondi{SLAC_ZFU} + arrondi{EXCDF_ZFU} + arrondi{RPIC_RG_ZFU})}
    
    TT_SH_ZFU	:=	monnaie{''+ (arrondi{RSRFSP_SC_ZFU} + arrondi{RCTP_SD_ZFU} + arrondi{RPIC_SG_ZFU})}
    
    BDPI_ZFU	:=	BAIDAER_ZFU - TT_RH_ZFU
    
    PVN_ZFU	:=	PVNLT_ZFU - TT_SH_ZFU
    
    INTERDRESZFUVER {}	-- cf recalcul bénéfice imposable en fin de page
###
'INTERDRESZFUVER' 'Toutes fonctions'
    
    ZFUV_11_C :=	(ZFUV_1 / ZFUV_10 ) * 100
    SI ZFUV_11_C > 100 ALORS	
    	ZFUV_11_C := 100	
    FINSI
    SI ZFUV_11_C > 0 ET ZFUV_11_C < 100 ALORS
    	ZFUV_11_C := arrondiSup {monnaie {ZFUV_11_C}}
    FINSI
    SI ZFUV_11 > 0 ET ZFUV_11 < 100 ALORS
    	ZFUV_11 := arrondiSup {monnaie {ZFUV_11}}
    FINSI
    
    SI ZFUV_11 = ? ALORS
    	ZFUV_11 := ZFUV_11_C
    FINSI
    
    ZFUV_14 := 	ZFUV_12 * ZFUV_11 / 100
    ZFUV_18 := 	ZFUV_13 * ZFUV_11 / 100
    
    ZFUV_XC	:=	ZFUV_27
    
    SI NON importEDI ALORS
    	SI ZFUV_22 > ZFUV_XC ALORS
    		ZFUV_22	:=	ZFUV_XC
    	FINSI
    FIN SI
    
    ZFUV_XD	:=	ZFUV_XC - ZFUV_22
    
    SI NON importEDI ALORS
    	SI ZFUV_23 > ZFUV_XD ALORS
    		ZFUV_23	:=	ZFUV_XC - ZFUV_22
    	FINSI	
    FIN SI
    
    ZFUV_24 :=	BAIDAER_ZFU	- ZFUV_22	
    ZFUV_25 :=	PVNLT_ZFU	- ZFUV_23
###
'INTERLTENG219B4' 'Toutes fonctions'
    
	|
		i<Entier>messPCentLoc<Chaine>
	|

	SI EstVerrouille ALORS
		SORTIR VRAI
	FINSI

    0A1_C		:=	dossier.RaisonSociale
    0A6_C		:=	dossier.Siret
    0A7_C		:=	dossier.Ape
    
    SI 0A1 = ? ALORS
    	0A1	:=	0A1_C
    FINSI
    
    SI controleSiretSaisiLiasse{classe{etat}, 'LTENG219B4', '0A6', 0A6} = FAUX	ALORS	0A6	:=	?	FINSI
    
    SI 0A6 = ? ALORS
    	0A6	:=	0A6_C
    FINSI
    
    SI 0A7 = ? ALORS
    	0A7	:=	0A7_C
    FINSI
    
    SI ADSS1 = ? ALORS
    	ADSS1	:=	ADSS1_C
    FINSI
    
    SI ADSS2 = ? ALORS
    	ADSS2	:=	ADSS2_C
    FINSI
    
    SI ADSS3 = ? ALORS
    	ADSS3	:=	ADSS3_C
    FINSI
   
	messPCentLoc := 'Le pourcentage doit être compris entre 0 et 100'
	i	:=	1
	TANT QUE i <= 22 FAIRE
		SI etat!{'PCPAR'+i}reel > 100 OU etat!{'PCPAR'+i}reel < 0 ALORS
			info{messPCentLoc}
			message{messPCentLoc + ' ; feuillet LTENG219B4 ; attribut ' + 'PCPAR'+i}
			etat!{'PCPAR'+i}reel	:=	?
		FIN SI

		SI etat!{'PCDET'+i}reel > 100 OU etat!{'PCDET'+i}reel < 0 ALORS
			info{messPCentLoc}
			message{messPCentLoc + ' ; feuillet LTENG219B4 ; attribut ' + 'PCDET'+i}
			etat!{'PCDET'+i}reel	:=	?
		FIN SI

		SI etat!{'DSFT'+i}reel > 100 OU etat!{'DSFT'+i}reel < 0 ALORS
			info{messPCentLoc}
			message{messPCentLoc + ' ; feuillet LTENG219B4 ; attribut ' + 'DSFT'+i}
			etat!{'DSFT'+i}reel	:=	?
		FIN SI

		SI etat!{'MDFT'+i}reel > 100 OU etat!{'MDFT'+i}reel < 0 ALORS
			info{messPCentLoc}
			message{messPCentLoc + ' ; feuillet LTENG219B4 ; attribut ' + 'MDFT'+i}
			etat!{'MDFT'+i}reel	:=	?
		FIN SI

		i	+=	1
	FIN FAIRE

###
'INTEROPTANC219F' 'Toutes fonctions'
    
    0A1_C		:=	dossier.RaisonSociale
    0A6_C		:=	dossier.Siret
    0A7_C		:=	dossier.Ape
    0A1Adr_C	:=	dossier.Adresse1+' '+dossier.Adresse2+' '+dossier.Adresse3+' '+dossier.CodePostal+' '+dossier.Ville
    
    SI 0A1 = ? ALORS
    	0A1	:=	0A1_C
    FINSI
    
    SI controleSiretSaisiLiasse{classe{etat}, 'OPTANC219F', '0A6', 0A6} = FAUX	ALORS	0A6	:=	?	FINSI
    
    SI 0A6 = ? ALORS
    	0A6	:=	0A6_C
    FINSI
    
    SI 0A7 = ? ALORS
    	0A7	:=	0A7_C
    FINSI
    
    SI 0A1Adr = ? ALORS
    	0A1Adr	:=	0A1Adr_C
    FINSI
    
    SI ADSS1 = ? ALORS
    	ADSS1	:=	ADSS1_C
    FINSI
    
    SI ADSS2 = ? ALORS
    	ADSS2	:=	ADSS2_C
    FINSI
    
    SI ADSS3 = ? ALORS
    	ADSS3	:=	ADSS3_C
    FINSI
    
    
    SI SIGN = ? ALORS
    	SIGN	:=	SIGN_C
    FINSI
    SI SIGQ = ? ALORS
    	SIGQ	:=	SIGQ_C
    FINSI
    
    LIEU_C	:=	dossier.Ville
    SI LIEU = ? ALORS LIEU := LIEU_C FINSI
        
    dateLiasse_C	:=	aujourdhui {} 
    SI dateLiasse = ? ALORS dateLiasse := dateLiasse_C FINSI
###
'INTERZFCFICHE01' 'Toutes fonctions'
    
    TT_BI	:=	PRDA + RSRFSP_BC + RCTP_BD + SLAC + EXCDF + RPIC_BG + SETE_BH
    
    TT_CI	:=	RSRFSP_CC + RCTP_CD + RPIC_CG + SETE_CH
    
    BSDPB	:=	BAIDAER - TT_BI
    
    PVN	:=	PVNLT	- TT_CI
###
'INTERZFCFICHE02' 'Toutes fonctions'
    
    EBMI3		:=	EBMI1 * EBMI2/100
    
    SVSRAEC2	:=	SVSRAEC1 * 36/100
    
    TTZFC		:=	VLFA	+ EBMI3 + SVSRAEC2 
    
    ----------------------------------------------------------------------
    PEITP2_C	:=	?
    SI	(TTZFC/STEITP)*100  < 100  ALORS
    	PEITP2_C	:=	(TTZFC/STEITP) * 100
    FINSI
    SI	(TTZFC/STEITP)*100  > 99  ALORS
    	PEITP2_C	:=	100
    FINSI
    
    SI PEITP2	= ?  ALORS
    PEITP2	:=	PEITP2_C
    FINSI
     ------------------------------------------------------------------------
    
    BSEE		:=	(BSDP * PEITP2) / 100
    
    PVNSEE	:=	(PVNZFC * PEITP2) / 100
    
    ------------------------------------------------------------------------
    
    BE2ZFC		:=	BE1ZFC * 30 / ECCE
    PVL2ZFC		:=	PVL1ZFC* 50 / ECCE
    BEML2ZFC	:=	BEML1ZFC* 30 / ECCE
    PVLML2ZFC	:=	PVLML1ZFC* 50 / ECCE

    SI DPA1 > dateFinReel ALORS
    	info{'Vous ne pouvez pas saisir une date supérieure à la fin de l''exercice'}
    	DPA1 := ?
    FIN SI
    SI DPA2 > dateFinReel ALORS
    	info{'Vous ne pouvez pas saisir une date supérieure à la fin de l''exercice'}
    	DPA2 := ?
    FIN SI

###
'INTERZFCFICHE03' 'Toutes fonctions'
    
    |
    	plafond<Monnaie> 
    	effectif<Entier>
    |
    
    BE1_ZFC3	:=	entier{BE1_ZFC3}
    effectif	:=	EFC2_ZFC3
    
    SI ECF1_ZFC3 <> ? ALORS
    	effectif	:=	ECF1_ZFC3
    FINSI
    
    BE2_ZFC3	:=	?
    
    SI BE1_ZFC3 > 0 ALORS
    	BE2_ZFC3	:=	BE1_ZFC3 * ((ECCE - effectif)/ECCE)
    FINSI
    
    PVLTE2_ZFC3	:=	?
    
    SI PVLTE1_ZFC3 > 0 ALORS
    	PVLTE2_ZFC3	:=	PVLTE1_ZFC3 * ((ECCE - effectif)/ECCE)
    FINSI
    
    BEAE_ZFC3_C	:=	BE2_ZFC3
    SI BEAE_ZFC3	 = ?  	ALORS	BEAE_ZFC3	:=	BEAE_ZFC3_C	FINSI
    
    PVEAE_ZFC3_C	:=	PVLTE2_ZFC3
    SI PVEAE_ZFC3	 = ?  ALORS	PVEAE_ZFC3	:=	PVEAE_ZFC3_C	FINSI
    
    TXV_ZFC3	:=	BR_ZFC3  +  BEAE_ZFC3
    
    TXW_ZFC3	:=	PVR_ZFC3  + PVEAE_ZFC3
    
    SI TXV_ZFC3 < 61000 ALORS
    	PBE_ZFC3	:=	TXV_ZFC3
    SINON
    	PBE_ZFC3	:=	61000
    FINSI
    
    plafond	:=	61000 - PBE_ZFC3
    
    SI TXW_ZFC3 < plafond ALORS
    	PPVE_ZFC3	:=	TXW_ZFC3
    SINON
    	PPVE_ZFC3	:=	plafond
    FINSI
    
    BEI_ZFC3	:=	BAIDAER - PBE_ZFC3
    
    PVI_ZFC3	:=	PVNLT - PPVE_ZFC3
###
'LTENG219B4_1' 'Toutes fonctions'
    INTERLTENG219B4{}
###
'OUVERTURE' 'Toutes fonctions'
    impression { 'entete.ps' }
    impression { 'compta/25/liasse.ps' }
###
'PAGE_2031' 'Toutes fonctions'
    impressionDirecte {'compta/25/2031_1.fnd'}
    impression {'compta/25/2033d_c.fnd'}
    impression {'fin_page'}
###
'PAGE_2031Bis' 'Toutes fonctions'
    impressionDirecte {'compta/25/2031_2.fnd'}
    impression {'compta/25/2031b_c.fnd'}
    impression {'fin_page'}
###
'PAGE_2031Bis_EXT' 'Toutes fonctions'
    impressionDirecte {'compta/25/extens/2031bisext.fnd'}
    impression {'fin_page'}
###
'PAGE_2031Bis_EXT1' 'Toutes fonctions'
    impressionDirecte {'compta/25/extens/2031bisext1.fnd'}
    impression{'compta/25/extens/2031bisext_c.fnd'}
    impression {'fin_page'}
###
'PAGE_2031Bis_EXT2' 'Toutes fonctions'
    impression {'compta/25/extens/2031BISext2.fnd'}
    impression {'fin_page'}
###
'PAGE_2031Ter' 'Toutes fonctions'
    impression {'compta/25/2031_3.fnd'}
    impression {'fin_page'}
###
'PAGE_2031TER_EXT1' 'Toutes fonctions'
    impression {'compta/25/extens/2031TERext1.fnd'}
    impression {'fin_page'}
###
'PAGE_2033A' 'Toutes fonctions'
    impressionDirecte {'compta/25/2033a.fnd'}
    impression {'compta/25/2033a_c.fnd'}
    impression {'fin_page'}
###
'PAGE_2033B' 'Toutes fonctions'
    impressionDirecte {'compta/25/2033b.fnd'}
    impression {'compta/25/2033b_c.fnd'}
    impression {'fin_page'}
###
'PAGE_2033B_2' 'Toutes fonctions'
    impressionDirecte {'compta/25/2033b_2.fnd'}
    impression {'compta/25/2033b_2_c.fnd'}
    impression {'fin_page'}
###
'PAGE_2033B_EXT1' 'Toutes fonctions'
    impression {'compta/25/extens/2033Bext1.fnd'}
    impression {'fin_page'}
###
'PAGE_2033B_2_EXT1' 'Toutes fonctions'
    impression {'compta/25/extens/2033Bext1.fnd'}
    impression {'fin_page'}
###
'PAGE_2033C' 'Toutes fonctions'
    impressionDirecte {'compta/25/2033c.fnd'}
    impression {'compta/25/2033c2.fnd'}
    impression {'fin_page'}
###
'PAGE_2033C_2' 'Toutes fonctions'
    impressionDirecte {'compta/25/2033c_2.fnd'}
    impression {'compta/25/2033c2.fnd'}
    impression {'fin_page'}
###
'PAGE_2033C_EXT1' 'Toutes fonctions'
    impression {'compta/25/extens/2033Cext1.fnd'}
    impression {'fin_page'}
###
'PAGE_2033C_2_EXT1' 'Toutes fonctions'
    impression {'compta/25/extens/2033Cext1.fnd'}
    impression {'fin_page'}
###
'PAGE_2033C_EXT2' 'Toutes fonctions'
    impression {'compta/25/extens/2033Cext2.fnd'}
    impression {'fin_page'}
###
'PAGE_2033C_2_EXT2' 'Toutes fonctions'
    impression {'compta/25/extens/2033Cext2.fnd'}
    impression {'fin_page'}
###
'PAGE_2033D' 'Toutes fonctions'
    impressionDirecte {'compta/25/2033d.fnd'}
    impression {'compta/25/2033d_c.fnd'}
    impression {'fin_page'}
###
'PAGE_2033D_2' 'Toutes fonctions'
    impressionDirecte {'compta/25/2033d_2.fnd'}
    impression {'compta/25/2033d_c.fnd'}
    impression {'fin_page'}
###
'PAGE_2033D_EXT1' 'Toutes fonctions'
    impression {'compta/25/extens/2033Dext1.fnd'}
    impression {'fin_page'}
###
'PAGE_2033D_2_EXT1' 'Toutes fonctions'
    impression {'compta/25/extens/2033Dext1.fnd'}
    impression {'fin_page'}
###
'PAGE_2033D_EXT2' 'Toutes fonctions'
    impression {'compta/25/extens/2033Dext2.fnd'}
    impression {'fin_page'}
###
'PAGE_2033E' 'Toutes fonctions'
    impressionDirecte {'compta/25/2033e.fnd'}
    impression {'compta/25/2033e_c.fnd'}
    impression {'fin_page'}
###
'PAGE_2033F' 'Toutes fonctions'
    impression {'compta/25/2033f.fnd'}
    impression {'fin_page'}
###
'PAGE_2033F_EXT1' 'Toutes fonctions'
    impression {'compta/25/extens/2033fext1.fnd'}
    impression {'fin_page'}
###
'PAGE_2033F_EXT2' 'Toutes fonctions'
    impression {'compta/25/extens/2033fext2.fnd'}
    impression {'fin_page'}
###
'PAGE_2033G' 'Toutes fonctions'
    impression {'compta/25/2033g.fnd'}
    impression {'fin_page'}
###
'PAGE_2033G_EXT' 'Toutes fonctions'
    impression {'compta/25/extens/2033gext.fnd'}
    impression {'fin_page'}
###
'PAGE_2033G_EXT2' 'Toutes fonctions'
    impression {'compta/25/extens/2033gext2.fnd'}
    impression {'fin_page'}
###
'PAGE_2065' 'Toutes fonctions'
    impressionDirecte {'compta/25/2065_1.fnd'}
    impression {'compta/25/2065_c.fnd'}
    impression {'fin_page'}
###
'PAGE_2065Bis' 'Toutes fonctions'
    impressionDirecte {'compta/25/2065_2.fnd'}
    impression {'compta/25/2065_c2.fnd'}
    impression {'fin_page'}
###
'PAGE_2065BIS_EXT1' 'Toutes fonctions'
    impression {'compta/25/extens/2065bisext1.fnd'}
    impression {'fin_page'}
###
'PAGE_2065BIS_EXT2' 'Toutes fonctions'
    impression {'compta/25/extens/2065bisext2.fnd'}
    impression {'fin_page'}
###
'PAGE_2065Ter' 'Toutes fonctions'
    impression {'compta/25/2065_3.fnd'}
    impression {'fin_page'}
###
'PAGE_2065TER_EXT1' 'Toutes fonctions'
    impression {'compta/25/extens/2065TERext1.fnd'}
    impression {'fin_page'}
###
'PAGE_2067' 'Toutes fonctions'
    impressionDirecte {'compta/25/2067.fnd'}
    impression {'fin_page'}
###
'PAGE_2067BIS' 'Toutes fonctions'
    impressionDirecte {'compta/25/2067B.fnd'}
    impression {'compta/25/2067B_c.fnd'}
    impression {'fin_page'}
###
'PAGE_CA17PROREC' 'Toutes fonctions'
    impression {'compta/25/annexes/CA17PROREC.fnd'}
    impression {'fin_page'}
###
'PAGE_CA18CHAPAY' 'Toutes fonctions'
    impression {'compta/25/annexes/CA18CHAPAY.fnd'}
    impression {'fin_page'}
###
'PAGE_CA19CHAREP' 'Toutes fonctions'
    impression {'compta/25/annexes/CA19CHAREP.fnd'}
    impression {'fin_page'}
###
'PAGE_CA20CHAAVA' 'Toutes fonctions'
    impression {'compta/25/annexes/CA20CHAAVA.fnd'}
    impression {'fin_page'}
###
'PAGE_CA21PROAVA' 'Toutes fonctions'
    impression {'compta/25/annexes/CA21PROAVA.fnd'}
    impression {'fin_page'}
###
'PAGE_CALC219BF4' 'Toutes fonctions'
    impression {'compta/25/annexes/calc219bf4.fnd'}
    impression {'fin_page'}
###
'PAGE_DEMAGRECOR' 'Toutes fonctions'
    impression {'compta/25/annexes/DEMAGRECOR.fnd'}
    impression {'fin_page'}
###
'PAGE_DEMAGREZFU' 'Toutes fonctions'
    impression {'compta/25/annexes/DEMAGREZFU.fnd'}
    impression {'fin_page'}
###
'PAGE_DRESZFUREC' 'Toutes fonctions'
    impression {'compta/25/annexes/DRESZFUREC.fnd'}
    impression {'fin_page'}
###
'PAGE_DRESZFUVER' 'Toutes fonctions'
    impression {'compta/25/annexes/DRESZFUVER.fnd'}
    impression {'fin_page'}
###
'PAGE_LIBRE_1' 'Toutes fonctions'
    impression {'compta/25/annexes/LIBRE.fnd'}
    impression {'fin_page'}
###
'PAGE_LIBRE_T' 'Toutes fonctions'
    impression {'compta/25/annexes/LIBRE_T.fnd'}
    impression {'fin_page'}
###
'PAGE_LTENG219B4_1' 'Toutes fonctions'
    impression {'compta/25/annexes/lteng219b4_1.fnd'}
    impression {'fin_page'}
###
'PAGE_LTENG219B4_2' 'Toutes fonctions'
    impression {'compta/25/annexes/lteng219b4_2.fnd'}
    impression {'fin_page'}
###
'PAGE_LTENG219B4_3' 'Toutes fonctions'
    impression {'compta/25/annexes/lteng219b4_3.fnd'}
    impression {'fin_page'}
###
'PAGE_OPTANC219F' 'Toutes fonctions'
    impression {'compta/25/annexes/optanc219f.fnd'}
    impression {'fin_page'}
###
'PAGE_SUIV219REC' 'Toutes fonctions'
    impression {'compta/25/annexes/SUIV219REC.fnd'}
    impression {'fin_page'}
###
'PAGE_SUIV219VER' 'Toutes fonctions'
    impression {'compta/25/annexes/SUIV219VER.fnd'}
    impression {'fin_page'}
###
'PAGE_ZFCFICHE01' 'Toutes fonctions'
    impression {'compta/25/annexes/ZFCFICHE01.fnd'}
    impression {'fin_page'}
###
'PAGE_ZFCFICHE02' 'Toutes fonctions'
    impression {'compta/25/annexes/ZFCFICHE02.fnd'}
    impression {'fin_page'}
###
'PAGE_ZFCFICHE03' 'Toutes fonctions'
    impression {'compta/25/annexes/ZFCFICHE03.fnd'}
    impression {'fin_page'}
###
'totaliser2033E' 'Toutes fonctions'
    
    2033E_AF := arrondirMonnaieSansDecimale{_108} + entier{_118} + entier{_119} + entier{2033E_AE}

    _144	:=	_115 + _143s + _113 + 2033E_AK + _116 + 2033E_153
    
    _152	:=	_121s + _145 + _125s + _146 + _133s + _148 + _128 + _135s + _150 
    
    _137s	:=	2033E_AF + _144 - _152    
    
    _117s_C := _137s    
    
    _117s_C	:=	arrondirMonnaieSansDecimale{_117s_C}
    
    SI _117s = ? ALORS
    	_117s := _117s_C
    FINSI
###
'remonterExtensionsImport' 'Toutes fonctions'
{argExtension <Chaine>}
    SORTIR remonterExtensions{argExtension}
###
'editerAffectation' 'Toutes fonctions'
    
    |
    	choix <Chaine>
    |
    
    choix	:=	choix {'2033A', '2033B'}
    
    SI choix # '2033A' ALORS
    	detailler2033A{}
    FINSI
    
    SI choix # '2033B' ALORS
    	detailler2033B{}
    FINSI
###
'detailler2033D' 'Toutes fonctions'
    
    |
    	detail <Chaine> 
    |
    
    init {}
    
    etat.etat	:=	'Affectation des comptes de la déclaration 2033D'
    detail	:=	'compta/affect.lig'
    
    ouvrirDriver{'ps'}
    impression {'entete.ps'}
    impression {'listing.ps'}
    impression {'texte.ps'}
    impression {'tableau.ps'}
    impression {'compta/affect'}
    
  	detaillerAffectation { 'Cotisations personnelles obligatoires de l''exploitant', voirDetail {'_380'}}
        
    impression {'fin_lst'}
    choixSortie {}
###
'detailler2033B' 'Toutes fonctions'
    
    |
    	detail <Chaine>monCR<Chaine>
    |
    
    monCR := '
'
    
    init {}
    
    etat.etat	:=	'Affectation des comptes de la déclaration 2033B'
    detail	:=	'compta/affect.lig'
    
    ouvrirDriver{'ps'}
    impression {'entete.ps'}
    impression {'listing.ps'}
    impression {'texte.ps'}
    impression {'tableau.ps'}
    impression {'compta/affect'}
    
    detaillerAffectation { 'Ventes de marchandises - Dont export', voirDetail {'_209'}}
    detaillerAffectation { 'Ventes de marchandises sur N', voirDetail {'_210'}}
    
    detaillerAffectation { 'Production vendue biens - Dont export', voirDetail {'_215'}}
    detaillerAffectation { 'Production vendue biens sur N', voirDetail {'_214'}}
    
    detaillerAffectation { 'Production vendue services - Dont export', voirDetail {'_217'}}
    detaillerAffectation { 'Production vendue services sur N', voirDetail {'_218'}}
    
    detaillerAffectation { 'Production stockée sur N', voirDetail {'_222'}}
    
    detaillerAffectation { 'Production immobilisée sur N', voirDetail {'_224'}}
    
    detaillerAffectation { 'Subventions d''exploitation reçues sur N', voirDetail {'_226'}}
    
    detaillerAffectation { 'Autres produits sur N', voirDetail {'_230'}}
    
    detaillerAffectation { 'Achats de marchandises sur N', voirDetail {'_234'}}
    
    detaillerAffectation { 'Variation de stock marchandises sur N', voirDetail {'236'}}
    
    detaillerAffectation { 'Achats de matières premières et autres approvisionnements sur N', voirDetail {'238'}}
    
    detaillerAffectation { 'Variation de stock matières premières sur N', voirDetail {'240'}}
    
    detaillerAffectation { 'Autres charges externes sur N', voirDetail {'_242'}}
    
    detaillerAffectation { 'dont crédit bail mobilier', voirDetail {'_24B'}}
    detaillerAffectation { 'dont crédit bail immobilier', voirDetail {'_24C'}}
    
    detaillerAffectation { 'Impôts, taxes et versements assimilés sur N', voirDetail {'244'}}
    
    detaillerAffectation { 'dont taxe professionelle CFE et CVAE sur N', voirDetail {'_243'}}
    
    detaillerAffectation { 'Rémunérations du personnel sur N', voirDetail {'250'}}
    
    detaillerAffectation { 'Charges sociales sur N', voirDetail {'252'}}
    
    detaillerAffectation { 'Dotations aux amortissements sur N', voirDetail {'254'}}
	
	detaillerAffectation { 'Dont Amortissements Fonds de commerce - HS', '_255 :=			' + _255 + monCR
																			+ '	Contrepartie du compte		 ' + monCR
																			+ '	2807 : somme des		 ' + monCR
																			+ '	débits en excluant		 ' + monCR
																			+ '	les lignes d''à nouveaux		 '}
    
    detaillerAffectation { 'Dotations aux provisions sur N', voirDetail {'256'}}
    
    detaillerAffectation { 'Autres charges sur N', voirDetail {'_262'}}
    
    detaillerAffectation { 'Produits financiers sur N', voirDetail {'_280'}}
    
    detaillerAffectation { 'Produits exceptionnels sur N', voirDetail {'_290'}}
    
    detaillerAffectation { 'Charges financières sur N', voirDetail {'_294'}}
    
    detaillerAffectation { 'Impôts sur les bénéfices sur N', voirDetail {'_306'}}
    
        
    impression {'fin_lst'}
    choixSortie {}
###
'detailler2033A' 'Toutes fonctions'
    
    |
    	detail <Chaine> 
    |
    
    init {}
    
    etat.etat	:=	'Affectation des comptes de la déclaration 2033A'
    detail	:=	'compta/affect.lig'
    
    ouvrirDriver{'ps'}
    impression {'entete.ps'}
    impression {'listing.ps'}
    impression {'texte.ps'}
    impression {'tableau.ps'}
    impression {'compta/affect'}
    
    detaillerAffectation { 'Immobilisations incorporelles Fonds commercial - Brut', voirDetail {'_010'}}
    detaillerAffectation { 'Immobilisations incorporelles Fonds commercial - Amor.,prov.', voirDetail {'_012'}}
    detaillerAffectation { 'Immobilisations incorporelles Fonds commercial - Net', voirDetail {'N1'}}
    
    detaillerAffectation { 'Immobilisations incorporelles Autres - Brut', voirDetail {'_014'}}
    detaillerAffectation { 'Immobilisations incorporelles Autres - Amor.,prov.', voirDetail {'_016'}}
    detaillerAffectation { 'Immobilisations incorporelles Autres - Net', voirDetail {'N3'}}
    
    detaillerAffectation { 'Immobilisations corporelles - Brut', voirDetail {'_028'}}
    detaillerAffectation { 'Immobilisations corporelles - Amor.,prov.', voirDetail {'_030'}}
    detaillerAffectation { 'Immobilisations corporelles - Net', voirDetail {'N5'}}
    
    detaillerAffectation { 'Immobilisations financières - Brut', voirDetail {'_040'}}
    detaillerAffectation { 'Immobilisations financières - Amor.,prov.', voirDetail {'_042'}}
    detaillerAffectation { 'Immobilisations financières - Net', voirDetail {'N7'}}
    
    detaillerAffectation { 'Matières premières, approvisionnements, en cours de production - Brut', voirDetail {'_050'}}
    detaillerAffectation { 'Matières premières, approvisionnements, en cours de production - Amor.,prov.', voirDetail {'_052'}}
    detaillerAffectation { 'Matières premières, approvisionnements, en cours de production - Net', voirDetail {'N11'}}
    
    detaillerAffectation { 'Marchandises - Brut', voirDetail {'_060'}}
    detaillerAffectation { 'Marchandises - Amor.,prov.', voirDetail {'_062'}}
    detaillerAffectation { 'Marchandises - Net', voirDetail {'N13'}}
    
    detaillerAffectation { 'Avances et acomptes versées sur commandes - Brut', voirDetail {'_064'}}
    detaillerAffectation { 'Avances et acomptes versées sur commandes - Amor.,prov.', voirDetail {'_066'}}
    detaillerAffectation { 'Avances et acomptes versées sur commandes - Net', voirDetail {'N15'}}
    
    detaillerAffectation { 'Créances Clients et comptes rattachés - Brut', voirDetail {'_068'}}
    detaillerAffectation { 'Créances Clients et comptes rattachés - Amor.,prov.', voirDetail {'_070'}}
    detaillerAffectation { 'Créances Clients et comptes rattachés - Net', voirDetail {'N17'}}
    
    detaillerAffectation { 'Créances autres - Brut', voirDetail {'_072'}}
    detaillerAffectation { 'Créances autres - Amor.,prov.', voirDetail {'_074'}}
    detaillerAffectation { 'Créances autres - Net', voirDetail {'N19'}}
    
    detaillerAffectation { 'Valeurs mobilières de placement - Brut', voirDetail {'_080'}}
    detaillerAffectation { 'Valeurs mobilières de placement - Amor.,prov.', voirDetail {'_082'}}
    detaillerAffectation { 'Valeurs mobilières de placement - Net', voirDetail {'N21'}}
    
    detaillerAffectation { 'Charges constatées d''avance - Brut', voirDetail {'_092'}}
    detaillerAffectation { 'Charges constatées d''avance - Amor.,prov.', voirDetail {'_094'}}
    detaillerAffectation { 'Charges constatées d''avance - Net', voirDetail {'N27'}}
    
    detaillerAffectation { 'Capital social ou individuel - Net', voirDetail {'_120'}}
    
    detaillerAffectation { 'Ecarts de réévaluation - Net', voirDetail {'_124'}}
    
    detaillerAffectation { 'Réserve légale - Net', voirDetail {'_126'}}
    
    detaillerAffectation { 'Réserves réglementées - Net', voirDetail {'_130'}}
    
    detaillerAffectation { 'Autres réserves - Net', voirDetail {'_132'}}
    
    detaillerAffectation { 'Reprot à nouveau - Net', voirDetail {'_134'}}
    
    detaillerAffectation { 'Résultat de l''exercice - Net', voirDetail {'_136'}}
	
	detaillerAffectation { 'Subventions d''investissement - Net', voirDetail {'_137Sub'}}
    
    detaillerAffectation { 'Provisions réglementées - Net', voirDetail {'_140'}}
    
    detaillerAffectation { 'Provisions pour risques et charges - Net', voirDetail {'_154'}}
    
    detaillerAffectation { 'Emprunts et dettes assimilées - Net', voirDetail {'_156'}}
    
    detaillerAffectation { 'Avances et acomptes reçus sur commandes en cours - Net', voirDetail {'_164'}}
    
    detaillerAffectation { 'Fournisseurs et comptes rattachés - Net', voirDetail {'_166'}}
    
    detaillerAffectation { 'Dettes fiscales et sociales - Net', voirDetail {'_172'}}
	
	detaillerAffectation { 'Comptes courants d''associés - Net', voirDetail {'_173'}}
	
	detaillerAffectation { 'Autres dettes - Net', voirDetail {'_175'}}
    
    detaillerAffectation { 'Produits constatés d''avance - Net', voirDetail {'_174'}}
    
    impression {'fin_lst'}
    choixSortie {}
###
'INTER2033A' 'Toutes fonctions'

    devise {devise }
    
    _199_C	:=	soldeDebit { 45 } 
    
    SI _199 = ? ALORS 
    	_199	:=	_199_C	
    FINSI
    
    SI _110 <>  0 OU _112 <> 0 OU N31 <> 0 OU N32 <> 0 
    OU _180 <> 0 OU _181 <> 0 OU _131 <> 0 
    OU _169 <> 0 OU _193 <> 0 OU _197 <> 0 OU _199 <> 0 
    OU _195 <> 0 OU _182 <> 0 OU _184 <> 0 ALORS
    	neant2033a	:=	?
    SINON
    	neant2033a	:=	'x'
    FINSI
###
'menuImportB' 'Toutes fonctions'
    
    |
    	reponse<Booléen>
    |
    
    reponse := ouiNon{'Vous êtes sur le point d''importer les éléments de la 2033 E. 
Les saisies de cette colonne vont donc être écrasées. 
Confirmez vous l''opération ?'}
    
    SI reponse ALORS
    	importB	:=	VRAI
    	CALCUL2033E{}


	    _108_C := arrondirMonnaieSansDecimale{_210} + arrondirMonnaieSansDecimale{_214} + arrondirMonnaieSansDecimale{_218}
	    
	    SI _108 = ? ALORS
	    	_108 := arrondirMonnaieSansDecimale{_108_C}
	    SINON
	    	_108 := arrondirMonnaieSansDecimale{_108}
	    FINSI
        
	    2033E_AK_C := 0
		SI credit{713} > 0 ALORS
			2033E_AK_C += credit{713}
		FINSI
		SI credit{603} > 0 ALORS
			2033E_AK_C += credit{603}
		FINSI
    	2033E_AK := entier{2033E_AK_C}

    	2033E_AH_C := 2033E_376
    	2033E_AH := 2033E_AH_C
    
    	_143s_C := arrondirMonnaieSansDecimale{credit{721} + credit{722}}
    	_143s := _143s_C
    
    	_113_C := arrondirMonnaieSansDecimale{_226} + arrondirMonnaieSansDecimale{credit{7715}}
    	_113	:=	_113_C
    
    	_118	:= 	_118_C 
    
    	-------CADRE  B  ----------------
    	_121s	:=	_234 + _238 + _242 - debit{61} - debit{62}
    	_121s	:=	entier{_121s}
    	_121s_C	:=	entier{_121s}
    
    	_122_C	:=	_236
    	_122	:=	_122_C
    
    	_123_C	:=	_238
    	_123	:=	_123_C

	    _145_C := 0
		SI debit{713} > 0 ALORS
			_145_C += debit{713}
		FINSI
		SI debit{603} > 0 ALORS
			_145_C += debit{603}
		FINSI
    	_145	:= entier{_145_C}
    
	    _125s_C	:=	debit{61} + debit{62} - debit{612} - debit{613}
    	_125s := _125s_C
    
    	_146 	:= _146_C
    
    	_148_C	:=	arrondirMonnaieSansDecimale{_262} - arrondirMonnaieSansDecimale{_148_I}
    	_148	:=	 _148_C 
    
    	importB2033E{}
    	_117s := ?
    	totaliser2033E{}
    	neant2033e	:=	''
        
    	affichage {}
    FINSI
###
'menuAnnulerImportAB' 'Toutes fonctions'
    
    |
    	reponse<Booléen>
    |
    
    reponse	:= ouiNon{'Attention, si vous annulez l''import de ce feuillet, alors
l''ensemble de la colonne sera remplacé par "?", y compris les valeurs saisies manuellement.
Souhaitez-vous continuer ?'}
    
    SI reponse ALORS
    	importB	:=	FAUX
    	CALCUL2033E{}
    
    	-- Annulation colonne B
    	_108_C	:=	?
    	_108	:=	?
    	2033E_AK_C	:=	?
    	2033E_AK	:=	?
    	2033E_AH_C	:=	?
    	2033E_AH	:=	?
    	_143s	:=	?
    	_143s_C  :=	?
    	_113_C	:=	?
    	_113	:=	?
    	_115_C	:=	?
    	_115 	:=	?
    	--_116_C  :=	?
    	_116	:=	?
    	_118_C	:=	?
    	_118	:=	?
    	_119_C  :=	?
    	_119	:=	?
    	_144	:=	?
    	_121s_C	:=	?
    	_121s	:=	?
    	_122_C	:=	?
    	_122	:=	?
    	_123_C	:=	?
    	_123	:=	?
    	_145_C	:=	?
    	_145	:=	?
    	_125s_C	:=	?
    	_125s	:=	?
    	_146_C	:=	?
    	_146	:=	?
    	_128	:=	?
    	_148_C	:=	?
    	_148	:=	?
    	_149	:=	?
    	_150	:=	?
    	_150_C := 	?	
    	_135s	:=	?
    	_132	:=	?
    	2033E_153	:=	?
    
    	_117s := ?
    	_117s_C := ?
    
    	neant2033e	:=	'x'
    	totaliser2033E{}
    	affichage {}
    FINSI
###
'calculOpenAnnexe' 'Toutes fonctions'

    --			PAGE 5  	REGLES ET METHODES COMPTABLES
    P5_mt1	:=	N31
    
    --			PAGE 8		DEPRECIATIONS ACTIF: DEROGATOIRES
    
    P8_mt1 := _770
    P8_mt2 := _775
    
    --			PAGES 18 - 19
    
    ---- Tableau 1 des IMMOBILISATIONS
    P18_C1L1		:=	_400
    P18_C2L1		:=	_402
    P18_C3L1		:=	_404
    P18_C4L1		:=	_406
    P18_C5L1		:=	_407
    
    P18_C1L2		:=	_410
    P18_C2L2		:=	_412
    P18_C3L2		:=	_414
    P18_C4L2		:=	_416
    P18_C5L2		:=	_417
    
    P18_C1L3		:=	_420
    P18_C2L3		:=	_422
    P18_C3L3		:=	_424
    P18_C4L3		:=	_426
    P18_C5L3		:=	_427
    
    P18_C1L4		:=	_430
    P18_C2L4		:=	_432
    P18_C3L4		:=	_434
    P18_C4L4		:=	_436
    P18_C5L4		:=	_437
    
    P18_C1L5		:=	_440
    P18_C2L5		:=	_442
    P18_C3L5		:=	_444
    P18_C4L5		:=	_446
    P18_C5L5		:=	_447
    
    P18_C1L6		:=	_450
    P18_C2L6		:=	_452
    P18_C3L6		:=	_454
    P18_C4L6		:=	_456
    P18_C5L6		:=	_457
    
    P18_C1L7		:=	_460
    P18_C2L7		:=	_462
    P18_C3L7		:=	_464
    P18_C4L7		:=	_466
    P18_C5L7		:=	_467
    
    P18_C1L8		:=	_470
    P18_C2L8		:=	_472
    P18_C3L8		:=	_474
    P18_C4L8		:=	_476
    P18_C5L8		:=	_477
    
    P18_C1L9		:=	_480
    P18_C2L9		:=	_482
    P18_C3L9		:=	_484
    P18_C4L9		:=	_486
    P18_C5L9		:=	_487
    
    P18_C1L10		:=	_490
    P18_C2L10		:=	_492
    P18_C3L10		:=	_494
    P18_C4L10		:=	_496
    P18_C5L10		:=	_497
    
    
    
    --					PAGE 20
    ---- Tableau 1 des AMORTISSEMENTS
    
    P20_C1L1	:=	_500
    P20_C2L1	:=	_502
    P20_C3L1	:=	_504
    P20_C4L1	:=	_506
    
    P20_C1L2	:=	_510
    P20_C2L2	:=	_512
    P20_C3L2	:=	_514
    P20_C4L2	:=	_516
    
    P20_C1L3	:=	_520
    P20_C2L3	:=	_522
    P20_C3L3	:=	_524
    P20_C4L3	:=	_526
    
    P20_C1L4	:=	_530
    P20_C2L4	:=	_532
    P20_C3L4	:=	_534
    P20_C4L4	:=	_536
    
    P20_C1L5	:=	_540
    P20_C2L5	:=	_542
    P20_C3L5	:=	_544
    P20_C4L5	:=	_546
    
    P20_C1L6	:=	_550
    P20_C2L6	:=	_552
    P20_C3L6	:=	_554
    P20_C4L6	:=	_556
    
    P20_C1L7	:=	_560
    P20_C2L7	:=	_562
    P20_C3L7	:=	_564
    P20_C4L7	:=	_566
    
    P20_C1L8	:=	_570
    P20_C2L8	:=	_572
    P20_C3L8	:=	_574
    P20_C4L8	:=	_576
    
    
    --					PAGE 21
    P21_C1L1	:=	_700
    P21_C2L1	:=	_705
    
    P21_C1L2	:=	_710
    P21_C2L2	:=	_715
    
    P21_C1L4	:=	_720
    P21_C2L4	:=	_725
    
    P21_C1L5	:=	_730
    P21_C2L5	:=	_735
    
    P21_C1L6	:=	_740
    P21_C2L6	:=	_745
    
    P21_C1L7	:=	_750
    P21_C2L7	:=	_755
    
    P21_C1L8	:=	_760
    P21_C2L8	:=	_765
    
    P21_C1L9	:=	_770
    P21_C2L9	:=	_775
    
    --					PAGE 22
    
    ---- Tableau 1 des PROVISIONS
    P22_C1L1	 :=	_600
    P22_C2L1 	:=	_602
    P22_C3L1	:=	_604
    P22_C4L1 	:=	_606
    
    P22_C1L2 	:=	_601
    P22_C2L2 	:=	_603
    P22_C3L2 	:=	_605
    P22_C4L2 	:=	_607
    
    P22_C1L3 	:=	_610
    P22_C2L3	:=	_612
    P22_C3L3 	:=	_614
    P22_C4L3	:=	_616
    
    P22_C1L4 	:=	_620
    P22_C2L4  	:=	_622
    P22_C3L4  	:=	_624
    P22_C4L4 	:=	_626
    
    P22_C1L5 	:=	_630	
    P22_C2L5	 :=	_632
    P22_C3L5	 :=	_634
    P22_C4L5 	:=	_636
    
    P22_C1L6 	:=	_640
    P22_C2L6 	:=	_642
    P22_C3L6	:=	_644
    P22_C4L6	:=	_646
    
    P22_C1L7 	:=	_650
    P22_C2L7	:=	_652
    P22_C3L7	:=	_654
    P22_C4L7 	:=	_656
    
    P22_C1L8 	:=	_660
    P22_C2L8	:=	_662
    P22_C3L8 	:=	_664
    P22_C4L8 	:=	_666
    
    P22_C1L9 	:=	_680
    P22_C2L9 	:=	_682
    P22_C3L9	:=	_684
    P22_C4L9 	:=	_686
###
'PAGE_2067BIS_EXT' 'Toutes fonctions'
    impressionDirecte {'compta/25/2067B.fnd'}
    impression {'compta/25/extens/2067Bext_c.fnd'}
    impression {'fin_page'}
###
'annuler_import_capital' 'Toutes fonctions'
    
    -- Personnes morales
    PMFJ1	:=	?
    PMDE1	:=	?
    PMSI1	:=	?
    PMPD1	:=	?
    PMNP1	:=	?
    PMNU1	:=	?
    PMLV1	:=	?
    PMCD1	:=	?
    PMCO1	:=	?
    PMPA1	:=	?
    
    PMFJ2	:=	?
    PMDE2	:=	?
    PMSI2	:=	?
    PMPD2	:=	?
    PMNP2	:=	?
    PMNU2	:=	?
    PMLV2	:=	?
    PMCD2	:=	?
    PMCO2	:=	?
    PMPA2	:=	?
    
    PMFJ3	:=	?
    PMDE3	:=	?
    PMSI3	:=	?
    PMPD3	:=	?
    PMNP3	:=	?
    PMNU3	:=	?
    PMLV3	:=	?
    PMCD3	:=	?
    PMCO3	:=	?
    PMPA3	:=	?
    
    PMFJ4	:=	?
    PMDE4	:=	?
    PMSI4	:=	?
    PMPD4	:=	?
    PMNP4	:=	?
    PMNU4	:=	?
    PMLV4	:=	?
    PMCD4	:=	?
    PMCO4	:=	?
    PMPA4	:=	?
    
    PMFJ5	:=	?
    PMDE5	:=	?
    PMSI5	:=	?
    PMPD5	:=	?
    PMNP5	:=	?
    PMNU5	:=	?
    PMLV5	:=	?
    PMCD5	:=	?
    PMCO5	:=	?
    PMPA5	:=	?
    
    PMFJ6	:=	?
    PMDE6	:=	?
    PMSI6	:=	?
    PMPD6	:=	?
    PMNP6	:=	?
    PMNU6	:=	?
    PMLV6	:=	?
    PMCD6	:=	?
    PMCO6	:=	?
    PMPA6	:=	?
    
    PMFJ7	:=	?
    PMDE7	:=	?
    PMSI7	:=	?
    PMPD7	:=	?
    PMNP7	:=	?
    PMNU7	:=	?
    PMLV7	:=	?
    PMCD7	:=	?
    PMCO7	:=	?
    PMPA7	:=	?
    
    PMFJ8	:=	?
    PMDE8	:=	?
    PMSI8	:=	?
    PMPD8	:=	?
    PMNP8	:=	?
    PMNU8	:=	?
    PMLV8	:=	?
    PMCD8	:=	?
    PMCO8	:=	?
    PMPA8	:=	?
    
    PMFJ9	:=	?
    PMDE9	:=	?
    PMSI9	:=	?
    PMPD9	:=	?
    PMNP9	:=	?
    PMNU9	:=	?
    PMLV9	:=	?
    PMCD9	:=	?
    PMCO9	:=	?
    PMPA9	:=	?
    
    PMFJ10	:=	?
    PMDE10	:=	?
    PMSI10	:=	?
    PMPD10	:=	?
    PMNP10	:=	?
    PMNU10	:=	?
    PMLV10	:=	?
    PMCD10	:=	?
    PMCO10	:=	?
    PMPA10	:=	?
    
    PMFJ11	:=	?
    PMDE11	:=	?
    PMSI11	:=	?
    PMPD11	:=	?
    PMNP11	:=	?
    PMNU11	:=	?
    PMLV11	:=	?
    PMCD11	:=	?
    PMCO11	:=	?
    PMPA11	:=	?
    
    PMFJ12	:=	?
    PMDE12	:=	?
    PMSI12	:=	?
    PMPD12	:=	?
    PMNP12	:=	?
    PMNU12	:=	?
    PMLV12	:=	?
    PMCD12	:=	?
    PMCO12	:=	?
    PMPA12	:=	?
    
    PMFJ13	:=	?
    PMDE13	:=	?
    PMSI13	:=	?
    PMPD13	:=	?
    PMNP13	:=	?
    PMNU13	:=	?
    PMLV13	:=	?
    PMCD13	:=	?
    PMCO13	:=	?
    PMPA13	:=	?
    
    -- Personnes physiques
    PPTI1	:=	?
    PPNP1	:=	?
    PPPR1	:=	?
    PPNM1	:=	?
    PPPD1	:=	?
    PPNPA1	:=	?
    PPND1	:=	?
    PPDP1	:=	?
    PPCN1	:=	?
    PPPN1	:=	?
    PPNU1	:=	?
    PPLV1	:=	?
    PPCD1	:=	?
    PPCO1	:=	?
    PPPA1	:=	?
    
    PPTI2	:=	?
    PPNP2	:=	?
    PPPR2	:=	?
    PPNM2	:=	?
    PPPD2	:=	?
    PPNPA2	:=	?
    PPND2	:=	?
    PPDP2	:=	?
    PPCN2	:=	?
    PPPN2	:=	?
    PPNU2	:=	?
    PPLV2	:=	?
    PPCD2	:=	?
    PPCO2	:=	?
    PPPA2	:=	?
    
    PPTI3	:=	?
    PPNP3	:=	?
    PPPR3	:=	?
    PPNM3	:=	?
    PPPD3	:=	?
    PPNPA3	:=	?
    PPND3	:=	?
    PPDP3	:=	?
    PPCN3	:=	?
    PPPN3	:=	?
    PPNU3	:=	?
    PPLV3	:=	?
    PPCD3	:=	?
    PPCO3	:=	?
    PPPA3	:=	?
    
    PPTI4	:=	?
    PPNP4	:=	?
    PPPR4	:=	?
    PPNM4	:=	?
    PPPD4	:=	?
    PPNPA4	:=	?
    PPND4	:=	?
    PPDP4	:=	?
    PPCN4	:=	?
    PPPN4	:=	?
    PPNU4	:=	?
    PPLV4	:=	?
    PPCD4	:=	?
    PPCO4	:=	?
    PPPA4	:=	?
    
    PPTI5	:=	?
    PPNP5	:=	?
    PPPR5	:=	?
    PPNM5	:=	?
    PPPD5	:=	?
    PPNPA5	:=	?
    PPND5	:=	?
    PPDP5	:=	?
    PPCN5	:=	?
    PPPN5	:=	?
    PPNU5	:=	?
    PPLV5	:=	?
    PPCD5	:=	?
    PPCO5	:=	?
    PPPA5	:=	?
    
    PPTI6	:=	?
    PPNP6	:=	?
    PPPR6	:=	?
    PPNM6	:=	?
    PPPD6	:=	?
    PPNPA6	:=	?
    PPND6	:=	?
    PPDP6	:=	?
    PPCN6	:=	?
    PPPN6	:=	?
    PPNU6	:=	?
    PPLV6	:=	?
    PPCD6	:=	?
    PPCO6	:=	?
    PPPA6	:=	?
    
    PPTI7	:=	?
    PPNP7	:=	?
    PPPR7	:=	?
    PPNM7	:=	?
    PPPD7	:=	?
    PPNPA7	:=	?
    PPND7	:=	?
    PPDP7	:=	?
    PPCN7	:=	?
    PPPN7	:=	?
    PPNU7	:=	?
    PPLV7	:=	?
    PPCD7	:=	?
    PPCO7	:=	?
    PPPA7	:=	?
    
    PPTI8	:=	?
    PPNP8	:=	?
    PPPR8	:=	?
    PPNM8	:=	?
    PPPD8	:=	?
    PPNPA8	:=	?
    PPND8	:=	?
    PPDP8	:=	?
    PPCN8	:=	?
    PPPN8	:=	?
    PPNU8	:=	?
    PPLV8	:=	?
    PPCD8	:=	?
    PPCO8	:=	?
    PPPA8	:=	?
    
    PPTI9	:=	?
    PPNP9	:=	?
    PPPR9	:=	?
    PPNM9	:=	?
    PPPD9	:=	?
    PPNPA9	:=	?
    PPND9	:=	?
    PPDP9	:=	?
    PPCN9	:=	?
    PPPN9	:=	?
    PPNU9	:=	?
    PPLV9	:=	?
    PPCD9	:=	?
    PPCO9	:=	?
    PPPA9	:=	?
###
'2067BIS' 'Toutes fonctions'
    
    message {}
    INTER2067BIS{}
###
'INTER2067BIS' 'Toutes fonctions'
    
    |
    	i<Entier>
    |
    
    2067B_BG	:=	2067B_BD1 + 2067B_BD2 + 2067B_BD3 + 2067B_BD4 + 2067B_BD5 + 2067B_BD6 + 2067B_BD7 + 2067B_BD8 + 2067B_BD9 + 2067B_BD10
    			+ 2067B_BD11 + 2067B_BD12 + 2067B_BD13 + 2067B_BD14 + 2067B_BD15 + 2067B_BD16 + 2067B_BD17 + 2067B_BD18 + 2067B_BD19 + 2067B_BD20
    
    2067B_CG	:=	2067B_CD1 + 2067B_CD2 + 2067B_CD3 + 2067B_CD4 + 2067B_CD5 + 2067B_CD6 + 2067B_CD7 + 2067B_CD8 + 2067B_CD9 + 2067B_CD10
    			+ 2067B_CD11 + 2067B_CD12 + 2067B_CD13 + 2067B_CD14 + 2067B_CD15 + 2067B_CD16 + 2067B_CD17 + 2067B_CD18 + 2067B_CD19 + 2067B_CD20
    
    2067B_DG	:=	2067B_DD1 + 2067B_DD2 + 2067B_DD3 + 2067B_DD4 + 2067B_DD5 + 2067B_DD6 + 2067B_DD7 + 2067B_DD8 + 2067B_DD9 + 2067B_DD10
    			+ 2067B_DD11 + 2067B_DD12 + 2067B_DD13 + 2067B_DD14 + 2067B_DD15 + 2067B_DD16 + 2067B_DD17 + 2067B_DD18 + 2067B_DD19 + 2067B_DD20
    
    2067B_AC	:=	2067B_AB - 2067B_BG - 2067B_CG - 2067B_DG
    
    SI NON importEDI ALORS
    	i	:=	1
    	TANT QUE i <= 20 FAIRE
    		SI chaine{etat!{'2067B_BB'+i}chaine, 3, 3} <> ' ' ALORS etat!{'2067B_BB'+i}chaine	:=	? FIN SI
    		SI chaine{etat!{'2067B_CB'+i}chaine, 3, 3} <> ' ' ALORS etat!{'2067B_CB'+i}chaine	:=	? FIN SI
    		SI chaine{etat!{'2067B_DB'+i}chaine, 3, 3} <> ' ' ALORS etat!{'2067B_DB'+i}chaine	:=	? FIN SI
    		i	+=	1
    	FIN FAIRE
    FIN SI
###
'2067BIS_EXT' 'Toutes fonctions'
    message {}
    INTER2067BIS{}
###
'PAGE_LIBRE_4' 'Toutes fonctions'
    impression {'compta/25/annexes/LIBRE_4.fnd'}
    impression {'fin_page'}
###
'PAGE_LIBRE_T_EXT2' 'Toutes fonctions'
    impression {'compta/25/annexes/LIBRE_T_EXT2.fnd'}
    impression {'fin_page'}
###
'PAGE_LIBRE_3' 'Toutes fonctions'
    impression {'compta/25/annexes/LIBRE_3.fnd'}
    impression {'fin_page'}
###
'PAGE_LIBRE_1_EXT2' 'Toutes fonctions'
    impression {'compta/25/annexes/LIBRE_EXT2.fnd'}
    impression {'fin_page'}
###
'PAGE_LIBRE_1_EXT1' 'Toutes fonctions'
    impression {'compta/25/annexes/LIBRE_EXT1.fnd'}
    impression {'fin_page'}
###
'PAGE_LIBRE_T_EXT1' 'Toutes fonctions'
    impression {'compta/25/annexes/LIBRE_T_EXT1.fnd'}
    impression {'fin_page'}
###
'PAGE_LIBRE_4_EXT2' 'Toutes fonctions'
    impression {'compta/25/annexes/LIBRE_4_EXT2.fnd'}
    impression {'fin_page'}
###
'PAGE_LIBRE_4_EXT1' 'Toutes fonctions'
    impression {'compta/25/annexes/LIBRE_4_EXT1.fnd'}
    impression {'fin_page'}
###
'PAGE_LIBRE_3_EXT2' 'Toutes fonctions'
    impression {'compta/25/annexes/LIBRE_3_EXT2.fnd'}
    impression {'fin_page'}
###
'PAGE_LIBRE_3_EXT1' 'Toutes fonctions'
    impression {'compta/25/annexes/LIBRE_3_EXT1.fnd'}
    impression {'fin_page'}
###
'PAGE_LIBRE_2' 'Toutes fonctions'
    impression {'compta/25/annexes/LIBRE_2.fnd'}
    impression {'fin_page'}
###
'PAGE_LIBRE_2_EXT1' 'Toutes fonctions'
    impression {'compta/25/annexes/LIBRE_2_EXT1.fnd'}
    impression {'fin_page'}
###
'PAGE_LIBRE_2_EXT2' 'Toutes fonctions'
    impression {'compta/25/annexes/LIBRE_2_EXT2.fnd'}
    impression {'fin_page'}
###
'PAGE_LIBRE_5' 'Toutes fonctions'
    impression {'compta/25/annexes/LIBRE_5.fnd'}
    impression {'fin_page'}
###
'PAGE_LIBRE_5_EXT1' 'Toutes fonctions'
    impression {'compta/25/annexes/LIBRE_5_EXT1.fnd'}
    impression {'fin_page'}
###
'PAGE_LIBRE_5_EXT2' 'Toutes fonctions'
    impression {'compta/25/annexes/LIBRE_5_EXT2.fnd'}
    impression {'fin_page'}
###
'VIDER_OGBIC00' 'Toutes fonctions'
    
    OGBIC00_AA1_C	:=	?
    OGBIC00_AA2_C	:=	?
    OGBIC00_AA3_C	:=	?
    OGBIC00_AB		:=	?
    OGBIC00_AC1		:=	?
    OGBIC00_AC2		:=	?
    OGBIC00_AC3		:=	?
    OGBIC00_AD1_C	:=	?
    OGBIC00_AD2_C	:=	?
    
    OGBIC00_BA_C 	:= 	? 
    OGBIC00_BB_C	:=	?
###
'CALCUL_OGBIC00' 'Toutes fonctions'
    
    OGBIC00_AA1_C	:=	cabinet.RaisonSociale
    OGBIC00_AA2_C	:=	cabinet.Siret
    OGBIC00_AA3_C	:=	cabinet.Adresse1 +' '+cabinet.Adresse2 +' '+cabinet.Adresse3+' '+cabinet.CodePostal+' '+cabinet.Ville
    OGBIC00_AB		:=	dossier.Ape
    OGBIC00_AC1		:=	dossier.NCentre
    OGBIC00_AC2		:=	dossier.NomDuCentre
    OGBIC00_AC3		:=	dossier.AdrC1+' '+dossier.CPCGA+' '+dossier.VilleCGA
    OGBIC00_AD1_C	:=	cabinet.Ville
    OGBIC00_AD2_C	:=	lireSignataire{}
    
    OGBIC00_BA_C 	:= aujourdhui {} 

    SI TEL = ? ALORS
    	TEL := dossier.Telephone
    FINSI

###
'PAGE_2069RCI' 'Toutes fonctions'
    impressionDirecte {'compta/25/annexes/2069rci.fnd'}
    impression {'compta/25/annexes/2069rci_c.fnd'}
    impression {'fin_page'}
###
'PAGE_2069RCI_EXT1' 'Toutes fonctions'
    impressionDirecte {'compta/25/annexes/2069rci_ext1.fnd'}
    impression {'compta/25/2050_c.fnd'}
    impression {'fin_page'}
###
'PAGE_2069RCI_EXT2' 'Toutes fonctions'
    impressionDirecte {'compta/25/annexes/2069rci_ext2.fnd'}
    impression {'compta/25/2050_c.fnd'}
    impression {'fin_page'}
###
'PAGE_2069RCI_EXT3' 'Toutes fonctions'
    impressionDirecte {'compta/25/annexes/2069rci_ext3.fnd'}
    impression {'compta/25/2050_c.fnd'}
    impression {'fin_page'}
###
'CALCUL2067' 'Toutes fonctions'
    nomSignature := dossier.RepresentantLegal
    qualiteSignature := dossier.QualiteRepresentantLegal
###
'controleDesSiretsCalcules' 'Toutes fonctions'

    |
    	messageSiret<Objet>
    	aDelivre <Booléen>
    	controleSiret<Chaine> rc<Chaine>
    |
    
    messageSiret	:=	flotEcriture{}
    rc		:=	'
'
    
    ecrire{messageSiret, 'Liste des mauvais SIRET : ' + rc}
    controleSiret	:=	controleSiretFinal{0A6, 'le dossier'}
    
    SI controleSiret <> 'OK' ALORS 
    	ecrire{messageSiret, controleSiret + rc}
    	aDelivre	:=	VRAI 
    FINSI
    
    controleSiret	:=	controleDesSiretsOG{}
    
    SI controleSiret <> 'OK' ALORS 
    	ecrire{messageSiret, controleSiret + rc}
    	aDelivre	:=	VRAI 
    FINSI
    
    SI aDelivre ALORS
    	message{contenuFlot{messageSiret}}	
    FINSI
    
    messageSiret	:=	?
    SORTIR aDelivre
###
'controleDesSiretsOG' 'Toutes fonctions'
   -- Surchargée.
    SORTIR 'OK'
###
'2067B_DB_CLICKDROIT' 'Toutes fonctions'
{variable <Chaine>}
    
    -- FONCTION GENERALE SUR LA RACINE DE LA VARIABLE
    
    SI variable = '2067B_DB1'	ALORS	2067B_DB1 := chaine{choixPays {},1,8}	FINSI
    SI variable = '2067B_DB2'	ALORS	2067B_DB2 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_DB3'	ALORS	2067B_DB3 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_DB4'	ALORS	2067B_DB4 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_DB5'	ALORS	2067B_DB5 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_DB6'	ALORS	2067B_DB6 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_DB7'	ALORS	2067B_DB7 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_DB8'	ALORS	2067B_DB8 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_DB9'	ALORS	2067B_DB9 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_DB10'	ALORS	2067B_DB10 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_DB11'	ALORS	2067B_DB11 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_DB12'	ALORS	2067B_DB12 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_DB13'	ALORS	2067B_DB13 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_DB14'	ALORS	2067B_DB14 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_DB15'	ALORS	2067B_DB15 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_DB16'	ALORS	2067B_DB16 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_DB17'	ALORS	2067B_DB17 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_DB18'	ALORS	2067B_DB18 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_DB19'	ALORS	2067B_DB19 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_DB20'	ALORS	2067B_DB20 :=  chaine{choixPays {},1,8} 	FINSI
    affichage {VRAI}	-- Pour réinitialisation affichage
###
'2067B_CB_CLICKDROIT' 'Toutes fonctions'
{variable <Chaine>}
    
    -- FONCTION GENERALE SUR LA RACINE DE LA VARIABLE
    
    SI variable = '2067B_CB1'	ALORS	2067B_CB1 := chaine{choixPays {},1,8}	FINSI
    SI variable = '2067B_CB2'	ALORS	2067B_CB2 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_CB3'	ALORS	2067B_CB3 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_CB4'	ALORS	2067B_CB4 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_CB5'	ALORS	2067B_CB5 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_CB6'	ALORS	2067B_CB6 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_CB7'	ALORS	2067B_CB7 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_CB8'	ALORS	2067B_CB8 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_CB9'	ALORS	2067B_CB9 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_CB10'	ALORS	2067B_CB10 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_CB11'	ALORS	2067B_CB11 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_CB12'	ALORS	2067B_CB12 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_CB13'	ALORS	2067B_CB13 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_CB14'	ALORS	2067B_CB14 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_CB15'	ALORS	2067B_CB15 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_CB16'	ALORS	2067B_CB16 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_CB17'	ALORS	2067B_CB17 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_CB18'	ALORS	2067B_CB18 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_CB19'	ALORS	2067B_CB19 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_CB20'	ALORS	2067B_CB20 :=  chaine{choixPays {},1,8} 	FINSI
    
    affichage {VRAI}	-- Pour réinitialisation affichage
###
'2067B_BB_CLICKDROIT' 'Toutes fonctions'
{variable <Chaine>}
    
    -- FONCTION GENERALE SUR LA RACINE DE LA VARIABLE
    
    SI variable = '2067B_BB1'	ALORS	2067B_BB1 := chaine{choixPays {},1,8}	FINSI
    SI variable = '2067B_BB2'	ALORS	2067B_BB2 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_BB3'	ALORS	2067B_BB3 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_BB4'	ALORS	2067B_BB4 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_BB5'	ALORS	2067B_BB5 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_BB6'	ALORS	2067B_BB6 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_BB7'	ALORS	2067B_BB7 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_BB8'	ALORS	2067B_BB8 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_BB9'	ALORS	2067B_BB9 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_BB10'	ALORS	2067B_BB10 := chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_BB11'	ALORS	2067B_BB11 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_BB12'	ALORS	2067B_BB12 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_BB13'	ALORS	2067B_BB13 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_BB14'	ALORS	2067B_BB14 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_BB15'	ALORS	2067B_BB15 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_BB16'	ALORS	2067B_BB16 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_BB17'	ALORS	2067B_BB17 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_BB18'	ALORS	2067B_BB18 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_BB19'	ALORS	2067B_BB19 :=  chaine{choixPays {},1,8} 	FINSI
    SI variable = '2067B_BB20'	ALORS	2067B_BB20 :=  chaine{choixPays {},1,8} 	FINSI
    
    affichage {VRAI}	-- Pour réinitialisation affichage
###
'PAGE_LTENG219B4_3_EXT' 'Toutes fonctions'
    impression {'compta/25/annexes/lteng219b4_3_ext.fnd'}
    impression {'fin_page'}
###
'PAGE_LTENG219B4_2_EXT' 'Toutes fonctions'
    impression {'compta/25/annexes/lteng219b4_2_ext.fnd'}
    impression {'fin_page'}
###
'PAGE_LTENG219B4_1_EXT' 'Toutes fonctions'
    impression {'compta/25/annexes/lteng219b4_1_ext.fnd'}
    impression {'fin_page'}
###
'annulerImportEmprunts' 'Toutes fonctions'
    
    ok := ouiNon {'Ce traitement va annuler les valeurs des emprunts présents dans le feuillet 2033A.
Les données actuelles seront supprimées. Confirmez-vous cette opération ?'}
    SI NON ok ALORS SORTIR FAUX FINSI
    
    -------------------------------------------------------------------------------
    _195	:=	?
    INTER2033A {}
    affichage {}
    
    SORTIR VRAI
###
'controleCVAE' 'Toutes fonctions'
    
    SI 2033E_KD < 152500 ET (2033E_KA <> ? OU 2033E_KB <> ? OU 2033E_KC <> ? OU 2033E_KG <> ?) ALORS
    	SORTIR FAUX
    FIN SI
    
    SORTIR VRAI
###
'controlePreEDI' 'Toutes fonctions'

    SI 2033E_KA <> ? ET 2033E_KD < 152500
    ALORS
    	info{'Vous avez coché mono-établissement dans le feuillet 2033E mais la ligne 022 est < 152.500 ; 
modifiez ce feuillet et rejouer le flux.'}
    	SORTIR FAUX
    FIN SI
    
    SORTIR VRAI
###
