Ir para conteúdo
  • Cadastre-se

Dangelo2010

Membros Pro
  • Total de ítens

    585
  • Registro em

  • Última visita

Tudo que Dangelo2010 postou

  1. 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
  2. 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;
  3. @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
  4. 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;
  5. Boa tarde! Ao validar a nota fiscal o mesmo retorna mensagem de erros com acentos estranhos. Como resolver?
  6. Boa noite! Também tive o mesmo problema em varias maquinas Solução: Desinstala e instala novamente
  7. Sim respondido Obrigado!
  8. Dangelo2010

    TEF Gertec PPC 930

    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
  9. @Juliana Tamizou Sem problemas Obrigado!
  10. 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
  11. É 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
  12. 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?
  13. 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
  14. Boa ideia Tem como passar esse link da SERPRO?
  15. Acho que perdi essa aula kkk Valeu @Italo Giurizzato Junior vou retirar a inutilização do sistema Obrigado!
  16. Sim apaguei todos os antigos e fiz a reinstalação mais ainda continua vou ver se estou deixando passar algo
  17. Bom dia! Estou inutilizando uma CTe porem recebo a mensagem Elemento cteCabecMsg inexistente no SOAP Header já configurei para versão 4.0 e também substitui os schemas
  18. Boa tarde! Estou passando um produto no leitor de código de barras, porem queria que quando o produto não estivesse cadastro mim desse um beep para que o usuário possa escutar e ver que tem algo errado E possivel isso?
  19. @Alexandre de Paula, obrigado! já enviei um e-mail para o fale conosco e para ouvidoria ontem, mais tive resposta ate o momento
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.