*EDITION FACTURE PAR NUMERO
SET TALK OFF
TITRE="EDITION DE FACTURE A LA DEMANDE"
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                                 
* IMPRESSION DES FACTURE GROUPEES
*SAISIE DE LA FACTURE ENTETE
NLFAC=40
NLPG=66
NLET=5
SET ESCAP OFF
SELECT 1
USE SDCLIENT INDEX SDCLIENT automem 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
TITRE = "IMPRESSION GROUPEE"
rep="N"            
SELE FC
SET ORDER TO 2           
SEEK NUMDEB
IF .NOT.EOF()
RECFIC=RECNO()
VNUMTMP=NUMERO
DO WHILE VNUMTMP <=NUMFIN
SELE 4
DO BGVALIMP
SELE FC
VNUMTMP=VNUMTMP+1
SET ORDER TO 2            
SEEK VNUMTMP
IF EOF()
EXIT
ENDI
ENDD
ENDI
ENDDO          
SET ESCA OFF          
CLOSE DATA
RETU