Provedor RLZ 1.0 - Ajuste Ler Retorno

[Massao Aihara]

Boa noite pessoal. 

Precisei fazer uns ajustes no Provedor RLZ 1.0.

RLZ.LerXML.pas -> TNFSeR_RLZ.LerXmlNfse() :
Ajustei para ler o Código de Verificação e a Situação da nota também.

    CodigoVerificacao := ObterConteudo(ANode.Childrens.FindAnyNs('codigoverificacao'), tcStr);
    if (ObterConteudo(ANode.Childrens.FindAnyNs('situacao'), tcStr) = 'Emitida') then
      SituacaoNfse := snNormal;

 

RLZ.Provider.pas -> TACBrNFSeProviderRLZ.TratarRetornoEmitir(): 
Nesse acredito que tenha que ser feito uma correção:

// Antes:
ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByNFSe(NumNfse);

// Depois:
ANota := TACBrNFSeX(FAOwner).NotasFiscais.Items[0];

Por que ele não vai achar Nota carregada por número de NFS-e nunca. Pois a prefeitura acabou de gerar e retornar esse número.
E como ele bloqueia o envio de mais de um rps por vez. 
Eu modifiquei para sempre pegar a única nota que esta carregada no componente.

 

Segue os arquivos alterados em anexo.

RLZ.LerXml.pas RLZ.Provider.pas

[Italo Giurizzato Junior]

Bom dia @Massao Aihara,

Muito obrigado pela colaboração, já foi criado a TK-6425 para analise.

[Italo Giurizzato Junior]

@Massao Aihara,

Já esta no SVN.

[Massao Aihara]

Obrigado.

[Italo Giurizzato Junior]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.