Dúvida Lote de RPS - Trunk2

[joaolenosi]

Bom dia, amigos.

Recentemente realizei a migração para o Trunk2, e após realizar testes com o componente ACBrNFSe, percebi que o lote de RPS gerado só consta apenas 1 RPS.

Estou alimentando a procedure AlimentaComponente() dentro do laço.

A tag: <QuantidadeRps>2</QuantidadeRps> é alimentada com o valor correto, porém dentro da tag ListaRPS possui apenas um RPS.

Realizei o mesmo teste usando os fontes antigos e o componente funciona perfeitamente.

Olhei o exemplo do fonte para verificar se houve alguma mudança em relação  a isso, mas não vi nada de diferente. Já debuguei minha aplicação e até agora não vi nada de anormal.

Segue o XML gerado.

<?xml version="1.0" encoding="UTF-8"?>
<EnviarLoteRpsEnvio xmlns="http://www.tinus.com.br">
<LoteRps Id="0000017">

<NumeroLote>0000017</NumeroLote>

<Cnpj>24185522000173</Cnpj>

<InscricaoMunicipal>0014028</InscricaoMunicipal>

<QuantidadeRps>2</QuantidadeRps>
<ListaRps>
<Rps>

<InfRps Id="60005">
<IdentificacaoRps>

<Numero>60</Numero>

<Serie>005</Serie>

<Tipo>1</Tipo>

</IdentificacaoRps>

<DataEmissao>2015-12-29T10:41:57</DataEmissao>

<NaturezaOperacao>1</NaturezaOperacao>

<RegimeEspecialTributacao>2</RegimeEspecialTributacao>

<OptanteSimplesNacional>2</OptanteSimplesNacional>

<IncentivadorCultural>2</IncentivadorCultural>

<Status>1</Status>

<Servico>

<Valores>

<ValorServicos>46.00</ValorServicos>

<IssRetido>2</IssRetido>

<ValorIss>2.30</ValorIss>

<BaseCalculo>46.00</BaseCalculo>

<Aliquota>0.0500</Aliquota>

<ValorLiquidoNfse>46.00</ValorLiquidoNfse>

</Valores>

<ItemListaServico>1401</ItemListaServico>

<CodigoTributacaoMunicipio>2408003</CodigoTributacaoMunicipio>

<Discriminacao>01 ALINHAMENTO DIRECAO LASER PICK-UP R$: 46,00</Discriminacao>

<CodigoMunicipio>2408003</CodigoMunicipio>

</Servico>


-<Prestador>

<Cnpj>24185522000173</Cnpj>

<InscricaoMunicipal>0014028</InscricaoMunicipal>

</Prestador>


<Tomador>


-<IdentificacaoTomador>


-<CpfCnpj>

<Cnpj>01974267000738</Cnpj>

</CpfCnpj>

</IdentificacaoTomador>

<RazaoSocial>NOLEM COMERCIAL IMP E EXPORT S/A</RazaoSocial>


<Endereco>

<Endereco>BR 304 KM 13-0</Endereco>

<Bairro>ZONA RURAL</Bairro>

<CodigoMunicipio>2408003</CodigoMunicipio>

<Uf>RN</Uf>

<Cep>59600970</Cep>

</Endereco>


-<Contato>

<Telefone>8434224033</Telefone>

</Contato>

</Tomador>

</InfRps>


+<Signature xmlns="http://www.w3.org/2000/09/xmldsig#">






































</Rps>

</ListaRps>

</LoteRps>

</EnviarLoteRpsEnvio>

Ps. Estou utilizando o provedor Tinus, ou seja, só preciso gerar o lote para fazer o upload no site da prefeitura.

Editado 29 Dezembro, 2015 por joaolenosi

[joaolenosi]

Debugando a aplicação cheguei na unit ACBrNFSeWebServices e nesse trecho de código:

 

  if FPConfiguracoesNFSe.Geral.ConfigAssinar.RPS then
  begin
    for I := 0 to FNotasFiscais.Count - 1 do
    begin
      case FVersaoNFSe of
        // RPS versão 2.00
        ve200: FvNotas := FvNotas +
                               '<' + FPrefixo4 + 'Rps>' +
                                '<' + FPrefixo4 + 'InfDeclaracaoPrestacaoServico' +
                                  RetornarConteudoEntre(TNFSeGerarLoteRPS(Self).FNotasFiscais.Items[I].XMLAssinado,
                                    '<' + FPrefixo4 + 'InfDeclaracaoPrestacaoServico', '</Signature>') +
                                '</Signature>'+
                               '</' + FPrefixo4 + 'Rps>';

        // RPS versão 1.00
        //Quando a aplicação chega neste ponto, FvNotas não está concatenando as demais notas.
        else FvNotas := FvNotas +
                        '<' + FPrefixo4 + 'Rps>' +
                         '<' + FPrefixo4 + 'InfRps' +
                           RetornarConteudoEntre(TNFSeGerarLoteRPS(Self).FNotasFiscais.Items[I].XMLAssinado,
                         '<' + FPrefixo4 + 'InfRps', '</Rps>') +
                        '</' + FPrefixo4 + 'Rps>';
      end;
    end;
  end

O problema é que essa variavel FvNotas ela não está conseguindo concatenar os XMLs.

 Nessa linha:   RetornarConteudoEntre(TNFSeGerarLoteRPS(Self).FNotasFiscais.Items.XMLAssinado

Tem meu segundo RPS, porém ao tentar concatenar só fica o primeiro.

 

Houve alguma mudança no Trunk2 em relação a esse componente?

Digo isso, pelo o fato deu ter em outro computador instalado os componentes antigos e o mesmo gera corretamente.

[Italo Giurizzato Junior]

Bom dia João,

Favor postar o XML do RPS bem como do lote como anexo.