REGISTRE POINTEUR pt_BUF_800009796
REGISTRE POINTEUR pt_car_800009796
REGISTRE ENTIER erreur_800009796
REGISTRE ENTIER res_800009796
############################################################################
#
# Fichier : Tindc2r.src
#
#
# Traitement :  DC Internet IPADSL haut debit
#
# En entree :
#    Article : Tindc2r
#
# En sortie :
#      Envoi en divers si deux premiers digits de Rname <> de BS
#
# 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
#	01/10/04 - NSA - FO 893 passage en optionnel du champ DUR --> si champ absent creation et initialisation a zero
#	13/10/05 - DRE - FO 1498 traite en distribution, pour compatibilite
#	12/01/06 - DRE - FO 1674
#	27/07/10 - THE - G3R18 QC 404 limite longueuer 2000 octets
#	04/10/2011 RHE VerifPcode
############################################################################
#
#
############################################################################
# Declarations
############################################################################



res_800009796=0
erreur_800009796=0

############################################################################
#initialisations
pt_BUF_800009796 = "123456789123456789123456123451234567891234567891234561234512345678912345678912345612345123456789123456789123456123451234567891234567891234561234512345678912345678912345612345123456789123456789123456123451234567891234567891234561234512345678912345678912345612345"
pt_car_800009796 = "6666"

# VerifPcode - RHE # 
i_strcpy(pt_BUF_800009796,"")
i_strcpy(pt_car_800009796,"")

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

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

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

### Envoi en divers des DC dont le RNAME ne commence pas par "BS"
#FO 1674
SI( i_valid_field_n(g_iartin,$Tindc2r::RNAME))
ALORS
	erreur_800009796=i_get_art_str(g_iartin,$RNAME,pt_BUF_800009796)
	i_get_sub_str(pt_BUF_800009796,0,1,pt_car_800009796)
	res_800009796=i_strcmp(pt_car_800009796,"BS")
	SI ( res_800009796 == 0 )
	ALORS
		SAUT STOCKE_OK
	SINON
		SAUT STOCKE_DIVERS
	FINSI
SINON
	SAUT STOCKE_OK
FINSI

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

POINT STOCKE_DIVERS

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

RETOUR TRAIT_OK

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

POINT STOCKE_OK

trace( "Stockage en OK")
erreur_800009796 = i_stocke_art(g_iartin, 0, PT_OK, 0)

RETOUR TRAIT_OK

