SUBROUTINE TRIGMODIFSANT (exec.stat,dict.flag,trig.name,rec.id.expr,rec.val)
* rec.id.expr = cl sur laquelle le trigger a t dclench
* rec.val = donnes de l'enregistrement sur lequel le trigger a t dclench
	exec.stat=1
	
*************************************
* SPECIF FR CHATEAUROUX				*
* VANES								*
*************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

* ouverture des fichiers
OPEN "","MODIFSANT" TO F.MODIFSANT THEN
	W_Fichier=trig.name
	W_Cle=rec.id.expr
	ENR_FICHIER=rec.val

	WRITE ENR_FICHIER ON F.MODIFSANT, "MAJ":W_Fichier:"_":W_Cle
END



RETURN