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