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"
LOOP
 CODERUBSAISIE=ENR_BUDGETFICHPERSO<30,I,J>
 UNTIL CODERUBSAISIE="" DO
  IF CODERUBSAISIE="055" THEN
   ENR_BUDGETFICHPERSO=REPLACE(ENR_BUDGETFICHPERSO,31,I,J;"40")
   RUB055="OUI"
  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;"40")
 ENR_BUDGETFICHPERSO=REPLACE(ENR_BUDGETFICHPERSO,32,I,J;"0")
 ENR_BUDGETFICHPERSO=REPLACE(ENR_BUDGETFICHPERSO,33,I,J;"0")
 J=J+1
END

RETURN