Erro no montar o XML para nfse Ponta Grossa provedor Elotech

[Sandro Andre Reghelin]

Estou montando o envio para NFse de Ponta Grossa provedor Elotech, mas no xml de exemplo deles vem o seguinte, ver arquivo EnviarLoteRpsSincronoEnvio.xml,

no gerar pelo acbr o meu esta formatando, ver arquivo 4126023125250600011156000000000000865-rps

podem ver no meu  que ele não monta a tag ListaRPS

debugando os fontes cheguei na procedure GerarMsgDadosEmitir da unit EloTech.Provider

nela a minha rotina passa nesse ponto:

if Response.ModoEnvio in [meLoteAssincrono, meLoteSincrono] then
    begin
      Requerente := GerarRequerente(Emitente.CNPJ, Emitente.InscMun, Emitente.WSSenha);

      Prestador := '<' + Prefixo2 + 'CpfCnpj>' +
                     GetCpfCnpj(Emitente.CNPJ, Prefixo2) +
                   '</' + Prefixo2 + 'CpfCnpj>' +
                   GetInscMunic(Emitente.InscMun, Prefixo2);

      Response.ArquivoEnvio := '<' + Prefixo + TagEnvio + NameSpace + '>' +
                             Requerente +
                             '<' + Prefixo + 'LoteRps' + NameSpace2 + IdAttr  + Versao + '>' +
                               '<' + Prefixo2 + 'NumeroLote>' +
                                  Response.NumeroLote +
                               '</' + Prefixo2 + 'NumeroLote>' +
                                 Prestador +
                               '<' + Prefixo2 + 'QuantidadeRps>' +
                                  IntToStr(TACBrNFSeX(FAOwner).NotasFiscais.Count) +
                               '</' + Prefixo2 + 'QuantidadeRps>' +
                               '<' + Prefixo2 + 'ListaRps>' +
                                  Xml +
                               '</' + Prefixo2 + 'ListaRps>' +
                             '</' + Prefixo + 'LoteRps>' +
                           '</' + Prefixo + TagEnvio + '>';
    end
    else
      Response.ArquivoEnvio := '<' + Prefixo + TagEnvio + NameSpace + '>' +
                              Xml +
                           '</' + Prefixo + TagEnvio + '>';

ela entra na rotina Response.ArquivoEnvio := '<' + Prefixo + TagEnvio + NameSpace + '>' +...

olhei as variáveis até a IntToStr(TACBrNFSeX(FAOwner).NotasFiscais.Count) que retorna 1 no meu processo, 

mas mesmo assim não monta no formato.

Tem alguma outra verificação, configuração a fazer ou tag faltando?

 

 

 

EnviarLoteRpsSincronoEnvio.xml 4126023125250600011156000000000000865-rps.xml

Editado 6 Março por Sandro Andre Reghelin
erro de digitação

[Sandro Andre Reghelin]

Resolvi o problema nas configurações do ACBR...

[Juliomar Marchetti]

Obrigado por reportar.

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