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

W_RequeteMoul=""


PRINT "Periode (AAAAMM) : ":
INPUT W_Periode

EXECUTE 'SELECT DETAILPREST AVEC 0 ="[':W_Periode:'"'

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
	   * Vide la MOD SAUF RUB 036 ET 037
	 I=1
	 LOOP
	  CODEAIDE=ENR_DETAILPREST<1,I>
	  UNTIL CODEAIDE="" DO
	   IF ENR_DETAILPREST<2,I>#"036" AND ENR_DETAILPREST<2,I>#"037" THEN
	    ENR_DETAILPREST=DELETE(ENR_DETAILPREST,1,I)
	    ENR_DETAILPREST=DELETE(ENR_DETAILPREST,2,I)
	    ENR_DETAILPREST=DELETE(ENR_DETAILPREST,3,I)	
	    ENR_DETAILPREST=DELETE(ENR_DETAILPREST,4,I)
	    ENR_DETAILPREST=DELETE(ENR_DETAILPREST,10,I)
	    ENR_DETAILPREST=DELETE(ENR_DETAILPREST,11,I)
	    ENR_DETAILPREST=DELETE(ENR_DETAILPREST,12,I)
	    ENR_DETAILPREST=DELETE(ENR_DETAILPREST,13,I)
           END ELSE
	    I=I+1
	   END
	 REPEAT
	 WRITE ENR_DETAILPREST ON F.DETAILPREST,W_Cle
	END
   REPEAT

END
EXECUTE 'EFFACER-LISTE W_RequeteMoul'
STOP
