* IMPRESSION DES FACTURE GROUPEES
*SAISIE DE LA FACTURE ENTETE
NLFAC=40
NLPG=66
NLET=5
SET ESCAP OFF
SELECT 1
USE &cldb INDEX clndx1 automem ALIAS CL
SELE 2
USE SDFACTUR INDEX FACTURN,SDFACTUR ALIAS FC
SELE 3
USE SDARTI INDEX SDARTI ALIAS AR
SELE 4
USE SDLIGNES INDEX SDLIGNES,SDLIGNE2 ALIAS LG
TITRE = "IMPRESSION GROUPEE"
rep="N"
DO WHILE .T.
SELE FC
SET FILTER TO .NOT.IMPRESSION
GO TOP
DO WHILE .NOT. EOF()
VNUMTMP=NUMERO
SELE 4
DO BGVALIMP
SELE FC
IF .NOT. EOF()
SKIP
ENDI
ENDD
CLOSE DATA
RETU