cTribNac (ItemListaServico) - Erro de validação 1839 Padrão Nacional - Sem valor preenchido

[José Jair de Oliveira]

Boa tarde

Na última revisão (45705) do SVN da unit  PadraoNacional.GravarXml.pas houve uma modificação que está teoricamente causando o erro

function TNFSeW_PadraoNacional.GerarXml: Boolean;
Antes estava assim(Até revisão 45603):

  if FormatoDiscriminacao <> fdNenhum  then
    ConsolidarVariosItensServicosEmUmSo;

  xmlNode := GerarXMLInfDps;
  NFSeNode.AppendChild(xmlNode);

  Result := True;
 

Agora esse if, está assim:

  if (FormatoDiscriminacao <> fdNenhum) or (NFSe.Servico.ItemServico.Count > 0) then
    ConsolidarVariosItensServicosEmUmSo;
 

Está forçando a entrar na procedure  TNFSeWClass.ConsolidarVariosItensServicosEmUmSo ( ACBrNFSeXGravarXml ) que está zerando as informações do NFSe.Servico, gerando os erros...

    // Leva em consideração a informação do ultimo item da lista.
    UltimoItem := FNFSe.Servico.ItemServico.Count -1;
    NFSe.Servico.CodigoMunicipio := IntToStr(FNFSe.Servico.ItemServico[UltimoItem].CodigoMunicipio);
    NFSe.Servico.CodigoPais := FNFSe.Servico.ItemServico[UltimoItem].CodigoPais;
    NFSe.Servico.ItemListaServico := FNFSe.Servico.ItemServico[UltimoItem].ItemListaServico;
    NFSe.Servico.xItemListaServico := FNFSe.Servico.ItemServico[UltimoItem].xItemListaServico;
    NFSe.Servico.CodigoTributacaoMunicipio := FNFSe.Servico.ItemServico[UltimoItem].CodigoTributacaoMunicipio;
    NFSe.Servico.CodigoNBS := FNFSe.Servico.ItemServico[UltimoItem].CodigoNBS;
    NFSe.infNFSe.xNBS := FNFSe.Servico.ItemServico[UltimoItem].xNBS;
...

FNFSe.Servico.ItemServico[UltimoItem].ItemListaServico entre outros, está Vazio, apagando a informação preenchida anteriormente.

 

meu FormatoDiscriminacao está fdNenhum e por isso surgiu o erro agora...

Podem verificar a correção, por favor?

[Juliomar Marchetti]

sugestões favor anexar a unit modificada

[José Jair de Oliveira]

Juliomar bom dia.

Então não sei a correção, apenas resolvi modificando o IF para não entrar na rotina  ConsolidarVariosItensServicosEmUmSo, pq nela os itens de serviço estão sem valor e regravando o serviço da nota fiscal, causando o erro.

...Fontes\ACBrDFe\ACBrNFSeX\Provedores\ACBrNFSeXGravarXml.pas
   procedure ConsolidarVariosItensServicosEmUmSo

nesse ponto pra abaixo está zerando as informações

    // Leva em consideração a informação do ultimo item da lista.
    UltimoItem := FNFSe.Servico.ItemServico.Count -1;
    NFSe.Servico.CodigoMunicipio := IntToStr(FNFSe.Servico.ItemServico[UltimoItem].CodigoMunicipio);
    NFSe.Servico.CodigoPais := FNFSe.Servico.ItemServico[UltimoItem].CodigoPais;
    NFSe.Servico.ItemListaServico := FNFSe.Servico.ItemServico[UltimoItem].ItemListaServico;
    NFSe.Servico.xItemListaServico := FNFSe.Servico.ItemServico[UltimoItem].xItemListaServico;
    NFSe.Servico.CodigoTributacaoMunicipio := FNFSe.Servico.ItemServico[UltimoItem].CodigoTributacaoMunicipio;
....

FNFSe.Servico.ItemServico[UltimoItem] vazio...

[Zunker]

O que aconteceu ali é que sempre vai ter (NFSe.Servico.ItemServico.Count > 0) e por exemplo aqui, eu não coloco essas variaveis dentro do NFSe.Servico.ItemServico e sim direto no NFSe.Servico conforme a imagem abaixo:

 

 

Dai quando entra na função, ela vai estar vazia, substituindo o que já foi preenchido anteriormente.

Editado 16 Abril por Zunker

[Quality Automação]

Realmente 
substitui por essa unit ai funcionou normalmente com o componente atualizado da a seguinte mensagem:
Código: X800: Erro: Erro de Validação --> 1824 - Element
'{http://www.sped.fazenda.gov.br/nfse}TribNac': '' is not a valid value of the atomic type
'{http://www.sped.fazenda.gov.br/nfse}TSCodTribNac'.

PadraoNacional.GravarXml.pas