FVERS = 2
REFOBJET : ID = 650003244 ; ID_INIT = 650001363 ; NOM = ddebut_TRM6DEA ; VERSION = A21 ; DATE = 13/08/12-13:16:50 ( 1344863810 ) ; CAT = 6 ; ETAT = 0 ; NB_FILS =0 ; ID_FILS = 
ID_EST = 650000122
COMMENT = "Palliatif pour pb E10B3 duree trop grande"
CREATEUR = psapey
# DEBUT_CORPS
####################################################################
#
# Metachamp ddebut pour Trm6dea
# RBE	05/09/2003	Palliatif pour pb E10B3 duree trop grande
# PSA	03/12/2003	Retrait palliatif pour pb E10B3 duree trop grande (Cg)
#
####################################################################

REGISTRE ENTIER erreur
REGISTRE ENTIER date
REGISTRE ENTIER sct
REGISTRE ENTIER duree

#Recuperation de la date:
date=i_get_art_field(g_iartin,$Trm6dea::DATE)
SI (date==-1)
ALORS
	RETOUR date
FINSI


#Recuperation de la duree:
duree=i_get_art_field(g_iartin,$Trm6dea::DUREE)
SI (duree==-1)
ALORS
	RETOUR duree
FINSI

#Recuperation de sct:
sct=i_get_art_field(g_iartin,$Trm6dea::SCT)

SI ((sct & 0x60) == 0x00)
ALORS
	trace("DATE = heure de fin de comm : conversion en debut de comm")
	date = date - duree
	erreur = i_set_art_field(g_iartin,$Trm6dea::DATE,date)
	g_iartin.SCT = sct | 0x20
FINSI


#Traitement de l'erreur dans le pcode:
RETOUR i_date_platine(g_ieec,g_iartin,date)


# FIN_CORPS