|
(O texto esta sem acentuacao propositadamente, devido a diversidade de Ger.
de e-mail�s)
Ola meu amigo, ah principio parece um pouco complicado montar um relatorio, vou ti dar umas dicas rapidas so para abrir a sua mente para iniciar com relatorio. Parece que a turma esta timida para mandar um relatorio pra voce. Voce pode criar um relatorio apartir de uma Table Windows, colocar as op��es para impressao... tais como filtro, clausula Where
do comando Select, ou pode
criar uma vis�o para unir tabelas, veja Create View, eh
uma maneira bem simples
que gera relatorio, mas nao eh a mais usual.
Digamos que temos uma tabela com o nome Cidade, e por sua vez esta
tabela
tem os campos Codigo, Cidade e Estado, para facilitar todos sao String.
entao
crie o comando...
Select Codigo, Cidade, Estado From SysAdm.Cidade Order By Estado, Cidade
Into :sCodigo, :sCidade, :sEstado
A select acima solicita ao DB os dados e armazenara o resultado nas
variaveis
String em uma funcao ordenados por Estado e Cidade. Copie isso...
No Form
!!CB!! 173
On SAM_Click Set SqlDatabase = 'BancoDeDados' Call SqlConnect( hSql ) Call RelatorioCidade( ) !!CB!! 278
Function: RelatorioCidade Description: Returns Parameters Static Variables Local variables String: sCodigo String: sCidade String: sEstado Number: nRetornoRelatorio Number: nCopias Number: nPaginaInicio Number: nPaginaFim Actions Call SqlPrepareAndExecute( hSql, 'Select Codigo, Cidade, Estado From SysAdm.Cidade Order By Estado, Cidade Into :sCodigo, :sCidade, :sEstado' ) ! If NOT SalFileOpen( hFile, 'Cidade.qrp', OF_Exist ) Call SalReportCreate( 'Cidade.qrp', ':sCodigo, :sCidade, :sEstado', 'Codigo, Cidade, Estado', TRUE, nRetornoRelatorio ) ! Veja os erros possiveis que serao retornados, so vou dar um exemplo If nRetornoRelatorio = RPT_ErrPrtOpen ! Outros erros devem ser tratados Call SalMessageBox( 'Relatorio n�o pode ser aberto para esta impressora', 'Relatorio', MB_IconStop ) Return FALSE If nPaginaInicio < 1 OR nPaginaFim < nPaginaInicio Call SalReportPrint( hWndForm, 'Cidade.qrp', ':sCodigo, :sCidade, :sEstado', 'Codigo, Cidade, Estado', nCopias, RPT_PrintAll, 0, 0, nRetornoRelatorio ) Else Call SalReportPrint( hWndForm, 'Cidade.qrp', ':sCodigo, :sCidade, :sEstado', 'Codigo, Cidade, Estado', nCopias, RPT_PrintRange, nPaginaInicio, nPaginaFim, nRetornoRelatorio ) Return TRUE em Window Variables
!!CB!! 118
File Handle: hFile Number: nRetornoSQL Sql Handle: hSql Window Handle: hWndRelatorio No Message Actions
!!CB!! 173
On SAM_ReportStart Set hWndRelatorio = SalNumberToWindowHandle( wParam ) ! Edit o Cidade.qrp com o Report Builder, use Import Template e Save na manutencao inclua em Inputs Variables um String com nome Titulo Return SalReportSetStringVar( hWndRelatorio, 'Titulo', 'Listagem do Cadastro de Cidade' ) On SAM_ReportFetchNext Return SqlFetchNext( hSql, nRetornoSQL ) On SAM_ReportNotify Set hWndRelatorio = SalNumberToWindowHandle( wParam ) Return SalReportSetStringVar( hWndRelatorio, 'Titulo', 'Listagem do Cadastro de Cidade' ) Henrique Bernardes
*********** REPLY SEPARATOR ***********
On 02/03/2004 at 16:35 Luis Henrique W de Matos Weirich wrote: >Ola. >Sera que alguem possui material sobre Relatorios no Report Bilder??? >Estou tendo dificuldades! >Obrigado! >_________________________________________________________________________ >Advert�ncia: >Esta mensagem n�o implica a assun��o de obriga��es em nome da Itaipu >Binacional, cujo Estatuto disp�e, em seu Artigo 15: >A ITAIPU somente poder� assumir obriga��es ou constituir procuradores >mediante a assinatura conjunta dos dois Diretores Gerais. >(D.O.U. de 20.02.86, p�gs. 2073/6) > > > > > >============================================== >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) >============================================== |
RelaTeste.app
Description: Binary data
