# Fonction PCODE ID = 660003942
REGISTRE POINTEUR pt_res
REGISTRE ENTIER taille
REGISTRE ENTIER entier

REGISTRE  ENTIER  erreur
REGISTRE  ENTIER  indice
REGISTRE  ENTIER  puiss_dix
REGISTRE  POINTEUR  pt_entier
REGISTRE  POINTEUR  pt_entier8
REGISTRE  POINTEUR  pt_resultat1
REGISTRE  POINTEUR  pt_resultat2


pt_res = depilerPOINTEUR()
taille = depilerENTIER()
entier = depilerENTIER()

pt_entier =  "999999999"
pt_entier8 = "00000000"
pt_resultat1 = "0000000012345678"
pt_resultat2=  "012345678"
indice = 0
puiss_dix = 10


# Verification sur l'entier


	SI(taille==2)
	ALORS
		SI(entier > 99 || entier<0 )
		ALORS
			trace1("valeur <%d> incorrecte du parametre entier", entier)
			i_strcpy(pt_res, "00")
			RETOUR -1
		FINSI
	FINSI
	SI(taille==3)
	ALORS
		SI(entier > 999 || entier<0 )
		ALORS
			trace1("valeur <%d> incorrecte du parametre entier", entier)
			i_strcpy(pt_res, "000")
			RETOUR -1
		FINSI
	FINSI
	SI(taille==5)
	ALORS
		SI(entier > 99999 || entier<0 )
		ALORS
			trace1("valeur <%d> incorrecte du parametre entier", entier)
			i_strcpy(pt_res, "00000")
			RETOUR -1
		FINSI
	FINSI
	SI(taille==6)
	ALORS
		SI(entier > 999999 || entier <0 )
		ALORS
			trace1("valeur <%d> incorrecte du parametre entier", entier)
			i_strcpy(pt_res, "000000")
			RETOUR -1
		FINSI
	FINSI
	SI(taille==9)
	ALORS
		SI(entier > 999999999 || entier<0)
		ALORS
			trace1("valeur <%d> incorrecte du parametre entier", entier)
			i_strcpy(pt_res, "000000000")
			RETOUR -1
		FINSI
	FINSI

	SI(taille==10)
	ALORS
		SI(entier > 9999999999 || entier<0)
		ALORS
			trace1("valeur <%d> incorrecte du parametre entier", entier)
			i_strcpy(pt_res, "0000000000")
			RETOUR -1
		FINSI
	FINSI

	erreur = i_EntierToString(entier, pt_entier, 9)

POINT  AJUSTER_TAILLE

	SI(entier/puiss_dix == 0)
	ALORS
		erreur = i_format_str2(pt_resultat1, "%s%s", pt_entier8, pt_entier)
		i_get_sub_str(pt_resultat1, (9-taille)+indice, 9+indice, pt_resultat2)
		i_strcpy(pt_res, pt_resultat2)
		RETOUR 0
 	SINON
		SI(indice == taille-1)
		ALORS
			i_strcpy(pt_res, pt_entier)
			RETOUR 0
		FINSI
	FINSI

	indice= indice +1
	SI(indice < taille)
	ALORS
		puiss_dix = puiss_dix*10
		SAUT  AJUSTER_TAILLE
	FINSI  
