DEFINITION NUMTAB_860026260 1
DEFINITION ZONEMETRO_860026260 7
DEFINITION C_Article_860026260 "Trm6dc"
DEFINITION C_InstSYMP_860026260 "SYMP"
DEFINITION C_InstCENTDC_860026260 "CENTAUREDC"
DEFINITION C_TcentDC_860026260 "TcentaureDC"
DEFINITION C_InstCASPER_860026260 "CASPER"
DEFINITION C_Tcasper_860026260 "TcasperTrm6dc"
DEFINITION CCD_Internat_860026260 6
DEFINITION CPT_CPS_Loc_860026260 16
DEFINITION CPT_CPS_RI_860026260 17
DEFINITION C_DATCPS_860026260 "DATCPS" 
DEFINITION TD_SVA_860026260 9
DEFINITION C_INST_ALICE_860026260 "ALICE"
REGISTRE ENTIER module_corr_ok_860026260
REGISTRE ENTIER ddebut_860026260
REGISTRE ENTIER gmt_date_860026260
REGISTRE ENTIER EFFICACE_860026260
REGISTRE ENTIER ICAR_ABS_860026260
REGISTRE ENTIER ICAR_REL_860026260
REGISTRE ENTIER instCENT_860026260
REGISTRE ENTIER instSYMP_860026260
REGISTRE ENTIER tap_860026260
REGISTRE ENTIER res_860026260
REGISTRE ENTIER erreur_860026260
REGISTRE ENTIER EPORTABILITE_860026260
REGISTRE ENTIER SPORTABILITE_860026260
REGISTRE ENTIER CCD_860026260
REGISTRE ENTIER CCD_REEL_860026260
REGISTRE ENTIER dpivot_860026260
REGISTRE ENTIER tax_860026260
REGISTRE ENTIER dduree_860026260
REGISTRE ENTIER MINE_860026260
REGISTRE ENTIER ART_860026260
REGISTRE ENTIER APPLI_860026260
REGISTRE ENTIER DC_CAA_860026260
REGISTRE ENTIER CORR_OK_860026260
REGISTRE ENTIER id_corr_860026260
REGISTRE ENTIER valA_860026260
REGISTRE ENTIER valB_860026260
REGISTRE ENTIER valC_860026260
REGISTRE ENTIER valD_860026260
REGISTRE ENTIER valE_860026260
REGISTRE ENTIER valF_860026260
REGISTRE ENTIER valG_860026260
REGISTRE ENTIER valH_860026260
REGISTRE ENTIER valI_860026260
REGISTRE ENTIER lgr_860026260
REGISTRE ENTIER code_errone_860026260
REGISTRE ENTIER REJET_860026260
REGISTRE ENTIER INEF_SPECIAUX_860026260
REGISTRE ENTIER val_INEF_860026260
REGISTRE ENTIER instCASPER_860026260
REGISTRE ENTIER b_NSUC_860026260
REGISTRE ENTIER b_DEDE_N_FILTRE_860026260
REGISTRE ENTIER Date_CPS_860026260
REGISTRE ENTIER instALICE_860026260 
REGISTRE ENTIER longueur_860026260 
REGISTRE ENTIER trait_ok_860026260
REGISTRE ENTIER bREDIST_860026260
REGISTRE ENTIER b_Fact_CPS_Loc_860026260
REGISTRE ENTIER b_Fact_CPS_RI_860026260
REGISTRE POINTEUR pt_NORM_860026260
REGISTRE POINTEUR pt_SGTQS_860026260
REGISTRE POINTEUR pt_TEMP_860026260
REGISTRE POINTEUR pt_COCA_860026260
REGISTRE POINTEUR pt_COCAV_860026260
REGISTRE POINTEUR pt_CodeOp_860026260
REGISTRE POINTEUR pt_BUF_860026260
REGISTRE POINTEUR pt_TCOMMUT_860026260
REGISTRE POINTEUR pt_INEF_STD_860026260
REGISTRE POINTEUR pt_INEF_COMMUT_860026260
REGISTRE POINTEUR pt_DEDE_DIST_N_860026260
REGISTRE POINTEUR pt_DEDE_860026260
REGISTRE POINTEUR pt_cas_corr_860026260
REGISTRE POINTEUR pt_NSUC_860026260
REGISTRE POINTEUR pt_v_masque_860026260
REGISTRE POINTEUR pt_eccfact_860026260
REGISTRE POINTEUR pt_MESSAGE_860026260
REGISTRE POINTEUR pt_CODE_TARIF_860026260 
REGISTRE POINTEUR pt_TYPE_EDIT_860026260 
REGISTRE POINTEUR pt_LIBELREDIST_860026260
############################################################################
# Pcode de DISTRIBUTION
# Fichier : Trm6dc.src
#
# Version : %version: 4 %
#
# Date    : %date_modified: 03/04/02 11:05 %
#            le 30/04/02 par URS(NSA)
#
# Distribution :
#    Article detail de communication
#    sur Faisceau entrant GSM Efficace et Inefficace
#
# En entree :
#    Article :
#
# En sortie :
#    CENTAURE
#    Symphonie
#
# HISTORIQUE :
#	17/06/2002 - PSA - FO1510  : Encapsulation pour le stockage en errone
#	16/07/2002 - RBE : Ajout variables EPORTABILITE et SPORTABILITE
#		           et Modif. mise au format NDEDE
#        02/10/2002 - MCH - FO20235 : SUP pour FOR
#	07/10/2002 - MCH - FO20260: Format NUM_IDUS
#	21/10/2002 - PSA - FO50 : traduction du B et C pour le demande
#	28/10/2002 - RBE : specif.4.8 : Modif. CCD en fonction de la portabilite
#	14/10/2002 - RBE : Ajout de l'envoie a APACHE
#	21/11/2002 - RBE : FO115 + Modif. alarme tables externes
#	21/01/2003 - MCH : GIR2C9 : FOR --> FORDC
#	07/04/2003 - RBE : FO245 : recup. de MINE et APPLI si VN8(ART=4)
#	22/07/2003 - DRE - Modif calcul codeoperateur
# 	03/09/2003 - DRE - FO392 : Initialisation des variables Pcode
#	30/07/2003 - MCH - G2R0CJ SCP Correlation
#	22/10/2003 - MCH - FO424 : palliatif pour bug de lireChpCdc
#	18/12/2003 - RBE : FO528 : Modif. initialisation de pointeurs
#	06/01/2004 - PSA - FO529 : inhibition envoi correlation (Cg)
# 	24/05/2004 - NSA - G2R0Cl: integration des codes d erreurs
#	01/10/2004 - THE - Modification pour CENTAURE en remplacement de FOR
#	30/11/2004 - THE - FO939
#	09/05/2005 - JLG : G2R1Ch REJET2
#	09/05/2005 - JLG - FO1276
#	21/07/2005 - PSA - Cj : inef speciaux
#	25/10/2005 - PSA - G2R2Co : FO 1538
#       25/11/2005 - PKH - G2R2Ca - Evolution Apache envoie des DC inefficaces des N0 URGENCE
#	05/01/2006 - DRE - FO1666 G2R2Ca Remplacement de i_retrait_tlv() par i_supprChamp()
#	27/09/2006 - JLG : G2R2Cv REJET3 (119 appel enfance maltraitee)
#	25/10/2006 - JLG - G2R2Cv modif pt_NORM car trop court
# 06/11/2007 - PYH - G3R3Cv ajout REJET6 dans le cadre des appels 118 PTD & kiosque
#	25/03/2008 - JLG - ParamFTSA-G3R6 FO2359 evol spec S3F1
# 08/11/2011 - RHE - G3R23 DC SU en deprt pour CASPER
# 01/12/2011 - RHE - G3R23 QC553 DC SU en deprt pour CASPER avec DEDENSUC
#	23/01/2012 - THE - VerifPcode
#	11/02/2013 - DRE - G4R02 : QC677, rechercher SCP-SRP uniquement si Dde non international
#	23/05/2013 - DRE - G4R3 lot2 : Masquage de numero appelant (PNIJ)
#	28/05/2013 - THE - G4R3 suppression envoi vers APACHE
#	30/08/2013 - DRE - G4R3C5 QC743 Valoriser ECC_FACT a vide
#	25/03/2014 - DRE - G4R6 : Lot2 prise en compte des nouveaux Type Control envoy?s par la base (C+S )
#	13/05/2014 - DRE - G4R6 QC817
#	19/06/2014 - DRE - G4R7 QC829
#
############################################################################


############################################################################
# Declarations
############################################################################
# **** Constantes
#Constantes pour message d alarme
# G3R23
#DRE QC677
#DRE G4R6 lot2
#\DRE G4R6 lot2



# **** Variables entieres
# G3R23
#G4R3
#DRE G4R6 lot2
#DRE - G4R7 QC829

# **** initialisation variables entieres
#INF_DEDE	 = 0
EPORTABILITE_860026260 	 = 0
SPORTABILITE_860026260 	 = 0
CCD_860026260 		 = 255
CCD_REEL_860026260	 = 255
instSYMP_860026260	 = 0
instCENT_860026260	 = 0
#G4R3 instAPACHE	 = 0
ART_860026260		 = 0xFFFFFFFF
MINE_860026260		 = 0xFFFFFFFF
APPLI_860026260		 = 0xFFFFFFFF
DC_CAA_860026260		 = 0
CORR_OK_860026260 	 = 0
module_corr_ok_860026260	 = 0
REJET_860026260		 = 0
INEF_SPECIAUX_860026260	 = 0
val_INEF_860026260	 = 0
b_DEDE_N_FILTRE_860026260	 = 0
#DRE G4R6 lot2
Date_CPS_860026260 = 0
instALICE_860026260 = -1
tax_860026260 = 0
longueur_860026260 = 0
bREDIST_860026260 = 0
#DRE - G4R7 QC829
b_Fact_CPS_Loc_860026260 = 0
b_Fact_CPS_RI_860026260 = 0

# **** Definition Pointeurs
# G3R23
#G4R3
#DRE G4R3 QC743
# DRE G4R6 lot2


# **** Allocation de memoire pour le buffeur
#TEMP2		 = "6575679875645634456890567812345"
#pt_SGTQS	 = "33345678901212345"
#XY		 = "089876"
pt_SGTQS_860026260		 = "8888888888888888"
pt_TEMP_860026260		 = "1234567891234567891234567812345"
pt_COCA_860026260		 = "654312345"
pt_COCAV_860026260		 = "432112345"
pt_CodeOp_860026260	 = "99999999999999999999999999999912345"
pt_BUF_860026260		 = "34567834456723467865432412345"
pt_TCOMMUT_860026260		 = "20202020202020202020202020202012345"
pt_INEF_STD_860026260	 = "60606060606060606060606060606012345"
#G4R3 pt_CODE_APACHE	 = "70707070707070707070707070707012345"
#G4R3 pt_INEF_APACHE	 = "80808080808080808080808080808012345"
pt_INEF_COMMUT_860026260	 = "90909090909090909090909090909012345"
pt_DEDE_DIST_N_860026260	 = "86456778567876789675888888888888888"
pt_DEDE_860026260		 = "46564786674576789675555555555555555"
pt_cas_corr_860026260	 = "66666666666666666666"
#G4R3 pt_URGENCE_APACHE	 = "0569587521589478585865"
pt_NORM_860026260		 = "389389389389389389389389389389389389389389389389389389"
# G3R23
pt_NSUC_860026260	= "pt_NSUC1234567890123456789012345"
#G4R3
pt_v_masque_860026260 = "pt_v_masque"
#DRE G4R3 QC743
pt_eccfact_860026260	 = "pt_eccfact45678901234567890"
# DRE G4R6 lot2
pt_MESSAGE_860026260 = "pt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGE"
pt_LIBELREDIST_860026260	 = "pt_LIBELREDISTpt_LIBELREDISTpt_LIBELREDISTpt_LIBELREDISTpt_LIBELREDISTpt_LIBELREDISTpt_LIBELREDISTpt_LIBELREDISTpt_LIBELREDISTpt_LIBELREDISTpt_LIBELREDISTpt_LIBELREDISTpt_LIBELREDIST"
pt_CODE_TARIF_860026260 	 = "pt_CODE_TARIFpt_CODE_TARIF"
pt_TYPE_EDIT_860026260	 = "pt_TYPE_EDIT"

# **** initialisation pointeurs
#G4R3 i_strcpy(pt_URGENCE_APACHE,"")
i_strcpy(pt_NORM_860026260,"")
i_strcpy(pt_SGTQS_860026260,"")
i_strcpy(pt_TEMP_860026260,"")
i_strcpy(pt_COCA_860026260,"")
i_strcpy(pt_COCAV_860026260,"")
i_strcpy(pt_CodeOp_860026260,"")
i_strcpy(pt_BUF_860026260,"")
i_strcpy(pt_TCOMMUT_860026260,"")
i_strcpy(pt_INEF_STD_860026260,"")
#G4R3 i_strcpy(pt_CODE_APACHE,"")
#G4R3 i_strcpy(pt_INEF_APACHE,"")
i_strcpy(pt_INEF_COMMUT_860026260,"")
i_strcpy(pt_DEDE_DIST_N_860026260,"")
i_strcpy(pt_DEDE_860026260,"")
i_strcpy(pt_cas_corr_860026260,"")
# G3R23
i_strcpy(pt_NSUC_860026260,"")
# G4R3
i_strcpy(pt_v_masque_860026260,"")
#DRE G4R3 QC743
i_strcpy(pt_eccfact_860026260," ")
# DRE G4R6 lot2
i_strcpy(pt_MESSAGE_860026260, "")
i_strcpy(pt_LIBELREDIST_860026260, "")
i_strcpy(pt_CODE_TARIF_860026260 , "    ")
i_strcpy(pt_TYPE_EDIT_860026260 , " ")


trace("[Trm6dc_dis] debut distribution - Trm6dc")
#erreur = i_fdump_art(g_iartin)

# ---------------------------------------------------
# Identification de la provenance de l'article
# ---------------------------------------------------
trait_ok_860026260 = -1
# trait_ok : nb de passage en redistribution
trait_ok_860026260 = i_LireRedistCpt()

############################################################################
# Variables Fonctionnelles Globales
############################################################################

#Recuperation de la valeur de TAP:
tap_860026260=i_get_field_val(g_iartin,"TAP")
#trace1("[Trm6dc_dis]TAP=<%d>",tap)

#Recuperation du bit B de TAP:
SI ( !i_get_bit_val(tap_860026260,7) )
ALORS
	EFFICACE_860026260=1
SINON
	EFFICACE_860026260=0
FINSI
#trace1("[Trm6dc_dis]EFFICACE=%d", EFFICACE)

dpivot_860026260 = i_get_art_field( g_iartin, $Trm6dc::dpivot)

i_strcpy(pt_SGTQS_860026260,i_LireEECSGTQS( g_ieec ))
#trace2("[Trm6dc_dis]Apres LireEECSGTQS=%s", pt_SGTQS, "")

##############################################################
#	 Article Inef speciaux : variable INEF_SPECIAUX
#		- code INEF > 100 (decimal)
#		- DEDE_INF vaut 0
##############################################################

# retrait INEF_SPECIAUX

#DRE G4R6 Lot2
#erreur=i_get_art_str(g_iartin,$NDE,pt_NORM)

SI ( i_valid_field_n(g_iartin, $NORMAL ) )
ALORS
	erreur_860026260 = i_get_art_str(g_iartin, $NORMAL, pt_NORM_860026260 )
SINON
	SI ( i_valid_field_n(g_iartin, $NDE ) )
	ALORS
		erreur_860026260 = i_get_art_str(g_iartin, $NDE, pt_NORM_860026260)
	FINSI
FINSI
#\DRE G4R6 Lot2


val_INEF_860026260=i_get_art_field(g_iartin, $Trm6dc::INEF)

#G4R3 SI (EFFICACE == 0 && val_INEF >=100)
#G4R3 ALORS
#G4R3 	pt_URGENCE_APACHE = inef_apache("URGE",pt_NORM,dpivot)
#G4R3 
#G4R3 	SI (pt_URGENCE_APACHE != g_inull)
#G4R3 	ALORS
#G4R3 		INEF_SPECIAUX =1
#G4R3 	FINSI
#G4R3 FINSI

#--------------------------
# REJET
#--------------------------

SI (i_valid_field_n(g_iartin,$T4rejet))
ALORS
	REJET_860026260 = i_get_art_field(g_iartin,$REJET)
FINSI

#DRE - G4R7 QC829
SI REJET_860026260 == CPT_CPS_Loc_860026260
ALORS
	b_Fact_CPS_Loc_860026260 = 1
FINSI
SI REJET_860026260 == CPT_CPS_RI_860026260
ALORS
	b_Fact_CPS_RI_860026260 = 1
FINSI
#\DRE - G4R7 QC829


#trace1("[Trm6dc_dis]REJET = %d",REJET)

#--------------------------
# CCD
#--------------------------
# Le CCD est rajoute dans le pcode de traitement

SI ( i_valid_field_n( g_iartin, $CCD ) )
ALORS
	CCD_860026260 = i_get_art_field( g_iartin, $CCD )
	#trace1( "[Trm6dc_dis] Tta6dc - CCD = <%d>", CCD )
FINSI

############################################################################
# Envoi en Correlation
############################################################################

erreur_860026260=i_get_art_str(g_iartin, $NDE, pt_DEDE_860026260)
# paliatif pour bug de lireChpCdc dans la correlation
res_860026260 = i_set_art_str(g_iartin,$CORR_NDE,pt_DEDE_860026260)
res_860026260 = i_strlen(pt_DEDE_860026260)
res_860026260 = res_860026260 - 9
i_get_sub_str(pt_DEDE_860026260,res_860026260,-1,pt_DEDE_DIST_N_860026260)

# Inhibition de la correlation
SI ( ( module_corr_ok_860026260 ) && ( g_ipt == PT_OK ) && EFFICACE_860026260 && ( !i_strplcmp ( pt_DEDE_860026260, "84008",0,5 )
|| !i_strplcmp ( pt_DEDE_DIST_N_860026260, "81",0,2 ) || !i_strplcmp ( pt_DEDE_DIST_N_860026260, "82",0,2 ) ) && REJET_860026260 != 3 && REJET_860026260 != 14 )
ALORS
	trace("[Trm6dc_dis]===== DIST: Article mis en CORRELE =====")
	#Initialisation de la table des couples de correlation
	erreur_860026260 = i_initialiserPrmCorr(g_iartin)
	#trace1("[Trm6dc_dis]CORR_DIST - code retour i_initialiserPrmCorr %d", erreur)

	#Ajouter le couplet NXXxxx, yyyy a la table de couplets
	#trace("[Trm6dc_dis]CORR_DIST - Ajout cas correlation")
	i_strcpy(pt_cas_corr_860026260,"SCP_1")

	# Calcul de id_corr : NDR
	lgr_860026260 = i_get_art_fieldlength(g_iartin,$NDR)

	SI (lgr_860026260 >= 1)
	ALORS
		valI_860026260 = i_get_art_fieldtab(g_iartin,$NDR,lgr_860026260-1)
	SINON
		valI_860026260 = 0
	FINSI

	SI (lgr_860026260 >= 2)
	ALORS
		valH_860026260 = i_get_art_fieldtab(g_iartin,$NDR,lgr_860026260-2)
	SINON
		valH_860026260 = 0
	FINSI

	SI (lgr_860026260 >= 3)
	ALORS
		valG_860026260 = i_get_art_fieldtab(g_iartin,$NDR,lgr_860026260-3)
	SINON
		valG_860026260 = 0
	FINSI

	SI (lgr_860026260 >= 4)
	ALORS
		valF_860026260 = i_get_art_fieldtab(g_iartin,$NDR,lgr_860026260-4)
	SINON
		valF_860026260 = 0
	FINSI

	SI (lgr_860026260 >= 5)
	ALORS
		valE_860026260 = i_get_art_fieldtab(g_iartin,$NDR,lgr_860026260-5)
	SINON
		valE_860026260 = 0
	FINSI

	SI (lgr_860026260 >= 6)
	ALORS
		valD_860026260 = i_get_art_fieldtab(g_iartin,$NDR,lgr_860026260-6)
	SINON
		valD_860026260 = 0
	FINSI

	SI (lgr_860026260 >= 7)
	ALORS
		valC_860026260 = i_get_art_fieldtab(g_iartin,$NDR,lgr_860026260-7)
	SINON
		valC_860026260 = 0
	FINSI

	SI (lgr_860026260 >= 8)
	ALORS
		valB_860026260 = i_get_art_fieldtab(g_iartin,$NDR,lgr_860026260-8)
	SINON
		valB_860026260 = 0
	FINSI

	SI (lgr_860026260 >= 9)
	ALORS
		valA_860026260 = i_get_art_fieldtab(g_iartin,$NDR,lgr_860026260-9)
	SINON
		valA_860026260 = 0
	FINSI

	SI ( (valA_860026260 < 0) || (valA_860026260 > 9))
	ALORS
		valA_860026260 = 0
	FINSI

	SI ( (valB_860026260 < 0) || (valB_860026260 > 9))
	ALORS
		valB_860026260 = 0
	FINSI

	SI ( (valC_860026260 < 0) || (valC_860026260 > 9))
	ALORS
		valC_860026260 = 0
	FINSI

	SI ( (valD_860026260 < 0) || (valD_860026260 > 9))
	ALORS
		valD_860026260 = 0
	FINSI

	SI ( (valE_860026260 < 0) || (valE_860026260 > 9))
	ALORS
		valE_860026260 = 0
	FINSI

	SI ( (valF_860026260 < 0) || (valF_860026260 > 9))
	ALORS
		valF_860026260 = 0
	FINSI

	SI ( (valG_860026260 < 0) || (valG_860026260 > 9))
	ALORS
		valG_860026260 = 0
	FINSI

	SI ( (valH_860026260 < 0) || (valH_860026260 > 9))
	ALORS
		valH_860026260 = 0
	FINSI

	SI ( (valI_860026260 < 0) || (valI_860026260 > 9))
	ALORS
		valI_860026260 = 0
	FINSI
	id_corr_860026260 = (valA_860026260*100000000) + (valB_860026260*10000000) + (valC_860026260*1000000) + (valD_860026260*100000) + (valE_860026260*10000) + (valF_860026260*1000) + (valG_860026260*100) + (valH_860026260*10) + valI_860026260

	#trace2("[Trm6dc_dis]CORR_DIST - cas: %s", pt_cas_corr, "")
	#trace1("[Trm6dc_dis]CORR_DIST - id: %d", id_corr)
	erreur_860026260 = i_ajouterPrmCorr(g_iartin, pt_cas_corr_860026260, id_corr_860026260)
	#trace1("[Trm6dc_dis]CORR_DIST - code retour i_ajouterPrmCorr %d", erreur)

	erreur_860026260 = i_stocke_art(g_iartin, 0, PT_CORRELE, 0)
FINSI

SI ( g_ipt == PT_CORRELE )
ALORS
	CORR_OK_860026260 = 1
	#type_corr = i_get_art_field(g_iartin,$CORR_OK)
	# Verifpcode
	#erreur = i_get_art_str(g_iartin,$XY,XY)
FINSI

# ICAR_ABS et ICAR_REL
ICAR_ABS_860026260 = i_get_art_field(g_iartin,$DATE)

SI ( ICAR_ABS_860026260 == -1 )
ALORS
	code_errone_860026260 = 0xA080
	code_errone_860026260 = code_errone_860026260 + EFFICACE_860026260
	erreur_860026260 = i_PlvMessEmettre( 8600, 2, g_iartin,"", 3,code_errone_860026260, C_Article_860026260, "i_get_art_field/DATE" )
	SAUT DISTRI_ERR
FINSI

ICAR_REL_860026260 = i_date_locale(g_ieec,g_iartin,ICAR_ABS_860026260)

SI ( ICAR_REL_860026260 == -1 )
ALORS
	code_errone_860026260 = 0xA080
	code_errone_860026260 = code_errone_860026260 + EFFICACE_860026260
	erreur_860026260 = i_PlvMessEmettre( 8600, 2, g_iartin,"", 3,code_errone_860026260, C_Article_860026260, "i_date_locale" )
	SAUT DISTRI_ERR
FINSI

dduree_860026260 = i_get_art_field( g_iartin, $Trm6dc::dduree )
tax_860026260    = i_get_art_field( g_iartin, $Trm6dc::tax )

ddebut_860026260 = i_get_art_field(g_iartin,$ddebut)

SI (ddebut_860026260 == -1)
ALORS
	code_errone_860026260 = 0xA080
	code_errone_860026260 = code_errone_860026260 + EFFICACE_860026260
	erreur_860026260 = i_PlvMessEmettre( 8600, 2, g_iartin,"", 3,code_errone_860026260, C_Article_860026260, "i_get_art_field/ddebut" )
	SAUT DISTRI_ERR
FINSI

gmt_date_860026260 = i_DHgetCe2gTime(NUMTAB_860026260,ZONEMETRO_860026260,ddebut_860026260)
erreur_860026260 = i_get_art_str( g_iartin, $Trm6dc::INEF, pt_INEF_COMMUT_860026260 )

#DRE G4R6 lot2 
#####################################################################
# 	              Traitement C+S (CPS)

erreur_860026260 = i_cree_art("Conversion",g_iartout10)


#DRE - G4R7 QC829
#SI (REJET==CPT_CPS_Loc)
SI b_Fact_CPS_Loc_860026260 || b_Fact_CPS_RI_860026260
ALORS
	i_strcpy(pt_TEMP_860026260, i_get_tab_field( "TDATCPS", gmt_date_860026260, C_DATCPS_860026260 ))

	erreur_860026260 = i_set_art_str (g_iartout10,$Conversion::DATE_STR,pt_TEMP_860026260)
	Date_CPS_860026260 = i_get_art_field(g_iartout10, $Conversion::DATE_ASC)
			
	SI ddebut_860026260 < Date_CPS_860026260
	ALORS
		erreur_860026260 = i_format_str2(pt_MESSAGE_860026260," AR <%s> avec date DC inferieure a la date d'activation <%s> de la facturation CPS",pt_NORM_860026260,pt_TEMP_860026260)
		code_errone_860026260 = 0xA080
		code_errone_860026260 = code_errone_860026260 + EFFICACE_860026260
		erreur_860026260 = i_PlvMessEmettre( 8599, 1, g_iartin,"", 3,code_errone_860026260, C_Article_860026260, pt_MESSAGE_860026260 )
		SAUT DISTRI_DIV
	SINON
		#######################################
		#  Soumission de la requete de consultation d'une table de distribution ALICE
		#######################################
		SI i_strplcmp (pt_NORM_860026260,"0",0,1) == 0
		ALORS
			i_get_sub_str(pt_NORM_860026260,1,-1,pt_NORM_860026260) 	
		FINSI
		longueur_860026260 = i_conv_ascii_dcb (pt_NORM_860026260, pt_TEMP_860026260)
		SI (i_EnvoiReqConsTabDist( TD_SVA_860026260,gmt_date_860026260,pt_TEMP_860026260,longueur_860026260,0,1) != 0)
		ALORS
			#trace("Erreur i_EnvoiReqConsTabDist ALICE")
			bREDIST_860026260 = 1
			i_strcpy(pt_LIBELREDIST_860026260,"Echec sur i_EnvoiReqConsTabDistDouble ALICE ")
		FINSI
		
		#######################################
		# Recherche de l'instance ECC ALICE
		#######################################
		instALICE_860026260 = i_LireInstanceECC(C_INST_ALICE_860026260)
		SI (!instALICE_860026260)
		ALORS
			#trace("Pas d'instance pour ALICE !")
			erreur_860026260 = i_PlvMessEmettre(8501,1,g_iartin,"",3,C_INST_ALICE_860026260,C_Article_860026260,g_ieec)
			SAUT DISTRI_ERR
		FINSI
		#trace1("instALICE  =<%d>",instALICE)	

		#######################################
		# Lecture Resultat requete ALICE
		#######################################
		erreur_860026260 = i_LireReqConsTabDist()
		#trace1("RETOUR i_LireReqConsTabDist retour requette ALICE, erreur=<%d>",erreur)
		SI ( erreur_860026260 != 0 )
		ALORS
			#trace1( "Erreur i_LireReqConsTabDist ALICE: <%d>", erreur)
			bREDIST_860026260 = 1
			i_strcpy(pt_LIBELREDIST_860026260,"Echec sur i_LireReqConsTabDistDouble ALICE ")
		FINSI
		res_860026260 = i_LireInfoECC( instALICE_860026260, 0 )
		
		SI (res_860026260 != 0)
		ALORS
			# AR present dans ALICE
			erreur_860026260 = i_LireChaineInfo( res_860026260, 0, 4, pt_BUF_860026260 )
			SI i_strcmp(pt_BUF_860026260,"") != 0
			ALORS
				i_strcpy(pt_CODE_TARIF_860026260,pt_BUF_860026260)
			SINON
				# info complementaire CODE_TARIF vide
				bREDIST_860026260 = 1
				erreur_860026260 = i_format_str2(pt_LIBELREDIST_860026260," AR <%s> trouve dans LAR ALICE mais aucune info complementaire valorisee",pt_NORM_860026260,0)
			FINSI
			
			erreur_860026260 = i_LireChaineInfo( res_860026260, 4, 1, pt_BUF_860026260 )
			SI i_strcmp(pt_BUF_860026260,"") != 0
			ALORS
				i_strcpy(pt_TYPE_EDIT_860026260,pt_BUF_860026260)
			SINON
				# info complementaire TYPE_EDIT vide
				bREDIST_860026260 = 1
				erreur_860026260 = i_format_str2(pt_LIBELREDIST_860026260," AR <%s> trouve dans LAR ALICE mais aucune info complementaire valorisee",pt_NORM_860026260,0)
			FINSI
		SINON
			bREDIST_860026260 = 1
			erreur_860026260 = i_format_str2(pt_LIBELREDIST_860026260," AR <%s> non trouve dans ALICE",pt_NORM_860026260,0)
		FINSI
	FINSI
FINSI
#\DRE G4R6 lot2


#G3R23
# NSUC
erreur_860026260 = i_get_art_str( g_iartin, $NDE, pt_BUF_860026260 )

#G3R23 QC553
res_860026260 = i_strlen(pt_BUF_860026260)
SI (res_860026260 > 9)
ALORS
	i_get_sub_str(pt_BUF_860026260,-9,-1,pt_BUF_860026260)
FINSI

i_strcpy(pt_NSUC_860026260, i_get_tab_field("TNSUC", gmt_date_860026260, pt_BUF_860026260))
SI (i_strcmp(pt_NSUC_860026260,"") != 0 )
ALORS
	b_NSUC_860026260 = 1
	SI (i_strcmp(LCASE_860026233(pt_NSUC_860026260),"vide") == 0 )
	ALORS
		i_strcpy(pt_NSUC_860026260," ")
	FINSI
FINSI

trace2("Recherche NSUC - NDE   : <%s>", pt_BUF_860026260, "")
trace1("Recherche NSUC - b_NSUC : %x",b_NSUC_860026260)

#DRE QC677
SI CCD_860026260 != CCD_Internat_860026260
ALORS
	# Portabilite
	erreur_860026260=i_get_art_str(g_iartin,$NDE,pt_BUF_860026260)
	pt_CodeOp_860026260 = CodeOperateur_860026233(gmt_date_860026260, pt_BUF_860026260)
	
	SI (!i_strcmp(pt_CodeOp_860026260, "84208"))
	ALORS
		EPORTABILITE_860026260 = 1
	SINON
		SI ( pt_CodeOp_860026260 != g_inull )
		ALORS
			SPORTABILITE_860026260 = 1
		FINSI
	FINSI
FINSI

#---------------------------------------------------------------------------
# Variable fonctionnelle CCD_REEL
#---------------------------------------------------------------------------

SI (EPORTABILITE_860026260 == 1)
ALORS
	CCD_REEL_860026260 = 212
SINON
	SI (SPORTABILITE_860026260 == 1)
	ALORS
		CCD_REEL_860026260 = 213
	SINON
		CCD_REEL_860026260 = CCD_860026260
	FINSI
FINSI

#FIN DRE QC677


#trace1("[Trm6dc_dis]PORTABILITE ENTRANTE=<%d>", EPORTABILITE)
#trace1("[Trm6dc_dis]PORTABILITE SORTANTE=<%d>", SPORTABILITE)
#trace1("[Trm6dc_dis]CCD REEL = <%d>", CCD_REEL)

#INEFF et la com est assurree par un CAA
SI (!EFFICACE_860026260)
ALORS
	#recuperation des champs APPLI MINE et ART de l'entete de bloc
	ART_860026260 = i_bloc_V1V2_recupererIdent(ART_BLOC_V1V2)
	SI (ART_860026260 == 4)
	ALORS
		MINE_860026260 = i_bloc_V1V2_recupererIdent(MINE_BLOC_V1V2)
		APPLI_860026260 = i_bloc_V1V2_recupererIdent(APPLI_BLOC_V1V2)
	FINSI

	#IFDEF trace_niv1 = 1
	trace1("[Trm6dc_dis]champ ART : %x",ART_860026260)
	trace1("[Trm6dc_dis]champ MINE : %x",MINE_860026260)
	trace1("[Trm6dc_dis]champ APPLI : %x",APPLI_860026260)
	#ENDIF

	pt_TCOMMUT_860026260 = type_commut_860026233("APA1", pt_SGTQS_860026260, dpivot_860026260)

	SI (pt_TCOMMUT_860026260 == g_inull)
	ALORS
		erreur_860026260 = i_format_str2(pt_TEMP_860026260," %s",pt_SGTQS_860026260,0)
		erreur_860026260 = i_PlvMessEmettre(8505,2,g_iartin,"",3,"Trm6dc/type_commut",pt_TEMP_860026260,g_ieec)
	SINON
		pt_INEF_STD_860026260 = inef_std_860026233("APA2", pt_TCOMMUT_860026260, pt_INEF_COMMUT_860026260, dpivot_860026260)

		SI ( pt_INEF_STD_860026260 == g_inull)
		ALORS
			#trace("[Trm6dc_dis]Code inef absent dans la table")
			erreur_860026260 = i_format_str2(pt_TEMP_860026260," %s",pt_INEF_COMMUT_860026260,0)
			erreur_860026260 = i_PlvMessEmettre(8505,2,g_iartin,"",3,"Trm6dc/inef_std",pt_TEMP_860026260,g_ieec)
		SINON
			DC_CAA_860026260=1
		FINSI
	FINSI
	#trace2("[Trm6dc_dis] Type de commutateur <%s>", pt_TCOMMUT, "")
	#trace2("[Trm6dc_dis] Code inefficace standard <%s>", pt_INEF_STD, "")
FINSI

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

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

#DRE G4R3 lot2 
#---------------------------------
# Recherche DEDE dans table NDIL pour filtrage NDR
#---------------------------------
erreur_860026260 = i_format_str2(pt_TEMP_860026260,"%s%s","0",pt_DEDE_DIST_N_860026260)
i_strcpy(pt_v_masque_860026260, i_get_tab_field("NDIL", gmt_date_860026260, pt_TEMP_860026260))
SI (i_strcmp(pt_v_masque_860026260,"") != 0 )
ALORS
	b_DEDE_N_FILTRE_860026260 = 1
FINSI
#\DRE G4R3 lot2 

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

# SYMP
#----------------
instSYMP_860026260=0
instSYMP_860026260 = i_LireInstanceECC(C_InstSYMP_860026260)

SI (!instSYMP_860026260)
ALORS
	code_errone_860026260 = 0xA0B0
	code_errone_860026260 = code_errone_860026260 + EFFICACE_860026260
	erreur_860026260 = i_PlvMessEmettre(8601,2,g_iartin,"",3,code_errone_860026260,C_InstSYMP_860026260,C_Article_860026260)
	SAUT DISTRI_ERR
SINON
#DRE G4R6 lot2 
#	SI ( !CORR_OK )
	SI ( !CORR_OK_860026260 ) && trait_ok_860026260 == 0
	ALORS
		# Ajout de l'ECC SYMPHONIE a la liste courante des ECC:
		res_860026260 = i_AjouterCouranteECC(instSYMP_860026260)
		#trace1("[Trm6dc_dis]instSYMP=<%d>",instSYMP)
	FINSI
FINSI

# CENTAURE
#----------------
instCENT_860026260=0
instCENT_860026260 = i_LireInstanceECC(C_InstCENTDC_860026260)

SI (!instCENT_860026260)
ALORS
	code_errone_860026260 = 0xA0B0
	code_errone_860026260 = code_errone_860026260 + EFFICACE_860026260
	erreur_860026260 = i_PlvMessEmettre(8601,2,g_iartin,"",3,code_errone_860026260,C_InstCENTDC_860026260,C_Article_860026260)
	SAUT DISTRI_ERR
FINSI
#trace1("[Trm6dc_dis]instCENT=<%d>",instCENT)

# #G4R3 APACHE_DC
#----------------
#G4R3 instAPACHE = i_LireInstanceECC(C_InstAPACHE_DC)

#G4R3 SI (!instAPACHE)
#G4R3 ALORS
#G4R3 	#trace("[Trm6dc_dis]Pas d'instance pour APACHE_DC !")
#G4R3 	code_errone = 0xA0B0
#G4R3 	code_errone = code_errone + EFFICACE
#G4R3 	erreur = i_PlvMessEmettre(8601,2,g_iartin,"",3,code_errone,C_InstAPACHE_DC,C_Article)
#G4R3 	SAUT DISTRI_ERR
#G4R3 FINSI
#trace1("[Trm6dc_dis]instAPACHE=<%d>",instAPACHE)

#G3R23
# CASPER
#----------------
instCASPER_860026260 = i_LireInstanceECC(C_InstCASPER_860026260)
SI (!instCASPER_860026260)
ALORS
	code_errone_860026260 = 0xA0B0
	code_errone_860026260 = code_errone_860026260 + EFFICACE_860026260
	erreur_860026260 = i_PlvMessEmettre(8601,2,g_iartin,"",3,code_errone_860026260,C_InstCASPER_860026260,C_Article_860026260)
	trace("******************* __LINE__ Pas d'instance CASPER %***************************")
	SAUT DISTRI_ERR
FINSI
#trace1("[Trm6dc_dis]instCASPER=<%d>",instCASPER)

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

SI ( !i_ChercherCouranteECC(instSYMP_860026260) )
ALORS
	#trace( "[Trm6dc_dis]Stockage vers SYMPHONIE")

	SI ( i_dup_art_id(g_iartin,g_iartout) )
	ALORS
		#trace("[Trm6dc_dis]ERREUR de duplication vers SYMPHONIE")
		code_errone_860026260 = 0xA0D0
		code_errone_860026260 = code_errone_860026260 + EFFICACE_860026260
		erreur_860026260 = i_PlvMessEmettre(8602,2,g_iartin,"",3,code_errone_860026260,"pour Symphonie",C_Article_860026260)
		SAUT DISTRI_ERR
	FINSI

	# Retrait tlv
	SI ( i_valid_field_n(g_iartout,$Trm6dc::T3ce) )
	ALORS
		erreur_860026260 = i_supprChamp(g_iartout,"T3ce")
	FINSI

	SI (EFFICACE_860026260)
	ALORS
		# Renommage en Tsymtrm6dc
		res_860026260 = i_rename_art(g_iartout,"Tsymtrm6dc")
	SINON
		# Renommage en Tsymtrm6inef
		res_860026260 = i_rename_art(g_iartout,"Tsymtrm6inef")
	FINSI
FINSI

############################################################################
# Attente requetes Table de Distribution
############################################################################

############################################################################
# Critere de distribution
############################################################################

# DRE G4R3 lot2 : Masquage de numero appelant (PNIJ) envoi uniquement a symphonie
SI b_DEDE_N_FILTRE_860026260
ALORS
	SAUT VALIDATION_LISTE
FINSI	
#---------------------------------------------------------------------------
# CENTAUREDC
#---------------------------------------------------------------------------

# Inhibition de la correlation,

#DRE G4R6 lot2 (CPT_CPS_RI = 17)
#SI (EFFICACE && (REJET!=2) && (REJET!=3) && (REJET != 14))
SI bREDIST_860026260 == 0
ALORS
#DRE G4R6 QC817
#	SI (EFFICACE && (REJET!=CPT_CPS_RI) && (REJET!=2) && (REJET!=3) && (REJET != 14))
	SI (EFFICACE_860026260 && (REJET_860026260!=2) && (REJET_860026260!=3) && (REJET_860026260 != 14))
	ALORS
		res_860026260 = i_AjouterCouranteECC(instCENT_860026260)
	FINSI
FINSI

#################################################################################
# #G4R3 Tests des criteres envoi a APACHE_DC
#################################################################################

#G4R3 SI (!EFFICACE && DC_CAA && !CORR_OK )
#G4R3 ALORS
#G4R3 	pt_CODE_APACHE = code_apache("APA3", pt_SGTQS, dpivot)
#G4R3 	pt_INEF_APACHE = inef_apache("APA4", pt_INEF_STD, dpivot)
#G4R3 	#trace2("[Trm6dc_dis] code apache <%s>", pt_CODE_APACHE, "")
#G4R3 	#trace2("[Trm6dc_dis] Inef. apache <%s>", pt_INEF_APACHE, "")
#G4R3 
#G4R3 	SI ( (pt_CODE_APACHE != g_inull) && (pt_INEF_APACHE != g_inull) || INEF_SPECIAUX)
#G4R3 	ALORS
#G4R3 		erreur=i_AjouterCouranteECC(instAPACHE)
#G4R3 	FINSI
#G4R3 FINSI

#G3R23
#################################################################################
# Tests des criteres envoi a CASPER
#################################################################################

#DRE G4R6 lot2
SI trait_ok_860026260 == 0
ALORS
	SI (b_NSUC_860026260 == 1)
	ALORS
		erreur_860026260=i_AjouterCouranteECC(instCASPER_860026260)
	FINSI
FINSI

POINT VALIDATION_LISTE

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

erreur_860026260 = i_ValiderListeECC( 0, 0, 0, 0)

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

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

SI ( !i_ChercherCouranteECC(instCENT_860026260) )
ALORS
	#trace("[Trm6dc_dis]Stockage vers CENTAUREDC")

	# Duplication de l'article
	SI ( i_dup_art_dest(g_iartin,g_iartout2,C_TcentDC_860026260) )
	ALORS
		code_errone_860026260 = 0xA0D0
		code_errone_860026260 = code_errone_860026260 + EFFICACE_860026260
		erreur_860026260 = i_PlvMessEmettre(8602,2,g_iartin,"",3,code_errone_860026260,C_TcentDC_860026260,C_Article_860026260)
		#trace1("[Trm6dc_dis]Erreur de i_dup_art_dest: <%d>",res)
		SAUT  DISTRI_ERR
	FINSI

#DRE G4R3 QC743
	i_strcpy(pt_eccfact_860026260,"CENTAURE")

	# champs SCT
	# Modifications LRA - 09/05/01
	#trace("[Trm6dc_dis]Appel de i_transformer_bits")
	res_860026260 = i_transformer_bits(g_iartin,$SCT,"FV",pt_TEMP_860026260)
	#trace2("[Trm6dc_dis]pt_TEMP=<%s>",pt_TEMP,"")
	erreur_860026260=i_set_art_str(g_iartout2, $TcentaureDC::SCT,pt_TEMP_860026260)

	# champ DUR et TAX
	erreur_860026260=i_set_art_field(g_iartout2,$TcentaureDC::DUREE,i_get_art_field(g_iartin,$dduree))
	erreur_860026260=i_set_art_field(g_iartout2,$TcentaureDC::TAX,i_get_art_field(g_iartin,$tax))

	# champs TAP et CAX
	#trace("[Trm6dc_dis]initialisation des TAP")
	SI (i_valid_field_n(g_iartin,$Trm6dc::T3cab)==1)
	ALORS
		erreur_860026260=i_set_art_field(g_iartout2,$TcentaureDC::CAX,i_get_art_field(g_iartin,$Trm6dc::CAX:1))
		res_860026260 = i_transformer_bits(g_iartin,$Trm6dc::TAP:1,"FV",pt_TEMP_860026260)
		#trace2("[Trm6dc_dis]pt_TEMP=<%s>",pt_TEMP,"")
		erreur_860026260=i_set_art_str(g_iartout2, $TcentaureDC::TAP,pt_TEMP_860026260)
	FINSI

	SI (i_valid_field_n(g_iartin,$Trm6dc::T3cap2)==1)
	ALORS
		erreur_860026260=i_set_art_field(g_iartout2,$TcentaureDC::CAX,i_get_art_field(g_iartin,$Trm6dc::CAX:0))
		res_860026260 = i_transformer_bits(g_iartin,$Trm6dc::TAP:0,"FV",pt_TEMP_860026260)
		#trace2("[Trm6dc_dis]pt_TEMP=<%s>",pt_TEMP,"")
		erreur_860026260=i_set_art_str(g_iartout2, $TcentaureDC::TAP,pt_TEMP_860026260)
	FINSI

	# champs STY
	#trace("[Trm6dc_dis]conversion bit a bit du champ G4/STY")

	# Modifications LRA - 09/05/01
	res_860026260 = i_transformer_bits(g_iartin,$STY,"FV",pt_TEMP_860026260)
	#trace2("[Trm6dc_dis]pt_TEMP=<%s>",pt_TEMP,"")
	erreur_860026260=i_set_art_str(g_iartout2, $TcentaureDC::STY,pt_TEMP_860026260)

	# champ ICAR (date)
	#trace("[Trm6dc_dis]renvoi la date dans champ ICAR")
	erreur_860026260=i_set_art_field(g_iartout2, $TcentaureDC::DATE, ICAR_REL_860026260)

	# champ ALINK (<=> champ APPEL)
	SI( i_valid_field_n( g_iartin, $Trm6dc::APPEL) )
	ALORS
		erreur_860026260 = i_get_art_str( g_iartin, $Trm6dc::APPEL, pt_TEMP_860026260)
		erreur_860026260 = i_set_art_str( g_iartout2, $TcentaureDC::ALINK, pt_TEMP_860026260)
	SINON
		erreur_860026260=i_memset_field_n(g_iartout2, $TcentaureDC::ALINK, 0x30)
	FINSI

	# champ NLINK (<=> champ NOEUD)
	SI( i_valid_field_n( g_iartin, $Trm6dc::NOEUD) )
	ALORS
		erreur_860026260 = i_get_art_str( g_iartin, $Trm6dc::NOEUD, pt_TEMP_860026260)
		erreur_860026260 = i_set_art_str( g_iartout2, $TcentaureDC::NLINK, pt_TEMP_860026260)
	SINON
		erreur_860026260=i_memset_field_n(g_iartout2, $TcentaureDC::NLINK, 0x30)
	FINSI

	# champ ILOCUS
	#trace("[Trm6dc_dis]affecter valeur au champ ILOCUS")
	SI (i_valid_field_n(g_iartin, $Trm6dc::INFLOCUS)==1)
	ALORS
		res_860026260=i_get_art_field(g_iartin, $INFLOCUS)
		#trace1("[Trm6dc_dis]Test de la valeur de INFLOCUS=<%d>" , res)
		erreur_860026260=i_set_art_field(g_iartout2, $TcentaureDC::ILOCUS, res_860026260)
	SINON
		#erreur=i_set_art_field(g_iartout2, $TcentaureDC::ILOCUS, 000)
		erreur_860026260=i_memset_field_n(g_iartout2, $TcentaureDC::ILOCUS, 0x30)
	FINSI

	# champ NLOCUS
	#trace("[Trm6dc_dis]affecter valeur au champ NLOCUS")
	SI (i_valid_field_n(g_iartin, $Trm6dc::NUMLOCUS)==1)
	ALORS
		erreur_860026260=i_get_art_str(g_iartin, $NUMLOCUS, pt_TEMP_860026260)
		#trace2("[Trm6dc_dis]NUMLOCUS=<%s>", pt_TEMP, "")
		erreur_860026260=i_set_art_str(g_iartout2, $TcentaureDC::NLOCUS, pt_TEMP_860026260)
	SINON
		erreur_860026260=i_memset_field_n(g_iartout2, $TcentaureDC::NLOCUS, 0x20)
	FINSI

	# champ IIDUS optionnel / bourrage avec la table de duplication:
	SI (i_valid_field_n(g_iartin,$INF_IDUS))
	ALORS
		erreur_860026260=i_set_art_field(g_iartout2,$TcentaureDC::IIDUS,i_get_art_field(g_iartin,$INF_IDUS))
	FINSI

	# champ NIDUS
	# Optionnel => initialise par defaut dans la table
	# de dupli.et verification de sa presence dans le pcode:

	SI (i_valid_field_n(g_iartin,$NDR))
	ALORS
		#trace("[Trm6dc_dis]affecter valeur au champ NIDUS")
		erreur_860026260=i_get_art_str(g_iartin, $NDR, pt_TEMP_860026260)
		#trace2("[Trm6dc_dis]NDR=<%s>", pt_TEMP, "")
		erreur_860026260=i_set_art_str(g_iartout2, $TcentaureDC::NIDUS, pt_TEMP_860026260)
	FINSI

	# champ IIPRV
	#trace("[Trm6dc_dis]affecter valeur au champ IIPRV")
	SI (i_valid_field_n(g_iartin, $Trm6dc::INFIPRV)==1)
	ALORS
		res_860026260=i_get_art_field(g_iartin, $INFIPRV)
		#trace1("[Trm6dc_dis]Test de la valeur de INFIPRV=<%d>" , res)
		erreur_860026260=i_set_art_field(g_iartout2, $TcentaureDC::IIPRV, res_860026260)
	SINON
		erreur_860026260=i_memset_field_n(g_iartout2, $TcentaureDC::IIPRV, 0x30)
		#erreur=i_set_art_field(g_iartout2, $TcentaureDC::IIPRV, 000)
	FINSI

	# champ NIPRV
	#trace("[Trm6dc_dis]affecter valeur au champ NIPRV")
	SI (i_valid_field_n(g_iartin, $Trm6dc::NUMIPRV)==1)
	ALORS

		erreur_860026260=i_get_art_str(g_iartin, $NUMIPRV, pt_TEMP_860026260)
		#trace2("[Trm6dc_dis]NUMIPRV=<%s>", pt_TEMP, "")
		erreur_860026260=i_set_art_str(g_iartout2, $TcentaureDC::NIPRV, pt_TEMP_860026260)

	SINON
		erreur_860026260=i_memset_field_n(g_iartout2, $TcentaureDC::NIPRV, 0x20)
		#erreur=i_set_art_str(g_iartout2, $TcentaureDC::NIPRV, "               ")
	FINSI

	# champ IIDRV
	#trace("[Trm6dc_dis]affecter valeur au champ IIDRV")
	SI (i_valid_field_n(g_iartin, $Trm6dc::INF_IDRV)==1)
	ALORS
		res_860026260=i_get_art_field(g_iartin, $INF_IDRV)
		#trace1("[Trm6dc_dis]Test de la valeur de IIDRV=<%d>" , res)
		erreur_860026260=i_set_art_field(g_iartout2, $TcentaureDC::IIDRV, res_860026260)
	SINON
		erreur_860026260=i_memset_field_n(g_iartout2, $TcentaureDC::IIDRV, 0x30)
		#erreur=i_set_art_field(g_iartout2, $TcentaureDC::IIDRV, 000)
	FINSI

	# champ NIDRV
	#trace("[Trm6dc_dis]affecter valeur au champ NIDRV")
	SI (i_valid_field_n(g_iartin, $Trm6dc::NUM_IDRV)==1)
	ALORS
		erreur_860026260=i_get_art_str(g_iartin, $NUM_IDRV, pt_TEMP_860026260)
		#trace2("[Trm6dc_dis]NUM_IDRV=<%s>", pt_TEMP, "")
		erreur_860026260=i_set_art_str(g_iartout2, $TcentaureDC::NIDRV, pt_TEMP_860026260)
	SINON
		erreur_860026260=i_memset_field_n(g_iartout2, $TcentaureDC::NIDRV, 0x20)
		#erreur=i_set_art_str(g_iartout2, $TcentaureDC::NIDRV, "               ")
	FINSI

	# champ NDEDE
	#trace("[Trm6dc_dis]affecter pt_DEDE/NUM au champ NDEDE")
	erreur_860026260=i_get_art_str(g_iartin, $NDE, pt_TEMP_860026260)
	#trace2("[Trm6dc_dis]NDE=<%s>", pt_TEMP, "")
	i_replace_str(pt_TEMP_860026260,"BCDE","AJSC",pt_TEMP_860026260)

	erreur_860026260=i_set_art_str(g_iartout2, $TcentaureDC::NDEDE, pt_TEMP_860026260)

	# champ IIDAV
	#trace("[Trm6dc_dis]affecter valeur au champ IIDAV")
	SI (i_valid_field_n(g_iartin, $Trm6dc::INF_IDAV)==1)
	ALORS
		res_860026260=i_get_art_field(g_iartin, $INF_IDAV)
		#trace1("[Trm6dc_dis]Test de la valeur de INF_IDAV=<%d>" , res)
		erreur_860026260=i_set_art_field(g_iartout2, $TcentaureDC::IIDAV, res_860026260)
	SINON
		erreur_860026260=i_memset_field_n(g_iartout2, $TcentaureDC::IIDAV, 0x30)
		#erreur=i_set_art_field(g_iartout2, $TcentaureDC::IIDAV, 000)
	FINSI

	# champ NIDAV
	#trace("[Trm6dc_dis]affecter valeur au champ NIDAV")
	SI (i_valid_field_n(g_iartin, $Trm6dc::NUM_IDAV)==1)
	ALORS
		erreur_860026260=i_get_art_str(g_iartin, $NUM_IDAV, pt_TEMP_860026260)
		#trace2("[Trm6dc_dis]NUM_IDAV=<%s>", pt_TEMP, "")
		erreur_860026260=i_set_art_str(g_iartout2, $TcentaureDC::NIDAV, pt_TEMP_860026260)
	SINON
		erreur_860026260=i_memset_field_n(g_iartout2, $TcentaureDC::NIDAV, 0x20)
		#erreur=i_set_art_str(g_iartout2, $TcentaureDC::NIDAV, "                                ")
	FINSI

	# champ NICOM
	#trace("[Trm6dc_dis]affecter valeur au champ NICOM")
	#trace2("[Trm6dc_dis]NUM_ICOM avant affectation=<%s>", pt_TEMP, "")
	erreur_860026260=i_get_art_str(g_iartin, $NUM_ICOM, pt_TEMP_860026260)
	#trace2("[Trm6dc_dis]NUM_ICOM=<%s>", pt_TEMP, "")
	erreur_860026260=i_set_art_str(g_iartout2, $TcentaureDC::NICOM, pt_TEMP_860026260)

	# champ REF
	#trace("[Trm6dc_dis]affecter valeur au champ REF")
	SI (i_valid_field_n(g_iartin, $Trm6dc::REF)==1)
	ALORS
		res_860026260=i_get_art_field(g_iartin, $REF)
		#trace1("[Trm6dc_dis]Test de la valeur de REF=<%d>" , res)
		erreur_860026260=i_set_art_field(g_iartout2, $TcentaureDC::REF, res_860026260)
	SINON
		erreur_860026260=i_memset_field_n(g_iartout2, $TcentaureDC::REF, 0x30)
		#erreur=i_set_art_field(g_iartout2, $TcentaureDC::REF, 000)
	FINSI

	# champ NBRV
	#trace("[Trm6dc_dis]affecter valeur au champ NBRV")
	SI (i_valid_field_n(g_iartin, $Trm6dc::NRENV)==1)
	ALORS
		res_860026260=i_get_art_field(g_iartin, $NRENV)
		#trace1("[Trm6dc_dis]Test de la valeur de NRENV=<%d>" , res)
		erreur_860026260=i_set_art_field(g_iartout2, $TcentaureDC::NBRV, res_860026260)
	SINON
		erreur_860026260=i_memset_field_n(g_iartout2, $TcentaureDC::NBRV, 0x30)
		#erreur=i_set_art_field(g_iartout2, $TcentaureDC::NBRV, 000)
	FINSI

	# champ DUSEL
	#trace("[Trm6dc_dis]affecter valeur au champ DUSEL")
	SI (i_valid_field_n(g_iartin, $Trm6dc::DUSEL)==1)
	ALORS
		res_860026260=i_get_art_field(g_iartin, $DUSEL)
		#trace1("[Trm6dc_dis]Test de la valeur de DUSEL=<%d>" , res)
		erreur_860026260=i_set_art_field(g_iartout2, $TcentaureDC::DUSEL, res_860026260)
	SINON
		erreur_860026260=i_memset_field_n(g_iartout2, $TcentaureDC::DUSEL, 0x30)
	FINSI

	# champ DUSON
	#trace("[Trm6dc_dis]affecter valeur au champ DUSON")
	SI (i_valid_field_n(g_iartin, $Trm6dc::DUSON)==1)
	ALORS
		res_860026260=i_get_art_field(g_iartin, $DUSON)
		#trace1("[Trm6dc_dis]Test de la valeur de DUSON=<%d>" , res)
		erreur_860026260=i_set_art_field(g_iartout2, $TcentaureDC::DUSON, res_860026260)
	SINON
		erreur_860026260=i_memset_field_n(g_iartout2, $TcentaureDC::DUSON, 0x30)
	FINSI

	# champs CLE
	#trace("[Trm6dc_dis]affecter valeurs aux champs CLE")

	#CLE1
	SI (i_valid_field_n(g_iartin, $Trm6dc::CLE1)==1)
	ALORS
		res_860026260=i_get_art_field(g_iartin, $CLE1)
		erreur_860026260=i_set_art_field(g_iartout2, $TcentaureDC::CLE1, res_860026260)
	SINON
		erreur_860026260=i_memset_field_n(g_iartout2, $TcentaureDC::CLE1, 0x30)
	FINSI

	#CLE2
	SI (i_valid_field_n(g_iartin, $Trm6dc::CLE2)==1)
	ALORS
		res_860026260=i_get_art_field(g_iartin, $CLE2)
		erreur_860026260=i_set_art_field(g_iartout2, $TcentaureDC::CLE2, res_860026260)
	SINON
		erreur_860026260=i_memset_field_n(g_iartout2, $TcentaureDC::CLE2, 0x30)
	FINSI

	#CLE3
	SI (i_valid_field_n(g_iartin, $Trm6dc::CLE3)==1)
	ALORS
		res_860026260=i_get_art_field(g_iartin, $CLE3)
		erreur_860026260=i_set_art_field(g_iartout2, $TcentaureDC::CLE3, res_860026260)
	SINON
		erreur_860026260=i_memset_field_n(g_iartout2, $TcentaureDC::CLE3, 0x30)
	FINSI

	#CLE4
	SI (i_valid_field_n(g_iartin, $Trm6dc::CLE4)==1)
	ALORS
		res_860026260=i_get_art_field(g_iartin, $CLE4)
		erreur_860026260=i_set_art_field(g_iartout2, $TcentaureDC::CLE4, res_860026260)
	SINON
		erreur_860026260=i_memset_field_n(g_iartout2, $TcentaureDC::CLE4, 0x30)
	FINSI

	# champ COCA
	#trace("[Trm6dc_dis]affecter valeur au champ COCA")
	SI (i_valid_field_n(g_iartin, $Trm6dc::BETA)==1)
	ALORS
		erreur_860026260=i_get_art_str(g_iartin, $BETA,pt_COCA_860026260)
		erreur_860026260=i_set_art_str(g_iartout2, $TcentaureDC::COCA, pt_COCA_860026260)
	SINON
		erreur_860026260=i_memset_field_n(g_iartout2, $TcentaureDC::COCA, 0x20)
	FINSI

	# champ COCAV
	SI (i_valid_field_n(g_iartin, $Trm6dc::BETAV)==1)
	ALORS
		erreur_860026260=i_get_art_str(g_iartin, $BETAV, pt_COCAV_860026260)
		erreur_860026260=i_set_art_str(g_iartout2, $TcentaureDC::COCAV, pt_COCAV_860026260)
	SINON
		erreur_860026260=i_memset_field_n(g_iartout2, $TcentaureDC::COCAV, 0x20)
	FINSI

	# champ CDSGTQS
	i_strcpy(pt_SGTQS_860026260,i_LireEECSGTQS(g_ieec))
	#trace2("[Trm6dc_dis]SGTQS=<%s>",pt_SGTQS,"")
	erreur_860026260=i_set_art_str(g_iartout2, $TcentaureDC::CDSGTQS, pt_SGTQS_860026260)

	# champ SUP
	#trace("[Trm6dc_dis]affecter 0 au champ SUP")

	SI (i_valid_field_n(g_iartin, $Trm6dc::T3cap2))
	ALORS
		res_860026260=i_get_art_field(g_iartin,$Trm6dc::SUP:0)
		#trace1("[Trm6dc_dis]Test de la valeur de SUP=<%d>" , res)
		erreur_860026260=i_set_art_field(g_iartout2, $TcentaureDC::SUP, res_860026260)
	SINON
		SI (i_valid_field_n(g_iartin, $Trm6dc::T3cab))
		ALORS
			res_860026260=i_get_art_field(g_iartin, $Trm6dc::SUP:1)
			erreur_860026260=i_set_art_field(g_iartout2, $TcentaureDC::SUP, res_860026260)
		SINON
			erreur_860026260=i_set_art_field(g_iartout2, $TcentaureDC::SUP, 0)
		FINSI
	FINSI

	#champ MES1 et MES2
	SI ( i_valid_field_n(g_iartin, $Trm6dc::MES1) )
	ALORS
		res_860026260=i_get_art_field(g_iartin, $MES1)
		erreur_860026260=i_set_art_field(g_iartout2,$TcentaureDC::MES1,res_860026260)
	FINSI

	SI ( i_valid_field_n(g_iartin, $Trm6dc::MES2) )
	ALORS
		res_860026260=i_get_art_field(g_iartin, $MES2)
		erreur_860026260=i_set_art_field(g_iartout2,$TcentaureDC::MES2,res_860026260)
	FINSI
# DRE G4R6 Lot2
	# TYPE_EDIT
	erreur_860026260=i_set_art_str(g_iartout2, $TcentaureDC::TYPE_EDIT, pt_TYPE_EDIT_860026260)
	
	# CODE_TARIF
	erreur_860026260=i_set_art_str(g_iartout2, $TcentaureDC::CODE_TARIF, pt_CODE_TARIF_860026260)
# \DRE G4R6 Lot2



	#FIN
	erreur_860026260 = i_set_art_field(g_iartout2, $TcentaureDC::FIN, 0x0A )

	# fin de traitement des champs
FINSI

#-------------------------------------------------------------------------
# #G4R3 APACHE_DC
#-----------------------------------------------------------------------
#Supprime

#G3R23
#-----------------------------------------------------------------------
# CASPER
#-----------------------------------------------------------------------

SI ( !i_ChercherCouranteECC(instCASPER_860026260) )
ALORS
	#trace("[Trm6dc_dis]Mise au format CASPER")
	SI ( i_dup_art_id(g_iartin,g_iartout5) )
	ALORS
		code_errone_860026260 = 0xA0D0
		code_errone_860026260 = code_errone_860026260 + EFFICACE_860026260
		erreur_860026260 = i_PlvMessEmettre(8602,2,g_iartin,"",3,code_errone_860026260,C_Tcasper_860026260,C_Article_860026260)
		SAUT DISTRI_ERR
	FINSI

	SI ( i_valid_field_n(g_iartout5,$Trm6dc::T3ce) )
	ALORS
		erreur_860026260 = i_supprChamp(g_iartout5,"T3ce")
	FINSI

	res_860026260 = i_rename_art(g_iartout5, C_Tcasper_860026260)

	# COMPLEMENTS CASPER (SGTQS NSUC)

	#champ SGTQS
	erreur_860026260 = i_ajoutChampNum(g_iartout5,$TcasperTrm6dc::T4sgtqs,$TcasperTrm6dc::SGTQS,0)
	erreur_860026260 = i_set_art_str(g_iartout5, $TcasperTrm6dc::SGTQS, pt_SGTQS_860026260)

	#champ NSUC
	erreur_860026260 = i_ajoutChampNum(g_iartout5,$TcasperTrm6dc::T4nsuc,$TcasperTrm6dc::NSUC,0)
	erreur_860026260 = i_set_art_str(g_iartout5,$TcasperTrm6dc::NSUC,pt_NSUC_860026260)
	res_860026260 = i_strlen(pt_NSUC_860026260)
	erreur_860026260 = i_resize_tlv(g_iartout5, "T4nsuc", "NSUC", res_860026260)
FINSI

#---------------------------------------------------------------------------
# Complements Symphonie (SGTQS + CCD)
#---------------------------------------------------------------------------

SI ( !i_ChercherCouranteECC(instSYMP_860026260) )
ALORS
	
	#DRE G4R3 lot2 
	SI b_DEDE_N_FILTRE_860026260
	ALORS
	#	masquer demandeur
		erreur_860026260 = i_format_str2(pt_TEMP_860026260,"%s%s",pt_v_masque_860026260,pt_v_masque_860026260)
		lgr_860026260 = i_conv_ascii_dcb(pt_TEMP_860026260, pt_BUF_860026260)
		erreur_860026260 = i_memcpy_art_field_n(g_iartout,$Tsymtrm6dc::NDR,pt_BUF_860026260, lgr_860026260)
		erreur_860026260 = i_resize_tlv( g_iartout, "T3idus", "NDR", lgr_860026260 * 4 )
	FINSI
	#\DRE G4R3 lot2 

	### Champs CCD, SGTQS et ECC_FACT ###
	SI (EFFICACE_860026260)
	ALORS
		# champ CCD
		erreur_860026260=i_ajoutChampNum(g_iartout,$Tsymtrm6dc::T4ccd,$Tsymtrm6dc::CCD,0)
		erreur_860026260=i_set_art_field(g_iartout, $Tsymtrm6dc::CCD,CCD_REEL_860026260)

		# champ SGTQS
		erreur_860026260 = i_ajoutChampNum(g_iartout,$Tsymtrm6dc::T4sgtqs,$Tsymtrm6dc::SGTQS,0)
		#i_strcpy(pt_SGTQS,i_LireEECSGTQS(g_ieec))
		#trace2("[Trm6dc_dis]SGTQS=<%s>",pt_SGTQS,"")
		erreur_860026260=i_set_art_str(g_iartout,$Tsymtrm6dc::SGTQS, pt_SGTQS_860026260)

		# champ ECC_FACT
		SI (REJET_860026260 != 2  && REJET_860026260 != 3  && REJET_860026260 != 14)
		ALORS
			erreur_860026260=i_ajoutChampNum(g_iartout,$Tsymtrm6dc::T4eccfact,$Tsymtrm6dc::ECC_FACT,0)
#DRE G4R3 QC743
#			erreur = i_set_art_str(g_iartout, $Tsymtrm6dc::ECC_FACT, "CENTAURE")
			erreur_860026260 = i_set_art_str(g_iartout, $Tsymtrm6dc::ECC_FACT, pt_eccfact_860026260)
		SINON
			erreur_860026260=i_ajoutChampNum(g_iartout,$Tsymtrm6dc::T4eccfact,$Tsymtrm6dc::ECC_FACT,0)
			erreur_860026260 = i_set_art_str(g_iartout, $Tsymtrm6dc::ECC_FACT, " ")
		FINSI
		
# DRE G4R6 Lot2
		# TYPE_EDIT
		SI i_strcmp(pt_TYPE_EDIT_860026260," ") != 0
		ALORS
			erreur_860026260 = i_ajoutChampNum(g_iartout,$Tsymtrm6dc::T4type_edit,$Tsymtrm6dc::TYPE_EDIT,0)
			erreur_860026260=i_set_art_str(g_iartout, $Tsymtrm6dc::TYPE_EDIT, pt_TYPE_EDIT_860026260)
		FINSI
	
		# CODE_TARIF
		SI i_strcmp(pt_CODE_TARIF_860026260,"    ") != 0
		ALORS
			erreur_860026260 = i_ajoutChampNum(g_iartout,$Tsymtrm6dc::T4code_tarif,$Tsymtrm6dc::CODE_TARIF,0)
			erreur_860026260=i_set_art_str(g_iartout, $Tsymtrm6dc::CODE_TARIF, pt_CODE_TARIF_860026260)
		FINSI
# \DRE G4R6 Lot2




		# champ IEZLT
		# Suppression de l'ajout si sans objet
	SINON
		# champ CCD
		erreur_860026260=i_ajoutChampNum(g_iartout,$Tsymtrm6inef::T4ccd,$Tsymtrm6inef::CCD,0)
		erreur_860026260=i_set_art_field(g_iartout, $Tsymtrm6inef::CCD,CCD_REEL_860026260)

		# champ SGTQS
		erreur_860026260 = i_ajoutChampNum(g_iartout,$Tsymtrm6inef::T4sgtqs,$Tsymtrm6inef::SGTQS,0)
		#i_strcpy(pt_SGTQS,i_LireEECSGTQS(g_ieec))
		#trace2("[Trm6dc_dis]SGTQS=<%s>",pt_SGTQS,"")
		erreur_860026260=i_set_art_str(g_iartout,$Tsymtrm6inef::SGTQS, pt_SGTQS_860026260)

		# champ ECC_FACT
		erreur_860026260=i_ajoutChampNum(g_iartout,$Tsymtrm6inef::T4eccfact,$Tsymtrm6inef::ECC_FACT,0)
		erreur_860026260 = i_set_art_str(g_iartout, $Tsymtrm6inef::ECC_FACT, "        ")

# DRE G4R6 Lot2
		# TYPE_EDIT
		SI i_strcmp(pt_TYPE_EDIT_860026260," ") != 0
		ALORS
			erreur_860026260 = i_ajoutChampNum(g_iartout,$Tsymtrm6inef::T4type_edit,$Tsymtrm6inef::TYPE_EDIT,0)
			erreur_860026260=i_set_art_str(g_iartout, $Tsymtrm6inef::TYPE_EDIT, pt_TYPE_EDIT_860026260)
		FINSI
	
		# CODE_TARIF
		SI i_strcmp(pt_CODE_TARIF_860026260,"    ") != 0
		ALORS
			erreur_860026260 = i_ajoutChampNum(g_iartout,$Tsymtrm6inef::T4code_tarif,$Tsymtrm6inef::CODE_TARIF,0)
			erreur_860026260=i_set_art_str(g_iartout, $Tsymtrm6inef::CODE_TARIF, pt_CODE_TARIF_860026260)
		FINSI
# \DRE G4R6 Lot2

		# champ IEZLT
		# Suppression de l'ajout si sans objet
	FINSI
FINSI

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

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

SI ( !i_ChercherCouranteECC(instCENT_860026260) )
ALORS
	res_860026260=i_stocke_art_iecc(g_iartout2, instCENT_860026260)
	trace("[Trm6dc_dis]Emission vers CENTAUREDC reussie")
FINSI

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

SI ( !i_ChercherCouranteECC(instSYMP_860026260) )
ALORS
	res_860026260=i_stocke_art_iecc(g_iartout, instSYMP_860026260)
	trace("[Trm6dc_dis]Emission vers SYMPHONIE reussie")
FINSI

#-------------------------------------------------------------------------
# #G4R3 APACHE
#-------------------------------------------------------------------------

#G4R3 SI ( !i_ChercherCouranteECC(instAPACHE) )
#G4R3 ALORS
#G4R3 	trace( "[Trm6dc_dis]Emission vers APACHE" )
#G4R3 	res = i_stocke_art_iecc(g_iartout9, instAPACHE)
#G4R3 FINSI

#G3R23
#-------------------------------------------------------------------------
# CASPER
#-------------------------------------------------------------------------
SI ( !i_ChercherCouranteECC(instCASPER_860026260) )
ALORS
	trace( "[Trm6dc_dis]Emission vers CASPER" )
	res_860026260 = i_stocke_art_iecc(g_iartout5, instCASPER_860026260)
FINSI


# DRE G4R6 Lot2
SI (bREDIST_860026260 == 1)
ALORS
	SAUT DISTRI_REDIST
FINSI
	
trace("[Trm6dc_dis]Fin du Pcode de distribution Trm6dc")
# \DRE G4R6 Lot2

RETOUR TRAIT_OK

############################################################################
# Envoi vers Recyclage
############################################################################

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

POINT DISTRI_ERR

trace( "[Trm6dc_dis]stockage en errone de distribution")
res_860026260=i_make_art_rej(g_iartin, g_iartout, code_errone_860026260)
res_860026260 = i_stocke_art( g_iartout, 0, PT_ERRONE, 0)

RETOUR TRAIT_OK

# DRE G4R6 Lot2
###########################################################################
# Stockage pour redistribution
###########################################################################

POINT DISTRI_REDIST

trace("Stockage pour redistribution")

SI (trait_ok_860026260 == 0)
ALORS
	erreur_860026260 = i_PlvMessEmettre(8503,2,g_iartin,"",3,pt_LIBELREDIST_860026260,C_Article_860026260,pt_SGTQS_860026260)
FINSI

res_860026260 = i_stocke_art(g_iartin, 0, PT_REDIST|RD_TABLE5, 0)
RETOUR TRAIT_OK

############################################################################
# Stockage en elimine
############################################################################

POINT DISTRI_DIV

trace( "Stockage en divers")

res_860026260 = i_stocke_art( g_iartin, 0, PT_DIVERS, 0)

RETOUR TRAIT_OK
# \DRE G4R6 Lot2


#----------------------------- FIN PCODE Trm6dc_dis ------------------------------
