Pessoal, eu tenho um aplicativo rodando, e preciso emitir um relatório de uma consulta feita pelo usuário, mas não sei como fazer isto.
Ex:
o usuário faz uma consulta no estoque como por exemplo, digita uma data inicial tipo 01/01/2007 e uma data final 01/02/2007 e o aplicativo traz para o usuário todos os itens que foram cadastrados entre estas datas, até ai tudo bem, o aplicativo esta fazendo e mostrando em uma grid, mas eu queria gerar um relatório desta consulta no Crystal Report, estou utilizando a versão 8.5, mas eu não sei como faço para jogar estes dados no Crystal, eu sei que tenho que criar uma formula no crystal mas nem sei como começar, se alguem puder me ajudar me enviando um cod de exemplo ou um tutorial que fale sobre crystal com vb6.

 

Obrigado!

Olá. Segue um exemplo. Vê se te ajuda, amigo....

 

um abraço.

 

Marcio

 

 

Private Sub Cmd_Imprimir_Click()
On Error GoTo trataerro
Dim crystalnome As String

   
If Msk_Data_ini = "  /  /    " And Msk_Data_fim <> "  /  /    " Then
    MsgBox "Data inicio deve ser preenchida !", vbCritical, "A L E R T A !"
    Msk_Data_ini.SetFocus
    Exit Sub
ElseIf Msk_Data_fim = "  /  /    " And Msk_Data_ini <> "  /  /    " Then
    MsgBox "Data fim deve ser preenchida !", vbCritical, "A L E R T A !"
    Msk_Data_fim.SetFocus
    Exit Sub
ElseIf Msk_Data_ini = "  /  /    " And Msk_Data_fim = "  /  /    " Then
    MsgBox "Datas inicio e fim, devem ser preenchidas !", vbCritical, "A L E R T A !"
    Msk_Data_ini.SetFocus
    Exit Sub
Else
   
    data_i = Format(Txt_dt_ini, "dd/mm/yyyy")
    data_f = Format(Txt_dt_fim, "dd/mm/yyyy")

    Dim dt1, dt2 As String
    dt1 = Format(Msk_Data_ini, "dd/mm/yyyy")
    dt2 = Format(Msk_Data_fim, "dd/mm/yyyy")
       
        crystalnome = "el_nf.rpt"
        rpt_nf.ReportFileName = App.Path & crystalnome
        rpt_nf.Destination = crptToWindow
        rpt_nf.Formulas(0) = "dt_ini = 'Período de " & dt1 & " até " & dt2 & "'"
        rpt_nf.Action = 1
       
       
End If

trataerro:
  Select Case Err
    Case 20533
      rpt_nf.DataFiles(0) = App.Path & "sistema.mdb"
      rpt_nf.Action = 1
    Case 20500
      rpt_nf.DataFiles(0) = App.Path & "sistema.mdb"
      rpt_nf.Action = 1
    Case 0

    Case (Err)
        MsgBox "Informe o erro ao Analista de Sistemas ( Error " & Err & " !)"
       
    End Select
End Sub

Olá,

 

Aproveitando o gancho, onde Eu posso baixar o Crystal Reports para usar com a versão 6.0 do Visual basic. Queria uma versão gratuita ou gratuita para teste, alguém sabe algum link?

 

Agradeço a ajuda!

[]s,

alguem tem o crystal 8.5 para me mandar???  naum encontro em lugar nenhum ele...

 

um abraço

Olá pirata meu amigo no seu código voce esta apenas enviando o valor das datas para uma formula existente no relatorio, ou seja, não esta fazendo seleção nenhuma...

para que o crystal faça a seleção é necessário mandar a seleção através da propriedade SELECTIONFORMULA do crystal

ex:

objCrytal.SelectionFormula = "{TAbela.data} >= date(2007,11,08) and {tabela.data} <= date(2007,11,09)

 

abraços

 

 

Na natureza nada se cria...

tudo de compila!!!