# Fonction PCODE ID = 860026233
REGISTRE ENTIER dur_elementaire6
REGISTRE ENTIER dur_elementaire5
REGISTRE ENTIER dur_elementaire4
REGISTRE ENTIER dur_elementaire3
REGISTRE ENTIER dur_elementaire2
REGISTRE ENTIER dur_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 : CalculDuree.src
# Calculer Duree de TRAUDEi 
#          en fonction de reroutage_type6 et duree elementaire
################################################################################

REGISTRE ENTIER dur




# codes de rejet
DEFINITION VRAI         1
DEFINITION FAUX         0


#
# recuperation des valeurs d'entree
#





dur_elementaire6 = depilerENTIER()
dur_elementaire5 = depilerENTIER()
dur_elementaire4 = depilerENTIER()
dur_elementaire3 = depilerENTIER()
dur_elementaire2 = depilerENTIER()
dur_elementaire1 = depilerENTIER()
reroutage6_type6 = depilerENTIER()
reroutage5_type6 = depilerENTIER()
reroutage4_type6 = depilerENTIER()
reroutage3_type6 = depilerENTIER()
reroutage2_type6 = depilerENTIER()
traude_numero = depilerENTIER()
trace1("Debut CalculDuree traude_numero %d", traude_numero)



###################################################################################
#  Duree 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
		dur = dur_elementaire1
		dur = dur + dur_elementaire2

		SI( reroutage3_type6 == FAUX )
		ALORS
			RETOUR  dur
		FINSI		
		dur = dur + dur_elementaire3

		SI( reroutage4_type6 == FAUX )
		ALORS
			RETOUR  dur
		FINSI
		dur = dur + dur_elementaire4

		SI( reroutage5_type6 == FAUX )
		ALORS
			RETOUR  dur
		FINSI
		dur = dur + dur_elementaire5
		RETOUR  dur
	SINON
		dur = dur_elementaire1	
		RETOUR  dur
	FINSI
FINSI



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

SI ( traude_numero == 2 )
ALORS
	SI ( (reroutage3_type6 > 0) && (reroutage2_type6 == FAUX) )
	ALORS
		dur = dur_elementaire2
		dur = dur + dur_elementaire3
				
		SI (reroutage4_type6 == FAUX)
		ALORS
			RETOUR dur
		FINSI
		dur = dur + dur_elementaire4

		SI (reroutage5_type6 == FAUX)
		ALORS
			RETOUR dur
		FINSI
		dur = dur + dur_elementaire5

		SI( reroutage6_type6 == FAUX )
		ALORS
			RETOUR  dur
		FINSI
		dur = dur + dur_elementaire6
		RETOUR  dur
		
	SINON
		dur = dur_elementaire2
		RETOUR  dur
	FINSI

FINSI



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

SI ( traude_numero == 3 )
ALORS
	SI ( (reroutage4_type6 > 0) && (reroutage3_type6 == FAUX) )
	ALORS
		dur = dur_elementaire3
		dur = dur + dur_elementaire4

		SI (reroutage5_type6 == FAUX)
		ALORS
			RETOUR dur
		FINSI
		dur = dur + dur_elementaire5

		SI( reroutage6_type6 == FAUX )
		ALORS
			RETOUR  dur
		FINSI
		dur = dur + dur_elementaire6
		RETOUR  dur
		
	SINON
		dur = dur_elementaire3
		RETOUR  dur
	FINSI

FINSI


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

SI ( traude_numero == 4 )
ALORS
	SI ( (reroutage5_type6 > 0) && (reroutage4_type6 == FAUX) )
	ALORS
		dur = dur_elementaire4
		dur = dur + dur_elementaire5

		SI( reroutage6_type6 == FAUX )
		ALORS
			RETOUR  dur
		FINSI
		dur = dur + dur_elementaire6
		RETOUR  dur
		
	SINON
		dur = dur_elementaire4
		RETOUR  dur
	FINSI

FINSI



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

SI ( traude_numero == 5 )
ALORS
	dur = dur_elementaire5
	SI ( (reroutage6_type6 > 0) && (reroutage5_type6 == FAUX) )
	ALORS
		dur = dur + dur_elementaire6
	FINSI

	RETOUR  dur
		
SINON
	# traude_numero == 6
	dur = dur_elementaire6
	RETOUR  dur
FINSI


