DEFINITION INCREMENT_840005469 1
DEFINITION CPT_840005469 1501
DEFINITION ERR_SYNTAX_840005469 0x5040
DEFINITION NUMTAB_840005469 4
REGISTRE ENTIER date_plat_840005469
REGISTRE ENTIER erreur_840005469
REGISTRE ENTIER X_840005469
REGISTRE ENTIER Y_840005469
REGISTRE ENTIER Z_840005469
REGISTRE ENTIER code_rejet_840005469
REGISTRE ENTIER EFFICACE_840005469
REGISTRE ENTIER date_audit_840005469
REGISTRE ENTIER ENAPSEQ_840005469
REGISTRE POINTEUR pt_CHAMP_ERRONE_840005469
REGISTRE POINTEUR pt_1_840005469
REGISTRE POINTEUR pt_2_840005469
REGISTRE POINTEUR pt_HDCONV_840005469
############################################################################
# TRAITEMENT TgretadcHP.src
# Article DC TgretadcHP en entree de Platine
# Pcode de traitement
# Creation le 09/11/12 G3R8 lot3 pour correlation HP
# Historique
#
############################################################################



EFFICACE_840005469 = 2

# ALLOCATION DES POINTEURS
pt_CHAMP_ERRONE_840005469 = "01234567890123456789"
pt_1_840005469 = "22222222222222222222222222222222222222222222222222222222"
pt_2_840005469 = "33333333333333333333333333333333333333333333333333333333"
pt_HDCONV_840005469 = "pt_HDCONV0123456789"
i_strcpy(pt_HDCONV_840005469, "")

trace("<<<__LINE__<<<__FILE__<<< Debut pcode de traitement TgretadcHP")

################################################################
#       Tests Unitaires
################################################################

####### DEDEini non vide
i_strcpy(pt_1_840005469, " ")
i_strcpy(pt_2_840005469, " ")
erreur_840005469 = i_get_art_str(g_iartin, $TgretadcHP::DEDEini, pt_1_840005469)
i_get_sub_str(pt_1_840005469, 0, 0, pt_2_840005469)

SI (i_strcmp(" ", pt_2_840005469) == 0)
ALORS
  i_strcpy(pt_CHAMP_ERRONE_840005469, "DEDEini")
  code_rejet_840005469 = ERR_SYNTAX_840005469 + EFFICACE_840005469
  erreur_840005469 = i_PlvMessEmettre(6611, 2, g_iartin, "", 2, code_rejet_840005469, pt_CHAMP_ERRONE_840005469, 0)
  SAUT STOCKE_ERRONE
FINSI

########CODOPEF non vide
i_strcpy(pt_1_840005469, " ")
i_strcpy(pt_2_840005469, " ")
erreur_840005469 = i_get_art_str(g_iartin, $TgretadcHP::CODOPEF, pt_1_840005469)
i_get_sub_str(pt_1_840005469, 0, 0, pt_2_840005469)

SI (i_strcmp(" ", pt_2_840005469) == 0)
ALORS
  i_strcpy(pt_CHAMP_ERRONE_840005469, "CODOPEF")
  code_rejet_840005469 = ERR_SYNTAX_840005469 + EFFICACE_840005469
  erreur_840005469 = i_PlvMessEmettre(6611, 2, g_iartin, "", 2, code_rejet_840005469, pt_CHAMP_ERRONE_840005469, 0)
  SAUT STOCKE_ERRONE
FINSI

################################################################
#       Tests croises
################################################################
erreur_840005469 = i_get_art_str(g_iartin, $TgretadcHP::ENAPSEQ, pt_1_840005469)
ENAPSEQ_840005469 = CONV_ASCIINUMHEX_INT_780042428(pt_1_840005469)

erreur_840005469 = i_get_art_str(g_iartin, $TgretadcHP::HDCONVA, pt_HDCONV_840005469)

# ENAPSEQ = 0x03 et HDCONV = FFFFFF
SI (ENAPSEQ_840005469 == 3 && i_strcmp(pt_HDCONV_840005469, "FFFFFF") == 0)
ALORS
  SAUT STOCKE_ELIMINE
FINSI

# ENAPSEQ impair et different de 0x02 et HDCONV = FFFFFF
SI (ENAPSEQ_840005469 != 2 && (ENAPSEQ_840005469 & 0x01) != 0x01 && i_strcmp(pt_HDCONV_840005469, "FFFFFF") == 0)
ALORS
  SAUT STOCKE_ELIMINE
FINSI

################################################################
#       Variables fonctionnelles
################################################################
# neant
date_audit_840005469=i_date_audit()
date_plat_840005469 = i_DHgetLocalTime(NUMTAB_840005469, 7, date_audit_840005469)
X_840005469=0x00
Y_840005469=g_ieec
Z_840005469=0

erreur_840005469=i_incr_cpt(CPT_840005469, X_840005469, Y_840005469, Z_840005469, date_plat_840005469, INCREMENT_840005469)

########################################################
#       Stockage en OK
########################################################
POINT STOCKE_OK
erreur_840005469 = i_stocke_art(g_iartin, 0, PT_OK, 0)
trace("<<<__LINE__<<<__FILE__<<< Fin pcode de traitement TgretadcHP apres envoi OK")
RETOUR TRAIT_OK


########################################################
#       Stockage en errone
########################################################
POINT STOCKE_ERRONE
erreur_840005469 = i_make_art_rej(g_iartin, g_iartout5, code_rejet_840005469)
erreur_840005469 = i_stocke_art(g_iartout5, 0, PT_ERRONE, 0)
trace("<<<__LINE__<<<__FILE__<<< Fin pcode de traitement TgretadcHP apres envoi dans les errones")
RETOUR TRAIT_OK

########################################################
#       Stockage en ELIMINE
########################################################
POINT STOCKE_ELIMINE
erreur_840005469 = i_stocke_art(g_iartin, 0, PT_ELIMINE, 0)
trace("<<<__LINE__<<<__FILE__<<< Fin pcode de traitement TgretadcHP apres envoi dans les elimines")
RETOUR TRAIT_OK

#---------------------------------- Fin TgretadcHP_trt.src ----------------------------
