*********************************************
* PERMET DE REMPLIR AUTOMATIQUE L'ATTRIBUT 3 =commentaire			*
* Mikael  09/08/2012						*
*********************************************


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

OPEN "","TLGVERIFPLG" TO F.TLGVERIFPLG ELSE STOP


W_Requete=""
ENR_TLGVERIFPLG=""

PRINT "SAISIR LA DATE DE DEBUT JJ/MM/AAAA"
INPUT W_Deb

PRINT "SAISIR LA DATE DE FIN JJ/MM/AAAA"
INPUT W_Fin

PRINT "SAISIR LE CODE RESPONSABLE (999) Facultatif"
INPUT W_Sect


PRINT "SAISIR LE TYPE (P=PLANNING / T=TELEGESTION)"
INPUT W_TYPE

W_Deb=ICONV(W_Deb,"D4/")
W_Fin=ICONV(W_Fin,"D4/")

IF 	W_Sect <>"" THEN

W_Requete='SELECT TLGVERIFPLG AVEC DateDebut >= "':W_Deb:'" AND AVEC DateDebut<= "':W_Fin:'" AND AVEC 3 = "" AND AVEC 0 = "[':W_TYPE:'"  AND AVEC CodeResponsableAide = "':W_Sect:'"'
END ELSE
W_Requete='SELECT TLGVERIFPLG AVEC DateDebut >= "':W_Deb:'" AND AVEC DateDebut<= "':W_Fin:'" AND AVEC 3 = "" AND AVEC 0 = "[T"'
END
EXECUTE W_Requete
EXECUTE 'SAUVE-LISTE W_Req'
EXECUTE "LISTE W_Req" RETURNING MSGCODE

IF MSGCODE<1>#209 THEN
	SELECT F.TLGVERIFPLG TO W_Req
	W_Fini="FAUX"
	
	LOOP
		READNEXT W_Cle FROM W_Req ELSE W_Fini = "VRAI"
	WHILE W_Fini = "FAUX" DO
		READ ENR_TLGVERIFPLG FROM F.TLGVERIFPLG,W_Cle ELSE ENR_TLGVERIFPLG=""

		ENR_TLGVERIFPLG<3>="Vu intervention plannifi"

		WRITE ENR_TLGVERIFPLG ON F.TLGVERIFPLG,W_Cle

	REPEAT
END


STOP