REGISTRE ENTIER date_pivot_800009851
REGISTRE ENTIER erreur_800009851
REGISTRE POINTEUR pt_TEMP_800009851
REGISTRE POINTEUR pt_res_800009851
REGISTRE POINTEUR pt_SGTQS_800009851
####################################################################
#       
#		P-Code entete Module de Collecte
#
#			  BULL S.A.
#
#HISTORIQUE
# DRE -12/02/2004 - Dicoupage Bloc mail J-M LUCHE du 05/02/04 12:13
# DRE -18/02/2004 - FO 575 supprimer la condition sur lecture peri(support externe)
#	12/10/2011 RHE VerifPcode
####################################################################


pt_TEMP_800009851 = "8888888888888888888888888888888888888888888888888888888888888888888888888888"
pt_SGTQS_800009851 = "11111111111111111111111111111111111111111111111111111111111111111111111"
pt_res_800009851 = "22222222"

i_strcpy(pt_TEMP_800009851,"")
i_strcpy(pt_SGTQS_800009851,"")
i_strcpy(pt_res_800009851,"")

g_ieec  = i_get_art_field(g_iartin, $eec)
g_irupt_connex = i_get_art_field(g_iartin, $rupt)
g_iaudit = g_iartin.audit[]

date_pivot_800009851 = i_cur_time()
#trace1("=========== date_pivot= <%u>",date_pivot)

i_strcpy(pt_SGTQS_800009851, i_LireEECSGTQS(g_ieec))
i_get_sub_str(pt_SGTQS_800009851,0,3,pt_SGTQS_800009851)
erreur_800009851 = i_format_str2( pt_TEMP_800009851, "%s%s", "CTI4G", pt_SGTQS_800009851 )

pt_res_800009851 = i_get_tab_field( "code_apache", date_pivot_800009851, pt_TEMP_800009851 )
#trace2("=========== CLE= <%s> ==== retour table= <%s>",pt_TEMP,pt_res)

SI !(pt_res_800009851 == g_inull)
ALORS
	g_ifile_bloc_size=-2
FINSI

RETOUR TRAIT_OK


