SUBROUTINE TRIGSUIVACCORDPROSPDEL (exec.stat,dict.flag,trig.name,rec.id.expr)
	exec.stat=1
*************************************************
* METTRE UN FLAG EN ATT 8 DE SUIVACCORDPROSP 	*
* A LA MODIF DE TPSDETAILSINTERV				*
* VANES											*
*************************************************

* ouverture des fichiers
OPEN "","ACTIVITES" TO F.ACTIVITES ELSE RETURN
OPEN "","ACTUSUIVICONTRAT" TO F.ACTUSUIVICONTRAT ELSE RETURN
OPEN "","SUIVACCORDPROSP" TO F.SUIVACCORDPROSP ELSE RETURN

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

W_CLE = rec.id.expr
* Mikael le 28/11/2014 - suite au ticket 7608 on gerer l'activite Prestataire uniquement pour le suivi de contrat de prospective et toute activite pour les accords prospectives. Cela donnait du temps de traitement important pour rien.
W_CleAct=W_CLE[16,6]
READ ENR_ACTIVITES FROM F.ACTIVITES,W_CleAct ELSE ENR_ACTIVITES=""

IF ENR_ACTIVITES<12> # "M" THEN
	Date=OCONV(DATE(),"D4/")
	W_PeriodeSys=Date[7,4]:Date[4,2]

	FOR i = 1 TO 3
		IF i # 1 THEN
			W_PeriodeSys=W_PeriodeSys+1
			IF W_PeriodeSys[5,2]="13" THEN
				W_PeriodeSys=W_PeriodeSys[1,4]+1:"01"
			END
		END
		
		W_CleProsp=W_CLE[6,5]:W_PeriodeSys
		READ ENR_SUIVACCORDPROSP FROM F.SUIVACCORDPROSP,W_CleProsp ELSE ENR_SUIVACCORDPROSP=""
		ENR_SUIVACCORDPROSP<8>="1"
		WRITE ENR_SUIVACCORDPROSP ON F.SUIVACCORDPROSP,W_CleProsp
		
	NEXT i

	* MODIF VANESSA 04/11/09 DA9112-01
	W_CleAidant=W_CLE[1,5]
	
	ENR_ACTUSUIVICONTRAT=""
	WRITE ENR_ACTUSUIVICONTRAT ON F.ACTUSUIVICONTRAT,W_CleAidant
END
	
* modif 07/11/16 - specif FR36	
OPEN "","MODIFSANT" TO F.MODIFSANT THEN
	OPEN "",trig.name TO F.FICHIER ELSE RETURN

	W_Cle=rec.id.expr
	W_Fichier=trig.name

	READ ENR_FICHIER FROM F.FICHIER,W_Cle THEN
		WRITE ENR_FICHIER ON F.MODIFSANT, "DEL":W_Fichier:"_":W_Cle
	END	
END	

RETURN