******************
* Un bug dcale les att en en "crant" un en double au moment de l'criture. *
* Ce prog vise  supprimer cet att. en trop pour remettre les donnes qui
* sur l'att. qui leur est destin.
*
* Greg - 27/05/11
******
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "TLGPOINTAGE" TO F.TLGPOINTAGE ELSE STOP

ENR_TLGPOINTAGE=""

W_ReqTlg=""
EXECUTE 'SELECT TLGPOINTAGE AVEC 6 <> ""'
EXECUTE 'SAUVE-LISTE W_ReqTlg'
EXECUTE 'LISTE W_ReqTlg' RETURNING MSGCODE

IF MSGCODE<1> # "209" THEN
	SELECT F.TLGPOINTAGE TO W_ReqTlg

	W_Fin = "F"
	LOOP
		READNEXT W_Cle FROM W_ReqTlg ELSE W_Fin = "O"
	WHILE W_Fin = "F"	
		READ ENR_TLGPOINTAGE FROM F.TLGPOINTAGE, W_Cle THEN
			IF DCOUNT(ENR_TLGPOINTAGE<6>,CHAR(253))=1 AND LEN(ENR_TLGPOINTAGE<6>)=6 THEN
				ENR_TLGPOINTAGE=DELETE(ENR_TLGPOINTAGE,6)
				WRITE ENR_TLGPOINTAGE ON F.TLGPOINTAGE, W_Cle
			END
		END
	REPEAT
END


EXECUTE "EFFACER-LISTE W_ReqTlg"

STOP