Acbrnfsex Porto Alegre "Item da lista inexistente" Enviando com Zero a Esquerda a Mais

[Tiago Ropke]

Ao enviar nota o webservice retorna seguinte erro:

<Codigo>E30</Codigo>

<Mensagem>Item da Lista de Serviço inexistente</Mensagem>

 

Porém quando faço com o componente antigo funciona. Olhando a diferença entre os dois xmls encontrei essa:

Componente antigo:          

Citar

        <ItemListaServico>1.07</ItemListaServico>

 

Componente novo:             

Citar

    <ItemListaServico>01.07</ItemListaServico>

 

 

Em tempo de execução mudei a propriedade FormatoItemListaServico para filsComFormatacaoSemZeroEsquerda na unist ACBrNFSeXGravarXml_ABRASFv1.

Porém mesmo assim não funcionou. Daí verifiquei que na função TNFSeW_ABRASFv1.GerarServico: TACBrXmlNode dessa mesma unit estava assim:

 

Citar

 

  item := PadronizarItemServico(NFSe.Servico.ItemListaServico);

  case FormatoItemListaServico of
    filsSemFormatacao:
      Result.AppendChild(AddNode(tcStr, '#29', 'ItemListaServico', 1, 4, NrOcorrItemListaServico,
                              StringReplace(item, '.', '', []), DSC_CLISTSERV));

    filsComFormatacaoSemZeroEsquerda:
      if Copy(NFSe.Servico.ItemListaServico, 1, 1) = '0' then
        Result.AppendChild(AddNode(tcStr, '#29', 'ItemListaServico', 1, 5, NrOcorrItemListaServico,
                                               Copy(item, 2, 4), DSC_CLISTSERV))
      else
        Result.AppendChild(AddNode(tcStr, '#29', 'ItemListaServico', 1, 5, NrOcorrItemListaServico,
                                                          item, DSC_CLISTSERV));
  else
    Result.AppendChild(AddNode(tcStr, '#29', 'ItemListaServico', 1, 5, NrOcorrItemListaServico,
                                                          item, DSC_CLISTSERV));

 

 

e então troquei para:

Citar

 

  item := PadronizarItemServico(NFSe.Servico.ItemListaServico);

  case FormatoItemListaServico of
    filsSemFormatacao:
      Result.AppendChild(AddNode(tcStr, '#29', 'ItemListaServico', 1, 4, NrOcorrItemListaServico,
                              StringReplace(item, '.', '', []), DSC_CLISTSERV));

    filsComFormatacaoSemZeroEsquerda:
      if Copy(item, 1, 1) = '0' then
        Result.AppendChild(AddNode(tcStr, '#29', 'ItemListaServico', 1, 5, NrOcorrItemListaServico,
                                               Copy(item, 2, 4), DSC_CLISTSERV))
      else
        Result.AppendChild(AddNode(tcStr, '#29', 'ItemListaServico', 1, 5, NrOcorrItemListaServico,
                                                          item, DSC_CLISTSERV));
  else
    Result.AppendChild(AddNode(tcStr, '#29', 'ItemListaServico', 1, 5, NrOcorrItemListaServico,
                                                          item, DSC_CLISTSERV));

 

Acho que isso é uma alteração que deva ser feita no componente.

Só fico na duvida aonde que devo colocar a modificação do FormatoItemListaServico para filsComFormatacaoSemZeroEsquerda. 

 

Obrigado!

 

 

 

[Italo Giurizzato Junior]

Boa tarde Tiago,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-2070

[Italo Giurizzato Junior]

Tiago,

Atualize os fontes e faça um novo teste.

[Tiago Ropke]

De nada!
Feito!

Testei e está ok! 

Obrigado!

[Italo Giurizzato Junior]

Obrigado por reportar.

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