*******************************************************************
* MOULINETTE POUR LA REEDITION DES FACTURES BENEFICIAIRES
*******************************************************************

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

   PRINT "Priode (AAAAMM) : "
   INPUT W_Periode

   PRINT "Activit (P/M) : "
   INPUT W_Act
 
   PRINT "Secteur (xxx)"
   INPUT W_Secteur

   PRINT "Facture origine (0) ou modifie (1)"
   INPUT W_TypeFact

   EXECUTE 'SELECT FACTURAIDE AVEC ActiviteFact = "':W_Act:'" AND AVEC PeriodeCleFactAide = "':W_Periode:'" AND AVEC FactureModif = "':W_TypeFact:'" AND AVEC CodeSecteurFact = "':W_Secteur:'"'

   W_End="FAUX"

   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_FACTURAIDE FROM F.FACTURAIDE,W_Cle ELSE ENR_FACTURAIDE=""

      ENR_FACTURAIDE<11>=0
      ENR_FACTURAIDE<12>=""

      WRITE ENR_FACTURAIDE ON F.FACTURAIDE,W_Cle
   REPEAT

STOP
