SUBROUTINE TRIGTLGPOINTAGEDEL (exec.stat,dict.flag,trig.name,rec.id.expr)
	exec.stat=1
********************************************************
* Ce trigger permet de savoir quels enregistrements	   *
* ont t supprims. Pour les distinguer des           *
* enregistrements crs ou modifis, on met simplement *
* le terme "DEL" en attribut 1.                        *
********************************************************
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>="DEL"
WRITE ENR_TLGPOINTAGESQL ON F.TLGPOINTAGESQL, rec.id.expr
	
RETURN