REGISTRE ENTIER instCENT_860026280
REGISTRE ENTIER instSYMPHO_860026280
REGISTRE ENTIER res_860026280
REGISTRE POINTEUR pt_nomECCFact_860026280
# ---------------------------------------------------------------------------
#
# FICHIER : NODESTfe6dc.src
#
# VERSION : %version: 6.1 %
#

# AUTEUR      : %created_by: claude %
#
# CREE le     : 03/04/02 15:06
#
# MODIFIE le  : %date_modified: 03/04/02 18:08 %
#
# DESCRIPTION :
#    Article detail de communication SGN Tfe6dc
#
#
# HISTORIQUE :
#	04/04/2002 - CMI - FO1419 : Champ SCT et TAP pour FOR au format "FV"
#	17/06/2002 - PSA - FO1510  : Encapsulation pour le stockage en errone
#       11/07/2002 - NSA -        : enrichissement des messages d'erreus et traitement de la redistri
#	21/10/2002 - PSA - FO50 : traduction du B et C pour le demande
#	23/01/2003 - MCH : GIR2C9 : FOR --> FORDC
#	25/10/2004 - THE - G2R0Caa creation Centaure
#	05/01/2006 - DRE - FO1666 G2R2Ca Remplacement de i_retrait_tlv() par i_supprChamp()
#	08/07/2009 - THE - G3R14 : arret envoi vers CENTAUREDC QC 270
#	06/08/2009 - DRE - G3R14 : Complement arret envoi vers CENTAUREDC QC274
#	26/09/2011 - THE - VerifPcode
#
# ---------------------------------------------------------------------------

############################################################################
# Declarations
############################################################################

# Numero d'instances
  
# VerifPcode

# initialisation du pointeur

# VerifPcode
pt_nomECCFact_860026280	= "pt_nomECCFact"

i_strcpy(pt_nomECCFact_860026280,"")

instCENT_860026280=0
instSYMPHO_860026280=0

############################################################################
# Envoi requetes Table de Distribution
############################################################################


############################################################################
# Controles
############################################################################


############################################################################
# Recherche Instances des ECC
############################################################################

# CENTAURE

# SYMPHONIE
instSYMPHO_860026280=i_LireInstanceECC("SYMP")

SI !(instSYMPHO_860026280 > 0)
ALORS
	res_860026280=i_PlvMessEmettre(8501,2,g_iartin,"",3,"SYMP","NODESTfe6dc",g_ieec)
	SAUT DISTRI_ERR
FINSI

############################################################################
# Duplication Symphonie
############################################################################

SI (i_dup_art_id(g_iartin,g_iartout))
ALORS
	res_860026280=i_PlvMessEmettre(8502,2,g_iartin,"",3,"TsymphoNfe6","NODESTfe6dc",g_ieec)
	SAUT DISTRI_ERR
FINSI

res_860026280=i_rename_art(g_iartout,"TsymphoNfe6")

# retrait du T3ce si ajoute par le traitement
SI (i_valid_field_n(g_iartin,$T3ce))
ALORS
	res_860026280=i_supprChamp(g_iartout,"T3ce")
FINSI

# CCD
res_860026280=i_ajoutChampNum(g_iartout,$TsymphoNfe6::T4ccd,$TsymphoNfe6::CCD,0)

# SGTQS
res_860026280=i_ajoutChampNum(g_iartout,$TsymphoNfe6::T4sgtqs,$TsymphoNfe6::SGTQS,0)

# EEC_FACT
res_860026280=i_ajoutChampNum(g_iartout,$TsymphoNfe6::T4eccfact,$TsymphoNfe6::ECC_FACT,0)

# IEZLT
# : Suppression de l'ajout si sans objet

############################################################################
# Critere de distribution
############################################################################
# ajout de l'EEC SYMPHONIE a la liste courante des EEC

res_860026280=i_AjouterCouranteECC(instSYMPHO_860026280)

#---------------------------------------------------------------------------
# Criteres communs
#---------------------------------------------------------------------------

#---------------------------------------------------------------------------
# CENTAUREDC
#---------------------------------------------------------------------------

# ajout de l'EEC FOR a la liste courante des EEC
res_860026280=i_AjouterCouranteECC(instCENT_860026280)

############################################################################
# Validation de la liste des ECCs destinatrices
############################################################################

res_860026280=i_ValiderListeECC(0,0,0,0)

############################################################################
# Mises au format
############################################################################

#---------------------------------------------------------------------------
# Criteres communs
#---------------------------------------------------------------------------

#---------------------------------------------------------------------------
# CENTAUREDC
#---------------------------------------------------------------------------


#---------------------------------------------------------------------------
# Complements Symphonie
#---------------------------------------------------------------------------

# CCD
res_860026280=i_set_art_field(g_iartout,$TsymphoNfe6::CCD,205)

# SGTQS
res_860026280=i_set_art_str(g_iartout, $TsymphoNfe6::SGTQS,i_LireEECSGTQS(g_ieec))

# ECC_FACT
res_860026280=i_set_art_str(g_iartout,$TsymphoNfe6::ECC_FACT,pt_nomECCFact_860026280)


############################################################################
# Envoi vers IECC
############################################################################

#---------------------------------------------------------------------------
# CENTAUREDC
#---------------------------------------------------------------------------


#---------------------------------------------------------------------------
# Symphonie
#---------------------------------------------------------------------------

SI !(i_ChercherCouranteECC(instSYMPHO_860026280))
ALORS
	res_860026280=i_stocke_art_iecc(g_iartout,instSYMPHO_860026280)
FINSI

RETOUR TRAIT_OK

############################################################################
# Stockage en Errone
############################################################################

POINT DISTRI_ERR

	res_860026280=i_make_art_rej(g_iartin, g_iartout, 0)
	res_860026280=i_stocke_art(g_iartout,0,PT_ERRONE,0)

RETOUR TRAIT_OK

