Olá Rafael, eu já fiz isso, o teste que faço é com 2 documentos, 

Enquanto ele está no while e manda a mensagem para o tblImprimeVD ele só
passa pelo AM_Imprime, 

só quando sai do while  ele passa pelo Sam_ReportStar e nesta altura ele só
tem o número do último documento.

Caso tenha alguma dica que possa fazer de outra forma é sempre bem vindo.

Obrigado e abraços,

Sergio

 

De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Em nome
de Thales, Rafael (GE Healthcare, consultant)
Enviada: quarta-feira, 28 de Novembro de 2007 10:42
Para: [email protected]
Assunto: [sqlwin] RE: [sqlwin] Impressão de vários documentos

 

Bom dia Sergio

 

Na verdade, com as informações que vc passou, para mim fica difícil
descobrir o que está acontecendo!

Seria interessante vc debugar e verificar quantos registros e quantas vezes
está passando dentro do while. verificar também, se todas vez que ele passa
no while, a mensagem que manda para tblImprimeVD está executando
corretamente, enfim... o velho e bom debug pode te ajudar...

 

Boa sorte

 

Rafael Pereira Larizzatti
Analista Desenvolvedor Centura
Thales Informática Ltda
GE Healthcare
[EMAIL PROTECTED]
+55 (11) 2164-3616

 

 

  _____  

From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On
Behalf Of Sergio Yoshimura
Sent: quarta-feira, 28 de novembro de 2007 08:19
To: [email protected]
Subject: [sqlwin] Impressão de vários documentos

Olá Pessoal, preciso imprimir ao fim do dia todas as vendas a dinheiro que
foram emitidas durante o dia.

 

No botão de confirmação executo os comandos abaixo para ler os números das
vds.

 

If rb5VD = TRUE

            Call SqlConnect( hSql1_Contab )

            Call SqlPrepare( hSql1_Contab, ' Select vd_num 

                                   from vendadin

                                   where

                                   (vd_data >= :df4Datade and vd_data <=
:df4Dataa) and

                                   (vd_clie >= :dfDoClie and vd_clie <=
:dfAoClie) and 

                                   vd_filial = :nFilial 

                                   into :dfVD ')

            If SqlExecute( hSql1_Contab )

                        While SqlFetchNext ( hSql1_Contab, nFetchLocal )

                                   Call SalSendMsg( tblImprimeVD,
AM_Imprime, 0, 0 )

                        

O que acontece é que só imprime o último documento.

Utilizo o TD 3.0 PTF4 + Report Buider 3.0

No Sam_ReportStart faço sempre a comparação se o nº do documento = dfVD

 

Obrigado e abraços a todos,

Sergio

 

Responder a