# Fonction PCODE ID = 860026233
REGISTRE ENTIER instCible
REGISTRE ENTIER instanceECC

################################################################################
# Module : ChercherAjoutECC.src
#
# Test de presence de chaque ECC dans les listes "deja alimentee"
# et "resultat de la derniere requete" pour construire la liste
# courante des destinataires
#
################################################################################

# Instances

REGISTRE ENTIER res
REGISTRE ENTIER valeur
REGISTRE ENTIER adresseInfo

#
# recuperation des valeurs d'entree
#

instCible = depilerENTIER()
instanceECC = depilerENTIER()
trace1 ("Debut ChercherAjoutECC : instanceECC %d", instanceECC)


SI ( instanceECC > 0 )
ALORS
	res = 0
	SI ( i_ChercherEmiseECC(instanceECC) != 0 )
	ALORS
		 ### instance ECC absence de la liste emise
		adresseInfo = i_LireInfoECC(instanceECC, 0)
trace1 ("i_LireInfoECC : adresseInfo %d", adresseInfo)
		#G2R1Cj_PLUS_FO1406	SI ( adresseInfo > 0 )
		SI (adresseInfo != 0)
		ALORS
		 ### Tests eventuels sur les informations TRAFIC
			SI ( instCible == 2 )
			ALORS
				 # A VERIFIER CHAINE CFR
				 #i_strcpy(CFR, adresse)
				res = 0
			SINON
				 ### Tests eventuels sur les informations complementaires pour VTG
				SI ( instCible == 1 )
				ALORS
					valeur = i_LireEntierInfo( adresseInfo, 0 ,0 )
				FINSI
			FINSI

			### Ajout de l'ECC a la liste courante des destinataires
			res = i_AjouterCouranteECC(instanceECC)
		SINON
			res = -1
		FINSI
	FINSI
SINON
	res = -1
FINSI

RETOUR res

