Rotina Para Imprimir Datas No Crystal Reports

[Danilo Faciroli]

Ola galera preciso de uma rotina para imprimir todos os meu funcionarios que tem ferias a vencer dentro de um periodo informado, estou usando uma rotina que fiz mas não quer dar certo!!!!

alguém pode me ajudar

de mais obrigado

[kuroi]

que rotina é essa que você fez??

[Danilo Faciroli]

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

cr1.DataFiles(0) = App.Path & "\financas.mdb"

dataok = Data1 & " - " & Data2

criterio1 = "date(" & anoi & "," & mesi & "," & diai & ")"

criterio2 = "date(" & anof & "," & mesf & "," & diaf & ")"

cr1.WindowState = 2

cr1.WindowControlBox = True

cr1.ReportFileName = App.Path & "\extrato.rpt"

cr1.Formulas(0) = ""

cr1.Formulas(1) = "periodo= " & Chr(34) & dataok & Chr(34)

selecao = "{tbltrans.data_trans}>=" & criterio1 & " AND " & "{tbltrans.data_trans}<=" & criterio2

'--------------------------------------------------------------------------------------------

If cbocliente.ListIndex <> -1 Then

selecao = selecao & " AND {tbltrans.cod_cli}=" & cbocliente.ItemData(cbocliente.ListIndex)

End If

If cboconta.ListIndex <> -1 Then

selecao = selecao & " AND {tbltrans.cod_conta}=" & cboconta.ItemData(cboconta.ListIndex)

End If

If cbotransacao.ListIndex <> -1 Then

cr1.Formulas(0) = "transacao= " & Chr(34) & UCase(cbotransacao.Text) & Chr(34)

selecao = selecao & " AND {tbltrans.cod_trans}=" & cbotransacao.ItemData(cbotransacao.ListIndex)

End If

'--------------------------------------------------------------------------------------------

'imprime relatorio

If List1.ListIndex = 0 Then

'defina o criterio para filtragem no crystal reports

cr1.SelectionFormula = selecao

ElseIf List1.ListIndex = 1 Then

'relatorio para despesas fixas

'usamos formulas para inserir o cabecalho em tempo de execucao

cr1.Formulas(0) = "transacao=" & Chr(34) & "DESPESAS FIXAS" & Chr(34)

selecao = selecao & " AND {tbltrans.lancamento} < 0"

selecao = selecao & " AND {tbltrans.custofixo}=" & True

cr1.SelectionFormula = selecao

ElseIf List1.ListIndex = 2 Then

'relatorio para despesas fixas

'usamos formulas para inserir o cabecalho em tempo de execucao

cr1.Formulas(0) = "transacao=" & Chr(34) & "RECEITAS FIXAS" & Chr(34)

selecao = selecao & " AND {tbltrans.lancamento} > 0"

selecao = selecao & " AND {tbltrans.custofixo}=" & True

cr1.SelectionFormula = selecao

ElseIf List1.ListIndex = 3 Then

'relatorio ref. cruzada

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

dataok = Data1 & " - " & Data2

criterio1 = "date(" & anoi & "," & mesi & "," & diai & ")"

criterio2 = "date(" & anof & "," & mesf & "," & diaf & ")"

If cbocliente.ListIndex = -1 Then

MsgBox "Selecione um cliente"

Exit Sub

End If

If cboconta.ListIndex = -1 Then

MsgBox "Selecione uma conta"

End If

'note que usamos o chr(34) que igual a (") senao teriamos um erro

cr1.ReportFileName = App.Path & "\ref_cruz.rpt"

cr1.Formulas(0) = "nome= " & Chr(34) & cbocliente.Text & Chr(34)

cr1.Formulas(1) = "conta= " & Chr(34) & cboconta.Text & Chr(34)

cr1.Formulas(2) = "periodo= " & Chr(34) & dataok & Chr(34)

cr1.SelectionFormula = selecao

End If

'--------------------------------------------------------------------------------------------

If Opttela.Value Then

cr1.Destination = 0

Else

cr1.Destination = 1

End If

'conexao do crystal para não pedir a senha ao imprimir

cr1.Connect = "DSN=;UID=;PWD=" & password

cr1.password = password

cr1.Action = 1

cr1.SelectionFormula = ""

If Opttela.Value Or Optimpressora.Value Then

cr1.Formulas(0) = ""

cr1.Formulas(1) = ""

End If

'--------------------------------------------------------------------------------------------

Case 1 'sair

Unload Me

End Select

[kuroi]

por exemplo aqui:

cr1.Formulas(1) = "periodo= " & Chr(34) & dataok & Chr(34)
selecao = "{tbltrans.data_trans}>=" & criterio1 & " AND " & "{tbltrans.data_trans}<=" & criterio2[/code]
o que é periodo??
é alguma variavel já declarada na formual??
e por que não da certo?? ele volta algum erro o simplesmente não filtra??