Bom Dia,
não sei se algo mudou na nota carioca, porém neste mês o componente ACBrNFSeX não consegue mais fazer a leitura do retorno da emissão de nota fiscal única (modoEnvio = meUnitario).
Segue em anexo o XML de retorno gerado pelo componente.
Abaixo segue linhas do código da unit ISSRio.Provider, método TACBrNFSeProviderISSRio.TratarRetornoEmitir, percebam que o componente busca a tag ListaNfse, porém no XML de retorno ela não existe quando é nota única:
if Response.ModoEnvio <> meUnitario then
begin
inherited TratarRetornoEmitir(Response);
Exit;
end;
Document := TACBrXmlDocument.Create;
try
try
Document.LoadFromXml(Response.ArquivoRetorno);
ProcessarMensagemErros(Document.Root, Response);
ProcessarMensagemErros(Document.Root, Response, 'ListaMensagemRetornoLote');
ANode := Document.Root;
Response.Data := ObterConteudoTag(ANode.Childrens.FindAnyNs('DataRecebimento'), tcDatHor);
Response.Protocolo := ObterConteudoTag(ANode.Childrens.FindAnyNs('Protocolo'), tcStr);
ANode := Document.Root.Childrens.FindAnyNs('ListaNfse');
if not Assigned(ANode) then
begin
AErro := Response.Erros.New;
AErro.Codigo := Cod202;
AErro.Descricao := ACBrStr(Desc202);
Exit;
end;
Estou configurando algo errado ou de fato mudou algo no provedor ISSRio?
Fico no aguardo e agradeço a atenção.
Luiz
0-ger-nfse.xml
0-lista-nfse-ger.xml