Dangelo2010
Membros Pro-
Total de ítens
591 -
Registro em
-
Última visita
Sobre Dangelo2010
Últimos Visitantes
O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.
Dangelo2010's Achievements
-
Dangelo2010 started following Vazamento de memória TDFeSSL , Obter Bin do cartão para validar promoção , Balança Prix 3 Fit Porta COM e 7 outros
-
Balança Prix 3 Fit Porta COM
Dangelo2010 replied to Dangelo2010's tópico in Dúvidas Gerais sobre o ACBr
Obrigado @Juliana Tamizou Mais pode fechar que o @Daniel InfoCotidiano já mim passou o que preciso fazer -
Balança Prix 3 Fit Porta COM
Dangelo2010 replied to Dangelo2010's tópico in Dúvidas Gerais sobre o ACBr
Ok, Valeu. Vou testar la -
Balança Prix 3 Fit Porta COM
Dangelo2010 replied to Dangelo2010's tópico in Dúvidas Gerais sobre o ACBr
Vou fazer isso la Obrigado -
Balança Prix 3 Fit Porta COM
Dangelo2010 replied to Dangelo2010's tópico in Dúvidas Gerais sobre o ACBr
@Daniel InfoCotidiano, não foi feito nada la, continua como sempre estava, o driver e o mesmo, maquina nao foi formatada e em outras portas ele ja tinha trocado e continua todas do mesmo jeito Tem algum testador de porta COM? -
Balança Prix 3 Fit Porta COM
Dangelo2010 replied to Dangelo2010's tópico in Dúvidas Gerais sobre o ACBr
Então @Daniel InfoCotidiano, lá ele usa um cabo conversor. Eu falei para o cliente iniciar a maquina e esperar um pouco antes de abrir o sistema, mais ele disse que antigamente não ocorria isso. A maquina dele não foi feito nenhuma formatação nem nada, somente do nada ele disse que acontece isso -
Boa tarde! Tem uma maquina que quando vai pesar na balança o sistema nao consegue dando mensagem de erro pois nao conseque comunicar com a balança e tem que reiniciar a maquina. O cliente liga a maquina, abre o sistema, e no primeiro peso ja da a mensagem de erro e tem que reiniciar a maquina, e passa o dia todo tranquilo. Porem isso tem que ser feito todos os dias. O que posso fazer para mudar isso?
-
Sistema fecha ao bipar produto no leitor de barras
Dangelo2010 replied to Dangelo2010's tópico in Dúvidas não relacionadas ao ACBr
Boa noite! Só para comunicar aqui para vocês que deu certo, retirei tudo que tinha como application.onexception e applicationevents e hoje sistema hoje não fechou sozinho mais Muito obrigado @Renato Rubinho, @Juliomar Marchetti -
Sistema fecha ao bipar produto no leitor de barras
Dangelo2010 replied to Dangelo2010's tópico in Dúvidas não relacionadas ao ACBr
Vou retirar então Se der certo posto aqui Obrigado! -
Sistema fecha ao bipar produto no leitor de barras
Dangelo2010 replied to Dangelo2010's tópico in Dúvidas não relacionadas ao ACBr
Eu tenho mais não nessa tela Primeiro teste que faço o sistema já cai procedure TFPDV_Z.EBarrasKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Begin Case Key Of VK_RETURN : Begin SQLConsultaProduto.Cancel; SQLConsultaProduto.Close; CDSConsultaProduto.Close; CDSConsultaProduto.Fields.Clear; CDSConsultaProduto.FieldDefs.Clear; CDSConsultaProduto.Filtered := False; CDSConsultaProduto.IndexFieldNames := EmptyStr; CDSConsultaProduto.IndexName := EmptyStr; CDSConsultaProduto.CommandText := 'SELECT ' + ' DESCRICAO, ' + ' COD_PRODUTO, ' + ' EAN_TRIBUTADO ' + 'FROM PRODUTO ' + 'WHERE COD_EMPRESA = :sCOD_EMPRESA ' + 'AND EAN_TRIBUTADO = :sEAN_TRIBUTADO '; CDSConsultaProduto.ParamByName('sCOD_EMPRESA').AsInteger := Modulo.EmpCodEmpresa; CDSConsultaProduto.ParamByName('sEAN_TRIBUTADO').AsString := EBarras.Text; CDSConsultaProduto.Open; Try If CDSConsultaProduto.RecordCount > 0 Then Begin sCodProduto := CDSConsultaProduto.FieldByName('COD_PRODUTO').AsInteger; ENomeProduto.Caption := CDSConsultaProduto.FieldByName('DESCRICAO').AsString; End Else Begin EBarras.SetFocus; Raise Exception.Create('Produto não localizado.'); End; Except EBarras.SetFocus; Raise Exception.Create('Produto não localizado.'); End; End; End; -
Sistema fecha ao bipar produto no leitor de barras
Dangelo2010 replied to Dangelo2010's tópico in Dúvidas não relacionadas ao ACBr
@Renato Rubinho, explica por favor A função do Abort não vai só parar ou ela pode fazer algo mais? Entendi, agora caiu a ficha. Vou mudar isso -
Sistema fecha ao bipar produto no leitor de barras
um tópico no fórum postou Dangelo2010 Dúvidas não relacionadas ao ACBr
Boa tarde! Tenho um problema que não consigo resolver e gostaria de uma ajuda. Estou usando Delphi 11, Windows 10, conexão FIREBIRD 4.0 com conexão TSQLConnection Estou fazendo uma consulta simples para trazer um determinado produto ao bipar no leitor de barras, porem, quando o produto não tem cadastro ele mim informa "Produto não localizado". Até ai tudo bem, porem muitas vezes quando recebo essa mensagem o sistema fecha sozinho do nada, sem mensagem de erro ou "Produto não localizado", isso usando Leitor de Barras, e pode ser qualquer modelo que da o mesmo problema e produtos diferentes ate mesmo com maquinas diferentes. Não são todas as vezes mais acontece. Se digitar o código de barras no campo ele da a mensagem sem nenhum problema, somente quando bipa no leitor que as vezes ocorre do sistema fechar. Estou fazendo assim procedure TFPDV_Z.EBarrasKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Begin Case Key Of VK_RETURN : Begin SQLConsultaProduto.Cancel; SQLConsultaProduto.Close; CDSConsultaProduto.Close; CDSConsultaProduto.Fields.Clear; CDSConsultaProduto.FieldDefs.Clear; CDSConsultaProduto.Filtered := False; CDSConsultaProduto.IndexFieldNames := EmptyStr; CDSConsultaProduto.IndexName := EmptyStr; CDSConsultaProduto.CommandText := 'SELECT ' + ' DESCRICAO, ' + ' COD_PRODUTO, ' + ' EAN_TRIBUTADO ' + 'FROM PRODUTO ' + 'WHERE COD_EMPRESA = :sCOD_EMPRESA ' + 'AND EAN_TRIBUTADO = :sEAN_TRIBUTADO '; CDSConsultaProduto.ParamByName('sCOD_EMPRESA').AsInteger := Modulo.EmpCodEmpresa; CDSConsultaProduto.ParamByName('sEAN_TRIBUTADO').AsString := EBarras.Text; CDSConsultaProduto.Open; If CDSConsultaProduto.RecordCount = 0 Then Begin Application.MessageBox('Produto não localizado.', 'A T E N Ç Ã O', MB_OK + MB_ICONWARNING); EBarras.SetFocus; Abort; End; End; End; -
Obrigado
-
Boa tarde! Ao validar a nota fiscal o mesmo retorna mensagem de erros com acentos estranhos. Como resolver?
-
Boa noite! Também tive o mesmo problema em varias maquinas Solução: Desinstala e instala novamente
-
Sim respondido Obrigado!