Ir para conteúdo
Fórum Script Brasil
  • 0

Rotina Para Imprimir Datas No Crystal Reports


Danilo Faciroli

Pergunta

3 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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??

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...