Jump to content
Fórum Script Brasil

Danilo Faciroli

Membros
  • Posts

    25
  • Joined

  • Last visited

About Danilo Faciroli

Danilo Faciroli's Achievements

0

Reputation

  1. 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
  2. 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
  3. Cara me desculpe mas não consegui sera que podia me ajudar mais uma vez Antecipadamente meus agradecimentos
  4. 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
  5. 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.
  6. 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
  7. 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
  8. 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
  9. A sim perfeito.... o nome do medico esta na mesma tabela
  10. 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
  11. 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
  12. 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
  13. O amigao valeu cara você me ajudou d+++++++++++++++ não sei como lhe agradecer valeu mesmo
  14. 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
  15. 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
×
×
  • Create New...