EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILPREST" TO F.DETAILPREST ELSE STOP

W_RequeteMoul=""

EXECUTE 'SELECT DETAILPREST AVEC 0 ="[201312" AND AVEC SecteurPrest="007"'
EXECUTE 'SAUVE-LISTE W_RequeteMoul'
EXECUTE "LISTE W_RequeteMoul" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   SELECT F.DETAILPREST TO W_RequeteMoul

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
	READ ENR_DETAILPREST FROM F.DETAILPREST,W_Cle THEN
		FOR I = DCOUNT(ENR_DETAILPREST<5>,CHAR(253)) TO 1 STEP -1
			IF ENR_DETAILPREST<5,I>="114" OR ENR_DETAILPREST<5,I>="115" OR ENR_DETAILPREST<5,I>="116" OR ENR_DETAILPREST<5,I>="117" OR ENR_DETAILPREST<5,I>="096" OR ENR_DETAILPREST<5,I>="012" THEN
				ENR_DETAILPREST = DELETE(ENR_DETAILPREST,5,I)
				ENR_DETAILPREST = DELETE(ENR_DETAILPREST,6,I)
				ENR_DETAILPREST = DELETE(ENR_DETAILPREST,7,I)
				ENR_DETAILPREST = DELETE(ENR_DETAILPREST,8,I)
				ENR_DETAILPREST = DELETE(ENR_DETAILPREST,9,I)
			END
		NEXT I
		
		WRITE ENR_DETAILPREST ON F.DETAILPREST,W_Cle
	END
   REPEAT

END
EXECUTE 'EFFACER-LISTE W_RequeteMoul'
STOP
