**********************************************************
*  Dcoupe les fichiers BROUILLARDDETAIL et BROUILLARDTETE
*  sur les 3 n d'ordre pour diter brouillard d' nouveau 
*   Beauvais (7306 lignes)
*  Vanessa
**********************************************************

* 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
OPEN "","BROUILLARDDETAILBIS" TO F.BROUILLARDDETAILBIS ELSE PRINT "OUVERTURE BROUILLARDDETAILBIS" ;* en lecture 

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

   W_End="FAUX"
   ENR_BROUILLARDDETAIL=""
   ENR_BROUILLARDTETE=""
   W_Credit=0
   W_Debit=0
   W_Somme=0
   W_Count=0

   EXECUTE 'SSELECT BROUILLARDDETAILBIS AVEC 0 = "00199N01]" AND AVEC 0 # "00199N0100001]" AND AVEC LigneBrouillardDetail > "00001" AND AVEC LigneBrouillardDetail <= "02500" PAR 0'

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

      * N ORDRE 1

      READ ENR_BROUILLARDDETAILBIS FROM F.BROUILLARDDETAILBIS,W_Cle ELSE ENR_BROUILLARDDETAILBIS=""
      ENR_BROUILLARDDETAIL=""
      ENR_BROUILLARDDETAIL<1>=ENR_BROUILLARDDETAILBIS<1>
      ENR_BROUILLARDDETAIL<2>=ENR_BROUILLARDDETAILBIS<2>
      ENR_BROUILLARDDETAIL<3>=ENR_BROUILLARDDETAILBIS<3>
      ENR_BROUILLARDDETAIL<4>=ENR_BROUILLARDDETAILBIS<4>
      ENR_BROUILLARDDETAIL<5>=ENR_BROUILLARDDETAILBIS<5>
      ENR_BROUILLARDDETAIL<6>=ENR_BROUILLARDDETAILBIS<6>
      ENR_BROUILLARDDETAIL<7>=ENR_BROUILLARDDETAILBIS<7>
      IF ENR_BROUILLARDDETAIL<7> # "" THEN
         W_Debit=W_Debit+ENR_BROUILLARDDETAIL<7>
      END
      ENR_BROUILLARDDETAIL<8>=ENR_BROUILLARDDETAILBIS<8>
      IF ENR_BROUILLARDDETAIL<8> # "" THEN
         W_Credit=W_Credit+ENR_BROUILLARDDETAIL<8>
      END
      ENR_BROUILLARDDETAIL<9>=ENR_BROUILLARDDETAILBIS<9>
      ENR_BROUILLARDDETAIL<10>=ENR_BROUILLARDDETAILBIS<10>
      ENR_BROUILLARDDETAIL<11>=ENR_BROUILLARDDETAILBIS<11>

      WRITE ENR_BROUILLARDDETAIL ON F.BROUILLARDDETAIL,W_Cle
      W_Count=W_Count+1

   REPEAT

   ENR_BROUILLARDDETAIL=""
   * rgul compte rsultat
   ENR_BROUILLARDDETAIL<1>="12612"
   ENR_BROUILLARDDETAIL<2>="12420"
   ENR_BROUILLARDDETAIL<3>=""
   ENR_BROUILLARDDETAIL<4>="0011200000000"
   ENR_BROUILLARDDETAIL<5>="RESULTAT EXERCICE"
   ENR_BROUILLARDDETAIL<6>=""
   W_Somme=W_Credit-W_Debit
*   IF W_Somme > 0 THEN
*      ENR_BROUILLARDDETAIL<8>=W_Somme
*      W_Credit=W_Credit+ENR_BROUILLARDDETAIL<8>
*   END ELSE
      ENR_BROUILLARDDETAIL<7>=W_Somme
      W_Debit=W_Debit+ENR_BROUILLARDDETAIL<7>
*   END
   ENR_BROUILLARDDETAIL<9>=""
   ENR_BROUILLARDDETAIL<10>=""
   ENR_BROUILLARDDETAIL<11>=""
   W_Count=W_Count+1

   WRITE ENR_BROUILLARDDETAIL ON F.BROUILLARDDETAIL,"00199N0100001"

   ENR_BROUILLARDTETE<1>=W_Count "R%5"
   ENR_BROUILLARDTETE<2>=W_Debit
   ENR_BROUILLARDTETE<3>=W_Credit

   WRITE ENR_BROUILLARDTETE ON F.BROUILLARDTETE,"00199N01"

   ***************************************************************************************************************

   W_End="FAUX"
   ENR_BROUILLARDDETAIL=""
   ENR_BROUILLARDTETE=""
   W_Credit=0
   W_Debit=0
   W_Somme=0
   W_Count=0

   EXECUTE 'SSELECT BROUILLARDDETAILBIS AVEC 0 = "00199N01]" AND AVEC LigneBrouillardDetail > "02500" AND AVEC LigneBrouillardDetail <= "05000" PAR 0'

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

      * N ORDRE 2

      READ ENR_BROUILLARDDETAILBIS FROM F.BROUILLARDDETAILBIS,W_Cle ELSE ENR_BROUILLARDDETAILBIS=""
      ENR_BROUILLARDDETAIL=""
      ENR_BROUILLARDDETAIL<1>=ENR_BROUILLARDDETAILBIS<1>
      ENR_BROUILLARDDETAIL<2>=ENR_BROUILLARDDETAILBIS<2>
      ENR_BROUILLARDDETAIL<3>=ENR_BROUILLARDDETAILBIS<3>
      ENR_BROUILLARDDETAIL<4>=ENR_BROUILLARDDETAILBIS<4>
      ENR_BROUILLARDDETAIL<5>=ENR_BROUILLARDDETAILBIS<5>
      ENR_BROUILLARDDETAIL<6>=ENR_BROUILLARDDETAILBIS<6>
      ENR_BROUILLARDDETAIL<7>=ENR_BROUILLARDDETAILBIS<7>
      IF ENR_BROUILLARDDETAIL<7> # "" THEN
         W_Debit=W_Debit+ENR_BROUILLARDDETAIL<7>
      END
      ENR_BROUILLARDDETAIL<8>=ENR_BROUILLARDDETAILBIS<8>
      IF ENR_BROUILLARDDETAIL<8> # "" THEN
         W_Credit=W_Credit+ENR_BROUILLARDDETAIL<8>
      END
      ENR_BROUILLARDDETAIL<9>=ENR_BROUILLARDDETAILBIS<9>
      ENR_BROUILLARDDETAIL<10>=ENR_BROUILLARDDETAILBIS<10>
      ENR_BROUILLARDDETAIL<11>=ENR_BROUILLARDDETAILBIS<11>

      W_Count=W_Count+1
      WRITE ENR_BROUILLARDDETAIL ON F.BROUILLARDDETAIL,"00199N02":W_Count "R%5"

   REPEAT

   * rgul compte rsultat
   ENR_BROUILLARDDETAIL=""
   ENR_BROUILLARDDETAIL<1>="12612"
   ENR_BROUILLARDDETAIL<2>="12420"
   ENR_BROUILLARDDETAIL<3>=""
   ENR_BROUILLARDDETAIL<4>="0011200000000"
   ENR_BROUILLARDDETAIL<5>="RESULTAT EXERCICE"
   ENR_BROUILLARDDETAIL<6>=""
   W_Somme=W_Credit-W_Debit

*   IF W_Somme > 0 THEN
*      ENR_BROUILLARDDETAIL<8>=W_Somme
*      W_Credit=W_Credit+ENR_BROUILLARDDETAIL<8>
*   END ELSE
      ENR_BROUILLARDDETAIL<7>=W_Somme
      W_Debit=W_Debit+ENR_BROUILLARDDETAIL<7>
*   END
   ENR_BROUILLARDDETAIL<9>=""
   ENR_BROUILLARDDETAIL<10>=""
   ENR_BROUILLARDDETAIL<11>=""
   W_Count=W_Count+1

   WRITE ENR_BROUILLARDDETAIL ON F.BROUILLARDDETAIL,"00199N02":W_Count "R%5"

   ENR_BROUILLARDTETE<1>=W_Count "R%5"
   ENR_BROUILLARDTETE<2>=W_Debit
   ENR_BROUILLARDTETE<3>=W_Credit

   WRITE ENR_BROUILLARDTETE ON F.BROUILLARDTETE,"00199N02"


   ***********************************************************************************************************************

   W_End="FAUX"
   ENR_BROUILLARDDETAIL=""
   ENR_BROUILLARDTETE=""
   W_Credit=0
   W_Debit=0
   W_Somme=0
   W_Count=0

   EXECUTE 'SSELECT BROUILLARDDETAILBIS AVEC 0 = "00199N01]" AND AVEC LigneBrouillardDetail > "05000" PAR 0'

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

      * N ORDRE 3

      READ ENR_BROUILLARDDETAILBIS FROM F.BROUILLARDDETAILBIS,W_Cle ELSE ENR_BROUILLARDDETAILBIS=""
      ENR_BROUILLARDDETAIL=""
      ENR_BROUILLARDDETAIL<1>=ENR_BROUILLARDDETAILBIS<1>
      ENR_BROUILLARDDETAIL<2>=ENR_BROUILLARDDETAILBIS<2>
      ENR_BROUILLARDDETAIL<3>=ENR_BROUILLARDDETAILBIS<3>
      ENR_BROUILLARDDETAIL<4>=ENR_BROUILLARDDETAILBIS<4>
      ENR_BROUILLARDDETAIL<5>=ENR_BROUILLARDDETAILBIS<5>
      ENR_BROUILLARDDETAIL<6>=ENR_BROUILLARDDETAILBIS<6>
      ENR_BROUILLARDDETAIL<7>=ENR_BROUILLARDDETAILBIS<7>
      IF ENR_BROUILLARDDETAIL<7> # "" THEN
         W_Debit=W_Debit+ENR_BROUILLARDDETAIL<7>
      END
      ENR_BROUILLARDDETAIL<8>=ENR_BROUILLARDDETAILBIS<8>
      IF ENR_BROUILLARDDETAIL<8> # "" THEN
         W_Credit=W_Credit+ENR_BROUILLARDDETAIL<8>
      END
      ENR_BROUILLARDDETAIL<9>=ENR_BROUILLARDDETAILBIS<9>
      ENR_BROUILLARDDETAIL<10>=ENR_BROUILLARDDETAILBIS<10>
      ENR_BROUILLARDDETAIL<11>=ENR_BROUILLARDDETAILBIS<11>

      W_Count=W_Count+1
      WRITE ENR_BROUILLARDDETAIL ON F.BROUILLARDDETAIL,"00199N03":W_Count "R%5"

   REPEAT

   * rgul compte rsultat
   ENR_BROUILLARDDETAIL=""
   ENR_BROUILLARDDETAIL<1>="12612"
   ENR_BROUILLARDDETAIL<2>="12420"
   ENR_BROUILLARDDETAIL<3>=""
   ENR_BROUILLARDDETAIL<4>="0011200000000"
   ENR_BROUILLARDDETAIL<5>="RESULTAT EXERCICE"
   ENR_BROUILLARDDETAIL<6>=""
   W_Somme=W_Credit-W_Debit
*   IF W_Somme > 0 THEN
*      ENR_BROUILLARDDETAIL<8>=W_Somme
*      W_Credit=W_Credit+ENR_BROUILLARDDETAIL<8>
*   END ELSE
      ENR_BROUILLARDDETAIL<7>=W_Somme
      W_Debit=W_Debit+ENR_BROUILLARDDETAIL<7>
*   END
   ENR_BROUILLARDDETAIL<9>=""
   ENR_BROUILLARDDETAIL<10>=""
   ENR_BROUILLARDDETAIL<11>=""
   W_Count=W_Count+1

   WRITE ENR_BROUILLARDDETAIL ON F.BROUILLARDDETAIL,"00199N03":W_Count "R%5"

   ENR_BROUILLARDTETE<1>=W_Count "R%5"
   ENR_BROUILLARDTETE<2>=W_Debit
   ENR_BROUILLARDTETE<3>=W_Credit

   WRITE ENR_BROUILLARDTETE ON F.BROUILLARDTETE,"00199N03"

STOP
