# Fonction PCODE ID = 860026233
REGISTRE ENTIER tax_elementaire6
REGISTRE ENTIER tax_elementaire5
REGISTRE ENTIER tax_elementaire4
REGISTRE ENTIER tax_elementaire3
REGISTRE ENTIER tax_elementaire2
REGISTRE ENTIER tax_elementaire1
REGISTRE ENTIER reroutage6_type6
REGISTRE ENTIER reroutage5_type6
REGISTRE ENTIER reroutage4_type6
REGISTRE ENTIER reroutage3_type6
REGISTRE ENTIER reroutage2_type6
REGISTRE ENTIER traude_numero

################################################################################
# Module : CalculTaxe.src
# Calculer Taxe
################################################################################

REGISTRE ENTIER tax




# codes de rejet
DEFINITION VRAI         1
DEFINITION FAUX         0


#
# recuperation des valeurs d'entree
#





tax_elementaire6 = depilerENTIER()
tax_elementaire5 = depilerENTIER()
tax_elementaire4 = depilerENTIER()
tax_elementaire3 = depilerENTIER()
tax_elementaire2 = depilerENTIER()
tax_elementaire1 = depilerENTIER()
reroutage6_type6 = depilerENTIER()
reroutage5_type6 = depilerENTIER()
reroutage4_type6 = depilerENTIER()
reroutage3_type6 = depilerENTIER()
reroutage2_type6 = depilerENTIER()
traude_numero = depilerENTIER()
trace1("Debut CalculTaxe traude_numero %d", traude_numero)



###################################################################################
#  Taxe calculer a partir du 1 er Traude en fonction de reroutage type6
###################################################################################

SI ( traude_numero == 1 )
ALORS
	
	# reroutage toujours faux pour le 1er traude
	SI( reroutage2_type6 > 0 )
	ALORS
		tax = tax_elementaire1
		tax = tax + tax_elementaire2

		SI( reroutage3_type6 == FAUX )
		ALORS
			RETOUR  tax
		FINSI		
		tax = tax + tax_elementaire3

		SI( reroutage4_type6 == FAUX )
		ALORS
			RETOUR  tax
		FINSI
		tax = tax + tax_elementaire4

		SI( reroutage5_type6 == FAUX )
		ALORS
			RETOUR  tax
		FINSI
		tax = tax + tax_elementaire5
		RETOUR  tax
	SINON
		tax = tax_elementaire1	
		RETOUR  tax
	FINSI
FINSI



###################################################################################
#  Taxe calculer a partir du 2eme Traude en fonction de reroutage type6
###################################################################################

SI ( traude_numero == 2 )
ALORS
	SI ( (reroutage3_type6 > 0 ) && (reroutage2_type6 == FAUX) )
	ALORS
		tax = tax_elementaire2
		tax = tax + tax_elementaire3
				
		SI (reroutage4_type6 == FAUX)
		ALORS
			RETOUR tax
		FINSI
		tax = tax + tax_elementaire4

		SI (reroutage5_type6 == FAUX)
		ALORS
			RETOUR tax
		FINSI
		tax = tax + tax_elementaire5

		SI( reroutage6_type6 == FAUX )
		ALORS
			RETOUR  tax
		FINSI
		tax = tax + tax_elementaire6
		RETOUR  tax
		
	SINON
		tax = tax_elementaire2
		RETOUR  tax
	FINSI

FINSI



###################################################################################
#  Taxe calculer a partir du 3eme Traude en fonction de reroutage type6
###################################################################################

SI ( traude_numero == 3 )
ALORS
	SI ( (reroutage4_type6 > 0 ) && (reroutage3_type6 == FAUX) )
	ALORS
		tax = tax_elementaire3
		tax = tax + tax_elementaire4

		SI (reroutage5_type6 == FAUX)
		ALORS
			RETOUR tax
		FINSI
		tax = tax + tax_elementaire5

		SI( reroutage6_type6 == FAUX )
		ALORS
			RETOUR  tax
		FINSI
		tax = tax + tax_elementaire6
		RETOUR  tax
		
	SINON
		tax = tax_elementaire3
		RETOUR  tax
	FINSI

FINSI


###################################################################################
#  Taxe calculer a partir du 4eme Traude en fonction de reroutage type6
###################################################################################

SI ( traude_numero == 4 )
ALORS
	SI ( (reroutage5_type6 > 0) && (reroutage4_type6 == FAUX) )
	ALORS
		tax = tax_elementaire4
		tax = tax + tax_elementaire5

		SI( reroutage6_type6 == FAUX )
		ALORS
			RETOUR  tax
		FINSI
		tax = tax + tax_elementaire6
		RETOUR  tax
		
	SINON
		tax = tax_elementaire4
		RETOUR  tax
	FINSI

FINSI



###################################################################################
#  Taxee calculer a partir du 5eme Traude en fonction de reroutage type6
###################################################################################

SI ( traude_numero == 5 )
ALORS

	SI ( (reroutage6_type6 > 0) && (reroutage5_type6 == FAUX) )
	ALORS
		tax = tax + tax_elementaire6
	FINSI

	RETOUR  tax
		
SINON
	# traude_numero == 6
	tax = tax_elementaire6
	RETOUR  tax
FINSI

