**********************************************************
*  Programme de modification des fichiers BROUILLARDDETAIL 
*  et BROUILLARDTETE
*  Vanessa
*  MARS 2000
**********************************************************

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

*********************************************************
* PROGRAMME PRINCIPAL

   W_End="FAUX"

   EXECUTE 'SSELECT BROUILLARDDETAIL'

   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      W_TabDyn=""
      READ ENR_BROUILLARDDETAIL FROM F.BROUILLARDDETAIL,W_Cle ELSE ENR_BROUILLARDDETAIL=""
      W_TabDyn<1>=ENR_BROUILLARDDETAIL<1>
      W_TabDyn<2>=ENR_BROUILLARDDETAIL<2>
      W_TabDyn<3>=ENR_BROUILLARDDETAIL<3>
      W_TabDyn<4>=ENR_BROUILLARDDETAIL<4>
      W_TabDyn<5>=ENR_BROUILLARDDETAIL<5>
      W_TabDyn<6>=ENR_BROUILLARDDETAIL<6>
      W_TabDyn<7>=ENR_BROUILLARDDETAIL<7>
      W_TabDyn<8>=ENR_BROUILLARDDETAIL<8>
      W_TabDyn<9>=ENR_BROUILLARDDETAIL<9>
      W_TabDyn<10>=ENR_BROUILLARDDETAIL<10>
      W_TabDyn<11>=ENR_BROUILLARDDETAIL<11>

      * efface l'article de BROUILLARDDETAIL
      DELETE F.BROUILLARDDETAIL,W_Cle

      ENR_BROUILLARDDETAIL=""
      ENR_BROUILLARDDETAIL<1>=W_TabDyn<1>
      ENR_BROUILLARDDETAIL<2>=W_TabDyn<2>
      ENR_BROUILLARDDETAIL<3>=W_TabDyn<3>
      ENR_BROUILLARDDETAIL<4>=W_TabDyn<4>
      ENR_BROUILLARDDETAIL<5>=W_TabDyn<5>
      ENR_BROUILLARDDETAIL<6>=W_TabDyn<6>
      ENR_BROUILLARDDETAIL<7>=W_TabDyn<7>
      ENR_BROUILLARDDETAIL<8>=W_TabDyn<8>
      ENR_BROUILLARDDETAIL<9>=W_TabDyn<9>
      ENR_BROUILLARDDETAIL<10>=W_TabDyn<10>
      ENR_BROUILLARDDETAIL<11>=W_TabDyn<11>

      W_NumLigne=W_Cle[9,3] "R%5"
      WRITE ENR_BROUILLARDDETAIL ON F.BROUILLARDDETAIL,W_Cle[1,8]:W_NumLigne

   REPEAT

   W_End="FAUX"

   EXECUTE 'SSELECT BROUILLARDTETE'

   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO

      READ ENR_BROUILLARDTETE FROM F.BROUILLARDTETE,W_Cle ELSE ENR_BROUILLARDTETE=""

      ENR_BROUILLARDTETE<1>=ENR_BROUILLARDTETE<1> "R%5"

      WRITE ENR_BROUILLARDTETE ON F.BROUILLARDTETE,W_Cle

   REPEAT

STOP
