**********************************************************
*  modif pour supprimer les quantits les comptes 411...
*  Vanessa
**********************************************************

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

   W_Count=0
   W_End="FAUX"

   EXECUTE 'SSELECT BALANCEGENE AVEC CpteBalGene = "411]" OR = "7532110000" OR = "7532111000" OR = "7532210000" OR = "7532211000" OR = "7532213000" PAR 0'

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

      READ ENR_BALANCEGENE FROM F.BALANCEGENE,W_CleGene ELSE ENR_BALANCEGENE=""

      IF ENR_BALANCEGENE<3> # "" THEN
         ENR_BALANCEGENE<3>="0"
      END

      W_Count=DCOUNT(ENR_BALANCEGENE<7>,CHAR(253))
      FOR i = 1 TO W_Count
         IF ENR_BALANCEGENE<7,i> # "" THEN
            ENR_BALANCEGENE<7,i>="0"    
         END      
      NEXT i
      
      WRITE ENR_BALANCEGENE ON F.BALANCEGENE,W_CleGene 

   REPEAT


   W_Count=0
   W_End="FAUX"

   EXECUTE 'SSELECT BALANCEANAL AVEC CompteBalAnal = "411]" OR = "7532110000" OR = "7532111000" OR = "7532210000" OR = "7532211000" OR = "7532213000" PAR 0'

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

      READ ENR_BALANCEANAL FROM F.BALANCEANAL,W_CleAnal ELSE ENR_BALANCEANAL=""

      IF ENR_BALANCEANAL<3> # "" THEN
         ENR_BALANCEANAL<3>="0"
      END

      W_Count=DCOUNT(ENR_BALANCEANAL<7>,CHAR(253))
      FOR i = 1 TO W_Count
         IF ENR_BALANCEANAL<7,i> # "" THEN
            ENR_BALANCEANAL<7,i>="0"      
         END    
      NEXT i
      
      WRITE ENR_BALANCEANAL ON F.BALANCEANAL,W_CleAnal

   REPEAT



   W_End="FAUX"

   EXECUTE 'SSELECT DETAILECRITUREGENE AVEC 3 = "001411]" OR = "0017532110000" OR = "0017532111000" OR = "0017532210000" OR = "0017532211000" OR = "0017532213000" PAR 0'

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

      READ ENR_DETAILECRITUREGENE FROM F.DETAILECRITUREGENE,W_CleDet ELSE ENR_DETAILECRITUREGENE=""

      IF ENR_DETAILECRITUREGENE<9> # "" THEN
         ENR_DETAILECRITUREGENE<9>="0"
      END

      WRITE ENR_DETAILECRITUREGENE ON F.DETAILECRITUREGENE,W_CleDet

   REPEAT

STOP
