SUBROUTINE TRIGTLGPOINTAGE (exec.stat,dict.flag,trig.name,rec.id.expr,rec.val)
	exec.stat=1
*******************************************************
* Ce trigger permet de savoir quels enregistrements	  *
* ont t crs ou modifis. Et on reprend l'ensemble *
* des attributs, de manire  ce que l'enregistrement *
* dans TLGPOINTAGEQL soit identique  l'enregistrement*
* rel dans TLGPOINTAGE.                              *
*******************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

OPEN "","TLGPOINTAGESQL" TO F.TLGPOINTAGESQL ELSE RETURN
OPEN "","TLGPARAM" TO F.TLGPARAM ELSE RETURN

READ ENR_TLGPARAM FROM F.TLGPARAM, "DATEREFARCH" THEN
	IF rec.id.expr[14,5]<ENR_TLGPARAM<1> THEN
		RETURN
	END
END

ENR_TLGPOINTAGESQL=""
ENR_TLGPOINTAGESQL<1>=rec.val
WRITE ENR_TLGPOINTAGESQL ON F.TLGPOINTAGESQL, rec.id.expr
	
RETURN