Intervalo de Datas no Crystal reports

[Danilo Faciroli]

oLA Galera Boa noite!!!

Tenho um sistema em visual basic 6.0 e uso o crystal reports 4.6

Eu preciso de Fazer um Relatorio onde eu informo na interface do vb Data inicial - Data final - e Clinica, e assim o crytsal me traga as informações que eu solicitar.....

Por Favor Me ajudem é urgente já pesquisei e muito mas não encontrei nada

Antecipadamente meus agradecimentos

[kuroi]

veja: http://scriptbrasil.com.br/forum/index.php?showtopic=107800

[Danilo Faciroli]

veja: http://scriptbrasil.com.br/forum/index.php?showtopic=107800

AMIGAO

DESCULPE A MINHA BURRICE CARA !!!!

MAS não FICOU MUITO CLARO

vEJA BEM EU TENHO 3 CAMPOS EM UM FORMULARIO: DUAS MASKEDIT BOX E UMA COMBOOX

EU PRECISO DE INFORMAR OS PARAMETROS NESSES CAMPOS E CHAMAR O REL. NO CRYSTAL - ESTOU USANDO O SEGUINTE CODIGO MAS TA DANDO "INVALID FORMULA NAME"

Private Sub Command1_Click(Index As Integer)
  
  Select Case Index
    
    Case 0 'imprimir
    '--------------------------------------------------------------------------------------------
    Dim criterio1 As String
    Dim criterio2 As String
    Dim anoi As Integer
    Dim mesi As Integer
    Dim diai As Integer
    Dim anof As Integer
    Dim mesf As Integer
    Dim diaf As Integer
    Dim Data1 As String
    Dim data2 As String
    Dim dataok As String
    Dim selecao As String
    
    criterio1 = ""
    criterio2 = ""
    anoi = Year(maskini)
    mesi = Month(maskini)
    diai = Day(maskini)
    anof = Year(maskfim)
    mesf = Month(maskfim)
    diaf = Day(maskfim)
    Data1 = diai & "/" & mesi & "/" & anoi
    data2 = diaf & "/" & mesf & "/" & anof
        
    MDIForm1.cr1.DataFiles(0) = App.Path & "\aval.mdb"
    dataok = Data1 & " - " & data2
    
    criterio1 = "date(" & anoi & "," & mesi & "," & diai & ")"
    criterio2 = "date(" & anof & "," & mesf & "," & diaf & ")"
   
    MDIForm1.cr1.WindowState = 2
    MDIForm1.cr1.WindowControlBox = True
    
    If List1.ListIndex = 0 Then
       MDIForm1.cr1.ReportFileName = App.Path & "\controle.rpt"
       MDIForm1.cr1.Formulas(0) = "periodo= " & Chr(34) & dataok & Chr(34)
       selecao = "{controle.acolhimento}>=" & criterio1 & " AND " & "{controle.acolhimento}<=" & criterio2
    ElseIf List1.ListIndex = 1 Then
       MDIForm1.cr1.ReportFileName = App.Path & "\opera.rpt"
       MDIForm1.cr1.Formulas(0) = "periodo= " & Chr(34) & dataok & Chr(34)
       selecao = "{controle.acolhimento}>=" & criterio1 & " AND " & "{controle.acolhimento}<=" & criterio2
    ElseIf List1.ListIndex = 2 Then
       MDIForm1.cr1.ReportFileName = App.Path & "\vencto.rpt"
       selecao = "{controle.vencimento}>=" & criterio1 & " AND " & "{controle.vencimento}<=" & criterio2
    End If
    
    '--------------------------------------------------------------------------------------------
    If cbocliente.ListIndex <> -1 Then
      selecao = selecao & " AND {controle.codigo_cliente}=" & cbocliente.ItemData(cbocliente.ListIndex)
    End If
    '--------------------------------------------------------------------------------------------
    'imprime relatorio definindo a selecao
    MDIForm1.cr1.SelectionFormula = selecao
    
    If Opttela.Value Then
      MDIForm1.cr1.Action = 1
    Else
      MDIForm1.cr1.Action = 1
    End If
    MDIForm1.cr1.SelectionFormula = ""
    MDIForm1.cr1.Formulas(0) = ""
    '--------------------------------------------------------------------------------------------
    Case 1 'sair
       Unload Me
  End Select
End Sub
Private Sub Form_Load()
   Dim ano As Integer
      
   ano = Year(Now)
  
   maskini = "01/01/" & ano
   maskfim = "31/12/" & ano
   
   Me.Width = 7890
   Me.Height = 3705
   
   List1.AddItem "Lançamentos de Caixa"
   List1.AddItem "relat em construção..."
   List1.AddItem "Posição de Caixas Lançados"
   
   List1.ListIndex = 0
   

End Sub
Private Sub Form_Resize()
   Me.Width = 7890
   Me.Height = 3705
End Sub

Private Sub List1_Click()
    If List1.ListIndex = 3 Then
      maskfim = Format((CDate(maskini) + 10), "dd/mm/yyyy")
    End If
End Sub
Private Sub maskfim_GotFocus()
  maskfim.SelStart = 0
  maskfim.SelLength = Len(maskini.Text)
End Sub
Private Sub maskini_GotFocus()
  maskini.SelStart = 0
  maskini.SelLength = Len(maskini.Text)
End Sub

SE PUDER ME AJUDAR DE NOVO TE AGRADECO

Editado Dezembro 27, 2007 por kuroi
Adicionar tag CODE

[kuroi]

então em vez de

MDIForm1.cr1.Formulas(0) = "periodo= " & Chr(34) & dataok & Chr(34)
       selecao = "{controle.acolhimento}>=" & criterio1 & " AND " & "{controle.acolhimento}<=" & criterio2[/code]

por exemplo, tenta por:
[code]MDIForm1.cr1.ReplaceSelectionFormula "periodo= " & Chr(34) & dataok & Chr(34)
       selecao = "{controle.acolhimento}>=" & criterio1 & " AND " & "{controle.acolhimento}<=" & criterio2

outra coisa, as datas na formula tem q ficar no formato #YYYY, MM, DD#

Editado Dezembro 27, 2007 por kuroi