Dangelo2010

Obrigado @Juliana Tamizou Mais pode fechar que o @Daniel InfoCotidiano já mim passou o que preciso fazer

Ok, Valeu. Vou testar la

Vou fazer isso la Obrigado

@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?

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?

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

Vou retirar então Se der certo posto aqui Obrigado!

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;

@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

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!

Bom dia! tenho um pinped da Gertec PPC930 porem faz muito tempo que não ligo ele, porem ao ligar hoje estou com a seguinte mensagem AP BLOCKED

@Juliana Tamizou Sem problemas Obrigado!

Bom dia! O que eu faço aqui e o seguinte Uso a mesma tabela de vendas é uma tabela separada para balanço. No decorrer do tempo realmente fica longo, mais com a tabela de balanço caso o cliente faça pelo menos um balanço no ano você faz os cálculos a partir do ultimo balanço. Caso você tenha clientes que nunca fizeram um balanço na vida pode ficar pesado, mais ai tem uma dica onde você pode colocar o seu sistema para fazer o balanço automático pegando as entradas e diminuindo as saídas da tabela de vendas e você monta o saldo na tabela de balanço

É em todos os clientes que tentam emitir para GO ou somente neste cliente? R: Somente esté, do nada parou É só nesta máquina em específico ou em todas deste cliente? R: Ele so tem um notebook A URL é acessível por outros meios? (Se clicar para abrir ela no navegador mesmo, por exemplo. R: Onde encontro essa URL? Existe outro link de internet que possa ser usado para teste? R: Não existe Existe proxy a ser configurado na rede? R: Não existe proxy Foi como falei, do nada ele parou de validar, ontem validou tudo normalmente

Boa tarde! Uma empresa ao tentar validar os cupons hoje não mais consegue pois esta dando time out, a sefaz não esta em contingencia, a maquina tem internet normal porem hoje amanheceu assim Está usando Windows 10 e já ate verificamos se esta atualizado e também as dll da OpenSSL estão atualizadas, porem hoje não valida Alguma dica?

Sim Muito obrigado!

Você faz consulta constante do código Gtin? se sim, esse também e um problema que tive no caso de bloqueio se fizer muita consulta do Gtin ao consultar as notas destinadas sempre vem a mensagem de consumo indevido e isso já fizemos o teste em duas empresas onde eles tiveram o certificado digital vencido e renovaram, nós mesmo baixamos o certificado e não passamos para o contador até finalizamos os testes, pois achamos que ele estava consultando as notas destinadas. Em uma das empresas consultamos as notas normalmente, mais na outra consultamos 25 Gtin e já veio consumo indevido

Valeu!

Boa ideia Tem como passar esse link da SERPRO?

Acho que perdi essa aula kkk Valeu @Italo Giurizzato Junior vou retirar a inutilização do sistema Obrigado!