* 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
      ENDIF
   ENDDO
ENDDO
CLOSE DATA
RETU