**************************************************************
*  regroupement des comptes 4 aprs intgration des produits *
*  Vanessa                                  dcembre 2002    *
**************************************************************

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

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

   W_End="FAUX"
   W_Cumul=0
   W_SauveCle=""
   W_Qte=0
   W_Brouillard=""

   EXECUTE 'SSELECT BROUILLARDDETAIL AVEC 0 = "00101]" AND AVEC 3 = "" AND AVEC 4 = "0014]" PAR 0'
   EXECUTE 'SAUVE-LISTE W_Brouillard'
   EXECUTE "LISTE W_Brouillard" RETURNING MSGCODE

   IF MSGCODE<1> # 209 THEN

      SELECT F.BROUILLARDDETAIL TO W_Brouillard

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

         READ ENR_BROUILLARDDETAIL FROM F.BROUILLARDDETAIL,W_Cle ELSE ENR_BROUILLARDDETAIL=""
         W_SauveCle=W_Cle
         IF ENR_BROUILLARDDETAIL<7> # "" THEN
            W_Cumul=W_Cumul+ENR_BROUILLARDDETAIL<7>
  	    W_Qte=W_Qte+ENR_BROUILLARDDETAIL<10>
         END ELSE
            IF ENR_BROUILLARDDETAIL<8> # "" THEN
               W_Cumul=W_Cumul-ENR_BROUILLARDDETAIL<8>
	       W_Qte=W_Qte-ENR_BROUILLARDDETAIL<10>
            END
         END
 
         DELETE F.BROUILLARDDETAIL,W_Cle
      REPEAT

      * crit la ligne de cumul
      ENR_BROUILLARDDETAIL<4>="0014114400000"
      ENR_BROUILLARDDETAIL<7>=W_Cumul
      ENR_BROUILLARDDETAIL<10>=W_Qte
      WRITE ENR_BROUILLARDDETAIL ON F.BROUILLARDDETAIL,W_SauveCle

   END ELSE
      PRINT "Vous devez faire l'intgration des produits avant d'excuter ce programme." 
   END

STOP
