Mensagens de erro não aparecem para o usuário...

[Renata Albergoni]

Olá pessoal.. Estou utilizando o Acbr a algum tempo e estou tendo um problema...

Que ja está me deixando sem os cabelos, acredito que seja algo simples..

Porém o simples eu não sei...

No Exemplo que vem junto com o AcbrNfe2,

ao emitir uma nota, Cancelar, Inutilizar, Consultar, qualquer coisa semelhante...

Se existir algum campo incorreto, ou houver alguma falha na validação é exibida

uma mensagem de erro ao usuário (isso executando normalmente, sem estar em DEBUG no Delphi).

No meu projeto quando ocorre um erro ao enviar, cancelar, inutilizar, consultar, etc...

Não é exibida nenhuma mensagem ao usuário para que ele possa compreender o erro e repará-lo...

Simplesmente clica no botão e não acontece nada aos olhos do usuarioo...

Se eu pego o banco de dados do meu cliente, coloco na minha aplicacção em modo debug aparece o erro

Porém apenas aparece só pq está em modo de debugação...

Se eu pego essa mesma informação, dados da nota igualzinho a qual eu joguei na minha aplicação e coloco no exemplo do

acbrnfe2 aparece o erro certinho não estando em debug...

A maneira na qual estou fazendo até o momento é tratando msg por msg para exibir ao usuário, só que isso está se tornando

algo muito complexo, trabalhoso e grande...

Alguem sabe me dizer qual a configuração que estou pecando para não aparecer as msgs para o usuárioo?

Se no Demo aparece, pq na minha aplicação não?

Segue um exemplo que ocorre em minha aplicação

Este exemplo é para Consultar uma nota pelo XML...

FmPrincipal.OpenDialog.Title := 'Selecione a NFE';

FmPrincipal.OpenDialog.DefaultExt := '*-nfe.XML';

FmPrincipal.OpenDialog.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';

FmPrincipal.OpenDialog.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;

if FmPrincipal.OpenDialog.Execute then

begin

ACBrNFe1.NotasFiscais.Clear;

ACBrNFe1.NotasFiscais.LoadFromFile(FmPrincipal.OpenDialog.FileName);

ACBrNFe1.Consultar;

ShowMessage(ACBrNFe1.WebServices.Consulta.Protocolo);

end;

Obs: Ao consultar ocorre o erro e nada é exibido para usuario, no demo aparece certinho..

Obrigado a todos...

[jonatan.souza]

Amigo tenta esta rotina :

if FmPrincipal.OpenDialog.Execute then

begin

Try

ACBrNFe1.NotasFiscais.Clear;

ACBrNFe1.NotasFiscais.LoadFromFile(FmPrincipal.OpenDialog.FileName);

ACBrNFe1.Consultar;

except

MensagemPerso(ACBrNFe1.WebServices.Consulta.XMotivo,exclamacao);

end;

ShowMessage(ACBrNFe1.WebServices.Consulta.Protocolo);

end;

[André Ferreira de Moraes]

Provavelmente existe no seu sistema alguma rotina de tratamento de erros que está suprimindo as excessões disparadas pelo componente.

[Renata Albergoni]

sto

Tentei o que você me disse mas acontece o mesmo...

A Mensagem vem em branco..

Estou comecando a achar que

Provavelmente existe no seu sistema alguma rotina de tratamento de erros que está suprimindo as excessões disparadas pelo componente.

Vou montar outra janela de nf-e desde o comeco e ver no que dá...

Muito Obrigado pela atenção

=D