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 = "':"00111N11":']"'

   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=""
      IF ENR_BROUILLARDDETAIL<8> # "" THEN
         ENR_BROUILLARDDETAIL<7>=ENR_BROUILLARDDETAIL<8>
         ENR_BROUILLARDDETAIL<8>=""
      END ELSE
         IF ENR_BROUILLARDDETAIL<7> # "" THEN
            ENR_BROUILLARDDETAIL<8>=ENR_BROUILLARDDETAIL<7>
            ENR_BROUILLARDDETAIL<7>=""
         END
      END
      IF ENR_BROUILLARDDETAIL<10> # "" THEN
      	 ENR_BROUILLARDDETAIL<10>=-ENR_BROUILLARDDETAIL<10>
      END
      WRITE ENR_BROUILLARDDETAIL ON F.BROUILLARDDETAIL,W_Cle
   REPEAT
STOP
