REGISTRE POINTEUR pt_BUF_800009795
REGISTRE POINTEUR pt_car_800009795
REGISTRE ENTIER erreur_800009795
REGISTRE ENTIER res_800009795
############################################################################
#
# Fichier : Tindc1r.src
#
#
# Traitement :  DC Internet IPADSL bas debit
#
# En entree :
#    Article : Tindc1r
#
# En sortie :
#      Envoi en divers si deux premiers digits de Rname <> de NS
#	Envoi en OK si deux premiers digits de Rname = NS
#
#HISTORIQUE
#
#	16/04/04 - NSA FO 625
#	13/05/04 - NSA - Les DC dont la taille est supirieure a 1000 octets sont stockes en Divers
#	27/07/10 - THE - G3R18 QC 404 limite longueuer 2000 octets
#	04/10/2011 RHE VerifPcode
############################################################################

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


trace( "Article Tindc1r - IP_ADSL bas debit")
############################################################################
# Declarations
############################################################################



res_800009795=0
erreur_800009795=0

############################################################################
#initialisations
pt_BUF_800009795 = "123456789123456789123456123451234567891234567891234561234512345678912345678912345612345123456789123456789123456123451234567891234567891234561234512345678912345678912345612345123456789123456789123456123451234567891234567891234561234512345678912345678912345612345"
pt_car_800009795="6666"

# VerifPcode - RHE # 
i_strcpy(pt_BUF_800009795,"")
i_strcpy(pt_car_800009795,"")

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

### Elimination en divers des DC dont la taille est superieure a 1000 octets
res_800009795= i_get_art_field (g_iartin, $L1)

# G3R18 QC 404
#SI ( res >= 996 )
SI ( res_800009795 >= 1996 )
ALORS
	SAUT STOCKE_DIVERS
FINSI

### Envoi en divers des DC dont le RNAME ne commence pas par "NS"
erreur_800009795=i_get_art_str(g_iartin,$RNAME,pt_BUF_800009795)
i_get_sub_str(pt_BUF_800009795,0,1,pt_car_800009795)
res_800009795=i_strcmp(pt_car_800009795,"NS")

SI ( res_800009795 == 0 )
ALORS
	SAUT STOCKE_OK
SINON
	SAUT STOCKE_DIVERS
FINSI

############################################################################

POINT STOCKE_DIVERS

trace( "Stockage en Divers")
erreur_800009795 = i_stocke_art( g_iartin, 0, PT_DIVERS, 0)

RETOUR TRAIT_OK

############################################################################
#
#                              TRAITEMENTS
#
############################################################################

SAUT STOCKE_OK

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

#---------------------------------------------------------------------------
# STOCKAGE EN OK
#----------------------------------------------------------------------------

POINT STOCKE_OK

erreur_800009795 = i_stocke_art(g_iartin, 0, PT_OK, 0)

RETOUR TRAIT_OK

############################################################################
#
#                               FIN
#
############################################################################
