Dangelo2010
-
Total de ítens
585 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Dangelo2010
-
-
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 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);
BeginCase Key Of
VK_RETURN : BeginSQLConsultaProduto.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 BeginEBarras.SetFocus;
Raise Exception.Create('Produto não localizado.');
End;
ExceptEBarras.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?
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
-
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);
BeginCase Key Of
VK_RETURN : BeginSQLConsultaProduto.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?
-
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
-
Sim respondido
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
-
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
-
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?
-
3 minutos atrás, Victor H. Gonzales - Panda disse:
verifique por favor se atende a demanda
Sim
Muito obrigado!
- 1
-
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
- 1
-
Valeu!
-
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?
-
2 minutos atrás, Italo Giurizzato Junior disse:
Acho que perdi essa aula kkk
Valeu @Italo Giurizzato Junior
vou retirar a inutilização do sistema
Obrigado!
-
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
-
5 minutos atrás, Diego Foliene disse:
Bom dia!
Por favor, verifique se seus fontes estão atualizados e englobando o commit da Rev-30463. (Lembrando que ao atualizar os fontes, é preciso reinstalar o ACBr para que as alterações tenham efeito).
Atualizei ontem
-
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
-
Obrigado !
- 1
-
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?
-
@Alexandre de Paula, obrigado!
já enviei um e-mail para o fale conosco e para ouvidoria ontem, mais tive resposta ate o momento
Sistema fecha ao bipar produto no leitor de barras
em Dúvidas não relacionadas ao ACBr
Postado
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