<< Clique para Mostrar o Sumário >>   Relatórios de Seção

Como colocar a data e a hora atual em um Relatório de Seção do Elipse Power?

Existem pelo menos as seguintes alternativas:

•Coloque um objeto Texto na Seção Page Header e, no evento OnFormat desta Seção, escreva o seguinte script (Label1 é o nome do objeto Texto):

Report.Sections("PageHeader").Controls("Label1")._
  Caption = Now

 

•Crie um Tag Demo do tipo CurrentTime. No cabeçalho ou no rodapé do Relatório de Seção, deve-se inserir um objeto SetPoint e, na propriedade DataField, deve-se digitar o nome completo do Tag, como por exemplo "Dados.TagDemo1.Value". Configure o formato da data desejada. Para isto, clique com o botão direito do mouse no objeto e ajuste as propriedades, ou então digite diretamente o formato na propriedade OutputFormat, na Lista de Propriedades. Um exemplo de formato de data é "dd/MM/yyyy hh:mm:ss".

 

Tenho um Relatório de Seção que mostra o resultado de uma Consulta que possui um filtro por data. Quando este Relatório de Seção é gerado, a Consulta não retorna os valores configurados via script para estas variáveis. Como solucionar este problema?

Verifique, no script que configura ou acessa este Relatório de Seção, se após os valores para as variáveis da Consulta terem sido configurados não foi acionado o método LoadReport, já que este método carrega um Relatório de Seção com as configurações realizadas no Elipse Power Studio. Utilize somente uma vez o método LoadReport no script, carregando um Relatório de Seção para uma variável, através da declaração Set.

 

Como executar corretamente um Relatório de Seção que utiliza o método CopyConfig para copiar para si as configurações de um E3Chart em Tela?

O método CopyConfig não copia os valores de variáveis de consulta, e é necessário executar este procedimento via script dentro do gráfico. As Penas configuradas em um E3Chart em Tela são do tipo Real.

 

Como criar um filtro por datas em um Relatório de Seção?

Crie uma Consulta SQL em um Relatório de Seção filtrando por data inicial e final. Na Tela onde se deseja gerar este Relatório de Seção, deve-se executar a Consulta SQL configurada passando os valores de data inicial e final. O script do Botão de Comando na Tela onde é gerado este Relatório de Seção, por exemplo, pode ser implementado conforme o script a seguir.

DataInicial = CDate(Screen.Item("TextoDataInicial").Value)
DataFinal = CDate(Screen.Item("TextoDataFinal").Value)
Set Report1 = Application.LoadReport("Report1")
Set Consulta = Report1.Item("Query1")
Consulta.SetVariableValue "DataInicial", (DataInicial)
Consulta.SetVariableValue "DataFinal", (DataFinal)
Report1.PrintPreview()

 

Como mostrar as datas utilizadas como filtro na Consulta na Seção Page Header de um Relatório de Seção?

Primeiro, adicione dois SetPoints na Seção Page Header, um para mostrar a data inicial e outro para a data final, e crie um script que passe os valores carregados nos SetPoints da Tela, e transferidos para a Consulta, para estes dois SetPoints. O script a seguir deve ser criado na Seção Page Header, no evento OnBeforePrint de um Relatório de Seção.

Set dados = Application.GetFrame().Screen
Report.Sections("PageHeader").Controls("Field5").Text = _
  dados.Item("TextoDataInicial").Value
Report.Sections("PageHeader").Controls("Field6").Text = _
  dados.Item("TextoDataFinal").Value

 

Depois, associe dois Tags Internos aos SetPoints da Tela onde são especificadas as datas. Associe estes Tags aos SetPoints neste Relatório de Seção.

 

Como imprimo dois Relatórios de Seção em impressoras diferentes?

Crie o script a seguir no evento OnReportStart de um Relatório de Seção.

Sub OnReportStart
  Report.Printer.DeviceName = "Nome da Impressora"
End Sub

 

Como utilizo o evento de script OnError para mostrar uma mensagem de erro quando falha a impressão de um Relatório de Seção?

O evento OnError de um Relatório de Seção não permite a execução de scripts, servindo somente para uso interno. Isto significa que não é possível alterar a mensagem de erro, nem executar algum outro procedimento a partir deste evento.