Faça diferente.
On SAM_ReportFetchNext
If SqlFetchNext( hSqlRelatorio, nRetorno )
Return TRUE
RETURN FALSE
ou
On SAM_ReportFetchNext
Return SqlFetchNext( hSqlRelatorio, nRetorno )
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <sqlwin@virtualand.net>
Sent: Friday, March 04, 2005 8:11 AM
Subject: Re: [sqlwin] Controle de Qrp
No fetchnext?
o código é o seguinte:
On SAM_ReportFetchNext
If SqlFetchNext( hSqlRelatorio, nRetorno )
If nRetorno = FETCH_Ok
Return TRUE
Else
Return FALSE
Citando Jose Carlos de Godoi e Silva <[EMAIL PROTECTED]>:
> E o que você usa?
> Consegue terminar na hora que acabam-se os dados ou o rep. ainda imprime
> uma ppágina indesejada?
>
>
>
>
> [EMAIL PROTECTED]@virtualand.net em 03/03/2005 08:32:07
>
> Favor responder para sqlwin@virtualand.net
>
> Enviado Por: [EMAIL PROTECTED]
>
>
>
> Para: sqlwin@virtualand.net
> cc:
> Assunto: Re: [sqlwin] Controle de Qrp
>
>
> Eu faço parecido aqui, a diferença é que eu não uso a comparação do iparam
> igual
> ao pagefooter no reportfetchNext.
>
>
> Citando Jose Carlos de Godoi e Silva <[EMAIL PROTECTED]>:
>
> > Boa tarde Centuriões!
> >
> > Tenho um relatório (qrp) que, mesmo após o fim dos dados, ainda imprime
> uma
> > última página apenas com o cabeçalho.
> > A forma que utilizo para determinar o fim do mesmo é tratando a mensagem
> > SAM_ReportNotify.
> > Quando lParam é igual a RPT_BeforePageFooter, após terminarem os dados,
> em
> > SAM_ReportFetchNext faço Return FALSE. Mesmo assim ele ainda imprime uma
> > nova página, sem dados.
> > Haveria um comando para terminar o relatório incondicionalmente?
> > Grato,
> >
> > Godoi.
> >
> >
_________________________________________________________________________
> > OBSERVAÇÃO:
> > A ITAIPU esclarece que, por força de seu Estatuto, a presente
> > mensagem não implica a assunção de obrigações em seu nome.
> >
> >
> > ==============================================
> > Lista de Centura SQLWindows
> > Administrador : [EMAIL PROTECTED]
> > [ http://www.centuraexplorer.com ]
> > Para sair desta lista mande mensagem para:
> > [EMAIL PROTECTED] sem nada no Subject e
> > com o comando a seguir no corpo da msg:
> > "unsubscribe sqlwin" (sem as aspas)
> > ==============================================
> >
>
>
>
> ==============================================
> Lista de Centura SQLWindows
> Administrador : [EMAIL PROTECTED]
> [ http://www.centuraexplorer.com ]
> Para sair desta lista mande mensagem para:
> [EMAIL PROTECTED] sem nada no Subject e
> com o comando a seguir no corpo da msg:
> "unsubscribe sqlwin" (sem as aspas)
> ==============================================
>
>
>
> _________________________________________________________________________
> OBSERVAÇÃO:
> A ITAIPU esclarece que, por força de seu Estatuto, a presente
> mensagem não implica a assunção de obrigações em seu nome.
>
>
> ==============================================
> Lista de Centura SQLWindows
> Administrador : [EMAIL PROTECTED]
> [ http://www.centuraexplorer.com ]
> Para sair desta lista mande mensagem para:
> [EMAIL PROTECTED] sem nada no Subject e
> com o comando a seguir no corpo da msg:
> "unsubscribe sqlwin" (sem as aspas)
> ==============================================
>
==============================================
Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para:
[EMAIL PROTECTED] sem nada no Subject e
com o comando a seguir no corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
==============================================
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.6.0 - Release Date: 02/03/2005
==============================================
Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para:
[EMAIL PROTECTED] sem nada no Subject e
com o comando a seguir no corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
==============================================
