EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "BUDGETFICHPERSO" TO F.BUDGETFICHPERSO ELSE STOP
EXECUTE 'TSELECT BUDGETFICHPERSO AVEC 7 = "P"'
10 READNEXT CLE ELSE STOP
READ ENR_BUDGETFICHPERSO FROM F.BUDGETFICHPERSO,CLE ELSE GOTO 10
I=1
LOOP
 DATEEFFET=ENR_BUDGETFICHPERSO<12,I>
 UNTIL DATEEFFET="" DO
  GOSUB 100
  I=I+1
REPEAT
WRITE ENR_BUDGETFICHPERSO ON F.BUDGETFICHPERSO,CLE
GOTO 10

100 J=1
RUB055="NON"
RUB080="NON"
LOOP
 CODERUBSAISIE=ENR_BUDGETFICHPERSO<30,I,J>
 UNTIL CODERUBSAISIE="" DO
  IF CODERUBSAISIE="055" THEN
   ENR_BUDGETFICHPERSO=REPLACE(ENR_BUDGETFICHPERSO,31,I,J;"38")
   RUB055="OUI"
  END
  IF CODERUBSAISIE="080" THEN
   ENR_BUDGETFICHPERSO=REPLACE(ENR_BUDGETFICHPERSO,31,I,J;"17")
   RUB080="OUI"
  END
  IF CODERUBSAISIE="012" THEN
   IF ENR_BUDGETFICHPERSO<32,I,J>>="2900" THEN
    ENR_BUDGETFICHPERSO=REPLACE(ENR_BUDGETFICHPERSO,32,I,J;"3400")
   END
   IF ENR_BUDGETFICHPERSO<32,I,J><"2900" THEN
    ENR_BUDGETFICHPERSO=REPLACE(ENR_BUDGETFICHPERSO,32,I,J;"1500")
   END
  END
  J=J+1
REPEAT
IF RUB055="NON" THEN
 ENR_BUDGETFICHPERSO=REPLACE(ENR_BUDGETFICHPERSO,30,I,J;"055")
 ENR_BUDGETFICHPERSO=REPLACE(ENR_BUDGETFICHPERSO,31,I,J;"38")
 ENR_BUDGETFICHPERSO=REPLACE(ENR_BUDGETFICHPERSO,32,I,J;"0")
 ENR_BUDGETFICHPERSO=REPLACE(ENR_BUDGETFICHPERSO,33,I,J;"0")
 J=J+1
END
IF RUB080="NON" THEN
 ENR_BUDGETFICHPERSO=REPLACE(ENR_BUDGETFICHPERSO,30,I,J;"080")
 ENR_BUDGETFICHPERSO=REPLACE(ENR_BUDGETFICHPERSO,31,I,J;"17")
 ENR_BUDGETFICHPERSO=REPLACE(ENR_BUDGETFICHPERSO,32,I,J;"0")
 ENR_BUDGETFICHPERSO=REPLACE(ENR_BUDGETFICHPERSO,33,I,J;"0")
END
RETURN