Retorno do envio por Lote RPS.

[raosistemas]

<RetornoEnvioLoteRPS
    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
    xmlns="http://www.prefeitura.sp.gov.br/nfe">
    <Cabecalho
        xmlns="" Versao="1">
        <Sucesso>true</Sucesso>
        <InformacoesLote>
            <NumeroLote>730310729</NumeroLote>
            <InscricaoPrestador>35859261</InscricaoPrestador>
            <CPFCNPJRemetente>
                <CNPJ>08449080000179</CNPJ>
            </CPFCNPJRemetente>
            <DataEnvioLote>2021-07-06T14:29:55</DataEnvioLote>
            <QtdNotasProcessadas>1</QtdNotasProcessadas>
            <TempoProcessamento>0</TempoProcessamento>
            <ValorTotalServicos>1.15</ValorTotalServicos>
        </InformacoesLote>
    </Cabecalho>
    <ChaveNFeRPS
        xmlns="">
        <ChaveNFe>
            <InscricaoPrestador>35859261</InscricaoPrestador>
            <NumeroNFe>710</NumeroNFe>
            <CodigoVerificacao>UEFGWBAF</CodigoVerificacao>
        </ChaveNFe>
        <ChaveRPS>
            <InscricaoPrestador>35859261</InscricaoPrestador>
            <SerieRPS>85</SerieRPS>
            <NumeroRPS>22224</NumeroRPS>
        </ChaveRPS>
    </ChaveNFeRPS>
</RetornoEnvioLoteRPS>

Esse é o retorno do envio em LOTE da NFs-eX...

não estou conseguindo obter os dados da nota (nfse.numero) retorna o numero do rps.

o mesmo ocorrendo com o codigo de verificação.

 

[Italo Giurizzato Junior]

Boa tarde,

No envio é levado em consideração o numero do Rps, pois é este que é enviado.

No momento do envio o componente esta carregado com os dados do Rps, ao tratar o retorno ele procura pelo Rps, uma vez que dependendo do provedor e serviço podemos enviar um lote de até 50 Rps.

Após o envio no caso do provedor SP, podemos realizar a consulta a NFS-e por Rps informando o Rps.

No programa exemplo temos a procedure chamada ChecarResposta:

  if Response is TNFSeEmiteResponse then
  begin
    memoLog.Lines.Add('Modo de Envio : ' + ModoEnvioToStr(TNFSeEmiteResponse(Response).ModoEnvio));
    memoLog.Lines.Add('Numero do Lote: ' + TNFSeEmiteResponse(Response).Lote);
    memoLog.Lines.Add('Data de Envio : ' + DateToStr(TNFSeEmiteResponse(Response).Data));
    memoLog.Lines.Add('Numero do Prot: ' + TNFSeEmiteResponse(Response).Protocolo);
    memoLog.Lines.Add('Sucesso       : ' + BoolToStr(Response.Sucesso, True));
  end;

O fragmento de código acima se refere ao retorno do Emitir.

Para obter o numero da NFS-e e o código de verificação que temos no retorno do envio, basta fazer o seguinte:

Basta ler os campos:

NumeroNFSe := Response.InfRetorno.ChaveNFeRPS.Numero;

CodVer := Response.infRetorno.ChaveNFeRPS.CodigoVerificacao;

[raosistemas]

Obrigado Italo, deu certo.

[Italo Giurizzato Junior]

Obrigado por reportar.

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