# Fonction PCODE ID = 860026233
REGISTRE ENTIER ic_num_demande12
############################################################################
#
#	 Nom du fichier: Normalisation_Num.src
#
#       Fonction de normalisation du numero demande pour le 12.
#  	LE RETOUR EST "F" EN CAS D ERREUR 
#
# POINTEUR NUM_DEMANDE = Normalisation_Num( ic_num_demande12 )
#
# 28/09/2001                  Creation
# Version :                   00.00
#
# 14/02/2002		      Utilisation des automates de normalisation 	
#			      avec g_icopo ( LRA - FOEX326 ).
############################################################################

#---------------------------------------------------------------------------
# VARIABLES
#---------------------------------------------------------------------------

REGISTRE ENTIER         erreur
REGISTRE POINTEUR       NORM_DEMANDE

# Indices fixes TrtcNdc et Tcopo
DEFINITION ic_num_demandeCOPO		6
DEFINITION ic_num_demandeur12		28 
DEFINITION ic_num_demandeurCOPO		5


#---------------------------------------------------------------------------
# DEBUT DES TRAITEMENTS
#---------------------------------------------------------------------------

ic_num_demande12 = depilerENTIER()
trace("APPEL Normalisation_Num pour le 12")

# Initialisation pointeur 
NORM_DEMANDE   = "112233445566778899112212345"

# Normalisation
erreur = i_normal( g_iartin,ic_num_demandeur12,ic_num_demande12,g_icopo,ic_num_demandeurCOPO,ic_num_demandeCOPO,3,"ATL_NDEUR3","ATL_ZN_NDE2+" )
SI (erreur<0)
ALORS
	trace("Retour en erreur de la fonction de normalisation")
	erreur = i_PlvMessEmettre( 8500, 0, g_iartin,"", 3, "Normalisation_num", "i_normal", g_ieec )
	RETOUR "F"	
FINSI

# Recuperation du numero demande normalise
NORM_DEMANDE = i_get_art_fieldptr( g_icopo,ic_num_demandeCOPO )

#trace2("i_get_art_fieldptr = <<%s>>",NORM_DEMANDE,"" )  


RETOUR NORM_DEMANDE

#---------------------------------------------------------------------------
# FIN DES TRAITEMENTS
#---------------------------------------------------------------------------


