REGISTRE ENTIER erreur_800009805
REGISTRE ENTIER res_800009805
REGISTRE ENTIER duree_800009805
REGISTRE ENTIER date_800009805
############################################################################
# Fichier : Tppvwl2.src
#
# Traitement :  
# En entree :
#    Article : Tppvwl2 article PPV wanadoo lot 2	Pay Per View 
#		informations de consommation de service payants a l acte
# En sortie :
#	Envoi en divers des DC dont la taille est superieure a 1000 octets
#	Envoi en OK 
#
#HISTORIQUE
#	29/09/05 -FAL- G2R1CwooNG creation
############################################################################

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

trace( "Article Tppvwl2 - ppv wanadoo lot2 ")
############################################################################
# Declarations
############################################################################


res_800009805=0
erreur_800009805=0
############################################################################
#initialisations

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

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

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

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

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

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

#champ duree					# utilise par
erreur_800009805 = i_set_attr_val_n($E_WL2::duree,0)

#champ fin	en entree ajout debut et duree	# utilise par 
erreur_800009805 = i_set_attr_val_n($E_WL2::fin,date_800009805)

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

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

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


SAUT STOCKE_OK	

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

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

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

############################################################################
#                               FIN Pcode Tppvwl2_tr.src
############################################################################
