Pesquisar na Comunidade

Olá queridos companheiros, pesquisei muito sobre uma forma de tratar erros inesperados que causam o fechamento da aplicação e acabei descobrindo (ou inventando kkk), um modo de tratar todos os erros que não foram tratados, vi uma postagem de mais de um ano aq no forum mas não puder dar sequencia nela por estar fechada. Nesse post vi a sugestão do componente TApplicationProperties, para usar seu evento OnException, mas ao tentar usar ele, disparava 3 vezes, sem contar que ao colocar um componente em um form e herda-lo, ele componente fica aparecendo em todos os forms e eu só meio xarope e isso me incomoda. Seguinte.... Eu uso um FormPadrao no qual estão todas procedures (ferramentas) criadas por mim e algumas outras facilidades como mudar de campo com Enter, fechar as janelas com Esc, etc. E derivo todos os meus outros forms desse para herdarem essas funções e propriedades. Nele eu criei o seguinte procedimento. //================================== Inicio do Procedimento ==================================\\ procedure TFormPadrao.OnException(Sender: TObject; E: Exception); var auxLog: TextFile; begin try AssignFile(auxLog, 'Log_Exceptions.txt'); if (FileExists('Log_Exceptions.txt')) then begin Append(auxLog); end else begin Rewrite(auxLog); WriteLn(auxLog, 'Log de Erros!'); WriteLn(auxLog, ''); end; WriteLn(auxLog, FormatDateTime('dd/MM/yyyy - hh:mm:ss',now) + ' => Origem: ' + Sender.ToString + ' => Erro: ' + E.Message); finally CloseFile(auxLog); end; Riba.Aviso('Origem: ' + Sender.ToString + ' => Erro: ' + E.Message); if(Sender is TForm)then (Sender as TForm).Close; end; //================================== Fim do Procedimento ==================================\\ E no evento onCreate eu digitei essa linha que associa um procedimento ao um evento Application.OnException := @OnException; Agora todo erro não tratado é mostrado na tela, fecha só o form que deu o erro e faz um log dos erros. obs. Esse Riba.Aviso é pra mostrar mensagens na tela do meu jeito. Se eu fiz algo errado no post me corrijam por favor pois é meu primeiro post compartilhando informação. DEUS abençoe a todos.

Bom dia, Estamos migrando a NFC-e para a versão 4.0. Porém ao fazer o envio recebemos o retorno: "Project Frente.exe raised exception class EACBrDFeException with message " conforme imagem em Anexo, e os retornos vem zerados. Como verificamos que o arquivo XML esta sendo gerado na versão 4.0 corretamente, entramos em contato com a Sefaz do PR para verificar se estava havendo algum problema. Após informar uma chave de acesso, eles informaram que a NFC-e não estava chegando la. Verifiquei então que no arquivo ACBr\Fontes\ACBrDFe\ACBrNFe\ACBrNFeServicos.ini, os endereços dos WebServices para o PR estavam errados. Fiz a correção, inclusive se puderem efetuar a alteração no SVN, eles não mantiveram o padrão e ficou sendo https://homologacao.nfe.sefa.pr.gov.br/nfce/NFeAutorizacao4 ao invés de NfeAutorizacao_4.00=https://homologacao.nfce.sefa.pr.gov.br/nfce/NFeAutorizacao4, contando com a mudança da primeira parte da URL de NFCE para NFE. Em todo caso mesmo corrigindo os webservices não obtivemos sucesso e o erro abaixo continua. Observações:- WebService do PR; Fonte do ACBr atualizado em 01/08/2017 13:48; Schemas atualizados. Alguém já esta emitindo NFC-e 4.0 para esse ou outro estado e esta conseguindo ? Teria mais algum detalhe que estamos esquecendo ? Att,

Boa tarde, pessoal! Esta exception foi gerada no método ACBrNFE.Enviar com a versão 4.0 NF-e 4.0 sem mensagem de retorno (em homologação). Segue em anexo o arquivo XML e um print do erro. Já validei o XML pelo validador da SEFAZ e foi autorizado. O problema é que ela não retorna nenhuma mensagem. Espero contribuir com este post. Obrigado! 43170702720252000110550010000100711000100710-nfe.xml

Prezados colegas, meu sistema de notas está funcionando normal ao ser gerado pelo D7, mas ao gerá-lo no XE6 ele gera uma exceção não específica logo na inicialização em qualquer micro que não seja o meu (Win 8/64+XE6). Testei em várias maquinas do cliente onde o outro gerado pelo D7 roda (Win XP, Win 7 32 e 64 e Win8) e a mesma coisa acontece. Eliminei todos os componentes e arquivos do XE6, atualizei o ACBr (ontem, 14/2), instalei do zero e gerei novamente e o problema persiste. Para eliminar qualquer dúvida de algo que tivesse comido bola na migração D7 -> XE6, peguei outro sistema (no XE 6) que não tinha nada do ACBr, coloquei o componente de NFe e não fiz mais nada, gerei de novo e acontece a mesma coisa. Alguém tem alguma ideia pra me dar uma luz? Agradeço imensamente.

Estou tentando cancelar uma NFe em nos dois ambientes, tanto no meu projeto quanto o exemplo do acbr e o erro e o mesmo!

Boa tarde, pessoal. Tive o problema retratado neste tópico qual dentro de um bloco Try/Except não conseguia capturar caso ocorria uma exception dentro da Thread. Implementei o envio "normal" como também existe na unit do CT-e. Espero ter colaborado Abraços Gustavo Kato ACBrBoleto.pas

Boa tarde. Tem acontecido comigo um seguinte problema: Envio a primeira NFe Envio OK Envio a segunda NFe Acess Violation Porém, se eu coloco uma break em nota := acbrnfe.NotasFiscais.Add; onde ele gera o XML, não ocorre mais AV, mesmo que seja executado dez vezes. Como se o processo foi rápido demais que ele não conseguisse gerar o XML. A exceção é lançada quando em acbrnfe.NotasFiscais.Valida no trecho if pos('<Signature',Self.Items[i].XML) = 0 ele não consegue acessar Self.Items.XML, apesar do Self.Count ser igual a 1. O erro parece como neste link