
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","BUDGETFICHPERSO" TO F.BUDGETFICHPERSO ELSE PRINT "OUVERTURE BUDGETFICHPERSO" ;* en lecture criture

   EXECUTE 'SELECT BUDGETFICHPERSO'

   W_End="FAUX"

   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_BUDGETFICHPERSO FROM F.BUDGETFICHPERSO,W_Cle ELSE ENR_BUDGETFICHPERSO=""
     
      ENR_BUDGETFICHPERSO<25>=0
      ENR_BUDGETFICHPERSO<26>=0
      ENR_BUDGETFICHPERSO<27>=0

      WRITE ENR_BUDGETFICHPERSO ON F.BUDGETFICHPERSO,W_Cle

   REPEAT

STOP
