*******************************************************************
* 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
 
   EXECUTE 'SELECT FACTURAIDE AVEC ActiviteFact = "':W_Act:'" AND AVEC PeriodeCleFactAide = "':W_Periode:'"'

   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
