*EDITION FACTURE PAR NUMERO
SET TALK OFF
TITRE="EDITION DE FACTURE A LA DEMANDE"
SELECT 7
USE frz!BGBANQUE ORDER 1 ALIAS BQ SHARED
SELECT 1
*USE &CLDB INDEX &CLNDX1,&CLNDX2 ALIAS CL
USE frz!pgclient order NOMCLI ALIAS CL
SELE 2
USE frz!SDFACTUR order NUMERO ALIAS FC
SELE 3
USE frz!SDARTI order codeart ALIAS AR
SELE 4
USE frz!SDLIGNES order numfact ALIAS LG
SET RELATION TO codearti INTO ar
DO WHILE .T.
   *DO TITRE
   
   NUMDEB=00
   NUMFIN=9999
   DO FORM pg_numfac
  * @ 12,2 SAY"NUMERO DE DEPART" GET NUMDEB
  * @ 14,2 SAY"NUMERO DE FIN" GET NUMFIN
  * READ
  * numdeb=mdeb)
   
   *IF NUMFIN<NUMDEB
   *   LOOP
   *ENDIF
   IF NUMDEB=00
      EXIT
   ENDI
   SET ESCAP OFF
  * TITRE = "IMPRESSION GROUPEE"
  * REP="N"
   SELE FC
   *SET ORDER TO 1
   SEEK NUMDEB
   IF .NOT.EOF()
      RECFIC=RECNO()
      VNUMTMP=Fc.NUMERO
      DO WHILE VNUMTMP <=NUMFIN
         *REP="N"
         *@ 16,2 SAY" VOULEZ VOUS COMPLETER LES DONNEES O/N" GET REP PICTURE "!"
        * READ
         *IF REP = "O"
         *   DO BGDEBFAC
         *ENDI
         IF DATEFACT <DATE()
            SELE 6
            USE TVA INDEX TVA ORDER 1
            GO BOTT
            DO WHILE FC.DATEFACT<TVA.DATEDEB
               SKIP-1
            ENDDO
            TVA[1]=TVA->TAUX1/100
            TVA[2]=TVA->TAUX2/100
            USE
         ENDI
         SELE lg
         REPCODES="N"
         rep= MESSAGEBOX("VOULEZ VOUS imprimer les codes articles",36,"CODES ???")
                  
if rep = 6
repcodes="O"
ENDIF

*do bgvalimp
*else
*DO BGVALIM4
*endif
         NBIMPR=1
         *@ 14,5 SAY "NOMBRE D'EXEMPLAIRES       " GET NBIMPR
         *READ
         FOR IMP=1 TO NBIMPR
            REPORT FORM FACTURE for NUMFACT=VNUMTMP PREVIEW IN SCREEN
         ENDFOR
         SELE FC
         VNUMTMP=VNUMTMP+1
         SET ORDER TO NUMERO
         SEEK VNUMTMP
        * @6,0 to 20,100 clear
         IF EOF()
            EXIT
         ENDI
      ENDDO
      
    ENDIF
ENDDO
SET ESCA OFF
*CLOSE DATA
USE
RETU