IRG 2022_H Windev

// IRG 2022 PROCEDURE By Boussaid Mustafa
// APC SALI 2022
//Usage:
//Normal
//SAI_irg	= IRG_2022(1,SAI_Brut)
//Handicape
//SAI_irg	= IRG_2022(2,SAI_Brut)
PROCEDURE IRG_2022(Type_IRG is int, Soumis)

rIrg	is real
p		is real	= IntegerPart(Soumis/10)*10

IF (Soumis <= 30000 ) THEN
	rIrg = 0
ELSE

	SWITCH Soumis
		CASE 30010 TO 40000 : rIrg = (p - 20000) * 0.23
		CASE 40000 TO 80000: rIrg = 4600 + (p - 40000) * 0.27
		CASE 80000 TO 160000: rIrg = 15400 + (p - 80000) * 0.3
		CASE 160000 TO 320000: rIrg = 39400 + (p - 160000) * 0.33
		OTHER CASE: rIrg = 92200 + (p - 320000) * 0.35
	END

	Abat is real = rIrg * 0.4
	IF Abat < 1000 THEN Abat = 1000
	IF Abat > 1500 THEN Abat = 1500
	rIrg	= rIrg - Abat

	// 1= Normal 2= Handicape
	SWITCH Type_IRG
		CASE 1 //---->Normal
			IF Soumis <= 35000 THEN
				rIrg = (rIrg * 137/51)-(27925/8)
			END
		CASE 2 //---->Handicape
			IF Soumis < 42500 THEN
				rIrg = (rIrg * 93/61)-(81213/41)
			END

		OTHER CASE

	END
END
rIrg = Round(rIrg,1)
RESULT rIrg