A chave de Acesso do DPS não está vindo correta quando peço o retorno

[DOUGLAS GUIMARÃES DOS SANTOS]

Bom dia, estou fazendo implementação da busca da função de 'Consultar DPS por Chave' onde eu estou enfrentando um problema que não consegui resolver
Eu estou usando essa variável para tentar obter a chave do DPS que eu gerei no meu sistema 'ACBrNFSeX1.NotasFiscais.Items[0].NFSe.InfID.ID' 

Só que quando ele retorna a chave, quase volta a chave inteira, mas ainda falta alguns informações, que são os primeiro digitos.

Como volta o retorno:     DPS000000020288796800010700001000000000054205

Como tá na xml do DPS: DPS431490220288796800010700001000000000054205

 

Eu também já usei essa variável pra tentar obter 'ACBrNFSeX1.NotasFiscais.Items[0].XmlRps' mas não esta retornando corretamente.

E estou usando essa função para conseguir ler o xml.
ACBrNFSeX1.NotasFiscais.Clear;
ACBrNFSeX1.NotasFiscais.LoadFromFile('C:\...\0542041-rps.xml');

[Italo Giurizzato Junior]

Bom dia Douglas,

Você tem fontes do ACBr com alterações locais?
Verifica se não tem nenhuma unit do ACBr com uma bolinha vermelha em seu ícone, caso afirmativo delete a unit.
Atualize todos os fontes de todas as pastas.
Reinstale o ACBr com a opção de apagar arquivos antigos marcada.
Compile a aplicação com a opção Build.
Por fim repita os testes.
 

[DOUGLAS GUIMARÃES DOS SANTOS]

Bom dia, eu deletei os que estavam com uma bolinha vermelha e mesmo assim não funcionou.

Mas eu realizei mais alguns testes a mais sobre essas variáveis.

Testei em um Xml de uma nota de retorno após a emissão e quando eu leio o arquivo ela consegue pegar os valores corretamente, tanto 'ACBrNFSeX1.NotasFiscais.Items[0].XmlRps'; 'ACBrNFSeX1.NotasFiscais.Items[0].NFSe.infNFSe.ID' e 'ACBrNFSeX1.NotasFiscais.Items[0].NFSe.InfID.ID'

 

Só tá ocorrendo esse problema no XML do DPS não sei dizer o motivo, pq a função de leitura que eu uso é a mesma

[Italo Giurizzato Junior]

Boa tarde Douglas,

Após o envio você consegue a chave do DPS e da Nota da seguinte forma:

em ACBrNFSeX1.WebService.Emite.idNota temos a chave do DPS

em ACBrNFSeX1.WebService.Emite.Link temos a chave da Nota.

Ao carregar o XML da nota temos:

a chave da nota lendo (...).NFSe.infNFSe.ID

a chave do DPS lendo (...).NFSe.infID.ID 

Caso você carrego o XML do DPS em vez da NFS-e você só tem a chave do DPS lendo:  (...).NFSe.infID.ID

[DOUGLAS GUIMARÃES DOS SANTOS]

Boa tarde.

Estou tentando pela xml do DPS, buscando na variável que tu mencionou 'NFSe.infID.ID' Só que está retornando com os primeiros numeros

memoLog dentro do sistema:

linha que mostra o valor da infID.ID

xml que to usando pra pegar o valor da chave

Editado 4 Janeiro por DOUGLAS GUIMARÃES DOS SANTOS

[Italo Giurizzato Junior]

Douglas,

Na unit PadraoNacional.LerXml temos:

procedure TNFSeR_PadraoNacional.LerinfDPS(const ANode: TACBrXmlNode);
var
  AuxNode: TACBrXmlNode;
  Ok: Boolean;
begin
  AuxNode := ANode.Childrens.FindAnyNs('infDPS');

  if AuxNode <> nil then
  begin
    NFSe.infID.ID := OnlyNumber(ObterConteudoTag(AuxNode.Attributes.Items['Id']));
    NFSe.DataEmissao := ObterConteudo(AuxNode.Childrens.FindAnyNs('dhEmi'), tcDatHor);
    NFSe.verAplic := ObterConteudo(AuxNode.Childrens.FindAnyNs('verAplic'), tcStr);
    NFSe.IdentificacaoRps.Serie := ObterConteudo(AuxNode.Childrens.FindAnyNs('serie'), tcStr);
    NFSe.IdentificacaoRps.Numero := ObterConteudo(AuxNode.Childrens.FindAnyNs('nDPS'), tcStr);
    NFSe.Competencia := ObterConteudo(AuxNode.Childrens.FindAnyNs('dCompet'), tcDat);
    NFSe.tpEmit := StrTotpEmit(Ok, ObterConteudo(AuxNode.Childrens.FindAnyNs('tpEmit'), tcStr));

    LerSubstituicao(AuxNode);
    LerPrestador(AuxNode);
    LerTomador(AuxNode);
    LerIntermediario(AuxNode);
    LerServico(AuxNode);
    LerValores(AuxNode);
  end;
end;

Como você pode ver ao ler o atributo Id (da tag infDPS) que contem a chave do DPS ele executa a função OnlyNumber visando remover o prefixo DPS da chave, deixando somente os dígitos.

[DOUGLAS GUIMARÃES DOS SANTOS]

Bom dia.

Consegui resolver o problema que estava ocorrendo.

Eu estava vendo alguns exemplos do modulo de exemplo da ACBR e vi alguns exemplo passando um boolean como parametro também.

Então fui testar como ele tava lendo o xml passando ele e funcionou.

Antes eu ta utilizando

    ACBrNFSeX1.NotasFiscais.LoadFromFile('...\11-rps.xml');
Agora eu passei pra funcionar
    ACBrNFSeX1.NotasFiscais.LoadFromFile('...\11-rps.xml', false);

Obrigado pela assistência

[Alexandre de Paula]

Obrigado por reportar.

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