REGISTRE ENTIER erreur_800009798
REGISTRE ENTIER res_800009798
REGISTRE ENTIER duree_800009798
REGISTRE ENTIER date_800009798
REGISTRE POINTEUR pt_BUF_800009798
############################################################################
# Fichier : Tminiwl2.src
#
# Traitement :  
# En entree :
#    Article : Tminiwl2 article mini wanadoo lot 2	
#		informations de 
# En sortie :
#	Envoi en divers des DC dont la taille est superieure a 1000 octets
#	Envoi en OK 
#
#HISTORIQUE
#	19/10/05 -FAL- G2R1CwooNG creation
#	04/10/2011 RHE VerifPcode
############################################################################

############################################################################
#			          DEFINITIONS
############################################################################

trace( "Article Tminiwl2 - mini wanadoo lot2 ")
############################################################################
# Declarations
############################################################################


res_800009798=0
erreur_800009798=0
############################################################################
#initialisations

pt_BUF_800009798   = "123456789123456789123456123451234567891234567891234561234512345678912345678912345612345123456789123456789123456123451234567891234567891234561234512345678912345678912345612345123456789123456789123456123451234567891234567891234561234512345678912345678912345612345"
# VerifPcode - RHE # pt_SGTQS = "22345678901234567890223456789"

i_strcpy(pt_BUF_800009798,"")

############################             TRAITEMENT              ################################################

### Elimination en divers des DC dont la taille est superieure a 1000 octets
res_800009798= i_get_art_field (g_iartin, $L1)
SI ( res_800009798 >= 996 )
ALORS
	SAUT STOCKE_DIVERS
FINSI

erreur_800009798 = i_get_art_field(g_iartin, $ddebut)
trace1("relecture ddebut en traitement <%d> ", erreur_800009798)

#==============================================================================
# Creation Enveloppe Optionnelle E_WL2 pour recopie des metachamps de l entree vers les sorties
#==============================================================================
erreur_800009798 = i_add_opt( "E_WL2" )

#champ debut					# utilise par  
date_800009798 = i_get_art_field(g_iartin,$Tminiwl2::DATE)
trace1("2>>>>>>> __LINE__ >>>>>>date =<0x%x>",date_800009798)
erreur_800009798 = i_set_attr_val_n($E_WL2::debut,date_800009798)

#champ duree					# utilise par
erreur_800009798 = i_get_art_str( g_iartin, $Tminiwl2::sestimevalue, pt_BUF_800009798)
erreur_800009798 = i_cree_art("Conversion",g_iartout10)
erreur_800009798 = i_set_art_str( g_iartout10, $Conversion::AlphaNumAscii, pt_BUF_800009798)
duree_800009798 = i_get_art_field(g_iartout10, $Conversion::DasciiCramet)
trace1("2>>>>>>> __LINE__ >>>>>>duree =<%d>",duree_800009798)
erreur_800009798 = i_set_attr_val_n($E_WL2::duree,duree_800009798)

#champ fin	en entree ajout debut et duree	# utilise par 
res_800009798  = date_800009798 + duree_800009798
trace1("2>>>>>>> __LINE__ >>>>>>datefin =<0x%x>",res_800009798)
erreur_800009798 = i_set_attr_val_n($E_WL2::fin,res_800009798)

#champ pivot	en entree comme debut		# utilise par CTT dpivot dcompteur
erreur_800009798 = i_set_attr_val_n($E_WL2::pivot,date_800009798)

#champ compteur	en entree comme fin		# utilise par
erreur_800009798 = i_set_attr_val_n($E_WL2::compteur,res_800009798)

#champ trou	en entree comme fin		# utilise par
erreur_800009798 = i_set_attr_val_n($E_WL2::trou,res_800009798)

SAUT STOCKE_OK

############################################################################
#
#                               STOCKAGE
#
############################################################################

#---------------------------------------------------------------------------
# STOCKAGE EN DIVERS
#----------------------------------------------------------------------------
POINT STOCKE_DIVERS
	trace( "Stockage en Divers")
	erreur_800009798 = i_stocke_art( g_iartin, 0, PT_DIVERS, 0)
RETOUR TRAIT_OK

#---------------------------------------------------------------------------
# STOCKAGE EN OK
#----------------------------------------------------------------------------
POINT STOCKE_OK
	erreur_800009798 = i_stocke_art(g_iartin, 0, PT_OK, 0)
RETOUR TRAIT_OK

############################################################################
#                               FIN  pcode  Tminiwl2_trt.src
############################################################################
