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


W_DateDebMax=ICONV("31/07/2002","D4/")
W_DateFinMin=ICONV("01/07/2002","D4/")

LISTCONTRATACTIF=""

EXECUTE 'SELECT CONTRAT AVEC 65 = "" AND AVEC 1 # "02" AND AVEC 7 <= "':W_DateDebMax:'" AND AVEC 8 >= "':W_DateFinMin: '" OR = "" '

EXECUTE 'SAUVE-LISTE LISTCONTRATACTIF'

EXECUTE "LISTE LISTCONTRATACTIF" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   SELECT F.CONTRAT TO LISTCONTRATACTIF

   W_Fini="FAUX"
   LOOP
      READNEXT W_CleContrat FROM LISTCONTRATACTIF ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO

      READ ENR_CONTRAT FROM F.CONTRAT,W_CleContrat ELSE STOP
   
      ENR_CONTRAT<42>=INT((ENR_CONTRAT<42>*100/103.88)+1/2)

      WRITE ENR_CONTRAT ON F.CONTRAT,W_CleContrat
   REPEAT
END

STOP

* SETPTR 0,,,,,1, "MODE=RAW",DEST \\SERVEURINF\MATRICEPSON,NOHEAD,NOFMT,EJECT,COPIES 1,BRIEF
* PRINTER ON

SELECT CONTRAT AVEC 65 = "" AND AVEC 1 # "02" AND AVEC 7 <= "12631" AND AVEC 8 >= "12601" OR = ""
