Danilo Faciroli

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

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

Cara me desculpe mas não consegui sera que podia me ajudar mais uma vez Antecipadamente meus agradecimentos

OLA PESSOAL!! DESENVOLVI UM RELATORIO NO DATA REPORT E NESTE RELATORIO EU TENHO DOIS GRANDES TOTAIS: TOTAL GERAL DE VENDA TOTAL GERAL DE CUSTO ------------ EU PRECISO CRIAR MAIS UMA LINHA NO DATA REPORT QUE ME MOSTRE: TOTAL LIQUIDO = (TOTAL DA VENDA) - (TOTAL DE CUSTO) SERA QUE O DATA REPORT FAZ ISTO---- SE PUDER ME AJUDAR EU AGRADEÇO ANTECIPADAMENTE MEUS AGRADECIMENTOS :o

Ola Pessoal estou desesperado : preciso de um relatorio onde eu informo o nome da minha clinica, e um intervalo de datas ex: Nome da Clinica: SAUDE SOCIAL PERIODO: 01/01/2007 ATE 31/01/2007 estou usando o seguinte codigo mas esta dando "error in formula", e tabem estes codigos não esta o nome da clinica se alguém puder corrigir este codigo para e imcrementa- lo para puxar o nome da minha clinica tambem, estou disposto ate a pagar $ mas eu preciso urgente desse relatorio, Dim DataInicio, DataFinal As String If mskData1 = "" Then MsgBox ("Informe a data incial no formato yyyy/mm/dd ") mskDataInicio.SetFocus End If If mskData2 = "" Then MsgBox ("Informe a data final no formato dd/mm/yyyy ") mskDataFinal.SetFocus Exit Sub End If Screen.MousePointer = vbHourglass DataInicio = Format(mskData1, "yyyy,mm,dd") DataFinal = Format(mskData2, "yyyy,mm,dd") Dim rptData As String 'formula a ser usada rptData = "{Tabelaprodutos.DATA_COMPRA}" Dim rptSelecao As String rptSelecao = rptData & " in Date(" & Data1 & ") to Date (" & Data2 & ")" 'rptSelecao = "{Tabelaprodutos.DATA_COMPRA}>=" & DataInicio & " AND " & "{Tabelaprodutos.DATA_COMPRA}<=" & DataFinal 'Imprime o relatorio CrystalReport1.ReportFileName = App.Path & "\pesquisa.rpt" 'Report1.Connect = ";PWD=pwd;" CrystalReport1.DataFiles(0) = App.Path & "\sistmarcelo.mdb" CrystalReport1.WindowTitle = "Vendas por datas" CrystalReport1.SelectionFormula = rptSelecao CrystalReport1.WindowState = crptMaximized CrystalReport1.Action = 1 Screen.MousePointer = vbDefault End Sub antecipadamente meus agradecimentos.

Ola Pessoal!!! Preciso de um relatorio onde eu vou informar dois periodos de datas, alguém pode me ajudar Periodo: Ex: de 01/01/2000 a 31/12/2007 antecipadamente meus agradecimentos

então É UM CAMPO SO ONDE NO VB ESTA UM UM COMBOBOX, DAI EU PRECISO FAZER O CRYSTAL LER O QUE FOR OFTAMOLOGIA ELE ME RESPONDE A QUANTIDADE DE OFTAMOLOGIA E ASSIM POR DIANTE, ESTOU USANDO O ACCESS

Ola Pessoal!!!!! Tenho um relatorio no crystal reports onde me mostra todos as especialidades medicas da minha clinica, eu preciso de uma formula que me mostra a quantidade de especialidade de oftamologia, de ginecologia etc, precisa de ser em um mesmo relatorio.... Ex: tenho 100 registros 60 é de Ofatamologia 40 é de Ginecologia se puderem me ajudar!!!!! antecipadamente meus agradecimentos

A sim perfeito.... o nome do medico esta na mesma tabela

OLA PESSOAL TUDO BELE!!!! Eu tenho um formulario, nesse formulario eu tenho Periodo1, Periodo2, Nome do Cliente, e Nome do Medico e um DBGRID, eu preciso que ao informar os dados nesses campos seja exibido a resposta nesse dbgrid. Estou usando esta instrucao: Dim Periodo1 As String Dim Periodo2 As String Periodo1 = Format(mskPeriodo1.Text, "mm/dd/yyyy") Periodo2 = Format(mskPeriodo2.Text, "mm/dd/yyyy") Data5.RecordSource = "Select * from tblCliente where data_trans between " & "#" & Periodo1 & "#" & " and " & "#" & Periodo2 & "#" & " and Nome like'" & txtNome.Text & "*'" Data5.Refresh ****COM ESTA INTRUÇÃO EU CONSIGO O PERIODO, EO NOME DO CLIENTE FICA FALATANDO APENAS O NOME DO MEDICO ANTECIPADAMENTE MEUS AGRADECIMENTOS

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

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

O amigao valeu cara você me ajudou d+++++++++++++++ não sei como lhe agradecer valeu mesmo

Ok eu já programei as check box que se selecionada, o campo fica invisivel, so que mesmo assim ele sai no relatorio???? O que precisa de ser feito!!!!!!! Antecipadamente meus Agradecimentos

Ola Galera eu fiz uma tela de Cadastro de Clientes e estou usando o Printer.Print para imprimir os dados que estao na tela, eu coloquei um check box em cada campo e queria que ao clicar nesse check box eu quero que desebilite o campo para que a informação do campo não sai no meu relatorio.... Antecipadamente meu Agradecimentos

IRMAO DO CÉU!!!!!!!!! valeu CARA você não SABE COMO ME AJUDOU DEU CERTO CARA!!!!! FICO FELIZ EM TER PESSOAS NA NET COMO você AFIM DE AJUDAR OS OUTROS.... OBRIGADO MESMO não TENHO COMO LHE AGRADECER...... MUITO OBRIGADO

bOM.... No cadastro dos funcionarios eu coloquei um list box com a opcao DEMITO, dai no crystal eu quero que saia todos menos esse demitido

gALERA É O SEGUINTE EU PRECISO QUE EM UM RELATORIO QUE FIZ NO CRISTAL REPORTS SAI APAENAS OS MEUS FUNCIONARIOS QUE ESTAO REGISTRADOS E OE MEUS FUNCIONARIOS QUE são ESTAGIARIOS APENAS, OS QUE já FORAM DEMITIDOS EU não QUERO!!!!!! cOMO POSSO FAZER , AGRADEÇO D++++ AO AMIGO ACIMA já ME DEU UMAS BOAS IDEIAS MAS AINDA EU não CONSEGUI.... ANTECIPADAMENTE MEUS SINCEROS AGRADECIMENTOS

valeu pela ajuda mas não entendi muito bem.... sera que se não for te incomodar muito me passar um outro exemplo Muito Obrigado

ok Debora.... para organizar os campos isso você faz no crystal report, para isso inssira um novo relatorio no crystal e adcione os campos que você queira.... no vb para chamar esse relatorio, é so você digitar:::: Private Sub mnuGeral_Click() On Error GoTo Imp_Error 'cr1.DataFiles(0) = App.Path & "\sistmarcelo.mdb" cr1.DataFiles(0) = App.Path & "\sistmarcelo.mdb" cr1.ReportFileName = App.Path & "\salario_obs.rpt" cr1.Destination = crptToWindow cr1.Action = 1 Imp_Error: If Err Then MsgBox Err.Description, vbCritical, "Atenção" Exit Sub End If

Ola segue o codigo que você precisa Private Sub mnuGeral_Click() On Error GoTo Imp_Error 'cr1.DataFiles(0) = App.Path & "\sistmarcelo.mdb" cr1.DataFiles(0) = App.Path & "\sistmarcelo.mdb" cr1.ReportFileName = App.Path & "\salario_obs.rpt" cr1.Destination = crptToWindow cr1.Action = 1 Imp_Error: If Err Then MsgBox Err.Description, vbCritical, "Atenção" Exit Sub End If

Segue o codigo que você vai precisar Private Sub Command1_Click(Index As Integer) Private Sub mnuGeral_Click() On Error GoTo Imp_Error 'cr1.DataFiles(0) = App.Path & "\sistmarcelo.mdb" cr1.DataFiles(0) = App.Path & "\sistmarcelo.mdb" cr1.ReportFileName = App.Path & "\salario_obs.rpt" cr1.Destination = crptToWindow cr1.Action = 1 Imp_Error: If Err Then MsgBox Err.Description, vbCritical, "Atenção" Exit Sub End If

Ok, entendi sua pergunta, segu o codigo que uso para fazer a mesma coisa que você precisa espero que lhe ajude 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 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 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 "Extrato de Lancamentos em um período" 'List1.AddItem "Despesas Fixas em um período" 'List1.AddItem "Receitas Fixas em um período" List1.AddItem "Transações por período totalizadas" List1.ListIndex = 0 enche_combo cbotransacao, "tblcodtrans", "des_tran", "cod_tran" enche_combo cbocliente, "tblcli", "des_cli", "cod_cli" End Sub

Bom não entendi muito bem , mas segue os codigos que você ira usar para selecionar em list Box por ex: você Quer que saia tudo o que apenas um cliente comprou por exemplo, então você vai selecionar o nome dele em um list colocar um perido e segue o codigo abaixo: 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 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 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 "Extrato de Lancamentos em um período" 'List1.AddItem "Despesas Fixas em um período" 'List1.AddItem "Receitas Fixas em um período" List1.AddItem "Transações por período totalizadas" List1.ListIndex = 0 enche_combo cbotransacao, "tblcodtrans", "des_tran", "cod_tran" enche_combo cbocliente, "tblcli", "des_cli", "cod_cli" End Sub

Ola Galera desenvolvi um relatorio no crystal reports, mas eu preciso que nesse relatorio não saia meus funcionarios demitidos, sera que existe uma formula para colocar dentro do crystal se alguém puder me ajudar eu agradeço d++++++++++++++++++. Meu e mail é danilofaciroli@oticaprincipal.com.br