*EDITION FACTURE PAR NUMERO
SET TALK OFF
TITRE="EDITION DE FACTURE A LA DEMANDE"
SELECT 1
USE &cldb INDEX &clndx1,&clndx2 ALIAS CL
SELE 2
USE SDFACTUR INDEX SDFACTUR,FACTURN ALIAS FC
SELE 3
USE SDARTI INDEX SDARTI ALIAS AR
SELE 4
USE SDLIGNES INDEX SDLIGNES,SDLIGNE2 ALIAS LG
DO WHILE .T.
DO TITRE
NUMDEB=0
NUMFIN=99
@ 12,2 SAY"NUMERO DE DEPART" GET NUMDEB
@ 14,2 SAY"NUMERO DE FIN" GET NUMFIN
READ
IF NUMFIN<NUMDEB
LOOP
ENDIF
IF NUMDEB=0                                 
EXIT                                 
ENDI                                 
SET ESCA ON                                 
NLFAC=40
NLPG=66
NLET=5
SET ESCAP OFF
TITRE = "IMPRESSION GROUPEE"
rep="N"            
SELE FC
SET ORDER TO 2           
SEEK NUMDEB
IF .NOT.EOF()
RECFIC=RECNO()
VNUMTMP=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 
go bott
do while fc->datefact<tva->datedeb
skip-1
enddo
tva[1]=tva->taux1/100
tva[2]=tva->taux2/100
use
endi
sele 4
rep="N"
@ 16,2 say" VOULEZ VOUS imprimer les codes articles O/N" get rep picture "!"
read
if rep = "O"
do bgvalimp
else
DO BGVALIM4
endif
SELE FC
VNUMTMP=VNUMTMP+1
SET ORDER TO 2            
SEEK VNUMTMP
IF EOF()
EXIT
ENDI
ENDD
ENDI
ENDDO          
SET ESCA OFF          
sele 1    
use          
close DATA
RETU