Codigo De Erro Da Acbrnfse1.enviar(Nlote)

[rlind]

Boa tarde. Gostaria de saber como pegar codigo de erro do envio do metodo ACBrNFSe1.Enviar(nrlote)

 

Obrigado.

 

Rogerio Lindemayer

Schneider Sistemas.

[Rigotti]

Boa tarde. Gostaria de saber como pegar codigo de erro do envio do metodo ACBrNFSe1.Enviar(nrlote)

 

Obrigado.

 

Rogerio Lindemayer

Schneider Sistemas.

Não sei se é a maneira mais correta, mas eu simplesmente coloco dentro de um bloco try...except e mostro o e.message. 

[rlind]

Obrigado pelo retorno Rigotti. Eu estou fazendo isso tbem, mas questionei porque eu gostaria de validar pelo codigo de erro do retorno , e nao pelo conteudo de uma string.

[Luciano.]

Olá,  tudo certo?

 

Estava pesquisando no fórum, e para não criar um tópico novo, já que é esta mesma dúvida, 

estou ressuscitando este,  rss

Precisaria pegar o código de retorno nos métodos ACBrNFSe.Enviar e ACBrNFSe.Gerar.

 

Queremos fazer um tratamento automático quando for, por exemplo, o código E500 no provedor Thema, e E10 no Publica,

que são erros de lote repetido..

 

Obrigado.

Editado 23 Junho, 2016 por Luciano.

[Italo Giurizzato Junior]

Bom dia Luciano,

Para o método Enviar tente:

 ACBrNFSe1.WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno.Items[ x ].Codigo

Para o método Gerar tente:

 ACBrNFSe1.WebServices.GerarNFSe.RetornoNFSe.ListaNFSe.MsgRetorno.Items[ x ].Codigo
 

[Luciano.]

Bom dia Italo, 

Não consigo ter acesso à essas variáveis...

No caso do Enviar, consigo acesso até  ACBrNFSe1.WebServices.EnviarLoteRPS.RetEnvLote. 

e no Gerar:  ACBrNFSe1.WebServices.GerarNFSe. A variável Retorno não esta associada.

 

Obrigado

[Italo Giurizzato Junior]

Boa tarde Luciano,

Tentou da seguinte forma:

sCodigo := ACBrNFSe1.WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno.Items[ x ].Codigo ;

onde sCodigo é uma variável String.

[Luciano.]

Boa tarde Italo,

Sim, foi tentado com esse comando, mas ele não esta acessível...  e gera uma exceção ao passar pelo código:

Método Enviar: 

Com o método gerar aparece como string vazia, mas gera exceção ao passar também.

 

Obrigado.

[Italo Giurizzato Junior]

Luciano,

Favor atualizar os fontes e testar novamente.

[Luciano.]

Italo,

Acredito que consegui resolver para o método Enviar:

Alterai o unit: \Fontes\ACBrDFe\ACBrNFSe\ACBrNFSeWebServices.pas.

Tirei o bloco Try Finally end, que matava a classe retorno, e adicionei no OnDestroy..

_______________

Ps: Vi que respondeu enquanto criava esta mensagem..

Não sei qual a solução seria mais adequada, se a sua não ocasionará vazamento de memória?

 

Att,

ACBrNFSeWebServices.pas

[Italo Giurizzato Junior]

Bom dia Luciano,

Muito obrigado pela colaboração.

Favor atualizar todos os fontes de todas as pastas e faça novos testes.

[Riquena]

Boa tarde. 

Estou com mesmo problema, só que no método.

WebServices.ConsNfseRps.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Mensagem

Provedor: Simpliis

 

[Italo Giurizzato Junior]

Bom dia Riquena,

Qual é o problema?