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

   EXECUTE 'SSELECT BROUILLARDDETAIL AVEC 0 = "00202N01]" AND AVEC LibPlanComptable = ""'

   W_Fini="FAUX"
   LOOP 
      READNEXT W_Cle ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      READ ENR_BROUILLARDDETAIL FROM F.BROUILLARDDETAIL,W_Cle ELSE ENR_BROUILLARDDETAIL=""

      BEGIN CASE
         CASE ENR_BROUILLARDDETAIL<4> = "0026411110000"
            ENR_BROUILLARDDETAIL<4> = "0026411000000"
         CASE ENR_BROUILLARDDETAIL<4> = "0024374000000"
            ENR_BROUILLARDDETAIL<4> = "0024372000000"
         CASE ENR_BROUILLARDDETAIL<4> = "0026311100000"
            ENR_BROUILLARDDETAIL<4> = "0026310000000"
         CASE ENR_BROUILLARDDETAIL<4> = "0026454100000"
            ENR_BROUILLARDDETAIL<4> = "0026454000000"
         CASE ENR_BROUILLARDDETAIL<4> = "0026453110000"
            ENR_BROUILLARDDETAIL<4> = "0026453000000"
         CASE ENR_BROUILLARDDETAIL<4> = "0026333000000"
            ENR_BROUILLARDDETAIL<4> = "0026330000000"
         CASE 1
            ENR_BROUILLARDDETAIL<4> = "0024710000000"
      END CASE

      WRITE ENR_BROUILLARDDETAIL ON F.BROUILLARDDETAIL,W_Cle
   REPEAT
STOP
