Mudando do ACBrNFSe para o ACBrNFSex

[wilsonaaugusto]

Bom dia!

Estou trocando os componentes ACBrNFSe pelo ACBrNFSex. Fiz a troca conforme o manual e foi tudo bem.

Agora estou revendo os meus fontes e tenho um trecho após usar o ConsultarNFSeporRps:

 " Result := (NFSE.ConsultarNFSeporRps(NFSE.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero,
                                      NFSE.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie,
                                      TipoRPSToStr(NFSE.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo)));"

onde utilizo:

"if NFSE.WebService.ConsNfseRps.RetornoNFSe.ListaNfse.CompNfse.Count > 0 then

"NF := NFSE.WebServices.ConsNfseRps.RetornoNFSe.ListaNfse.CompNfse.Items[0].Nfse;"

O problema que estou tendo é que não encontro algo correspondente no ACBrNFSeX.

Poderiam me indicar uma solução? Ou onde devo pesquisar? Nos fontes do exemplo não achei nada.

 

Obrigado

[Italo Giurizzato Junior]

Bom dia Wilson,

No programa exemplo do componente ACBrNFSeX chegou a ver a procedure ChecarResposta (por volta da linha 2715)?

 

[wilsonaaugusto]

Sim, eu vi este trecho de código. Notei o uso do count para erros e Alertas. 
E, pelo que entendi, usa o LoadXML para "pegar" os dados das notas.

Como estou dando manutenção em código herdado, achei que teria algo similar ao que já tenho feito (ex. if NF.NfseCancelamento.DataHora <> 0 then) para não ter que mudar as regras já estabelecidas aqui.

Desculpa não prestei atenção no trecho "memoLog.Lines.Add("

Vou ver como adapto aqui.

Obrigado

[Italo Giurizzato Junior]

Wilson,

O ACBrNFSeX foi completamente reescrito, portanto muita coisa mudou.

[wilsonaaugusto]

Entendi. Estou, aos poucos, encontrando o que preciso e adaptando o código.

Agradeço pela sua atenção. Muto obrigado.