|
Oi colega,
aqui tem outra variante que da no mesmo. Vc ganha apenas uma linha no código 
On SAM_ReportFetchNext
...
Call SqlFetchNext( hSqlRelatorio,nRetorno )
If nRetorno=FETCH_EOF
Return FALSE
Return TRUE
Francisco Frank
-------Mensagem original-------
Data: 03/04/05 12:18:02
Assunto: 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
> E o que você usa?
> Consegue terminar na hora que acabam-se os dados ou o rep. ainda imprime
> uma ppágina indesejada?
>
>
>
>
>
>
>
>
>
> 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.
>
>
>
> > 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
> > Para sair desta lista mande mensagem para:
> > com o comando a seguir no corpo da msg:
> > "unsubscribe sqlwin" (sem as aspas)
> > ==============================================
> >
>
>
>
> ==============================================
> Lista de Centura SQLWindows
> Para sair desta lista mande mensagem para:
> 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
> Para sair desta lista mande mensagem para:
> com o comando a seguir no corpo da msg:
> "unsubscribe sqlwin" (sem as aspas)
> ==============================================
>
==============================================
Lista de Centura SQLWindows
Para sair desta lista mande mensagem para:
com o comando a seguir no corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
============================================== | 