* Ouvertures des fichiers
OPEN "","ACCORD" TO F.ACCORD ELSE PRINT "OUVERTURE ACCORD" ;* en lecture 
OPEN "","RESSOURCESAIDE" TO F.RESSOURCESAIDE ELSE PRINT "OUVERTURE RESSOURCESAIDE" ;* en lecture criture

PRINTER ON

   W_End="FAUX"
   W_Premier="FAUX"
   W_Sauve=""
   EXECUTE 'SSELECT ACCORD AVEC TypeOrg = "P" AND AVEC DateDebAcc <= "31/10/2000" AND AVEC DateFinAcc >= "01/10/2000" PAR CodAideAccord'

   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_ACCORD FROM F.ACCORD,W_Cle ELSE ENR_ACCORD=""
      W_Quotient=""

      IF W_Sauve # W_Cle[1,5] THEN
         W_Sauve=W_Cle[1,5]
        
         BEGIN CASE
            CASE ENR_ACCORD<13,1>="213"
                 W_Quotient="100000"
            CASE ENR_ACCORD<13,1>="223"
                 W_Quotient="105000"
            CASE ENR_ACCORD<13,1>="234"
                 W_Quotient="110000"
            CASE ENR_ACCORD<13,1>="247"
                 W_Quotient="115000"
            CASE ENR_ACCORD<13,1>="260"
                 W_Quotient="120000"
            CASE ENR_ACCORD<13,1>="273"
                 W_Quotient="125000"
            CASE ENR_ACCORD<13,1>="288"
                 W_Quotient="130000"
            CASE ENR_ACCORD<13,1>="304"
                 W_Quotient="135000"
            CASE ENR_ACCORD<13,1>="320"
                 W_Quotient="140000"
            CASE ENR_ACCORD<13,1>="338"
                 W_Quotient="145000"
            CASE ENR_ACCORD<13,1>="357"
                 W_Quotient="150000"
            CASE ENR_ACCORD<13,1>="375"
                 W_Quotient="155000"
            CASE ENR_ACCORD<13,1>="396"
                 W_Quotient="160000"
            CASE ENR_ACCORD<13,1>="417"
                 W_Quotient="165000"
            CASE ENR_ACCORD<13,1>="439"
                 W_Quotient="170000"
            CASE ENR_ACCORD<13,1>="462"
                 W_Quotient="175000"
            CASE ENR_ACCORD<13,1>="486"
                 W_Quotient="180000"
            CASE ENR_ACCORD<13,1>="511"
                 W_Quotient="185000"
            CASE ENR_ACCORD<13,1>="536"
                 W_Quotient="190000"
            CASE ENR_ACCORD<13,1>="563"
                 W_Quotient="195000"
            CASE ENR_ACCORD<13,1>="591"
                 W_Quotient="200000"
            CASE ENR_ACCORD<13,1>="620"
                 W_Quotient="205000"
            CASE ENR_ACCORD<13,1>="649"
                 W_Quotient="210000"
            CASE ENR_ACCORD<13,1>="679"
                 W_Quotient="215000"
            CASE ENR_ACCORD<13,1>="711"
                 W_Quotient="220000"
            CASE ENR_ACCORD<13,1>="744"
                 W_Quotient="225000"
            CASE ENR_ACCORD<13,1>="778"
                 W_Quotient="230000"
            CASE ENR_ACCORD<13,1>="812"
                 W_Quotient="235000"
            CASE ENR_ACCORD<13,1>="848"
                 W_Quotient="240000"
            CASE ENR_ACCORD<13,1>="885"
                 W_Quotient="245000"
            CASE ENR_ACCORD<13,1>="922"
                 W_Quotient="250000"
            CASE ENR_ACCORD<13,1>="961"
                 W_Quotient="255000"
            CASE ENR_ACCORD<13,1>="1001"
                 W_Quotient="260000"
            CASE ENR_ACCORD<13,1>="1042"
                 W_Quotient="265000"
            CASE ENR_ACCORD<13,1>="1085"
                 W_Quotient="270000"
            CASE ENR_ACCORD<13,1>="1128"
                 W_Quotient="275000"
            CASE ENR_ACCORD<13,1>="1172"
                 W_Quotient="280000"
            CASE ENR_ACCORD<13,1>="1218"
                 W_Quotient="285000"
            CASE ENR_ACCORD<13,1>="1264"
                 W_Quotient="290000"
            CASE ENR_ACCORD<13,1>="1312"
                 W_Quotient="295000"
            CASE ENR_ACCORD<13,1>="1362"
                 W_Quotient="300000"
            CASE ENR_ACCORD<13,1>="1412"
                 W_Quotient="305000"
            CASE ENR_ACCORD<13,1>="1464"
                 W_Quotient="310000"
            CASE ENR_ACCORD<13,1>="1516"
                 W_Quotient="315000"
            CASE ENR_ACCORD<13,1>="1570"
                 W_Quotient="320000"
            CASE ENR_ACCORD<13,1>="1626"
                 W_Quotient="325000"
            CASE ENR_ACCORD<13,1>="1683"
                 W_Quotient="330000"
            CASE ENR_ACCORD<13,1>="1741"
                 W_Quotient="335000"
            CASE ENR_ACCORD<13,1>="1800"
                 W_Quotient="340000"
            CASE ENR_ACCORD<13,1>="1861"
                 W_Quotient="345000"
            CASE ENR_ACCORD<13,1>="1924"
                 W_Quotient="350000"
            CASE ENR_ACCORD<13,1>="1987"
                 W_Quotient="355000"
            CASE ENR_ACCORD<13,1>="2053"
                 W_Quotient="360000"
            CASE ENR_ACCORD<13,1>="2119"
                 W_Quotient="365000"
            CASE ENR_ACCORD<13,1>="2187"
                 W_Quotient="370000"
            CASE ENR_ACCORD<13,1>="2257"
                 W_Quotient="375000"
            CASE ENR_ACCORD<13,1>="2328"
                 W_Quotient="380000"
            CASE ENR_ACCORD<13,1>="2402"
                 W_Quotient="385000"
            CASE ENR_ACCORD<13,1>="2476"
                 W_Quotient="390000"
            CASE ENR_ACCORD<13,1>="2552"
                 W_Quotient="395000"
            CASE ENR_ACCORD<13,1>="2630"
                 W_Quotient="400000"
            CASE ENR_ACCORD<13,1>="2710"
                 W_Quotient="405000"
            CASE ENR_ACCORD<13,1>="2792"
                 W_Quotient="410000"
            CASE ENR_ACCORD<13,1>="2876"
                 W_Quotient="415000"
            CASE ENR_ACCORD<13,1>="2961"
                 W_Quotient="420000"
            CASE ENR_ACCORD<13,1>="3048"
                 W_Quotient="425000"
            CASE ENR_ACCORD<13,1>="3137"
                 W_Quotient="430000"
            CASE ENR_ACCORD<13,1>="3228"
                 W_Quotient="435000"
            CASE ENR_ACCORD<13,1>="3323"
                 W_Quotient="440000"
            CASE ENR_ACCORD<13,1>="3418"
                 W_Quotient="445000"
            CASE ENR_ACCORD<13,1>="3516"
                 W_Quotient="450000"
            CASE ENR_ACCORD<13,1>="3616"
                 W_Quotient="455000"
            CASE ENR_ACCORD<13,1>="3718"
                 W_Quotient="460000"
            CASE ENR_ACCORD<13,1>="3823"
                 W_Quotient="465000"
            CASE ENR_ACCORD<13,1>="3930"
                 W_Quotient="470000"
            CASE ENR_ACCORD<13,1>="4040"
                 W_Quotient="475000"
            CASE ENR_ACCORD<13,1>="4152"
                 W_Quotient="480000"
            CASE ENR_ACCORD<13,1>="4267"
                 W_Quotient="485000"
            CASE ENR_ACCORD<13,1>="4385"
                 W_Quotient="490000"
            CASE ENR_ACCORD<13,1>="4505"
                 W_Quotient="495000"
            CASE ENR_ACCORD<13,1>="4629"
                 W_Quotient="500000"
            CASE ENR_ACCORD<13,1>="4754"
                 W_Quotient="505000"
            CASE ENR_ACCORD<13,1>="4884"
                 W_Quotient="510000"
            CASE ENR_ACCORD<13,1>="5016"
                 W_Quotient="515000"
            CASE ENR_ACCORD<13,1>="5152"
                 W_Quotient="520000"
            CASE ENR_ACCORD<13,1>="5291"
                 W_Quotient="525000"
            CASE ENR_ACCORD<13,1>="5390"
                 W_Quotient="530000"
            CASE ENR_ACCORD<13,1>="5462"
                 W_Quotient="535000"
            CASE ENR_ACCORD<13,1>="5538"
                 W_Quotient="540000"
            CASE ENR_ACCORD<13,1>="5617"
                 W_Quotient="545000"
            CASE ENR_ACCORD<13,1>="5699"
                 W_Quotient="550000"
            CASE ENR_ACCORD<13,1>="5784"
                 W_Quotient="555000"
            CASE 1
                 PRINT W_Sauve

         END CASE

         READ ENR_RESSOURCESAIDE FROM F.RESSOURCESAIDE,W_Sauve ELSE ENR_RESSOURCESAIDE=""
         ENR_RESSOURCESAIDE<6>=W_Quotient

         WRITE ENR_RESSOURCESAIDE ON F.RESSOURCESAIDE,W_Sauve
      END


   REPEAT

PRINTER OFF
PRINTER CLOSE

STOP