# Fonction PCODE ID = 660003942
REGISTRE ENTIER type
REGISTRE ARTOBJ tapin2p5
REGISTRE ARTOBJ tapin2pp
REGISTRE POINTEUR pt_FORMAT_ECC
REGISTRE ENTIER code_rejet
REGISTRE ENTIER date_fin
REGISTRE ENTIER date_cra

REGISTRE	ENTIER		erreur
REGISTRE	ENTIER		res
REGISTRE	ENTIER		instanceECC
REGISTRE	POINTEUR	pt_resultat
REGISTRE  POINTEUR  pt_LibelleAlarme
REGISTRE  POINTEUR	pt_NameOfFile

type = depilerENTIER()
tapin2p5 = depilerARTOBJ()
tapin2pp = depilerARTOBJ()
pt_FORMAT_ECC = depilerPOINTEUR()
code_rejet = depilerENTIER()
date_fin = depilerENTIER()
date_cra = depilerENTIER()

	pt_resultat="FORMAT_EEC_xxxxxxxxxxxxxxxxxxx"
	pt_LibelleAlarme="pt_LibelleAlarme_111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"
	i_strcpy(pt_LibelleAlarme,"")
	pt_NameOfFile="NameOfFile0123456780111111111111189012345678901234567890123456789012345672345678190123456789012345678901234567890123456789012345"
	i_strcpy(pt_NameOfFile,"")

	# G3R4 QC852
	erreur = i_get_art_str(g_iartin, $Tcrae_gprs::NameOfFile, pt_NameOfFile)
	# /G3R4 QC852

	trace("**** Distribution 8X vers NVADCH ****") 
	# Enrichissement du CRA par le numero de filtre
	erreur = i_ajout_tlv(g_iartin, "T3t3_NumOfFilte", "")
	erreur = i_resize_tlv(g_iartin, "T3t3_NumOfFilte", "NumOfFilter", 1)
	SI(erreur!=0)
	ALORS
		trace("Erreur d'ajout du TLV <T3t3_NumOfFilte>")
		erreur = i_format_str2(pt_LibelleAlarme, "%s> <f=%s", "NumOfFilter", pt_NameOfFile)
		erreur = i_PlvMessEmettre(8889, 2, g_iartin, "", 2, code_rejet, pt_LibelleAlarme, 0)
		RETOUR 1
	FINSI
	erreur = i_set_art_field(g_iartin, $Tcrae_gprs::NumOfFilter, 0x01)
	instanceECC = i_LireInstanceECC("NVADCH")
	SI(instanceECC <= 0)
	ALORS
		trace("Pas d'ECC : NVADCH")
		erreur = i_format_str2(pt_LibelleAlarme, "%s> <f=%s", "NVADCH", pt_NameOfFile)
		erreur = i_PlvMessEmettre(8893, 2, g_iartin, "", 2, code_rejet, pt_LibelleAlarme, 0)
		RETOUR  1
	FINSI
	trace("application NVADCH")
	pt_resultat = i_get_tab_field(pt_FORMAT_ECC, date_cra, "NVADCH")

	res = Stockage_Article_660003942(g_iartin, tapin2pp, tapin2p5, instanceECC , pt_resultat, date_fin, type)
	SI(res == 0)
	ALORS
		trace("**Tcrae_moc , erreur d'envoi de l'article a l'application NVADCH")
		erreur = i_format_str2(pt_LibelleAlarme, "%s> <f=%s", "NVADCH", pt_NameOfFile)
		erreur = i_PlvMessEmettre(8894, 2, g_iartin, "", 2, code_rejet, pt_LibelleAlarme, 0)
		RETOUR 1
	FINSI  
	RETOUR 0
