Ir para conteúdo
Fórum Script Brasil

Marcelo Cavalcanti

Membros
  • Total de itens

    33
  • Registro em

  • Última visita

Tudo que Marcelo Cavalcanti postou

  1. COMO USAR O CURSOR COM ESSE SCRIPT???? PARA ELIMINAR OS DADOS REPETIDOS???? SE alguém PODER ME AJUDAR!!!! declare @manter int; declare @eliminar int; set @manter = 80591; set @eliminar = 202828; --- update vendas_pagDinheiro set clienteKey = @manter where clienteKey = @eliminar; update vendas_pagCheque set clienteKey = @manter where clienteKey = @eliminar; update vendas_pagCartao set clienteKey = @manter where clienteKey = @eliminar; update vendas_pagFuncionario set pessoaKey = @manter where pessoaKey = @eliminar; update vendas_pagOutros set pessoaKey = @manter where pessoaKey = @eliminar; update vendas.boletos set clienteKey = @manter where clienteKey = @eliminar; update vendas_orcamento set clienteKey = @manter where clienteKey = @eliminar; update vendas_orcamento set vendedorKey = @manter where vendedorKey = @eliminar; delete from clientes.lojasLiberadas where clienteKey = @eliminar delete from pessoa.funcionario where pessoaKey = @eliminar; delete from pessoa.biometria where pessoaKey = @eliminar delete from tbendereco where pessoaKey = @eliminar; delete from tbTelefone where pessoaKey = @eliminar; delete from cliente_dados where clienteKey = @eliminar; :wacko:
  2. Bom dia a todos. Como seria o INSERT INTO - ADO em uma tabela? Bem, os dados a serem gravados são os digitados nas Caixas de Texto da tela: Clientes por exemplo caixa de texto TxtCod TxtNome TxtEnde TxtFone tabela.campo cliente.CODI cliente.NOME cliente.ENDE cliente.FONE SERIA ASSIM???? INSERT INTO CLIENTE (CODI, NOME, ENDE, FONE) VALUES ( AQUI É QUE ENTRA A MINHA DÚVIDA ) Se houver a possibilidade de alguém me ajudar??? Ficarei super grato. Um grande abraço Marcelo
  3. Bom dia Kuroi. você poderia ver esse erro e se possível me orientar. Obrigado e um grande abraço Marcelo 'BOTAO NOVO Private Sub CmdNovo_Click() TxtCodigo = "" TxtNome = "" TxtEndereco = "" TxtTelefone = "" 'Vai Buscar o Próximo Número para o Codigo de Clientes If Len(Trim(ConexFireBird.Tag)) = 0 Then ' conexao.Open cn.ConnectionString = "Provider=ZStyle IBOLE Provider;Data Source=C:\Documents and Settings\user\Desktop\CONEXAO FireBird TESTANDO\CONEXAO.FDB;UID=sysdba;password=masterkey" sql = "select CODI from CLIENTES order by CODI" cn.Open Set rs = cn.Execute(sql) If rs.RecordCount <> 0 Then rs.MoveLast TxtCodigo = rs("CODI") + 1 rs.Close End If Else CmdSair.SetFocus End If End Sub 'GRAVA OS REGISTROS Private Sub CmdGravar_Click() cn.ConnectionString = "Provider=ZStyle IBOLE Provider;Data Source=C:\Documents and Settings\user\Desktop\CONEXAO FireBird TESTANDO\CONEXAO.FDB;UID=sysdba;password=masterkey" sql = "select * from CLIENTES" Set rs = cn.Execute(sql) rs.AddNew rs("CODI") = TxtCodigo rs("NOME") = Trim(TxtNome) rs("ENDE") = Trim(TxtEndereco) rs("FONE") = Trim(TxtTelefone) rs.Update rs.Close 'LIMPA AS CAIXAS DE TEXTO TxtCodigo = "" TxtNome = "" TxtEndereco = "" TxtTelefone = "" End Sub ACIONO O BOTAO NOVO E LEGAL VAI BUSCAR O ULTIMO CODIGO DO CLIENTE + 1, INSIRO REGISTROS E CLICO NO BOTAO GRAVAR E DAR ERRO DA LINHA DE CONEXAO DA PROCEDURE GRAVAR, O ERRO É O SEGUINTE: Run-Time error '3705' OPERAÇÃO NÃO PERMITIDA QUANDO O OBJETO ESTÁ ABERTO.
  4. Olá KUROI. Tudo em paz. Vou te mandar a conexao de duas formas: 1ª - Dá esse erro na linha do SET DB Run-time Error 3045 "NÃO FOI POSSÍVEL USAR C:\...\TESTEBANCO.FDB" O ARQUIVO JÁ ESTÁ EM USO Public Sub sConexao() conexao.Open ("DSN=FireBird;Driver=Firebird/InterBase® driver;Dbname=C:\Documents and Settings\user\Desktop\ConexaoDominio\TIRAR DUVIDA CONEXAO FIREBIRD\CONEXAO FIREBIRD LOCAL\bancoteste.FDB;CHARSET=WIN1252;USER ID=SYSDBA;PWD=masterkey;Client=C:\Arquivos de programas\Firebird\Firebird_2_1\bin\fbclient.dll;") Mydir = App.Path Set db = OpenDatabase(Mydir + "\bancoteste.fdb") Dst.Close End Sub 2ª - Dá o mesmo erro da conexão de cima (existe apenas 01(um) espaço entre "user e ID", mas se eu der 2 espacos o erro muda para esse e na linha de conexao: Run-time Error 2147467259(80004005) "Your user name and password are not difined. Ask your database administrator to set up a firebird login. Public Sub sConexao() conexao.Open ("Provider=IbOleDb.1;Location=127.0.0.1;Data Source=C:\Documents and S Settings\user\Desktop\ConexaoDominio\TIRAR DUVIDA CONEXAO FIREBIRD\CONEXAO FIREBIRD LOCAL\BANCOTESTE.FDB;User ID=SYSDBA;Password=masterkey;Extended Properties='sql Dialect=3;Character Set=ISO8859_1;Collate = PT_BR'") Mydir = App.Path Set db = OpenDatabase(Mydir + "\bancoteste.fdb") Dst.Close End Sub Mais um vez obrigado pela atenção. Marcelo
  5. Bom dia a todos. Eu resolvi este problema em parte. Consegui fazer a conexão de uma nova aplicação (exemplo simples, de cadastro de clientes) com butons GRAVAR E EXCLUIR, usando o access como banco local e remotamente. Deu tudo OK. Mas quando troco o banco para FIREBIRD. Dim adoCnn As New ADODB.Connection Public Sub sConexao() 'abre o BD de informação de caminho final do BD ' O BD onde informamos o caminho do DB tem que ficar na pasta sistema do micro local ' Set db = OpenDatabase("C:\sistema\teste.mdb") adoCnn.Open "Provider=IbOleDb.1;Location=192.168.0.34;Data Source=d:/ttimdb/dados/tti.FDB;User ID=SYSDBA;Password=masterkey;Extended Properties='sql Dialect=3;Character Set=WIN1252'" Set Dst = db.OpenRecordset("select * from path_d") xdrive = Dst("drive") Mydir = Trim(xdrive) Dst.Close 'seta o BD 'pega o diretório de operação do programa Set db = OpenDatabase(Mydir + "\Dados\conexao.fdb") End Sub Não sei o que está dando errado. Segue o código com banco access tudo ok. Dim db As Database Dim Mydir As String Private Sub CmdExcluir_Click() If Len(TxtCodigo) = 0 Then Exit Sub End If Call sConexao Set Dst = db.OpenRecordset("select * from Clientes where CODI like '" + TxtCodigo + "' order by CODI") If Dst.RecordCount <> 0 Then Dst.Delete End If Dst.Close TxtCodigo.Text = "" End Sub '========================================================================================= Private Sub CmdNovo_Click() TxtCodigo = "" TxtNome = "" TxtEndereco = "" TxtTelefone = "" 'Vai Buscar o Próximo Número para o Codigo de Clientes If Len(Trim(FrmClientes.Tag)) = 0 Then Call sConexao Set Dst = db.OpenRecordset("select CODI from CLIENTES order by CODI") If Dst.RecordCount <> 0 Then Dst.MoveLast TxtCodigo = Dst("CODI") + 1 End If Dst.Close Else CmdSair.SetFocus End If End Sub '========================================================================================= Private Sub CmdGravar_Click() 'VERIFICA OS CAMPOS OBRIGATÓRIOS If Len(Trim(TxtCodigo)) = 0 Then MsgBox "Código fo Cliente não foi Preenchido. Click no Botão NOVO!", 64, "Teste Conexão" TxtCodigo.SetFocus Exit Sub End If If Len(Trim(TxtNome)) = 0 Then MsgBox "Nome do Cliente não foi Preenchido !", 64, "Teste Conexão" TxtNome.SetFocus Exit Sub End If If Len(Trim(TxtEndereco)) = 0 Then MsgBox "Endereço do Cliente não foi Preenchido !", 64, "Teste Conexão" TxtEndereco.SetFocus Exit Sub End If If Len(Trim(TxtTelefone)) = 0 Then MsgBox "Telefone do Cliente não foi Preenchido !", 64, "Teste Conexão" TxtTelefone.SetFocus Exit Sub End If 'GRAVA OS REGISTROS Set Dst = db.OpenRecordset("select * from Clientes") Dst.AddNew Dst("CODI") = TxtCodigo Dst("NOME") = Trim(TxtNome) Dst("ENDE") = Trim(TxtEndereco) Dst("FONE") = Trim(TxtTelefone) Dst.Update Dst.Close 'LIMPA AS CAIXAS DE TEXTO TxtCodigo = "" TxtNome = "" TxtEndereco = "" TxtTelefone = "" End Sub '========================================================================================= Public Sub sConexao() 'abre o BD de informação de caminho final do BD ' O BD onde infrmamos o caminho do DB tem que ficar na pasta sistema do micro local Set db = OpenDatabase("C:\sistema\ttipt1.mdb") Set Dst = db.OpenRecordset("select * from path_d") xdrive = Dst("drive") Mydir = Trim(xdrive) Dst.Close 'seta o BD 'pega o diretório de operação do programa Set db = OpenDatabase(Mydir + "\Dados\conexao.mdb") End Sub '========================================================================================= Private Sub CmdSair_Click() Unload Me Close All End Sub
  6. Olá Gabriel. Gabriel, Eu 1º queria fazer uma conexão bem simples do VB6 com o ACCESS. E depois com o FireBird. Bem com o ACCESS eu fiz assim: Uma tela simples com 2 cx de text (codi e nome) e 2s butons NOVO e SAIR O código assim: Private Sub CmdNovo_Click() TxtCodi = "" TxtNome = "" 'Vai Buscar o Próximo Número para o Codigo Número de Ordens de Entrega 'If Len(Trim(FrmPrincipal.Tag)) = 0 Then Set DB = OpenDatabase(App.Path & "\teste.mdb", False, False) Set Dst = DB.OpenRecordset("select CODI from CLIENTES order by CODI") If Dst.RecordCount <> 0 Then Dst.MoveLast TxtCodi = Dst("CODI") + 1 ' End If Dst.Close TxtCodi.SetFocus ' Else Cmd_Sair.SetFocus End If End Sub Private Sub CmdSair_Click() Unload Me End Sub Fiz um módulo com a conexão para o access: Public DB As Database Sub conexao() On Error GoTo Main_Error 'abre o BD de informação de caminho final do BD ' O BD onde infrmamos o caminho do DB tem que ficar na pasta sistema do micro local Set DB = OpenDatabase("C:\Documents and Settings\user\Desktop\TesteConVB6FB\teste.mdb", False, False) Dst.Close End Sub E dá esse erro: Você pode me ajudar?? A onde eu estou errando?? O que está faltando??
  7. Bom dia Gabriel. valeu pela dica. Vou agora mesmo aplicar isso e se pintar alguma dúvida, eu posto. Valeu mesmo.
  8. :rolleyes: Bom dia a todos. Dessa vez a ajuda não foi possível. Mas depois de ficar com a nuca pegando fogo por vários dias, enfim consegui a conexao. Um grande agraço a todos. Marcelo Cavalcanti
  9. Bom dia a todos, sou novo em programação e ainda estou aprendendo no VB6, apanho muito, mais chego lá. Tenho uma aplicação em VB6 com Banco de Dados Access. Preciso usar também o FIREBIRD como outra opção de Banco de Dados. Como faço a conexão com o Firebird ????? e a opção de escolher o banco no VB6???? Alguém poderia me ajudar???? Agradeço antecipadamente Marcelo Cavalcanti
  10. Bom dia pessoal. Achei um "FULL CONVERT" , bem legal, mas é livre para teste por 30 dias. Depos tem que pagar. Se descobrirem algum totalmente FREE. Por favor postem. Um grande abraço
  11. Boa tarde Pessoal. Alguém sabe se existe um conversor de banco de dados .MDB(ACCESS) para .FDB(FIREBIRD) Agradeço antecipadamente Marcelo Cavalcanti
  12. Olá Jonathan, tudo bem??? Obrigado pela informação. Aproveitando o contato, eu vou te passar o que eu relamente preciso fazer, e se você poder me ajudar. Fico te devendo. É o seguinte: Eu tenho uma aplicação e o Banco de Dados(ACCESS) está na mesma pasta, funciona tudo direitinho. Só que quando eu coloco o Banco de Dados em outra pasta (no servidor por exemplo). Ele não reconhece, e já está explicado por você. Se eu não posso usar o App.Path , como faço agora????? Sub Main() On Error GoTo Main_Error 'abre o BD 'pega o diretório de operação do programa Mydir = App.Path 'seta o BD Set db = OpenDatabase(Mydir + "\Dados\Teste.mdb") Me deram uma ideia de criar um banco, fazer uma tabela na mesma pasta do sistema e nessa tabela eu digitaria o caminho o endereço e mudaria o caminho no programa. Deu um NÓ. Não sei nem por onde começar. você pode ma ajudar???
  13. Pessoal já resolvi Eu fiz assim: Eu criei uma tabela teste1.mdb em C:\sistema e coloquei o db no servidor lá na tabela teste1.mdb eu dou o endereço: por exemplo " t:" ou "c:\conta\fulando de tal" e deu certo. AÍ VAI O CÓDIGO, SE alguém PRECISAR. 'Abre o BD de informação de caminho final do BD ' Tem que ficar na pasta sistema do micro local Set db = OpenDatabase("C:\sistema\Teste1.mdb") Set Dst = db.OpenRecordset("select * from path_d") xdrive = Dst("drive") Mydir = Trim(xdrive) Dst.Close 'seta o BD 'pega o diretório de operação do programa Set db = OpenDatabase(Mydir + "\Dados\Teste.mdb") muito obrigado pessoal Um grande abraço
  14. Olá, Kuroi tudo bem??? Está salva no Banco de dados, mas como texto(o nome da imagem), e as imagens .jpg ficam em uma pasta (fotos). mas posso criar um novo campo para essas imagens(logomarcas) e inserir as fotos como objeto ole, se for o caso.
  15. Boa tarde a todos. Criei uma variável para receber o nome da empresa(cabeçalho) dos N relatórios que possam existir. Dessa forma mudo no programa só uma vez, o nome da empresa e tudo beleza Mas não sei fazer isso com imagem, no caso o LOGOTIPO da empresa. Vou exemplificar como faço com o logotipo. No Visual Basic: Set db = OpenDatabase(Mydir + "\Dados\EMPRESA.mdb") licenciadox = "EMPRESA FULANO DE TAL" Principal.Report.Formulas(1) = "licenciado = '" & licenciadox & "'" NO CRYSTAL @licenciado Se alguém poder me ajudar...
  16. Kuroi desculpa não ter sido mais objetivo na pergunta com você. Mas agora deu certo. Muitissimo obrigado. você é 10. Que Deus te abençoe. Valeu mesmo. Desculpa te apurrinhar tanto, mas é que eu estou aprendendo como autodidata, pesquisando no google e pedindo e recebendo ajuda sua e do forum, que como já falei anteriormente é 10. Kuroi aproveitando a deixa, eu não sei se você viu que eu postei novamante a minha dúvida com relação ao relatório filtrado pela fórmula da soma do valor(sum of @valor_pagar) Eu não sei se isso é possível. Um grande abraço Marcelo Cavalcanti
  17. o q você fez exatamente?? se a sua duvida for como escrever o nome do campo na formula, seria assim: {@valor_pagar} Olá Kuroi, Eu vou tentar te explicar melhor. Lá no Crystal eu ordenei pela formula no Goup Header #1 = @valor_pagar Se fosse um campo de uma tabela no banco colocaria no selectionformula = "({NomedaTabela.NomedoCampo})" mais não sei fazer isso com fórmula, no caso @valor_pagar. Alguém poderia me ajudar???? 'Principal.Report.SelectionFormula = "{Forpag.vencimen} >= #" + Format(Txt_DtInic, "mm/dd/yyyy") + "# AND{Forpag.vencimen} <= #" + Format(Txt_DtFin, "mm/dd/yyyy") + "# AND ISNULL {FORPAG.DATAPG} AND {FORPAG.BAIXA} = 'N' " Lá no Crystal o relatório sai assim: 1 - Manuel R$10,00 total R$10,00 (sum of @valor_pagar) 2 - José R$23,00 R$23,00 total R$46,00 (sum of @valor_pagar) 3 - Maria R$37,00 Total R$37,00 (sum of @valor_pagar) ESTÁ SAINDO NA ORDEM DO VALOR UNITÁRIO Sai o Cliente: 1 (R$10,00) 2 (R$46,00) 3 (R$37,00) O R$46 é para sair no final e não no meio. O CORRETO ERA SAIR NA ORDEM DO VALOR TOTAL(sum of @valor_pagar) CLIENTE: 1 (R$10,00) 3 (R$37,00) 2 (R$46,00) NO CRYSTAL (group Header) - Eu ordenei pelo @valor_pagar.
  18. Boa tarde, pessoal. Qual seria a função que se usa para dividir uma data "dd/mm/aaaa" em "dd" "mm" "aaaa" Se alguém tiver um exemplo, agradeço caminho = App.Path + "\dados\teste.mdb" Principal.Report.DataFiles(0) = caminho Principal.Report.ReportFileName = App.Path & "\Rel\Contas_pag_Ordem_Venc.rpt" If OptCaP(0).Value = True And OptVencPag(0).Value = True And OptBaixa(0).Value = True And Optstatuscap(0).Value = True Then Principal.Report.WindowTitle = "Listagem de Contas a Pagar ordenado por vencimento" Principal.Report.SelectionFormula = "{Forpag.vencimen} >= #" + Format(Txt_DtInic, "mm/dd/yyyy") + "# and Forpag.vencimen} <= #" + Format(Txt_DtFin, "mm/dd/yyyy") + "# AND ISNULL ({FORPAG.DATAPG}) AND ({FORPAG.BAIXA}) = 'N' " 'Contas A PAGAR por data de VENCIMENTO." Principal.Report.Formulas(2) = "titulo = '" & "Contas a Pagar no período de " & Txt_DtInic & " até " & Txt_DtFin & "'" Principal.Report.Formulas(3) = "ordem = '" & "Classificado por Vencimento" & "'" Principal.Report.Destination = 0 Principal.Report.Action = 1 End If End Sub As datas (Inicial (TxtDtInic) e Final(TxtDtFinal) são TxtMaskEdBox e a Data (Dia) é um TxtBox Eu imprimo um relatório dentro do período (Data Inicial e Data Final, dos MaskEdBox) e dá tudo certo Só que quando selecionado o dia no txtbox tenho que imprimir todos os dias dentro do período do MaskEdBox. (Não fiz essa codificação ainda porque não sei como). MaskEdBox MaskEdBox TxtBox Ex: DtInic = 05/12/2003 - DtFinal = 13/03/2004 - TxtDia = 08 Se o TxtBox estiver Preenchido, tem que sair só o dia 08/12 , 08/01, 08/02 e 08/03. Portanto todos dia que estiver no txtbox, dentro do período. Eu fiz, mas não deu certo. Principal.Report.WindowTitle = "Listagem de Contas a Pagar ordenado por vencimento" If TxtDia.Text <> "" Then Principal.Report.SelectionFormula = "{Forpag.vencimen} >= #" + Format(Txt_DtInic, "mm/dd/yyyy") + "# and ({Forpag.vencimen}) <= #" + Format(Txt_DtFin, "mm/dd/yyyy") + "# And Day({Forpag.vencimen) = " & TxtDia.Text & " AND ISNULL({FORPAG.DATAPG}) AND ({FORPAG.BAIXA}) = 'N' " Else Principal.Report.SelectionFormula = "{Forpag.vencimen} >= #" + Format(Txt_DtInic, "mm/dd/yyyy") + "# and ({Forpag.vencimen}) <= #" + Format(Txt_DtFin, "mm/dd/yyyy") + "# AND ISNULL({FORPAG.DATAPG}) AND ({FORPAG.BAIXA}) = 'N' " Principal.Report.Formulas(2) = "titulo = '" & "Contas a Pagar no período de " & Txt_DtInic & " até " & Txt_DtFin & "'" End If Principal.Report.Formulas(3) = "ordem = '" & "Classificado por Vencimento" & "'" Principal.Report.Destination = 0 Principal.Report.Action = 1 Será que eu fiz errado.
  19. Kuroi, Muuuuuuuuito obrigado. Velho. você é D+. Deu certo, é isso mesmo. Valeu mesmo. Um grande abraço. Marcelo
  20. Oi Jonathan, tudo bem? Ocorreu sim algum erro, eu postei novamente, se poder da uma olhada, agradeco. Um abraco Marcelo
  21. :rolleyes: [i.m.g]http://img196.imageshack.us/img196/381/telah.jpg[/i.m.g] [i.m.g]http://yfrog.com/5gtelahj[/i.m.g] Private Sub cmdImprimirCaP_Click() 'Verifica o poder para a impressão If Poder <= 1 Then Principal.Report.WindowShowPrintBtn = False Principal.Report.WindowShowExportBtn = False Else Principal.Report.WindowShowPrintBtn = True Principal.Report.WindowShowExportBtn = True End If caminho = App.Path + "\dados\XYZ.mdb" Principal.Report.DataFiles(0) = caminho '**R E L A T Ó R I O S COM 1(UM)F O R N E C E D O R S E L E C I O N A D O** If chkGroupFornec.Value = vbChecked Then '1 - CONTAS A PAGAR POR VENCIMENTO, COM FORNECEDOR SELECIONADO. 'OK '0 - Contas a Pagar com Fornecedor Selecionado '0 - Vencimento '0 - Não Baixadas '0 - Total If CmbFornec.Text <> "" _ And OptCaP(0).Value = True _ And OptVencPag(0).Value = True _ And OptBaixa(0).Value = True _ And Optstatuscap(0).Value = True Then Principal.Report.ReportFileName = App.Path & "\Rel\Contas_pag_Fornec.rpt" Principal.Report.WindowTitle = "Listagem de Contas a Pagar. Agrupado por Fornecedor" Principal.Report.SelectionFormula = "{Forpag.vencimen} >= #" + Format(Txt_DtInic, "mm/dd/yyyy") + "# and {Forpag.vencimen} <= #" + Format(Txt_DtFin, "mm/dd/yyyy") + "# AND {fornec.nome}='" & CmbFornec & "' AND ISNULL({FORPAG.DATAPG}) AND ({FORPAG.BAIXA}) = 'N'" ' NÃO PAGAS Principal.Report.Formulas(0) = "filtro = '" & filtro & "'" Principal.Report.Formulas(1) = "licenciado = '" & licenciadox & "'" Principal.Report.Formulas(2) = "titulo = '" & "Contas a Pagar por Fornecedor no período de " & Txt_DtInic & " até " & Txt_DtFin & "'" Principal.Report.Formulas(3) = "ordem = '" & "Classificado por Vencimento" & "'" Principal.Report.Formulas(4) = "positivo = '" & "Total" & "'" Principal.Report.Destination = 0 Principal.Report.Action = 1 'OK '0 - Contas a Pagar com Fornecedor Selecionado '0 - Vencimento '0 - Não Baixadas '1 - Positivo ElseIf CmbFornec.Text <> "" _ And OptCaP(0).Value = True _ And OptVencPag(0).Value = True _ And OptBaixa(0).Value = True _ And Optstatuscap(1).Value = True Then Principal.Report.ReportFileName = App.Path & "\Rel\Contas_pag_Fornec.rpt" Principal.Report.WindowTitle = "Listagem de Contas a Pagar. Agrupado por Fornecedor" Principal.Report.SelectionFormula = "{Forpag.vencimen} >= #" + Format(Txt_DtInic, "mm/dd/yyyy") + "# and {Forpag.vencimen} <= #" + Format(Txt_DtFin, "mm/dd/yyyy") + "# AND {fornec.nome}='" & CmbFornec & "' AND ({FORPAG.BAIXA}) = 'N' AND ({FORPAG.NFISCAL}) >= 0 AND ISNULL({FORPAG.DATAPG})" 'Contas A PAGAR por data de VENCIMENTO." Principal.Report.Formulas(0) = "filtro = '" & filtro & "'" Principal.Report.Formulas(1) = "licenciado = '" & licenciadox & "'" Principal.Report.Formulas(2) = "titulo = '" & "Contas a Pagar por Fornecedor no período de " & Txt_DtInic & " até " & Txt_DtFin & "'" Principal.Report.Formulas(3) = "ordem = '" & "Classificado por Vencimento" & "'" Principal.Report.Formulas(4) = "positivo = '" & "Positivo" & "'" Principal.Report.Destination = 0 Principal.Report.Action = 1 'OK '0 - Contas a Pagar com Fornecedor Selecionado '0 - Vencimento '0 - Não Baixadas '2 - Negativo ( O procedimento acima acontece mais 42 vezes, ate o end if e else para continuar novamente) End If Else '********I N I C I O DO CONTAS A PAGAR POR PERÍODO********** ''1.0 - CONTAS A PAGAR POR VENCIMENTO, NÃO BAIXADAS. 'OK '0 - Contas a Pagar '0 - Vencimento '0 - Não Baixadas '0 - Total If OptCaP(0).Value = True And OptVencPag(0).Value = True And OptBaixa(0).Value = True And Optstatuscap(0).Value = True Then Principal.Report.ReportFileName = App.Path & "\Rel\Contas_Pag_Ordem_Venc.rpt" Principal.Report.WindowTitle = "Listagem de Contas a Pagar ordenado por vencimento" Principal.Report.SelectionFormula = "{Forpag.vencimen} >= #" + Format(Txt_DtInic, "mm/dd/yyyy") + "# and {Forpag.vencimen} <= #" + Format(Txt_DtFin, "mm/dd/yyyy") + "# AND ISNULL({FORPAG.DATAPG}) AND ({FORPAG.BAIXA}) = 'N' " 'Contas A PAGAR por data de VENCIMENTO." Principal.Report.Formulas(0) = "filtro = '" & filtro & "'" Principal.Report.Formulas(1) = "licenciado = '" & licenciadox & "'" Principal.Report.Formulas(2) = "titulo = '" & "Contas a Pagar no período de " & Txt_DtInic & " até " & Txt_DtFin & "'" Principal.Report.Formulas(3) = "ordem = '" & "Classificado por Vencimento" & "'" Principal.Report.Formulas(4) = "positivo = '" & "Total" & "'" Principal.Report.Destination = 0 Principal.Report.Action = 1 'OK '0 - Contas a Pagar '0 - Vencimento '0 - Não Baixadas '1 - Positivo ElseIf OptCaP(0).Value = True And OptVencPag(0).Value = True And OptBaixa(0).Value = True And Optstatuscap(1).Value = True Then Principal.Report.ReportFileName = App.Path & "\Rel\Contas_Pag_Ordem_Venc.rpt" Principal.Report.WindowTitle = "Listagem de Contas a Pagar ordenado por vencimento" Principal.Report.SelectionFormula = "{Forpag.vencimen} >= #" + Format(Txt_DtInic, "mm/dd/yyyy") + "# and {Forpag.vencimen} <= #" + Format(Txt_DtFin, "mm/dd/yyyy") + "# AND ({FORPAG.BAIXA}) = 'N' AND ({FORPAG.NFISCAL}) >= 0 AND ISNULL({FORPAG.DATAPG})" 'Contas A PAGAR por data de VENCIMENTO." Principal.Report.Formulas(0) = "filtro = '" & filtro & "'" Principal.Report.Formulas(1) = "licenciado = '" & licenciadox & "'" Principal.Report.Formulas(2) = "titulo = '" & "Contas a Pagar no período de " & Txt_DtInic & " até " & Txt_DtFin & "'" Principal.Report.Formulas(3) = "ordem = '" & "Classificado por Vencimento" & "'" Principal.Report.Formulas(4) = "positivo = '" & "Positivo" & "'" Principal.Report.Destination = 0 Principal.Report.Action = 1 ( O procedimento acima acontece mais 49 vezes, ate o fim abaixo.) 'OK '2 - Todas '0 - Nota Fiscal '0 - Negativo ElseIf OptCaP(2).Value = True And OptVencPag(2).Value = True And Optstatuscap(2).Value = True Then Principal.Report.ReportFileName = App.Path & "\Rel\Contas_Pag_NFiscal.rpt" Principal.Report.WindowTitle = "Listagem de Contas Pagas Ordenado por Nota Fiscal" Principal.Report.SelectionFormula = "{Forpag.Emissao} >= #" + Format(Txt_DtInic, "mm/dd/yyyy") + "# and {Forpag.Emissao} <= #" + Format(Txt_DtFin, "mm/dd/yyyy") + "# AND ({FORPAG.NFISCAL}) <=0" Principal.Report.Formulas(0) = "filtro = '" & filtro & "'" Principal.Report.Formulas(1) = "licenciado = '" & licenciadox & "'" Principal.Report.Formulas(2) = "titulo = '" & "Contas Pagas e a Pagar no período de " & Txt_DtInic & " até " & Txt_DtFin & "'" Principal.Report.Formulas(3) = "ordem = '" & "Classificado por Nota Fiscal" & "'" Principal.Report.Formulas(4) = "positivo = '" & "Negativo" & "'" Principal.Report.Destination = 0 Principal.Report.Action = 1 End If For I = 1 To 23 Principal.Report.Formulas(1) = "" Next End If End Sub
  22. Dá uma olhada no meu post aqui mesmo no crystal, esta como resolvido. eu acho que serve para você. Marcelo Cavalcanti
  23. Kuroi. Muito obrigado por me salvar em todas as vezes que preciso de socorro.

    Graças a Deus que existe o SCRIPTBRASIL e o KUROI.

×
×
  • Criar Novo...