*******************************************************************
* MOULINETTE POUR LA REEDITION DES BORDEREAUX AUX CAISSES
*******************************************************************

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

   PRINT "Priode (AAAAMM) : "
   INPUT W_Periode

   EXECUTE 'SELECT FACTURORG AVEC 10 = "':W_Periode:'"'

   W_End="FAUX"

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

      ENR_FACTURORG<9>=""
      ENR_FACTURORG<10>=""

      WRITE ENR_FACTURORG ON F.FACTURORG,W_Cle
   REPEAT

STOP
