Relatório Click

#1

Boa tarde,
estou tentando filtrar dados para um relatório e não estou conseguindo, criei uma tela com dois objetos setPoint e um botão.
sendo que esse botão tem que imprimir um relatório de acordo com os setPoints adicionado (datainicial, datafinal)

toda vez que mando imprimir aparece uma mensagem de erro.

elipse
elipse.png1152×648 34.9 KB

estou enviando os scripts e a mensagem de erro que aparece, se alguém puder me ajudar eu agradeço,

#2

Caro @Tiago1,

Sugiro refazer as linhas 5 e 6 com o auxilio do AppBrowser.
Me parece que a sintaxe não esta de acordo com o esperado.
Outro detalhe fica para a função SetVariableValue, que recebe os parâmetros sem os parenteses.
Exemplo:

Screen.Item(“Consulta1”).SetVariableValue “CB2inicial”, DataIni
Screen.Item(“Consulta1”).SetVariableValue “CB2final”, DataFim

Teste isto e me avise.
Att.
Link

#3

Uns dos erros é descrito no comentário acima! Esqueceu dos parenteses.

Você colocou assim:
Screen.Item “Consulta1”
e o correto é:
Screen.Item (“Consulta1”)

Recomendo sempre usar o AppBrowser.
Para que o botão venha imprimir os valores setados, o mesmo filtro na consulta da tela, tem que colocar no relatório.

NA TELA
Sub spDataInicial_Click()
if Application.ShowDatePicker(DataHora, 0, 0) then
Value = DataHora
end if
End Sub

Sub spDataFinal_Click()
if Application.ShowDatePicker(DataHora, 0, 0) then
Value = DataHora
end if
End Sub

BOTÃO CONSULTAR
Sub CommandButton1_Click()
DataIni = Screen.Item(“spDataInicial”).Value
DataFim = Screen.Item(“spDataFinal”).Value

Set consulta = Screen.Item("E3Browser1").Item("Consulta1")

consulta.SetVariableValue "DataInicial", DataIni
consulta.SetVariableValue "DataFinal", DataFim

End Sub

NA CONSULTA DA TELA E DO RELATÓRIO

Capturar
Capturar.JPG1057×133 25.1 KB

image

No meu caso, pedir para exportar!

Sub CommandButton2_Click()

  'FILTRANDO RELATORIO PARA EXPORTAR
  DataIni = Screen.Item("spDataInicial").Value
  DataFim = Screen.Item("spDataFinal").Value

  Set Report = Application.LoadReport("RelatorioHistorico")
  Report.Item("Consulta1").SetVariableValue "DataInicial", DataIni
  Report.Item("Consulta1").SetVariableValue "DataFinal", DataFim


  'ESCOLHENDO QUAL ARQUIVO E SALVANDO
  	Select case Application.SelectMenu("PDF|Excel|HTML|Texto|RTF|TIFF|Texto(CSV)")
		
		Case 1
			If Application.ShowFilePicker(False, NomeArquivo, "PDF", 128, "Arquivos PDF |*.pdf|") Then
  			Report.Export "PDF", NomeArquivo
  			MsgBox "Exportado para o formato PDF!"
  		End If
		
		Case 2
  			If Application.ShowFilePicker(False, NomeArquivo, "Excel", 128, "Arquivos Excel |*.xls|") Then
  			Report.Export "Excel", NomeArquivo
  			MsgBox "Exportado para o formato XLS!"
  		End If
  			
		
		Case 3
  			If Application.ShowFilePicker(False, NomeArquivo, "HTML", 128, "Arquivos HTML |*.html|") Then
  			Report.Export "HTML", NomeArquivo
  			MsgBox "Exportado para o formato HTML!"
  		End If	
		
		Case 4
  			If Application.ShowFilePicker(False, NomeArquivo, "Text", 128, "Arquivos Text |*.txt|") Then
  			Report.Export "Text", NomeArquivo
  			MsgBox "Exportado para o formato Texto!"
  		End If
		
		Case 5
  			If Application.ShowFilePicker(False, NomeArquivo, "RTF", 128, "Arquivos RTF |*.rtf|") Then
  			Report.Export "RTF", NomeArquivo
  			MsgBox "Exportado para o formato RTF!"
  		End If
		
		Case 6
  			If Application.ShowFilePicker(False, NomeArquivo, "TIFF", 128, "Arquivos TIFF |*.tiff|") Then
  			Report.Export "TIFF", NomeArquivo
  			MsgBox "Exportado para o formato TIFF!"
  		End If
		
		Case 7
  			If Application.ShowFilePicker(False, NomeArquivo, "CSV", 128, "Arquivos CSV |*.csv|") Then
  			Set reportFilter = report.GetExportFilter("TEXT")	
  			reportFilter.FileName =	NomeArquivo
  			reportFilter.TextDelimiter = ","
  				report.Export reportFilter
  				MsgBox "Exportado para o formato CSV!"				
  		End If
  			    			
  	End Select

End Sub

#4

muito obrigado.

@Milsonrss agora está aparecendo uma mensagem de erro
(Erro na linha 4: 'Chamada de procedimento ou argumento invalido

Sem%20t%C3%ADtulo
Sem título.png1152×648 25.7 KB

consegue me ajudar ?

#5

Caro @Tiago1,

Verifique onde se encontra a sua consulta, pois no primeiro post você estava indicando uma consulta no relatório e no ultimo uma consulta em um E3Browser.

image

image

Att.
Link

#6

ela está no relatorio1

#7

eu mudei agora porém continua dando o mesmo erro

#8

Caro @Tiago1,

Sugiro seguir o exercício do capitulo Filtros na Consulta do Tutorial do E3 para desenvolvedores. O mesmo explica passo a passo como fazer o que você deseja.
Caminho do tutorial: C:\Program Files (x86)\Elipse Software\Elipse E3\Help\e3tutorial_developer_ptb.chm

Caso o problema persista, pode me enviar a sua aplicação para analise.
Meu email: link@elipse.com.br

Att.
Link