Ir para conteúdo
  • Cadastre-se

Dangelo2010

Membros Pro
  • Total de ítens

    585
  • Registro em

  • Última visita

Posts postados por Dangelo2010

  1. 1 minuto atrás, Renato Rubinho disse:

    Ela é uma exceção controlada, silenciosa, mas é uma exceção.

    Como o Juliomar disse, se você captura as exceções em algum lugar, pode ser o seu problema.

    Aparentemente no seu caso é apenas um TEdit que recebe o valor da leitora, acredito que não faça diferença.

    Teste tirar para ver se é o problema e , de qualquer forma, aparentemente nem precisaria dele.

    Vou retirar então

    Se der certo posto aqui

    Obrigado!

  2. 2 minutos atrás, Juliomar Marchetti disse:

    se tu tem um tratamento no application.onexception para se ocorrer erros ele feche a aplicação sim

     

    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?

    1 minuto atrás, Juliomar Marchetti disse:

    Complementando.

    verifica se tu não tem tratamento nas exceções da aplicação por exemplo o applicationevents

    outra coisa o correto mesmo era ter um raise exception.create('produto não existe')

    assim as threads do windows vão parar senão com showmessage e abort pode ocorrer erros não é um tratamento elegante e correto

    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. 1 minuto atrás, William F. L. disse:

    Colega estamos tendo o mesmo problema com esse driver "CH340" integração do sistema com a balança Prix Fit 3, funciona até um determinado ponto depois para de ler o peso e mesmo reiniciando o sistema dá erro, inclusive no demo do ACBr.

    Inicialmente achavamos que todos os adaptadores (SERIAL-USB) eram iguais, porém depois de muitos dias pesquisando, descobri que existem "2 modelos de conversores" nesses adaptadores

    - Prolific

    - CH340

    Com isso já descobrimos pq a maioria dos clientes e até em nossa bancada sempre funcionou muito bem a leitura de peso, pois sempre usamos o adaptador com conversor e driver "Prolific".

    O cliente que não funciona a leitura, comprou um adaptador com "CH340", levamos o nosso "Prolific" no estabelecimento dele e na hora funcionou muito bem.

    Compramos um adaptador "CH340", fazendo vários testes é possível ver que o driver dele é encontrado em várias versões, porém nenhuma funciona bem:

    - 2011, 2014, 2019 e 2023

    A única solução que encontramos é a partir de agora sempre que o cliente perguntar sobre esses adaptadores, orientar sempre comprar com esse conversor "Prolific" (pior que visualmente os 2 são iguais).

    Boa noite!

    Também tive o mesmo problema em varias maquinas 

    Solução: Desinstala e instala novamente 

  6. 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


     

  7. 4 minutos atrás, Diego Foliene disse:

    Boa tarde!

    Por favor:

    • É em todos os clientes que tentam emitir para GO ou somente neste cliente?
    • É só nesta máquina em específico ou em todas deste cliente?
    • A URL é acessível por outros meios? (Se clicar para abrir ela no navegador mesmo, por exemplo.
    • Existe outro link de internet que possa ser usado para teste?
    • Existe proxy a ser configurado na rede?

    É 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 

  8. 18 minutos atrás, Natalia Cuello disse:

    Acho dificil pois um dos clientes não utiliza nenhum programa para baixar XMLs (e segundo a contabilidade também não) e o outro deixamos o programa da contabilidade pausado por alguns dias mas mesmo assim continuou bloqueando. Tentamos olhar blacklists e os IPs aparecem em algumas como SPAM, mas segundo o sefaz eles não utilizam blacklist ou bloqueiam IPs 

    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 

    • Curtir 1
  9. 1 minuto atrás, toninhonunes disse:

    Eu já havia colocado um aviso nessa tela aos clientes que o serviço pode ficar indisponível a qualquer momento e que isso não faz parte do serviço de nosso sistema por ser uma busca externa, um atalho facilitador, aí quando exigem, mando o serviço de API do SERPRO que cobram por consultam, aí recuam.

    Antonio Nunes

    Boa ideia

    Tem como passar esse link da SERPRO?

  10. 31 minutos atrás, Diego Foliene disse:

    Depois de atualizar os fontes, você reinstalou o ACBr com a opção de "Apagar Arquivos Antigos" marcada?

    Fiz um teste com o programa exemplo e recebi no retorno o Erro 404, que é o retorno correto, considerando que o Serviço de Inutilização foi eliminado da versão 4.00 do CT-e (mais informações AQUI) e também da versão 3.00 pela NT2023/001 (mais informações AQUI)

    Sim apaguei todos os antigos e fiz a reinstalação

    mais ainda continua

    vou ver se estou deixando passar algo

     

×
×
  • 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.