'EDIPAIE_detail' 'EDI'
        
    -- ATTENTION : ne pas prendre les données BB, CA et CB pour cette liasse
    -- ATTENTION : mettre une condition Annuel pour avoir la donnée BB
    
    -- ATTENTION : vérifier les différences avec la base pour 1329AC
    
    -- P-IDENTIF 2015
    donneeNADcomplet { 'P-IDENTIF' , 'AA' , '00' , chaine{edipaie_siret, 1, 9}, edipaie_nom, 'NS' , 'NS', '' , '' , edipaie_adresse1 , edipaie_adresse2, edipaie_adresse3, edipaie_ville, edipaie_codepostal, '', '' , '' } 	
    SI edipaie_TLR1_IBAN <> ? ET edipaie_paiementTLR = VRAI ET edipaie_TLR1 = VRAI  ALORS donneeFIIIBAN2 { 'P-IDENTIF' , 'GA' , '00' , edipaie_TLR1_IBAN , edipaie_TLR1_IBANetranger , edipaie_TLR1_codeBIC , '' } FINSI	
    SI edipaie_TLR2_IBAN <> ? ET edipaie_paiementTLR = VRAI ET edipaie_TLR2 = VRAI  ALORS donneeFIIIBAN2 { 'P-IDENTIF' , 'GB' , '00' , edipaie_TLR2_IBAN , edipaie_TLR2_IBANetranger , edipaie_TLR2_codeBIC , '' } FINSI	
    SI edipaie_TLR3_IBAN <> ? ET edipaie_paiementTLR = VRAI ET edipaie_TLR3 = VRAI  ALORS donneeFIIIBAN2 { 'P-IDENTIF' , 'GC' , '00' , edipaie_TLR3_IBAN , edipaie_TLR3_IBANetranger , edipaie_TLR3_codeBIC , '' } FINSI	
    SI edipaie_TLR1_montant <> ? ET edipaie_paiementTLR = VRAI ET edipaie_TLR1 = VRAI  ALORS donneeMOA2 { 'P-IDENTIF' , 'HA' , '00' , edipaie_TLR1_montant , '' } FINSI	
    SI edipaie_TLR2_montant <> ? ET edipaie_paiementTLR = VRAI ET edipaie_TLR2 = VRAI  ALORS donneeMOA2 { 'P-IDENTIF' , 'HB' , '00' , edipaie_TLR2_montant , '' } FINSI	
    SI edipaie_TLR3_montant <> ? ET edipaie_paiementTLR = VRAI ET edipaie_TLR3 = VRAI  ALORS donneeMOA2 { 'P-IDENTIF' , 'HC' , '00' , edipaie_TLR3_montant , '' } FINSI	
    SI edipaie_TLR1_reference <> ? ET edipaie_paiementTLR = VRAI ET edipaie_TLR1 = VRAI  ALORS donneeRFF { 'P-IDENTIF' , 'KA' , '00' , edipaie_TLR1_reference , '' } FINSI	
    SI edipaie_TLR2_reference <> ? ET edipaie_paiementTLR = VRAI ET edipaie_TLR2 = VRAI  ALORS donneeRFF { 'P-IDENTIF' , 'KB' , '00' , edipaie_TLR2_reference , '' } FINSI	
    SI edipaie_TLR3_reference <> ? ET edipaie_paiementTLR = VRAI ET edipaie_TLR3 = VRAI  ALORS donneeRFF { 'P-IDENTIF' , 'KC' , '00' , edipaie_TLR3_reference , '' } FINSI	
    SI edipaie_refObligationFiscale <> ?   ALORS donneeRFF { 'P-IDENTIF' , 'KD' , '00' , edipaie_refObligationFiscale , '' } FINSI	
    SI edipaie_echeance <> ?   ALORS donneeDTM610 { 'P-IDENTIF' , 'KF' , '00' , edipaie_echeance , '' } FINSI	
    
	--VERSION 2018
	donneeMOA { '1329AC' , 'AA' , '00' , 1329_A , 'FORCE' } 
	SI 1329_AB <> ?   ALORS donneeMOA { '1329AC' , 'AB' , '00' , 1329_AB , '' } FIN SI
	SI 1329_B <> ?   ALORS donneePCD { '1329AC' , 'AC' , '00' , 1329_B , '' } FIN SI
	SI 1329_AD <> ?   ALORS donneeMOA { '1329AC' , 'AD' , '00' , 1329_AD , '' } FIN SI
	donneeMOA { '1329AC' , 'BA' , '00' , 1329_C , 'FORCE' }
	SI 1329_D <> ? ET 1329_X=?   ALORS donneeMOA { '1329AC' , 'BB' , '00' , 1329_D , '' } FIN SI
	SI 1329_X <> ?   ALORS donneeCCI { '1329AC' , 'BC' , '00' , 'X' , 'TBX' } FIN SI
	SI 1329_E <> ?   ALORS donneeMOA { '1329AC' , 'CA' , '00' , 1329_E , '' } FIN SI
	SI 1329_F <> ?   ALORS donneeMOA { '1329AC' , 'CB' , '00' , 1329_F , '' } FIN SI
	SI 1329_DA <> ?   ALORS donneeMOA { '1329AC' , 'DA' , '00' , 1329_DA , '' } FIN SI
	SI 1329_DB <> ?   ALORS donneeMOA { '1329AC' , 'DB' , '00' , 1329_DB , '' } FIN SI
	SI 1329_EA <> ?   ALORS donneeMOA { '1329AC' , 'EA' , '00' , 1329_EA , '' } FIN SI
	SI 1329_EB <> ?   ALORS donneeMOA { '1329AC' , 'EB' , '00' , 1329_EB , '' } FIN SI
	SI 1329_EC <> ?   ALORS donneeMOA { '1329AC' , 'EC' , '00' , 1329_EC , '' } FIN SI
	SI 1329_ED <> ?   ALORS donneeMOA { '1329AC' , 'ED' , '00' , 1329_ED , '' } FIN SI
	SI palierAout ALORS
		SI 1329_EE <> ?   ALORS donneeMOA { '1329AC' , 'EE' , '00' , 1329_EE , '' } FIN SI
	FINSI
	SI 1329_GA <> ?   ALORS donneeCCI { '1329AC' , 'GA' , '00' , 'X' , 'TBX' } FIN SI
	SI 1329_GB <> ? ET 1329_GA =?   ALORS donneeMOA { '1329AC' , 'GB' , '00' , 1329_GB , '' } FIN SI
	SI 1329_KA <> ?   ALORS donneeMOA { '1329AC' , 'KA' , '00' , 1329_KA , '' } FIN SI
###
'envoiEDIPAIEMENT' 'EDI'
    
    -------------------------
    anneeEDIPAIE := '2025'
    GUM := 'D00B'
    -------------------------
    liasse_edipaie := '1329AC'	
    
	SI ediBloque ET (NON ((enDev{'EDI'} OU enTestCompta{}) ET shift {})) ALORS
		info {'Vous devez attendre la mise à jour EDIPAIEMENT CVAE 2025
du mois d''août pour télétransmettre cette liasse.'}
		SORTIR FAUX
	FIN SI

    SI periodeReference <> ?  ET periode.fin <> periodeReference	ALORS	
    	info {'Vous devez vous placer sur le mois correspondant à la déclaration pour effectuer cette opération.'}
    	SORTIR FAUX
    FINSI
    
    -- contrôles
    SI NON controlesMontants{} ALORS SORTIR FAUX FIN SI
    
    -- calcul de l'échéance à effectuer
    edipaie_echeance := date{15, mois{periodeReference}, annee{periodeReference}}
    
    -- ajout scr le 13/09/11 : dans le cas de la 1329AC, on met l'échéance dans debut et fin de période, 
    -- cela sert uniquement dans l'entete DOC
    edipaie_debutPeriode := edipaie_echeance
    edipaie_finPeriode := edipaie_echeance
    
    -------------------------------------------------
    montantAcompte := 1329_KA
    -------------------------------------------------
    
    EDIPAIE_initialisation{}
    
    SI controlesOK = VRAI	ALORS
    	EDIPAIE_entete{}
    	EDIPAIE_detail{}
    	EDIPAIE_fin{}
    FINSI
    
    SORTIR VRAI
###
'INITIALISER' 'Toutes fonctions'
    categorie := 'Liasses fiscales 2025...'
    numero := 1340
    
    gererPeriode{}

    SI (mois{periodeReference} = 9 ET annee{periode.fin} >= 2025 ) OU annee{periodeReference} > 2025 ALORS 
    	palierAout := VRAI
    FINSI

###
'choisirMois' 'Toutes fonctions'
    
    moisTransmission := choix {'Juin
Septembre'}
    
    NOM	 += ' ' + moisTransmission + ' ' +annee {periode.fin}
###
'PAGE_1329_AC_3' 'Toutes fonctions'
	impressionDirecte{'compta/25/CVAE/1329_AC_3.fnd'}
	impression{'compta/25/CVAE/1329_c.fnd'}
	impression{'compta/25/CVAE/1329_c2.fnd'}
	impression{'fin_page'}
###
'PAGE_1329_AC__3' 'Toutes fonctions'
	impressionDirecte{'compta/25/CVAE/1329_AC__3.fnd'}
	impression{'compta/25/CVAE/1329_c.fnd'}
	impression{'compta/25/CVAE/1329_c2.fnd'}
	impression{'fin_page'}
###
'PAGE_1329_AC_2' 'Toutes fonctions'
	impressionDirecte{'compta/25/CVAE/1329_AC_2.fnd'}
	impression{'compta/25/CVAE/1329_c.fnd'}
	impression{'compta/25/CVAE/1329_c3.fnd'}
	impression{'fin_page'}
###
'PAGE_1329_AC_1' 'Toutes fonctions'
	impressionDirecte{'compta/25/CVAE/1329_AC_1.fnd'}
	impression{'compta/25/CVAE/1329_c.fnd'}
	impression{'fin_page'}
###
'1329_AC_3' 'Toutes fonctions'
	INTER1329{}
###
'1329_AC__3' 'Toutes fonctions'
	INTER1329{}
###
'1329_AC_2' 'Toutes fonctions'
	INTER1329{}
###
'1329_AC_1' 'Toutes fonctions'
	INTER1329{}
###
'SELECTION' 'Toutes fonctions'

	ediBloque := FAUX
	
	majGrise{}
	SI 1329_KA = 0 ALORS
		etat.{'Proposer les écritures de paiement_gris'}booleen	:= VRAI
	FIN SI

	Télétransmissions := VRAI	-- Rend le tiroir (caché par défaut au niveau EtatComptable) visible

	comptesSubstitution := 'Non applicable'

	EDIPAIEMENT := VRAI
	EDITDFC := FAUX

###
'IMPRIMER' 'Toutes fonctions'
    
    SI ImpressionPartielle ALORS
    	SI I_1329_AC_1 ALORS impressionDirecte{'compta/25/CVAE/1329_AC_1.fnd'}  impression{'compta/25/CVAE/1329_c.fnd'} impression{'compta/25/CVAE/1329_AC_1.var'} FINSI
    	SI I_1329_AC_2 ALORS impressionDirecte{'compta/25/CVAE/1329_AC_2.fnd'} impression{'compta/25/CVAE/1329_c.fnd'} impression{'compta/25/CVAE/1329_AC_2.var'} FINSI
    	SI I_1329_AC_3 ALORS
    		SI palierAout ALORS
    			impressionDirecte{'compta/25/CVAE/1329_AC__3.fnd'} impression{'compta/25/CVAE/1329_c.fnd'} impression{'compta/25/CVAE/1329_AC__3.var'}
    		SINON
    			impressionDirecte{'compta/25/CVAE/1329_AC_3.fnd'} impression{'compta/25/CVAE/1329_c.fnd'} impression{'compta/25/CVAE/1329_AC_3.var'}
    		FINSI
    	FINSI	
    SINON
    	impressionDirecte{'compta/25/CVAE/1329_AC_1.fnd'} impression{'compta/25/CVAE/1329_c.fnd'} impression{'compta/25/CVAE/1329_AC_1.var'} 
    	impressionDirecte{'compta/25/CVAE/1329_AC_2.fnd'} impression{'compta/25/CVAE/1329_c.fnd'} impression{'compta/25/CVAE/1329_AC_2.var'} 
    	SI palierAout ALORS
    		impressionDirecte{'compta/25/CVAE/1329_AC__3.fnd'} impression{'compta/25/CVAE/1329_c.fnd'} impression{'compta/25/CVAE/1329_AC__3.var'}
    	SINON
    		impressionDirecte{'compta/25/CVAE/1329_AC_3.fnd'} impression{'compta/25/CVAE/1329_c.fnd'} impression{'compta/25/CVAE/1329_AC_3.var'}
    	FINSI
    FINSI
###
'OUVERTURE' 'Toutes fonctions'
    
    impression{'entete.ps'}
    impression{'compta/25/liasse.ps'}
###
'INTER1329' 'Toutes fonctions'
    
    |
    	tmpMonnaie<Monnaie> tmpCA<Monnaie> tmpCA2<Monnaie> 
    	ind<Entier>
    |
    
    1329_adrDepot1_C := dossier.AdrCdi1
    SI 1329_adrDepot1 = ? ALORS
    	1329_adrDepot1 := 1329_adrDepot1_C
    FINSI
    1329_adrDepot2_C := dossier.AdrCdi2
    SI 1329_adrDepot2 = ? ALORS
    	1329_adrDepot2 := 1329_adrDepot2_C
    FINSI
    1329_adrDepot3_C := dossier.CPCdi + ' ' + dossier.VilleCdi
    SI 1329_adrDepot3 = ? ALORS
    	1329_adrDepot3 := 1329_adrDepot3_C
    FINSI
    
    
    1329_Raison_C := dossier.RaisonSociale
    SI 1329_Raison = ? ALORS
    	1329_Raison := 1329_Raison_C	
    FINSI
    1329_adresse1_C := dossier.Adresse1 
    SI 1329_adresse1 = ? ALORS
    	1329_adresse1 := 1329_adresse1_C
    FINSI
    1329_adresse2_C := dossier.Adresse2
    SI 1329_adresse2 = ? ALORS
    	1329_adresse2 := 1329_adresse2_C
    FINSI
    1329_adresse3_C := dossier.Adresse3 
    SI 1329_adresse3 = ? ALORS
    	1329_adresse3 := 1329_adresse3_C
    FINSI
    1329_cpVille_C := dossier.CodePostal + ' ' + dossier.Ville
    SI 1329_cpVille = ? ALORS
    	1329_cpVille := 1329_cpVille_C	
    FINSI
    
    1329_SIE_C := dossier.NumRecette
    SI 1329_SIE = ? ALORS
    	1329_SIE := 1329_SIE_C
    FINSI
    1329_CDI_C := dossier.Insp
    SI 1329_CDI = ? ALORS
    	1329_CDI := 1329_CDI_C
    FINSI
    1329_siret_C := dossier.Siret
    SI 1329_siret = ? ALORS
    	1329_siret := 1329_siret_C
    FINSI
    
    1329_FRP_C := dossier.NumRecette + ' ' + dossier.Ndoss + ' ' + dossier.CleRecette
    SI 1329_FRP = ? ALORS
    	1329_FRP := 1329_FRP_C
    FINSI
    
    SI mois{periodeReference} = 6 ALORS
    	1329_juin := 'X'
    	1329_septembre := ''
    	1329_dateLimite := date{15,06,annee {periode.fin}}
    SINON
    	SI mois{periodeReference} = 9 ALORS
    		1329_juin := ''
    		1329_septembre := 'X'
    		1329_dateLimite := date{15,09,annee {periode.fin}}
    	FIN SI
    FINSI
    
    1329_date_C := aujourdhui{}
    SI 1329_date = ? ALORS
    	1329_date := 1329_date_C
    FINSI
    1329_tel_C := dossier.Telephone
    SI 1329_tel = ? ALORS
    	1329_tel := 1329_tel_C
    FINSI
    1329_courriel_C := dossier.Email
    SI 1329_courriel = ? ALORS
    	1329_courriel := 1329_courriel_C	
    FINSI	
    1329_signature_C := dossier.RepresentantLegal
    SI 1329_signature = ? ALORS
    	1329_signature := 1329_signature_C 
    FINSI
    
    recupererMtCvaeRef{}
    SI cvaeRef = ? ALORS
    	recupererValeurs{}
    FINSI
    
    SI 1329_A = ? ALORS
    	1329_A := 1329_A_C
    FINSI
    
    -- correction pour un client qui a un CA à 10 chiffres
    SI taille{''+1329_A} >= 10 ALORS
    	ind := indiceDe{''+1329_A, ','}
    	SI ind > 0 ALORS
    		SI entier{chaine{''+1329_A, ind+1, ind+1}} >= 5 ALORS
    			1329_A := monnaie{chaine{''+1329_A, 1, ind-1}}+1
    		SINON
    			1329_A := monnaie{chaine{''+1329_A, 1, ind-1}}
    		FIN SI
    	FIN SI
    SINON
    	1329_A := arrondirMonnaieSansDecimale{1329_A}
    FIN SI
    -- correction pour un client qui a un CA à 10 chiffres
    SI taille{''+1329_AB} >= 10 ALORS
    	ind := indiceDe{''+1329_AB, ','}
    	SI ind > 0 ALORS
    		SI entier{chaine{''+1329_AB, ind+1, ind+1}} >= 5 ALORS
    			1329_AB := monnaie{chaine{''+1329_AB, 1, ind-1}}+1
    		SINON
    			1329_AB := monnaie{chaine{''+1329_AB, 1, ind-1}}
    		FIN SI
    	FIN SI
    SINON
    	1329_AB := entier{1329_AB}
    FIN SI
    
    SI 1329_AD = ? ALORS
    	1329_AD := 1329_AD_C
    FINSI
    -- correction pour un client qui a un CA à 10 chiffres
    SI taille{''+1329_AD} >= 10 ALORS
    	ind := indiceDe{''+1329_AD, ','}
    	SI ind > 0 ALORS
    		SI entier{chaine{''+1329_AD, ind+1, ind+1}} >= 5 ALORS
    			1329_AD := monnaie{chaine{''+1329_AD, 1, ind-1}}+1
    		SINON
    			1329_AD := monnaie{chaine{''+1329_AD, 1, ind-1}}
    		FIN SI
    	FIN SI
    SINON
    	1329_AD := entier{1329_AD}
    FIN SI

    SI 1329_A < 152500 ALORS	-- formule dans le cdc edi
    	tmpCA :=0
    SINON
    	SI 1329_AD>0 ALORS
    		tmpCA := 1329_AD
    	SINON
    		tmpCA := 1329_A
    	FINSI
    FINSI

    SI tmpCA < 500000 ALORS
    	tmpMonnaie := 0.0
    SINON
    	SI (tmpCA >= 500000) ET (tmpCA <= 3000000)  ALORS
    		tmpMonnaie := arrondiSup {(((0.063 * (tmpCA - 500000)) / 2500000)*100 - 0.4999999)}/100
    	SINON
    		SI tmpCA > 3000000 ET tmpCA <= 10000000 ALORS
    			tmpMonnaie := arrondiSup {((((0.113 * (tmpCA - 3000000)) / 7000000) + 0.063)*100 - 0.4999999)}/100
    		SINON
    			SI tmpCA > 10000000 ET tmpCA <= 50000000 ALORS
    				tmpMonnaie := arrondiSup {((((0.013 * (tmpCA - 10000000)) / 40000000) + 0.175)*100 - 0.4999999)}/100
    			SINON
    				SI tmpCA > 50000000 ALORS
    					tmpMonnaie := 0.19
    				FINSI
    			FINSI
    		FINSI
    	FINSI
    FINSI
	
	SI tmpCA > 50000000 ALORS
		1329_B := 0.19
	SINON
		1329_B := tmpMonnaie
	FINSI

    SI 1329_C = ? ALORS
    	1329_C := 1329_C_C
    	SI 1329_C = ? ALORS
    		1329_C := 0
    	FINSI
    FINSI
    -- correction pour un client qui a un CA à 10 chiffres
    SI taille{''+1329_C} >= 10 ALORS
    	ind := indiceDe{''+1329_C, ','}
    	SI ind > 0 ALORS
    		SI entier{chaine{''+1329_C, ind+1, ind+1}} >= 5 ALORS
    			1329_C := monnaie{chaine{''+1329_C, 1, ind-1}}+1
    		SINON
    			1329_C := monnaie{chaine{''+1329_C, 1, ind-1}}
    		FIN SI
    	FIN SI
    SINON
    	1329_C := arrondirMonnaieSansDecimale{1329_C}
    FIN SI
    
    tmpCA2 := 1329_A
    SI 1329_AB > 0 ALORS
    	tmpCA2 := 1329_AB
    FIN SI
    
    SI 1329_X = ? ALORS
    	SI tmpCA2 <= 7600000 ALORS
    		1329_D := (tmpCA2) * 0.8
    	SINON
    		1329_D := (tmpCA2) * 0.85
    	FINSI
    	-- correction pour un client qui a un CA à 10 chiffres
    	SI taille{''+1329_D} >= 10 ALORS
    		ind := indiceDe{''+1329_D, ','}
    		SI ind > 0 ALORS
    			SI entier{chaine{''+1329_D, ind+1, ind+1}} >= 5 ALORS
    				1329_D := monnaie{chaine{''+1329_D, 1, ind-1}}+1
    			SINON
    				1329_D := monnaie{chaine{''+1329_D, 1, ind-1}}
    			FIN SI
    		FIN SI
    	SINON
    		1329_D := entier{1329_D}
    	FIN SI
    SINON
    	1329_D := ?
    FIN SI
    
    SI 1329_X = 'X' ALORS
    	1329_E := arrondiSup {((1329_C * 1329_B%) - 0.4999999)}
    SINON
    	SI 1329_C <= 1329_D ALORS
    		1329_E := arrondiSup {((1329_C * 1329_B%) - 0.4999999)}
    	SINON
    		1329_E := arrondiSup {((1329_D * 1329_B%) - 0.4999999)}
    	FINSI
    FINSI
    
    1329_E := entier{1329_E}
    
    ---- PAGE 3 ----
    
    1329_F_C := 0
    
    SI 1329_A < 2000000 ALORS
    	SI 1329_E > 125 ALORS
    		1329_F_C := arrondiSup {(((1329_E - 125) * 50%) - 0.4999999)}	
    	FINSI
    SINON
    	1329_F_C := arrondiSup {((1329_E * 50%) - 0.4999999)}
    FINSI
    
    SI 1329_F = ? ALORS
    	1329_F := 1329_F_C
    FIN SI
    
    1329_F := entier{1329_F}
    
    1329_DA := entier{1329_DA}
    1329_DB := entier{1329_DB}
    
    1329_EB := entier{1329_EB}
    1329_EC := entier{1329_EC}
    
    1329_EA	:= 	1329_F - 1329_DA - 1329_DB
    
    SI 1329_EA < 0 ALORS
    	1329_EA := 0
    FIN SI
    
    1329_EB := entier{1329_EB}
    1329_EC := entier{1329_EC}
    1329_ED	:= 	1329_EA + 1329_EB - 1329_EC
    
    SI 1329_ED < 0 ALORS
    	1329_ED := 0
    FIN SI
    
    1329_GB := 0
    
    SI taille{1329_GA} < 1 ALORS
		1329_GB := arrondiSup{(0.1384 * 1329_ED) - 0.4999999}
    FINSI
    
    1329_GB := entier{1329_GB}

    SI palierAout ALORS
    	1329_EE := 0
    	1329_EE := arrondiSup{(2 * (47.4 / 100) * 1329_ED) - 0.4999999}
    	1329_EE := entier{1329_EE}
    FINSI
        
    1329_KA := 1329_ED + 1329_GB

    SI palierAout ALORS
    	1329_KA += 1329_EE
    FINSI
    
    SI 1329_KA < 0 ALORS
    	1329_KA := 0
    FIN SI
###
'calculer' 'Toutes fonctions'
    
    init{}
    
    
    EstCalcule [periode.fin ] := VRAI
    
    majGrise{}
###
'imprimer' 'Toutes fonctions'
    
    devise {etat.devise}
    
    
    IMP := VRAI
    impression{'compta/25/liasse.ps'}
    
    IMPRIMER{}
    
    IMP	:= FAUX
###
'gererPeriode' 'Toutes fonctions'
    
    
    periodeReference := periode.fin
    NOM += ' ' + annee {periode.fin} 
    SI mois {periode.fin}  < 10	
    	ALORS 	NOM += '-0' +  mois {periode.fin} 
    	SINON	NOM += '-' + mois {periode.fin} 
    FINSI
    
    SI mois{periodeReference} = 6 ALORS
    	moisTransmission := 'Juin'
    SINON
    	SI mois{periodeReference} = 9 ALORS
    		moisTransmission := 'Juin'
    	FIN SI
    FIN SI
###
'recupererValeurs' 'Toutes fonctions'
    
    |
    	nomLiasse<Chaine>
    	dte<Date>
    	ISRSRefN<Objet> ISRSRefN1<Objet>
    	ISRNRefN<Objet> ISRNRefN1<Objet>
    	IRRSRefN<Objet> IRRSRefN1<Objet>
    	IRRNRefN<Objet> IRRNRefN1<Objet>
    	BNCRefN<Objet> BNCRefN1<Objet>
    	2072ERefN<Objet> 2072ERefN1<Objet>
    |
    
    
    ISRSRefN ::= 'Liasse_25_IS_RS'
    ISRSRefN1 ::= 'Liasse_24_IS_RS'
    ISRNRefN  ::= 'Liasse_25_IS_RN' 
    ISRNRefN1 ::= 'Liasse_24_IS_RN' 
    IRRSRefN ::= 'Liasse_25_IR_RS'  
    IRRSRefN1 ::= 'Liasse_24_IR_RS' 
    IRRNRefN ::= 'Liasse_25_IR_RN'
    IRRNRefN1 ::= 'Liasse_24_IR_RN'
    BNCRefN ::= 'BNC_25' 
    BNCRefN1 ::= 'BNC_24' 
    2072ERefN ::= 'Liasse_25_2072E' 
    2072ERefN1 ::= 'Liasse_24_2072E' 
    
    
    dte := exerciceComptable.dateFin
    
    SI liasseRef # 'N-1' ALORS
    	SI liasseRef # '*(*' ALORS 
    		nomLiasse := chaine{liasseRef, 7, taille{liasseRef} -9}
    	SINON
    		nomLiasse := chaine{liasseRef, 7, taille{liasseRef}}
    	FINSI
    
    	exerciceComptable	::=	exerciceComptable.dateDebut - 1
    	POUR TOUT element<EtatComptable> DE exerciceComptable.etats FAIRE
    		
    		SI classe{element} # 'Liasse_24_IS_RS'  ET element.NOM = nomLiasse
    		ALORS
    			ISRSRefN1 := element
    			1329_C_C := ISRSRefN1._117s
    			1329_A_C := ISRSRefN1.2033E_KD
    		FINSI
    
    		SI    classe{element} # 'Liasse_24_IS_RN' ET element.NOM = nomLiasse
    		ALORS
    			ISRNRefN1 := element
    			1329_C_C := ISRNRefN1.2059E_SA
    			1329_A_C := ISRNRefN1.2059E_GX
    		FINSI
    
    		SI    classe{element} # 'Liasse_24_IR_RS'  ET element.NOM = nomLiasse
    		ALORS
    			IRRSRefN1 := element
    			1329_C_C := IRRSRefN1._117s
    			1329_A_C := IRRSRefN1.2033E_KD
    		FINSI
    
    		SI   classe{element} # 'Liasse_24_IR_RN' ET element.NOM = nomLiasse
    		ALORS
    			IRRNRefN1 := element
    			1329_C_C := IRRNRefN1.2059E_SA
    			1329_A_C := IRRNRefN1.2059E_GX
    		FINSI
    
    		SI   classe{element} # 'BNC_24' ET element.NOM = nomLiasse
    		ALORS
    			BNCRefN1 := element
    			1329_C_C := BNCRefN1.2035E_JU
    			1329_A_C := BNCRefN1.2035E_KD
    		FINSI
    
    		SI   classe{element} # 'Liasse_24_2072E'    ET element.NOM = nomLiasse
    		ALORS
    			2072ERefN1 := element
    			1329_C_C := 2072ERefN1.2072E_D12
    			1329_A_C := 2072ERefN1.2072E_KD
    		FINSI
    
    		SI classe{element} # 'Liasse_25_IS_RS' ET element.NOM = nomLiasse
    		ALORS
    			ISRSRefN := element
    			1329_C_C := ISRSRefN._117s
    			1329_A_C := ISRSRefN.2033E_KD
    		FINSI
    
    		SI    classe{element} # 'Liasse_25_IS_RN' ET element.NOM = nomLiasse
    		ALORS
    			ISRNRefN := element
    			1329_C_C := ISRNRefN.2059E_SA
    			1329_A_C := ISRNRefN.2059E_GX
    		FINSI
    
    		SI    classe{element} # 'Liasse_25_IR_RS'  ET element.NOM = nomLiasse
    		ALORS
    			IRRSRefN := element
    			1329_C_C := IRRSRefN._117s
    			1329_A_C := IRRSRefN.2033E_KD
    		FINSI
    
    		SI   classe{element} # 'Liasse_25_IR_RN' ET element.NOM = nomLiasse
    		ALORS
    			IRRNRefN := element
    			1329_C_C := IRRNRefN.2059E_SA
    			1329_A_C := IRRNRefN.2059E_GX
    		FINSI
    
    		SI   classe{element} # 'BNC_25' ET element.NOM = nomLiasse
    		ALORS
    			BNCRefN := element
    			1329_C_C := BNCRefN.2035E_JU
    			1329_A_C := BNCRefN.2035E_KD
    		FINSI
    
    		SI   classe{element} # 'Liasse_25_2072E'    ET element.NOM = nomLiasse
    		ALORS
    			2072ERefN := element
    			1329_C_C := 2072ERefN.2072E_D12
    			1329_A_C := 2072ERefN.2072E_KD
    		FINSI
    
    	FIN FAIRE
    SINON
    	
    	SI liasseRef # '*(*' ALORS 
    		nomLiasse := chaine{liasseRef, 5, taille{liasseRef} -11}
    	SINON
    		nomLiasse := chaine{liasseRef, 5, taille{liasseRef}}
    	FINSI
    	exerciceComptable	::=	exerciceComptable.dateDebut
    	POUR TOUT element<EtatComptable> DE exerciceComptable.etats FAIRE
    		
    		SI classe{element} # 'Liasse_24_IS_RS'  ET element.NOM = nomLiasse
    		ALORS
    			ISRSRefN1 := element
    			1329_C_C := ISRSRefN1._137s
				1329_A_C := ISRSRefN1.2033E_KD
    		FINSI
    
    		SI    classe{element} # 'Liasse_24_IS_RN' ET element.NOM = nomLiasse
    		ALORS
    			ISRNRefN1 := element
    			1329_C_C := ISRNRefN1._OG
				1329_A_C := ISRNRefN1.2059E_GX
    		FINSI
    
    		SI    classe{element} # 'Liasse_24_IR_RS'  ET element.NOM = nomLiasse
    		ALORS
    			IRRSRefN1 := element
    			1329_C_C := IRRSRefN1._137s
				1329_A_C := IRRSRefN1.2033E_KD
    		FINSI
    
    		SI   classe{element} # 'Liasse_24_IR_RN' ET element.NOM = nomLiasse
    		ALORS
    			IRRNRefN1 := element
    			1329_C_C := IRRNRefN1._OG
				1329_A_C := IRRNRefN1.2059E_GX
    		FINSI
    
    		SI   classe{element} # 'BNC_24' ET element.NOM = nomLiasse
    		ALORS
    			BNCRefN1 := element
    			1329_C_C := BNCRefN1.2035EEX
				1329_A_C := BNCRefN1.2035E_KD
    		FINSI
    
    		SI   classe{element} # 'Liasse_24_2072E'    ET element.NOM = nomLiasse
    		ALORS
    			2072ERefN1 := element
    			1329_C_C := 2072ERefN1.T03
				1329_A_C := 2072ERefN1.2072E_KD
    		FINSI
    
    		SI classe{element} # 'Liasse_25_IS_RS' ET element.NOM = nomLiasse
    		ALORS
    			ISRSRefN := element
    			1329_C_C := ISRSRefN._137s
				1329_A_C := ISRSRefN.2033E_KD
    		FINSI
    
    		SI    classe{element} # 'Liasse_25_IS_RN' ET element.NOM = nomLiasse
    		ALORS
    			ISRNRefN := element
    			1329_C_C := ISRNRefN._OG
				1329_A_C := ISRNRefN.2059E_GX
    		FINSI
    
    		SI    classe{element} # 'Liasse_25_IR_RS'  ET element.NOM = nomLiasse
    		ALORS
    			IRRSRefN := element
    			1329_C_C := IRRSRefN._137s
				1329_A_C := IRRSRefN.2033E_KD
    		FINSI
    
    		SI   classe{element} # 'Liasse_25_IR_RN' ET element.NOM = nomLiasse
    		ALORS
    			IRRNRefN := element
    			1329_C_C := IRRNRefN._OG
				1329_A_C := IRRNRefN.2059E_GX
    		FINSI
    
    		SI   classe{element} # 'BNC_25' ET element.NOM = nomLiasse
    		ALORS
    			BNCRefN := element
    			1329_C_C := BNCRefN.2035EEX
				1329_A_C := BNCRefN.2035E_KD
    		FINSI
    
    		SI   classe{element} # 'Liasse_25_2072E'    ET element.NOM = nomLiasse
    		ALORS
    			2072ERefN := element
    			1329_C_C := 2072ERefN.T03
				1329_A_C := 2072ERefN.2072E_KD
    		FINSI
    
    	FIN FAIRE
    
    FIN SI
    
    exerciceComptable	::=	dte
    
    SORTIR VRAI
###
'recupererMtCvaeRef' 'Toutes fonctions'
    
    |
    	nomLiasse<Chaine>
    	dte<Date>
    	maCvaeRefN<Objet> maCvaeRefN1<Objet>
    	mt<Monnaie>
    |
    
    maCvaeRefN	::=	'Liasse_25_1330_CVAE'
    maCvaeRefN1	::=	'Liasse_24_1330_CVAE'
    
    dte := exerciceComptable.dateFin
    
    SI cvaeRef # 'N-1' ALORS
    	nomLiasse := chaine{cvaeRef, 7, taille{cvaeRef}}
    	exerciceComptable	::=	exerciceComptable.dateDebut - 1
    	POUR TOUT element<EtatComptable> DE exerciceComptable.etats FAIRE
    		SI classe{element} # '*1330_CVAE' ET element.NOM = nomLiasse ALORS
    			maCvaeRefN1 := element
    			1329_C_C := maCvaeRefN1.CVAE_CV02
    			1329_A_C := maCvaeRefN1.CVAE_CV03
    			1329_AD_C := maCvaeRefN1.CVAE_CV04
    		FIN SI
    	FIN FAIRE
    SINON
    	nomLiasse := chaine{cvaeRef, 5, taille{cvaeRef}}
    	POUR TOUT element<EtatComptable> DE exerciceComptable.etats FAIRE
    		SI classe{element} # '*1330_CVAE' ET element.NOM = nomLiasse ALORS
    			maCvaeRefN := element
    			1329_C_C := maCvaeRefN.CVAE_CV02
    			1329_A_C := maCvaeRefN.CVAE_CV03
    			1329_AD_C := maCvaeRefN.CVAE_CV04
    		FIN SI
    	FIN FAIRE
    FIN SI
    
    exerciceComptable	::=	dte
    
    SORTIR mt
###
'liasseRef_LISTE' 'Toutes fonctions'
    
    |
    	ch<Chaine>
    	dteFin<Date>
    |
    
    dteFin := exerciceComptable.dateFin
    
    -- SI exercice décalé, on propose les liasses de N et N-1
    SI exerciceComptable.dateFin <> date{31, 12, annee{exerciceComptable.dateFin}} ALORS
    	-- exercice civil
    	POUR TOUT element<EtatComptable> DE exerciceComptable.etats FAIRE
    		SI classe{element} # 'Liasse_*_IS_RS' OU		
    		    classe{element} # 'Liasse_*_IR_RS'  		  
    		ALORS
    			ch += 'N : '+element.NOM + ' (2033 E)  
'
    		FIN SI
    
    		SI classe{element} # 'Liasse_*_IS_RN' OU		 
    		    classe{element} # 'Liasse_*_IR_RN' 		  
    		ALORS
    			ch += 'N : '+element.NOM +' (2059 E) 
'
    		FIN SI
    
    		SI classe{element} # 'BNC_*' 		 
    		ALORS
    			ch += 'N : '+element.NOM +' (2035 E) 
'
    		FIN SI
    
    		SI  classe{element} # 'Liasse_*_2072E'    
    		ALORS
    			ch += 'N : '+element.NOM +' 
'
    		FIN SI
    
    		
    	FIN FAIRE
    	exerciceComptable	::=	exerciceComptable.dateDebut - 1
    	POUR TOUT element<EtatComptable> DE exerciceComptable.etats FAIRE
    		SI classe{element} # 'Liasse_*_IS_RS' OU		
    		    classe{element} # 'Liasse_*_IR_RS'  
    		ALORS
    			ch += 'N-1 : '+element.NOM+' (2033 E)
'
    		FIN SI
    
    		SI  classe{element} # 'Liasse_*_IS_RN' OU
    		    classe{element} # 'Liasse_*_IR_RN'  
    		ALORS
    			ch += 'N-1 : '+element.NOM+' (2059 E)
'
    		FIN SI
    
    		SI    classe{element} # 'BNC_*'  
    		ALORS
    			ch += 'N-1 : '+element.NOM+' (2035 E)
'
    		FIN SI
    
    		SI    classe{element} # 'Liasse_*_2072E'     
    		ALORS
    			ch += 'N-1 : '+element.NOM+'
'
    		FIN SI
    
    
    	FIN FAIRE
    
    SINON
    	-- exercice civil
    	exerciceComptable	::=	exerciceComptable.dateDebut - 1
    	POUR TOUT element<EtatComptable> DE exerciceComptable.etats FAIRE
    		SI classe{element} # 'Liasse_*_IS_RS' OU		
    		    classe{element} # 'Liasse_*_IR_RS'  
    		ALORS
    			ch += 'N-1 : '+element.NOM+' (2033 E)
'
    		FIN SI
    
    		SI  classe{element} # 'Liasse_*_IS_RN' OU
    		    classe{element} # 'Liasse_*_IR_RN'  
    		ALORS
    			ch += 'N-1 : '+element.NOM+' (2059 E)
'
    		FIN SI
    
    		SI    classe{element} # 'BNC_*'  
    		ALORS
    			ch += 'N-1 : '+element.NOM+' (2035 E)
'
    		FIN SI
    
    		SI    classe{element} # 'Liasse_*_2072E'     
    		ALORS
    			ch += 'N-1 : '+element.NOM+'
'
    		FIN SI
    
    	FIN FAIRE
    FIN SI
    
    exerciceComptable	::=	dteFin
    
    SORTIR ch
###
'cvaeRef_MODIF' 'Toutes fonctions'
	recupererMtCvaeRef{}
###
'cvaeRef_LISTE' 'Toutes fonctions'
    
    |
    	ch<Chaine>
    	dteFin<Date>
    |
    
    dteFin := exerciceComptable.dateFin
    
    -- SI exercice décalé, on propose les CVAE de N et N-1
    SI exerciceComptable.dateFin <> date{31, 12, annee{exerciceComptable.dateFin}} ALORS
    	-- exercice civil
    	POUR TOUT element<EtatComptable> DE exerciceComptable.etats FAIRE
    		SI classe{element} # '*1330_CVAE' ALORS
    			ch += 'N : '+element.NOM+'
'
    		FIN SI
    	FIN FAIRE
    	exerciceComptable	::=	exerciceComptable.dateDebut - 1
    	POUR TOUT element<EtatComptable> DE exerciceComptable.etats FAIRE
    		SI classe{element} # '*1330_CVAE' ALORS
    			ch += 'N-1 : '+element.NOM+'
'
    		FIN SI
    	FIN FAIRE
    
    SINON
    	-- exercice civil
    	exerciceComptable	::=	exerciceComptable.dateDebut - 1
    	POUR TOUT element<EtatComptable> DE exerciceComptable.etats FAIRE
    		SI classe{element} # '*1330_CVAE' ALORS
    			ch += 'N-1 : '+element.NOM+'
'
    		FIN SI
    	FIN FAIRE
    FIN SI
    
    exerciceComptable	::=	dteFin
    
    SORTIR ch
###
'controlesMontantsBIS' 'Toutes fonctions'
    
    -- contrôle montants positifs
    SI 1329_A<0 OU 1329_AB<0 OU 1329_AD<0 OU 1329_B<0 OU  1329_C<0 OU 1329_D<0 OU 1329_E<0 OU 1329_F<0 
    OU 1329_DA<0 OU 1329_DB<0 OU 1329_EA<0 OU 1329_EB<0 OU 1329_EC<0 OU 1329_ED<0 OU 1329_GB<0 
    OU 1329_JB<0 OU 1329_JC<0  OU 1329_KA<0 ALORS
    	ERR := 'ERR1 : Seuls les montants positifs ou à zéro sont acceptés pour ce formulaires.'
    	MSG{}
    FIN SI
    
    
    SI  1329_A = ? OU 1329_A < 152500 ALORS
    	ERR := 'ERR2 : Vous ne pouvez pas déclarer un montant inférieur à 152500 ligne 1 (zone A1).' 
    	MSG{}
    FIN SI
    
    SI 1329_AB > 0 ET (1329_A <= 0 OU 1329_A = ?)  ALORS
    	ERR := 'ERR3 : Vous avez renseigné un montant  à la ligne 2 (zone A2), vous devez renseigner un montant à la ligne 1 (zone A1).'
    	MSG{}
    FIN SI
    
    SI 1329_AD > 0 ET 1329_AD < 1329_A ALORS
    	ERR := 'ERR4 : Vous ne pouvez pas renseigner un montant ligne 3 (zone A3) inférieur au montant ligne 1 (zone A1).'
    	MSG{}
    FIN SI
    
    SI 1329_EB > 0 ET 1329_EC > 0 ALORS
    	ERR := 'ERR5 : Vous ne pouvez pas renseigner un montant ligne 12 (zone J) et un montant ligne 13  (zone K).'
    	MSG{}
    FINSI 

	SI 1329_AD > 0 ET 1329_AD < 7630000 ALORS
    	ERR := 'ERR6 : Vous ne pouvez saisir un chiffre d''affaires groupe inférieur à 7 630 000 (zone A3).'
    	MSG{}
    FINSI 

	 SI 1329_C = ? OU 1329_C = 0 ALORS
    	SI NON ouiNon{' Votre déclaration mentionne une valeur ajoutée égale à 0 (zone C, feuillet 2).
Confirmez-vous ce montant nul ?'} 
    	ALORS 
    		1329_C := 0
    		ERR := 'ERR7 : Votre déclaration mentionne une valeur ajoutée égale à 0 (zone C, feuillet 2).'
    		MSG{}
    		SORTIR FAUX 
    	FIN SI
    FIN SI
     

    SORTIR VRAI
###
'controlesMontants' 'Toutes fonctions'
    
    -- contrôle montants positifs
    SI 1329_A<0 OU 1329_AB<0 OU 1329_AD<0 OU 1329_B<0 OU  1329_C<0 OU 1329_D<0 OU 1329_E<0 OU 1329_F<0 
    OU 1329_DA<0 OU 1329_DB<0 OU 1329_EA<0 OU 1329_EB<0 OU 1329_EC<0 OU 1329_ED<0 OU 1329_GB<0
    OU 1329_JB<0 OU 1329_JC<0  OU 1329_KA<0 ALORS
    	info{'Seuls les montants positifs ou à zéro sont acceptés pour ce formulaires.
Merci de corriger avant de renvoyer.'}
    	SORTIR FAUX
    FIN SI
    
    
    SI  1329_A > 0 ET 1329_A <= 152500 ALORS
    	info{'Le chiffre d''affaires (zone A1) est inférieur à 152 500 euros. 
Vous ne pouvez pas déposer ce formulaire ni réaliser de paiement d''acompte.'}
    	SORTIR FAUX
    FIN SI
    
    SI 1329_A <> ? ET 1329_A = 0 ALORS
    	SI NON ouiNon{'Le montant du chiffre d''affaire de référence est nul. Ce doit normalement dans ce cas,
correspondre à un redépôt d''un acompte pour annuler le paiement.
Souhaitez-vous continuer ?'} ALORS SORTIR FAUX FIN SI
    FIN SI
    
    SI 1329_AB > 0 ET (1329_A <= 0 OU 1329_A = ?)  ALORS
    	info{'Le montant du CA réel (zone A2)  est renseigné.
Vous devez également compléter le CA de la période de référence (zone A1) pour tout envoi EDI.
Merci de rectifier le formulaire.'}
    	SORTIR FAUX
    FIN SI
    
    SI 1329_AD > 0 ET 1329_AD < 1329_A ALORS
    	info{'Le montant du CA groupe renseigné (zone A3) ne peut être inférieur au CA de référence (zone A1).
Merci de rectifier le formulaire pour tout envoi EDI.'}
    	SORTIR FAUX
    FIN SI
    
    SI 1329_EB > 0 ET 1329_EC > 0 ALORS
    	info{'Vous ne pouvez pas renseigner simultanément une augmentation et une diminution d''acompte (zones J et K, feuillet 3).
Merci de rectifier le formulaire pour tout envoi EDI.'}
    	SORTIR FAUX
    FINSI 

    SI mois{1329_dateLimite} = 6 ET (1329_EB > 0 OU 1329_EC > 0) ALORS
    	info{'Vous ne pouvez pas renseigner une augmentation ou une diminution d''acompte (zones J et K, feuillet 3) pour l''acompte du mois de juin.
Merci de rectifier le formulaire pour tout envoi EDI.'}
    	SORTIR FAUX
    FIN SI

    -- si 1329_C n'est pas renseigné on fait quand même partir 0
	SI 1329_C = ? ALORS
		1329_C := 0 
	FINSI

	
    SORTIR VRAI
###
'verrouiller' 'Toutes fonctions'
        
    Calculer_gris [periode.fin]	!=	VRAI
    EstVerrouille [periode.fin]	!= 	VRAI
    
    SI NON estLiasseNonDeverrouillable{} ALORS
    	liasseVerrouillee := VRAI
    FIN SI
    
    SI exerciceComptable.EstCloture[exerciceComptable.dateFin] ALORS
    	archiverPDF{}
    FIN SI
    
    majGrise{}
    editeur.majAttributs
    
    SORTIR VRAI
###
'deverrouiller' 'Toutes fonctions'
        
    SI ok {'Confirmez vous le déverrouillage ?'} ALORS
    	EstVerrouille [periode.fin]	!=	FAUX
    	majGrise{}
    	editeur.majAttributs
    	toutDeverouiller := VRAI
    	liasseVerrouillee := FAUX
    SINON
    	toutDeverouiller := FAUX
    FINSI
###
'liasseRef_MODIF' 'Toutes fonctions'
    
    1329_C_C := ?
    
    SI cvaeRef = ? ALORS
    	recupererValeurs{}
    FINSI    
    
    SORTIR VRAI
###
'choixJournal1329_LISTE' 'Toutes fonctions'
    
    -- Choix du compte à ouvrir parmi ceux contenant des lignes comptables
    
    |
    	listeJournaux<Objet>
    |
    
    -- Création d'une liste
    listeJournaux := creerListe{}
    
    -- Parcours de tous les comptes contenant des lignes comptables
    POUR TOUT journal TEL QUE journal.type = 'T' ET journal.date = debutDeMois{periode.fin} ET NON journal.lectureSeule ET journal.numero <> 'REPRIS' FAIRE
    	-- Ajout du compte dans la liste
    	ajouterElement{listeJournaux, ''+journal}
    FIN FAIRE
    
    SORTIR listeJournaux
###
'compte1329_MODIF' 'Toutes fonctions'

    |
    	libCompta<Objet> monPc<Objet> objCompteLoc<Objet>
    	savCpt<Chaine>
    |

    objCompteLoc ::= 'Compte'
    objCompteLoc := ?   

    monPc ::= 'PlanComptable'
    monPc := exerciceComptable.planComptable

    libCompta ::= 'LibrairieCompta'
    libCompta := creer{'LibrairieCompta'}

    savCpt := compte1329

    compte1329 := choisirCompte{compte1329}

    compte ::= compte1329

    SI compte = ? ALORS
    	compte1329 := savCpt
    	compte1329 := formaterNumeroCompte{monPc, compte1329}
    	
		-- vérifie si le num de cpt est correct.
		SI libCompta.verifNumeroSaisieCpte{objCompteLoc, compte1329} ALORS
			libCompta.saisieLibelleSaisieCpte{}
		
			SI taille{libCompta.aszSaisieLibelle} > 0 ALORS
				-- création de compte
				monPc.creerLeCompte{compte1329, libCompta.aszSaisieLibelle}
			SINON
				compte1329 := ''
			FINSI
		SINON
			-- le numero de compte est nul alors il faut l'effacer.
			compte1329 := ''
		FINSI
	FIN SI

    SI taille{compte1329} < 1 ALORS
    	SORTIR FAUX
    FIN SI
       
    SORTIR VRAI
###
'ajoutAuto1329' 'Toutes fonctions'
    
    |
    	edit<Objet>
    	tmpMonnaie<Monnaie>
    	tmpCompte<Chaine>
    	tmpinfo<Chaine> 
    	CR<Chaine>
    |
    
    
    CR := '
    '
    edit	::=	'EditeurDeJournaux'
    edit := exerciceComptable.argEditJournaux

	journal ::= ?
    POUR TOUT journal TEL QUE ''+journal = choixJournal1329 FAIRE
	    tmpCompte := formaterNumeroCompte{exerciceComptable.planComptable, journal.compteDefaut}
    FIN FAIRE

    tmpMonnaie := 0
    tmpinfo 	:= ''
    
   	SI 1329_KA > 0	ALORS	
   		edit.ajouterLigne1329 {date{15, mois{periode.fin}, annee{periode.fin}}, compte1329, '', libelle1329 , 1329_KA, tmpMonnaie} 
   		edit.ajouterLigne1329 {date{15, mois{periode.fin}, annee{periode.fin}}, tmpCompte, '', libelle1329 , tmpMonnaie, 1329_KA} 
   	FINSI
    edit.affecterObjetEtat1329{etat}
    

###
'Calculer' 'Traitements'
    
    calculer{}
###
'Ouvrir' 'Traitements'

	|
    	document1329 <Objet>
    |

    document1329 := creerDocument{}
    
    SI periodeReference <> ? ET  periode.fin <> periodeReference	ALORS	
    	info {'Vous devez vous placer sur le mois correspondant à la déclaration pour effectuer cette opération.'}
    	SORTIR FAUX
    FINSI
    
    SI cvaeRef = ? ET liasseRef = ? ALORS
    	info {'Vous n''avez pas sélectionné de liasse(s) de référence.'}
    FINSI
    
    IMP := FAUX
    MAJ{}
    INTER1329{}
    majGrise{}

    SI (mois{periodeReference} = 9 ET annee{periode.fin} >= 2025 ) OU annee{periodeReference} > 2025 ALORS 
    	palierAout := VRAI
    FINSI
    
    SI devise = ?	ALORS	devise := 'Euros'		FINSI
    
    ajouterPage{document1329, '1329_AC_1', etat}
   	ajouterPage{document1329, '1329_AC_2', etat}
   	SI palierAout ALORS
   		ajouterPage{document1329, '1329_AC__3', etat}
   	SINON
   		ajouterPage{document1329, '1329_AC_3', etat}
   	FINSI
	ouvrirDocument{document1329}
    
    EstCalcule[exerciceComptable.dateFin] := VRAI
    editeur.majAttributs
    SORTIR VRAI
###
'Imprimer' 'Traitements'
    
    SI periodeReference <> ?  ET periode.fin <> periodeReference	ALORS	
    	info {'Vous devez vous placer sur le mois correspondant à la déclaration pour effectuer cette opération.'}
    	SORTIR FAUX
    FINSI
    
    MAJ{}
    
    ouvrirDriver{'ps'}
    IMP := VRAI
    
    impression{'entete.ps'}
    
    
    imprimer{}
    choixSortie{}
    
    SORTIR VRAI
###
'Archiver' 'Traitements'
        archiver{}
###
'Verrouiller' 'Traitements'
    
    SI periodeReference <> ?  ET periode.fin <> periodeReference	ALORS	
    	info {'Vous devez vous placer sur le mois correspondant à la déclaration pour effectuer cette opération.'}
    	SORTIR FAUX
    FINSI
    
    NbrERR := 0
    controlesMontantsBIS{}
    SI NbrERR > 0 ALORS
    	info{'Vous ne pouvez pas verrouiller la 1329 CVAE AC car vous avez des erreurs dans la saisie. 
Veuillez consulter le compte rendu pour connaître les erreurs.'}
    	SORTIR FAUX
    FIN SI
    
    
    verrouiller{}
    
    SORTIR VRAI
###
'Déverrouiller' 'Traitements'
    
    SI periodeReference <> ?  ET periode.fin <> periodeReference	ALORS	
    	info {'Vous devez vous placer sur le mois correspondant à la déclaration pour effectuer cette opération.'}
    	SORTIR FAUX
    FINSI
    
    deverrouiller{}
    
    SORTIR VRAI
###
'Proposer les écritures de paiement' 'Traitements'
    
    |
    	jnl<Objet> 
    |

    SI periodeReference <> ?  ET periode.fin <> periodeReference	ALORS	
    	info {'Vous devez vous placer sur le mois correspondant à la déclaration pour effectuer cette opération.'}
    	SORTIR FAUX
    FINSI
    

    SI exerciceComptable.EstVerrouille[periode.fin] ALORS
    	info{'Cette période est verrouillée, il vous est impossible d''effectuer ce traitement'}
    	SORTIR FAUX
    FIN SI
    
    jnl	::=	'Journal'

    SI taille{compte1329} < 1 ALORS
    	SI mois{periodeReference} = 6 ET taille{exerciceComptable.compte1329_juin} > 0 ALORS
    		compte1329 := formaterNumeroCompte{exerciceComptable, exerciceComptable.compte1329_juin}
    	SINON
    		SI mois{periodeReference} = 9 ET taille{exerciceComptable.compte1329_septembre} > 0 ALORS
    			compte1329 := formaterNumeroCompte{exerciceComptable, exerciceComptable.compte1329_septembre}
    		SINON
			   	compte1329 := formaterNumeroCompte{exerciceComptable, '447'}
    		FIN SI
    	FIN SI
    FIN SI
    SI taille{libelle1329} < 1 ALORS
    	SI mois{periodeReference} = 6 ET taille{exerciceComptable.libelle1329_juin} > 0 ALORS
    		libelle1329 := exerciceComptable.libelle1329_juin
    	SINON
    		SI mois{periodeReference} = 9 ET taille{exerciceComptable.libelle1329_septembre} > 0 ALORS
    			libelle1329 := exerciceComptable.libelle1329_septembre
    		SINON
	    		libelle1329 := 'CVAE'
    		FIN SI
    	FIN SI
    FIN SI

    -- Choix du journal
    SI NON dialogue{100,400,'choixJournal1329', 'compte1329', 'libelle1329', 'Paramètres écritures de paiement'} ALORS SORTIR FAUX FIN SI
    
    SI choixJournal1329 = ? ALORS SORTIR FAUX FIN SI
    SI compte1329 = ? ALORS SORTIR FAUX FIN SI
    
    journal ::= ?
    POUR TOUT journal TEL QUE ''+journal = choixJournal1329 FAIRE
    	jnl := journal
    FIN FAIRE
    
    SI jnl.clos ALORS
    	info{'Le journal que vous avez choisi est clos. Vous ne pouvez pas ajouter les écritures de paiement dans ce journal'}
    	SORTIR FAUX
    FIN SI

    SI mois{periodeReference} = 6 ALORS
    	exerciceComptable.compte1329_juin := compte1329
    	exerciceComptable.libelle1329_juin := libelle1329
    SINON
    	exerciceComptable.compte1329_septembre := compte1329
    	exerciceComptable.libelle1329_septembre := libelle1329
    FIN SI
    
    exerciceComptable.gestion1329 := NOM+exerciceComptable.dateFin
    exerciceComptable.faireAjoutAuto1329 := VRAI
    jnl.OUVRIR{}
    
    SORTIR VRAI
###
'----' 'Traitements'
    --Création : 01/12/2008 14:48:47 ade-DELWAULLE-A; Modification : 01/12/2008 14:48:47 ade-DELWAULLE-A;
###
'EDIPAIEMENT' 'Traitements'

	typeInterchange := 'EDIPAIE'
	-------------------------------------------------

	VerifCoalaHttpSiServiceEdiEnHttps{typeInterchange}

	envoiEDIPAIEMENT{}

###
'Exporter au format EDIPAIEMENT' 'Traitements'
    SI droits{'ExportEdiPaiementCvae'}=0 ALORS
    	info{' Afin de répondre au mieux aux évolutions des versions 4.13 et 8.13, nous avons été amenés à faire évoluer les services Web nécessaires à la génération des EDI. Pour continuer à bénéficier des services dont vous disposiez, vous devez vous recalculer une clé d''authentification. Cette nouvelle clé se calcule ainsi :
-	Faire sortir tout le monde de production Coala
-	Sélectionner la fonction « Modifier les droits » dans le menu Administration de la fenêtre d''accueil
-	Sans quitter la fenêtre message sur laquelle apparaît la « Question », se connecter à l''espace client <http://experts-comptables.sage.fr>
-	Renseigner le login et le mot de passe
-	Accéder à la rubrique Mes Produits / Mes clefs d''authentification
-	Choisir « Calculez vos clés Production Coala et ARF »
-	Saisir la « Question » de la fenêtre message Production Coala dans le champ approprié
-	Recopier la « Réponse » obtenue (Ctrl C / Ctrl V) dans la fenêtre Production Coala
Quitter Production Coala et relancer pour prise en compte de la nouvelle clef'}
    	SORTIR FAUX
    FINSI
    
    typeInterchange := 'ExportEDIPAIE'
    
    envoiEDIPAIEMENT{}
    SORTIR VRAI
###
'1329_SIE_BULLE' 'InfoBulles'
	SORTIR 'Le numéro du SIE est repris depuis le Dossier Permanent, Contacts dossier, 
catégorie Fiscal, rôle SIE, valise SIE. 
Vous pouvez le modifier ou lui faire reprendre sa valeur avec ? '
###
'1329_CDI_BULLE' 'InfoBulles'
	SORTIR 'Le numéro d''inspection est repris depuis le Dossier Permanent, Contacts dossier, 
catégorie Fiscal, rôle SIE, valise SIE. 
Vous pouvez le modifier ou lui faire reprendre sa valeur avec ? '
###
'1329_siret_BULLE' 'InfoBulles'
	SORTIR 'Le numéro de Siret est repris depuis le Dossier Permanent,
Contacts dossier, valise Identification. 
Vous pouvez le modifier ou lui faire reprendre sa valeur avec ? '
###
'1329_siren_BULLE' 'InfoBulles'
	SORTIR 'Cette donnée est reprise du DP.
Elle peut être forcée ou reprendre sa valeur avec ?.'
###
'1329_FRP_BULLE' 'InfoBulles'
	SORTIR 'Le numéro FRP est repris depuis le Dossier Permanent, Contacts dossier, 
catégorie Fiscal, rôle SIE, onglet SIE. 
Vous pouvez le modifier ou lui faire reprendre sa valeur avec ? '
###
'1329_adrDepot1_BULLE' 'InfoBulles'
	SORTIR 'Le SIE est repris depuis le Dossier Permanent, Contacts dossier, 
catégorie Fiscal, rôle SIE, valise Identification. 
Vous pouvez le modifier ou lui faire reprendre sa valeur avec ? '
###
'1329_adrDepot2_BULLE' 'InfoBulles'
	SORTIR 'L''adresse du SIE est reprise depuis le Dossier Permanent, Contacts dossier, 
catégorie Fiscal, rôle SIE, valise Adresse. 
Vous pouvez la modifier ou lui faire reprendre sa valeur avec ?'
###
'1329_adrDepot3_BULLE' 'InfoBulles'
	SORTIR 'Le code postal et la ville du SIE sont repris depuis le Dossier Permanent, Contacts dossier, 
catégorie Fiscal, rôle SIE, valise Adresse. 
Vous pouvez les modifier ou leur faire reprendre leur valeur avec ? '
###
'1329_Raison_BULLE' 'InfoBulles'
	SORTIR 'La Raison Sociale est reprise depuis le Dossier Permanent,
Contacts dossier, valise Identification. 
Vous pouvez la modifier ou lui faire reprendre sa valeur avec ? '
###
'1329_adresse1_BULLE' 'InfoBulles'
	SORTIR 'L''adresse est reprise depuis le Dossier Permanent, Contacts dossier, valise Adresse. 
Vous pouvez la modifier ou lui faire reprendre sa valeur avec ? '
###
'1329_adresse2_BULLE' 'InfoBulles'
	SORTIR 'Le complément d''adresse est repris depuis le Dossier Permanent, Contacts dossier, valise Adresse. 
Vous pouvez le modifier ou lui faire reprendre sa valeur avec ? '
###
'1329_adresse3_BULLE' 'InfoBulles'
	SORTIR 'L''adresse postale est reprise depuis le Dossier Permanent, Contacts dossier, valise Adresse. 
Vous pouvez la modifier ou lui faire reprendre sa valeur avec ? '
###
'1329_cpVille_BULLE' 'InfoBulles'
	SORTIR 'Le code postal et la ville sont repris depuis le Dossier Permanent, Contacts dossier, valise Adresse. 
Vous pouvez les modifier ou leur faire reprendre leur valeur avec ? '
###
'1329_date_BULLE' 'InfoBulles'
	SORTIR 'Cette donnée est la date du jour.
Elle peut être forcée ou reprendre sa valeur avec ?.'
###
'1329_signature_BULLE' 'InfoBulles'
	SORTIR 'Le signataire est repris depuis le Dossier Permanent,
Contacts dossier, catégorie Général, rôle Représentant Légal. 
Vous pouvez le modifier ou lui faire reprendre sa valeur avec ?'
###
'1329_tel_BULLE' 'InfoBulles'
	SORTIR 'Le téléphone est repris depuis le Dossier Permanent, Contacts dossier, valise Communication. 
Vous pouvez le modifier ou lui faire reprendre sa valeur avec ? '
###
'1329_courriel_BULLE' 'InfoBulles'
	SORTIR 'L''adresse e-mail est reprise depuis le Dossier Permanent, Contacts dossier, valise Communication. 
Vous pouvez la modifier ou lui faire reprendre sa valeur avec ? '
###
'1329_A_BULLE' 'InfoBulles'
	SORTIR 'Cette donnée est reprise depuis le feuillet E de la liasse fiscale de référence
(si sélectionnée depuis les attributs, en cas de mono établissement)
ou depuis le formulaire 1330 CVAE de référence.
Vous pouvez la modifier ou lui faire reprendre sa valeur avec "?"'
###
'1329_AD_BULLE' 'InfoBulles'
	SORTIR 'Cette donnée est reprise de l''imprimé 1330CVAE de référence
sélectionné dans les attributs de l''état.
Elle peut être forcée ou reprendre sa valeur avec ?.'
###
'1329_B_BULLE' 'InfoBulles'
	SORTIR 'Le taux est calculé en fonction du CA de référence saisi en A1 ou A3.'
###
'1329_C_BULLE' 'InfoBulles'
	SORTIR 'Cette donnée est reprise depuis le feuillet E de la liasse fiscale de référence
(si sélectionnée depuis les attributs, en cas de mono établissement)
ou depuis le formulaire 1330 CVAE de référence.
Vous pouvez la modifier ou lui faire reprendre sa valeur avec "?"'
###
'1329_D_BULLE' 'InfoBulles'
	SORTIR 'Cette donnée est calculée en fonction du CA de référence saisi en A1 ou A2.'
###
