'ecrireGrosMontant' 'EDI'
{argMontant <Monnaie>}
    SORTIR argMontant
###
'arrondirMonnaieSansDecimale' 'EDI'
{unNombreMonnaie<Monnaie>}
    SORTIR unNombreMonnaie
###
'calcul1329DEF_AC' 'EDI'
{testDatesOKArg<Booléen>}

	|		
    	tauxCA1<Réel>tauxCA2_1<Réel>tauxCA2_2<Réel>tauxCA3_1<Réel>tauxCA3_2<Réel>tauxCA4<Réel>
	|

    --SI dossier.dateCessationActivite <> ? ET dossier.dateCessationActivite > 31.12.2024	ET dossier.dateCessationActivite < 01.01.2026 ET exerciceComptable.dateDebut >= 01.01.2025 ALORS
    SI testDatesOKArg ALORS
		tauxCA1 := 0.063
		tauxCA2_1 := 0.113
		tauxCA2_2 := 0.094
		tauxCA3_1 := 0.013
		tauxCA3_2 := 0.175
		tauxCA4 := 0.19
		ACPlafond := 125
		ACCotisMin := 0
		ACTauxTaxeAdd := 13.84	
	SINON
		tauxCA1 := 0.094
		tauxCA2_1 := 0.169
		tauxCA2_2 := 0.094
		tauxCA3_1 := 0.019
		tauxCA3_2 := 0.263
		tauxCA4 := 0.28
		ACPlafond := 188
		ACCotisMin := 0
		ACTauxTaxeAdd := 9.23
	FINSI
    
    ------ CALCUL DU POURCENTAGE DE LA VALEUR AJOUTEE ------------
    ACMontant2 := 1329DEF_AA
    ACMontant3 := 1329DEF_AD
    
    ACMonnaie := 0
    IsAcMonnaieArrondi := VRAI
    
    SI ACMontant2 < 152500 ALORS 
		ACMonnaie := 0
	SINON 
		SI ACMontant3 > 0 ALORS
			SI ACMontant2 >= 152500 ET ACMontant3 < 500000 ALORS
				ACMonnaie := 0
			SINON 
				SI ACMontant2 >= 152500 ET ACMontant3 <= 3000000 ALORS 
					ACMonnaie := arrondiSup{(( (tauxCA1 * (ACMontant3 - 500000)) / 2500000)*100 - 0.4999999)}/100
				SINON 
					SI ACMontant2 >= 152500 ET ACMontant3 <= 10000000 ALORS 
						ACMonnaie := arrondiSup{((((tauxCA2_1 * (ACMontant3 - 3000000)) / 7000000) + tauxCA2_2)*100 - 0.4999999)}/100
					SINON 
						SI ACMontant2 >= 152500 ET ACMontant3 <= 50000000 ALORS 
							ACMonnaie := arrondiSup{((((tauxCA3_1 * (ACMontant3 - 10000000)) / 40000000) + tauxCA3_2)*100 - 0.4999999)}/100
						SINON 
							ACMonnaie := tauxCA4
							IsAcMonnaieArrondi := FAUX
						FIN SI
					FIN SI
				FIN SI
			FIN SI				
		SINON 
			SI ACMontant3 <= 0 ET ACMontant2 <= 500000 ALORS 
				ACMonnaie := 0
			SINON 
				SI ACMontant3 <= 0 ET ACMontant2 <= 3000000 ALORS 
					ACMonnaie := arrondiSup{(((tauxCA1 * (ACMontant2 - 500000)) / 2500000)*100 - 0.4999999)}/100
				SINON 
					SI ACMontant3 <= 0 ET ACMontant2 <= 10000000 ALORS 	
						ACMonnaie := arrondiSup{(((((tauxCA2_1 * (ACMontant2 - 3000000)) / 7000000)) + tauxCA2_2)*100 - 0.4999999)}/100
					SINON 
						SI ACMontant3 <= 0 ET ACMontant2 <= 50000000 ALORS 
							ACMonnaie := arrondiSup{((((tauxCA3_1 * (ACMontant2 - 10000000)) / 40000000) + tauxCA3_2 )*100 - 0.4999999)}/100
						SINON 
							ACMonnaie := tauxCA4
							IsAcMonnaieArrondi := FAUX
						FIN SI
					FIN SI
				FIN SI
			FIN SI
		FIN SI
	FIN SI

###
'INTER1329_DEF_2' 'EDI'
{testDatesOKArg<Booléen>}

    |    	
    	tmpCalcul<Monnaie>
    |

    SI 1329DEF_AA = ? ALORS
    	1329DEF_AA := 1329DEF_AA_C
    FINSI
    
    1329DEF_AA := ecrireGrosMontant{1329DEF_AA}
    1329DEF_AB := ecrireGrosMontant{1329DEF_AB}
    
    SI 1329DEF_AD = ? ALORS
    	1329DEF_AD := 1329DEF_AD_C
    FINSI
    
    1329DEF_AD := ecrireGrosMontant{1329DEF_AD}

	calcul1329DEF_AC{testDatesOKArg}

	SI IsAcMonnaieArrondi ALORS
		-- Pour arrondir à 2 décimales.
		1329DEF_AC := reel{ACMonnaie}
	SINON
		1329DEF_AC := ACMonnaie
	FINSI

    ------------------------------------------------------------------------------------------------
    
    SI 1329DEF_BA = ? ALORS
    	1329DEF_BA := 1329DEF_BA_C
    FINSI
    
    1329DEF_BA := arrondirMonnaieSansDecimale{1329DEF_BA}
    SI 1329DEF_BA = ? ALORS
    	1329DEF_BA := 0
    FINSI
    
    ------ CALCUL DE LA VALEUR AJOUTEE  ------------
    1329DEF_BB := 0
    
    SI 1329DEF_AB <> ? ALORS
    	ACMontant2 := 1329DEF_AB
    SINON
    	ACMontant2 := 1329DEF_AA
    FINSI
    
    SI taille{1329DEF_BC} < 1 ALORS
    	SI ACMontant2 > 7600000 ALORS
    		1329DEF_BB := ACMontant2 * 0.85
    	SINON
    		1329DEF_BB := ACMontant2 * 0.8	
    	FINSI
    SINON
    	1329DEF_BB := ?
    FINSI
    
    1329DEF_BB := 1329DEF_BB
    
    ------ CALCUL DE LA COTISATION SUR LA VA  ------------
    1329DEF_CA := 0


    SI 1329DEF_BA > 1329DEF_BB ALORS
    	1329DEF_CA := 1329DEF_BB * 1329DEF_AC
    SINON
    	1329DEF_CA := 1329DEF_BA * 1329DEF_AC
    FINSI
    
    SI taille{1329DEF_BC} > 0 ALORS
    	1329DEF_CA := 1329DEF_BA * 1329DEF_AC
    FINSI
    
    1329DEF_CA := 1329DEF_CA/100

    ------ CALCUL DE LA COTISATION AVANT REDUCTION  ------------
    1329DEF_CB := 0

    SI 1329DEF_AA < 2000000 ALORS
    	SI 1329DEF_CA > ACPlafond ALORS
    		1329DEF_CB := 1329DEF_CA - ACPlafond
    	FINSI
    SINON
    	1329DEF_CB := 1329DEF_CA
    FINSI

    1329DEF_DA := 1329DEF_DA
    1329DEF_DB := 1329DEF_DB
        
    tmpCalcul := 1329DEF_CB - 1329DEF_DA - 1329DEF_DB
    
    SI 1329DEF_AA > 500000 ET tmpCalcul < ACCotisMin
    ALORS
    	tmpCalcul := 1329DEF_DA + 1329DEF_DB
    	SI (1329DEF_CB > tmpCalcul) OU ( 1329DEF_CB = 0 ET tmpCalcul =0)
    	ALORS
    		1329DEF_EA_C := ACCotisMin
    	SINON
    		1329DEF_EA_C := 0
    	FINSI
    SINON
    	SI tmpCalcul > 0 ALORS
    		1329DEF_EA_C := tmpCalcul
    	SINON
    		1329DEF_EA_C := 0
    	FINSI
    FINSI
    
    SI 1329DEF_EA = ? ALORS
    	1329DEF_EA := 1329DEF_EA_C
    FINSI

    -------------------------------------------------------------------------------------------------------------------------------
    
    SI 1329DEF_EB = ? ALORS
    	1329DEF_EB := 1329DEF_EB_C
    FINSI
    
    1329DEF_EB := entier{1329DEF_EB}

	1329DEF_EC := 0
	1329DEF_ED := 0    
    
    SI 1329DEF_EA < 1329DEF_EB ALORS
    	1329DEF_ED := 1329DEF_EB - 1329DEF_EA
    SINON
    	1329DEF_EC := 1329DEF_EA - 1329DEF_EB
    FINSI
    
    1329DEF_GB_C := 0
    
    SI taille{1329DEF_GA} < 1 ALORS
    	1329DEF_GB_C := (1329DEF_EA * ACTauxTaxeAdd / 100)
    	1329DEF_GB_C := 1329DEF_GB_C
    FINSI

    SI 1329DEF_GB = ? ALORS
		1329DEF_GB := 1329DEF_GB_C
	FIN SI

	1329DEF_GB := 1329DEF_GB
    
    SI 1329DEF_GC = ? ALORS
    	1329DEF_GC := 1329DEF_GC_C
    FINSI
    
    1329DEF_GC := 1329DEF_GC
    
    
	1329DEF_GD := 0
	1329DEF_GE := 0

    SI 1329DEF_GB < 1329DEF_GC ALORS
		1329DEF_GE := 1329DEF_GC - 1329DEF_GB
    SINON
		1329DEF_GD := 1329DEF_GB - 1329DEF_GC
    FINSI
    
    1329DEF_JA := 1329DEF_EB + 1329DEF_GC
	1329DEF_JK := 1329DEF_EC + 1329DEF_GD

    1329DEF_JK := 1329DEF_JK
    
    1329DEF_JE := 1329DEF_ED + 1329DEF_GE

###
'controleMontantEA' 'EDI'
{testDatesOKArg<Booléen>}

	|
		tmpCalcul<Monnaie>
	|

	tmpCalcul := 1329DEF_CB - 1329DEF_DA - 1329DEF_DB

	calcul1329DEF_AC{testDatesOKArg}

	SI 1329DEF_AA > 500000 ET tmpCalcul < ACCotisMin ALORS
		tmpCalcul := 1329DEF_DA + 1329DEF_DB
		SI (1329DEF_CB > tmpCalcul) OU ( 1329DEF_CB = 0 ET tmpCalcul =0)
		ALORS
			1329DEF_EACalc := ACCotisMin
		SINON
			1329DEF_EACalc := 0
		FINSI
	SINON
		SI tmpCalcul > 0 ALORS
			1329DEF_EACalc := tmpCalcul
		SINON
			1329DEF_EACalc := 0
		FINSI
	FINSI

###
