Ir para conteúdo
Fórum Script Brasil

George Ferraz

Membros
  • Total de itens

    82
  • Registro em

  • Última visita

Tudo que George Ferraz postou

  1. Colega, muito legal, valeu. "Sábio o homem que inventou a cerveja" (Platão)
  2. Valeu, fico grato, por suas dicas. "Sábio o homem que inventou a cerveja" (Platão)
  3. Kuroi, vou fazer esse ajuste e depois falo pro cê, como ficou. "Sábio o homem que inventou a cerveja" (Platão)
  4. Fiz todos os testes com as outras possibilidades mais o campo fica “false”, Onde estou errando? Valeu colega, fico grato. "Sábio o homem que inventou a cerveja" (Platão)
  5. Kuroi dia, sim no MySQL todos os campos são do tipo "varchar", vou seguir sua instrução para convertelos do tipo data usando o CDate(). Entende a instrução de como ordenar os grupos e os campos usando o "Sort Record..." essa parte aqui não entendi direito... Valeu por suas dicas sempre bem vidas, obrigado. Vou fazer os ajustes e depois falo pro cê como ficou. "Sábio o homem que inventou a cerveja" (Platão)
  6. CODE {TbPed.Dta} in #2009,04,27# to #2009,04,27# CODE {tbped.Dta} >= #2009,04,27# And {tbped.Dta} <= #2009,04,27# Valeu colega. "Sábio o homem que inventou a cerveja" (Platão)
  7. Quando aos paremetros, vou pedir a você depois algumas dicas de como faço, porque sei que o bicho vai pega nessa etapa, mais vamos lá, quero aprender mais sobre o crystal. Valeu colega, vou testar e depois falo pro cê. "Sábio o homem que inventou a cerveja" (Platão)
  8. Kuroi dia, agora o bicho pegou ? não sei ? Agora o cusor depois do erro fica exatamente entre {tbped.Dta} in Date (26/04/2009)aqui to Date (26/04/2009 ). Agora funcionou com você, aí que o bicho pega mesmo. Valeu colega. "Sábio o homem que inventou a cerveja" (Platão)
  9. Flecha dia, corrigindo no crystal o formato é assim: (yyyy,mm,dd) e não assim: (aaaa,dd,mm). Mais eu tbém fiz dessa forma mais sem sucesso. Mais valeu colega por ter lido e respondido meu tópico. "Sábio o homem que inventou a cerveja" (Platão)
  10. Kuroi noite, olha só, eu fiz o teste direto no crystal e o erro é exatamente igual ao que aparece no vb. Messagem de erro:the remaining text does not appear to be part of the formula “o texto restante não parece ser parte da fórmula” Detalhe do erro: Ocorre na segunda expressão data ? "Sábio o homem que inventou a cerveja" (Platão)
  11. Kuroi, vou fazer esse teste sim, direto do crystal, pra verificar o que acontece, mais só vou fazer isso lá em casa e depois eu falo no que deu. Valeu colega. "Sábio o homem que inventou a cerveja" (Platão)
  12. Kuroi, eu fiz como instrução, mais dá um erro, ele não entende a continuação do texto, o que está escrito depois da table e field. Bom vou continuar a buscar uma solução, mais adianto, se você tiver alguma sugestão, e poder me orientar, fico grato, valeu. Private Sub lvBPed_Click() Unload Me Me.MousePointer = 11 CrystalRet.WindowTitle = "Historico De Venda Crédito" CrystalRet.CopiesToPrinter = 1 CrystalRet.Destination = crptToWindow CrystalRet.ReportFileName = "C:\SyCSQL\Reports\ReportSysCSQLVdasCreds.rpt" CrystalRet.SortFields(0) = "+{TbPed.IDPed}" CrystalRet.ReplaceSelectionFormula "{TbPed.Dta} in Date(2009,04,27) to Date(2009,04,27)" CrystalRet.Action = 1 Me.MousePointer = 0 End Sub "Sábio o homem que inventou a cerveja" (Platão)
  13. Kuroi, vou verificar em casa, pois agora estou no trabalho e aqui eu não tenho o projeto e crystal, vou tentar sem o sinal de igual e depois eu falo pro cê se deu certo. Private Sub lvBPed_Click() Unload Me Me.MousePointer = 11 CrystalRet.WindowTitle = "Historico De Venda Crédito" CrystalRet.CopiesToPrinter = 1 CrystalRet.Destination = crptToWindow CrystalRet.ReportFileName = "C:\SyCSQL\Reports\ReportSysCSQLVdasCreds.rpt" CrystalRet.SortFields(0) = "+{TbPed.IDPed}" CrystalRet.ReplaceSelectionFormula "{TbPed.Dta} in Date(2009,04,27) to Date(2009,04,27)" CrystalRet.Action = 1 Me.MousePointer = 0 End Sub Valeu colega. "Sábio o homem que inventou a cerveja" (Platão)
  14. Kuroi dia, eu fiz assim: Private Sub lvBPed_Click() Unload Me Me.MousePointer = 11 CrystalRet.WindowTitle = "Historico De Venda Crédito" CrystalRet.CopiesToPrinter = 1 CrystalRet.Destination = crptToWindow CrystalRet.ReportFileName = "C:\SyCSQL\Reports\ReportSysCSQLVdasCreds.rpt" CrystalRet.SortFields(0) = "+{TbPed.IDPed}" CrystalRet.ReplaceSelectionFormula= "{TbPed.Dta} in Date(2009,04,27) to Date(2009,04,27)" CrystalRet.Action = 1 Me.MousePointer = 0 End Sub "Sábio o homem que inventou a cerveja" (Platão)
  15. Esta é a forma como chamo meu report: Private Sub lvBPed_Click() Unload Me Me.MousePointer = 11 CrystalRet.WindowTitle = "Historico De Venda Crédito" CrystalRet.CopiesToPrinter = 1 CrystalRet.Destination = crptToWindow CrystalRet.ReportFileName = "C:\SyCSQL\Reports\ReportSysCSQLVdasCreds.rpt" CrystalRet.SortFields(0) = "+{TbPed.IDPed}" CrystalRet.Action = 1 Me.MousePointer = 0 End Sub Agradeço a força de todos, valeu. "Sábio o homem que inventou a cerveja" (Platão)
  16. Kuroi dia, é assim: Form 1 = "FrmClt" (Faço uma consulta nos registro através de um MsFlexGrid no "FrmGridClt") Form 2 = "FrmVdaCred" (aqui eu queria fazer outras alterações no RecordSet, que é o mesmo do "FrmClt" e que eu consulto no "FrmGridClt" através de um MsFlexGrid ). Não conseguir fazer dessa forma, daí eu mundei por não conseguir resolver da forma acima. Fiz assim: Eu faço a consulta no MsFlexGrid no "FrmGridClt" o usuário escolhei o cliente que está fazendo a venda e grava em outro RecordSet que eu chamo no "FrmVdaCred", que é o form que originalmente recebi os dados da venda a crédito. Ficou legal dessa forma, mais foi uma luta resolver isso, mais sou iniciante e isso é normal nossa que cabra cabeça. Valeu sua força meu amigo e a de todos do ScriptBrasil.
  17. Tarde Kuroi, olha na verdade, eu tenho um Form onde eu gravo os de cadastro como, nome, endereço e tenho alguns campos que eu vou fazer alterações depois da movimentação do cliente em outro Form, vou alterar os campos de limite de crédito, saldo e última compra. O problema é qual eu vou fazer essas alterações o RecordSet fica louco, tipo: ele pega os dados que acabei de alterar e joga no em outro registro, assim registro (2) do RecordSet vou alterar daí ele joga no registro (1) do RecordSet. Não conseguir fazer funcionar isso ainda já criei uma Variável tipo Integer "CodClt" mais não deu certo. Valeu a força meu amigo.
  18. Dia rapaziada, estou há alguns dias com esse problema, seguinte: estou alterando alguns registros em uma tabela até aí tudo bem, agora quando eu altero mais de um, os registros se atrapalham, nossa, não consigo vê onde estou errando, alguém pode me dizer onde ? Form 1 os primeiros dados básicos são gravados nesse form, nome, endereço etc...: Private Sub Form_Load() Set db = Workspaces(0).OpenDatabase(App.Path & "\BdSys\Estoque.mdb") Set rs = db.OpenRecordset("TbClt", dbOpenDynaset) With FrmGridClt.MsFlexGridClt rs.FindFirst "CodClt like'" & CodClt & "'" Do While rs.NoMatch = False FrmCadClt.TxtCodClt = rs("CodClt") FrmCadClt.TxtNClt = rs("NClt") FrmCadClt.TxtEnd = rs("End") FrmCadClt.TxtBr = rs("Br") FrmCadClt.TxtCid = rs("Cid") FrmCadClt.TxtCep = rs("Cep") FrmCadClt.TxtTel = rs("Tel") FrmCadClt.MkCPF = rs("CPF") FrmCadClt.TxtLmt = rs("Lmt") FrmCadClt.TxtDtClt = rs("DtClt") FrmCadClt.TxtSld = IIf(IsNull(rs!Sld), "", rs!Sld) FrmCadClt.TxtUltCmpr = IIf(IsNull(rs!UltCmpr), "", rs!UltCmpr) FrmCadClt.TxtObs = rs("Obs") FrmCadClt.TxtCodClt = Format(FrmCadClt.TxtCodClt, "00000") rs.FindNext "CodClt like'" & CodClt & "'" Loop End With End Sub Form 1 Inclusão dos primeiros dados, nome, endereço, etc...: Private Sub lvBIncl_Click() rs.AddNew rs!CodClt = TxtCodClt rs!NClt = TxtNClt rs!End = TxtEnd rs!Br = TxtBr rs!Cid = TxtCid rs!Cep = TxtCep rs!Tel = TxtTel rs!CPF = MkCPF rs!Lmt = TxtLmt rs!DtClt = TxtDtClt rs!Sld = TxtSld rs!UltCmpr = TxtUltCmpr rs!Obs = TxtObs TxtCodClt = Format(TxtCodClt, "00000") rs.Update End Sub Form 2 aqui nesse form quando altero outros dados como, limite, saldo para compra e data da compra, ele confunde os registros: Private Sub Form_Load() Set db = Workspaces(0).OpenDatabase(App.Path & "\BdSys\Estoque.mdb") Set rs = db.OpenRecordset("TbClt", dbOpenDynaset) 'Não consigo vê o erro, o que está errado ? With FrmGridClt.MsFlexGridClt rs.FindFirst "CodClt like'" & CodClt & "'" Do While rs.NoMatch = False FrmCadClt.TxtCodClt = rs("CodClt") FrmCadClt.TxtNClt = rs("NClt") FrmCadClt.TxtEnd = rs("End") FrmCadClt.TxtBr = rs("Br") FrmCadClt.TxtCid = rs("Cid") FrmCadClt.TxtCep = rs("Cep") FrmCadClt.TxtTel = rs("Tel") FrmCadClt.MkCPF = rs("CPF") FrmCadClt.TxtLmt = rs("Lmt") FrmCadClt.TxtDtClt = rs("DtClt") TxtSld = IIf(IsNull(rs!Sld), "", rs!Sld) TxtUltDt = IIf(IsNull(rs!UltCmpr), "", rs!UltCmpr) FrmCadClt.TxtObs = rs("Obs") FrmCadClt.TxtCodClt = Format(FrmCadClt.TxtCodClt, "00000") rs.FindNext "CodClt like'" & CodClt & "'" Loop End With End Sub Form 2 tento fazer alterações em alguns campos, confunde os registros ? Private Sub lvBConf_Click() 'Faço as alterações e troca os registros quanto altera 'Mais de um registro rs.Edit rs!NClt = rs!NClt rs!End = rs!End rs!Br = rs!Br rs!Cid = rs!Cid rs!Cep = rs!Cep rs!Tel = rs!Tel rs!CPF = rs!CPF rs!Lmt = rs!Lmt rs!DtClt = rs!DtClt rs!Sld = TxtSld rs!UltCmpr = TxtUltDt rs!Obs = rs!Obs TxtCodClt = Format(TxtCodClt, "00000") rs.Update 'Aqui eu igualo o grid com as alterações efetuadas 'Mais altera errado, digo troca registros With FrmGridClt.MsFlexGridClt .Row = .Row - 1 .TextMatrix(.Row + 1, 0) = TxtCodClt.Text .TextMatrix(.Row + 1, 1) = TxtNClt.Text .TextMatrix(.Row + 1, 2) = FrmCadClt.TxtEnd .TextMatrix(.Row + 1, 5) = FrmCadClt.TxtCep .TextMatrix(.Row + 1, 6) = FrmCadClt.TxtTel .TextMatrix(.Row + 1, 7) = FrmCadClt.MkCPF.Text .TextMatrix(.Row + 1, 8) = FrmCadClt.TxtLmt.Text .TextMatrix(.Row + 1, 9) = TxtSld.Text .TextMatrix(.Row + 1, 10) = TxtUltDt.Text .TextMatrix(.Row + 1, 11) = FrmCadClt.TxtDtClt.Text .TextMatrix(.Row + 1, 12) = FrmCadClt.TxtObs.Text End With End Sub Valeu a força de todos do ScriptBrasil.
  19. Kuroi dia, olha testado e ficou belesma sua orientação perfeito meu amigo. Fico grato a você valeu.
  20. Kuroi noite, dá uma olhada como escrevi o código, acho que está ok, só que me deparei com um problema real e eminente. Não posso testar a impressão é mole, vou explicar: estou usando o “Print” e esse cara manda direto para a impressora com um detalhe com cabo “Serial” e aqui em casa eu só tenho uma impressora jato de tinta cabo “USB” que não pode ser ligada na “LPT1” ou seja só vou testar na segunda feira lá no trabalho. você pode dizer assim porque não usar o “Printer” que manda para o Windows, vou explicar: anteriormente eu usei o “Printer” mais não conseguir fazer como que a impressão acontecesse na hora do evento LostFocus eu teria que fechar o Form aí imprimia, nossa foi difício, mais passou, é isso meu amigo. Eu fico muito grato sim e tbém ancioso para lhe falar se deu certo. Valeu. Meu General: Option Explicit Dim i As Integer ‘ Aqui eu coloco sua orientação como você falou Meu Load: Private Sub Form_Load() i = 1 ‘ Aqui eu igualo a variável como você falou End Sub Meu LostFocus: Private Sub TxtQtd_LostFocus() With MsFlexCmprs .Rows = .Rows + 1 .TextMatrix(.Rows - 1, 0) = (TxtCod) .TextMatrix(.Rows - 1, 1) = (TxtDesc) .TextMatrix(.Rows - 1, 2) = (TxtQtd) .TextMatrix(.Rows - 1, 3) = (TxtSubTl) If i = 1 Then Open "LPT1" For Output As #1 Print #1, rsclt.Fields("NClt") 'Aqui imprime o cabeçalho, estou chamando um campo de uma Tb para testar Close #1 End If Open "LPT1" For Output As #1 ‘Aqui eu imprimo o conteúdo do Grid a cada preenchimento de uma linha. Print #1, .TextMatrix(0, 0) & "-" & .TextMatrix(0, 1) & "-" & .TextMatrix(0, 2); Tab(0); .TextMatrix(.Rows - 1, 0) _ & "-" & .TextMatrix(.Rows - 1, 1) & "-" & .TextMatrix(.Rows - 1, 2) & "-" & .TextMatrix(.Rows - 1, 3) & "-" Close #1 i = i + 1 'Essa parte é a mais importante, servi para o próximo produto se houver certo, para evitar a impreção do cabeçalho outra vez é isso ? End With End Sub
  21. Kuroi, fico muito grato a você, por mais essa mano. Na verdade estou tentando conquistar meu primeiro cliente, por esse motivo ainda não me preocupei com os detalhes mais técnicos, mesma assim; é mais uma dica sua na questão economizar códigos, digo contar linhas. Viu vou testar por aqui e depois falo pro cê, valeu.
  22. Bom, belesma, agora você pode me dá uma dica no código, abaixo eu imagino que seja com o FOR NEXT seria algo assim ? Essa me pegou no momento não sei ? For i = 1 to + 1 ? Next i Fico grato a você amigo.
  23. Kuroi dia, olha é isso, eu imprimo uma linha por vez. É um programa para supermercado, quando o usuário passar o leitor de código de barras ele preenche uma linha do Grid e imprimi o item na impressora e assim vai..., o problema é que, preciso colocar um cabeçalho na hora que o primeiro item for impresso. Impressão falta o cabeçalho: Desde já agradeço sua atenção amigo.
  24. Noite rapaziada, como faço isso ? Valeu a força de todos do ScriptBrasil.
  25. Kuroi vou prestar mais atenção, acredito sim em tanho de campo do form e do recordset. Valeu mais uma vez mano.
×
×
  • Criar Novo...