// 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