FVERS = 2
REFOBJET : ID = 800000351 ; ID_INIT = 800000333 ; NOM = TnovahPPP_dloa ; VERSION = P2 ; DATE = 13/08/12-13:16:50 ( 1344863810 ) ; CAT = 6 ; ETAT = 0 ; NB_FILS =0 ; ID_FILS = 
ID_EST = 800000051
COMMENT = "07/02/08 FTSA-G3R6 creation"
CREATEUR = jlgambin
# DEBUT_CORPS
#####################################################
#				    #
#       Algo. dlot_abs pour TnovahPPPwl2		    #
#				    #
#####################################################
# 07/02/08 FTSA-G3R6 creation

REGISTRE ENTIER lotabs

lotabs = i_get_art_field(g_iartin , $TnovahPPPwl2::dloabs)
SI ( lotabs > 0xFFFFFF )
ALORS
	lotabs = 0xFFFFFF
FINSI

RETOUR lotabs
# FIN_CORPS