Problema na Impressão da Inutilização, não Aparece os Dados

[Mauricio Elias]

Olá Tudo Bem!

Estou com um problema na Impressão da Inutilização da Numeração, ele gera o .xml com a inutilização homologada mas na impressão na tela não está aparecendo as informações como segue no exemplo em pdf(Inutilizacao_com_problema) anexado. 

O problema ocorre também no exemplo do ACBrNFe_Exemplo, testei clicando no botão Inutilizar Imprimir e ao carregar o .xml a impressão é a mesma sem as informações(igual no exemplo em pdf em anexo).

Testei com dois xmls um em produção e outro em homologação e ambos apresenta o mesmo problema. O xml de produção feito no cliente está com acentuação na justificativa, não sei se teria alguma coisa haver, mas fiz uma inutilização no ambiente de homologação e na justificativa fiz sem acentuação e no xml da mesma apareceu como homologado, mas a impressão apresentou o mesmo problema.

O que pode estar acontecendo? Pois não acontecia esse problema antes, fiz a atualização do ACBr a algumas semanas atrás para poder adequar as mudanças das NT que entraram em vigor no dia 01/07/2024, mas eu atualizei a pasta schemas e a Report na pasta do PC onde desenvolvo e assim como nós clientes.

Desde já Muito Obrigado pela Ajuda!

Inutilizacao_com_problema.pdf 52241993539000038155001000030999000030999-procInutNFe.xml 51240266934800036355001000035711000035711-procInutNFe.xml

[Italo Giurizzato Junior]

Boa tarde @Mauricio Elias,

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.
 

[Arnaldo Cruz]

o meu também não está aparecendo os dados, segui os passos indicados pelo Italo e não funcionou, deletei a pasta do ACBr, baixei hoje 18/07/2024 um novo ACBr pelo SVN, instalei usando a opção de apagar arquivos antigos,

compilei meu sistema pelo Build, mas quando tento imprimir a inutilização continua sem dados.

CLASSE ACBrNFe.RetInut

function TRetInutNFe.LerXml: Boolean;
var
  Document: TACBrXmlDocument;
  ANode, AuxNode: TACBrXmlNode;
  ok: Boolean;
begin
  Document := TACBrXmlDocument.Create;

  try
    try
      Result := False;

      if XmlRetorno = '' then Exit;

      Document.LoadFromXml(XmlRetorno);  // aqui da pra ver o xml carregado com todos os dados

      ANode := Document.Root;

      if ANode <> nil then  //Aqui volta diferente de nil
      begin
        AuxNode := ANode.Childrens.FindAnyNs('retInutNFe');  // Aqui AuxNode fica vazio na passada

        versao := ObterConteudoTag(ANode.Attributes.Items['versao']); //Aqui versao fica vazio na passada

        if AuxNode = nil then  //Aqui AuxNode está como nil na passada
          AuxNode := ANode.Childrens.FindAnyNs('infInut') //entra aqui
        else
          AuxNode := AuxNode.Childrens.FindAnyNs('infInut');

        if AuxNode <> nil then  // Aqui AuxNode está como nil na passada
        begin
          Id := ObterConteudoTag(AuxNode.Attributes.Items['Id']);
          tpAmb := StrToTpAmb(ok, ObterConteudoTag(AuxNode.Childrens.FindAnyNs('tpAmb'), tcStr));
          verAplic := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('verAplic'), tcStr);
          cStat := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('cStat'), tcInt);
          xMotivo := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('xMotivo'), tcStr);
          cUF := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('cUF'), tcInt);
          ano := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('ano'), tcInt);
          CNPJ := ObterConteudoTagCNPJCPF(AuxNode);
          modelo := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('mod'), tcInt);
          serie := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('serie'), tcInt);
          nNFIni := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('nNFIni'), tcInt);
          nNFFin := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('nNFFin'), tcInt);
          dhRecbto := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('dhRecbto'), tcDatHor);
          nProt := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('nProt'), tcStr);
          xJust := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('xJust'), tcStr);
        end;
      end;

      Result := True;
    except
      Result := False;
    end;
  finally
    FreeAndNil(Document);
  end;

[Italo Giurizzato Junior]

Bom dia @Arnaldo Cruz,

Para poder imprimir a Inutilização se faz necessário carregar o XML nomeado como *-ProcInutNFe.xml

É esse o XML que você esta tentando carregar?

Você esta usando o método abaixo para carregar o XML?

ACBrNFe1.InutNFe.LerXML(xNomeArqXml);

 

[Arnaldo Cruz]

fiz a alteração recomendada mais continua impriindo vazio

 

NomeA := 'C:\InutilizacaoNFCe\325240000011336-ProcInutNFe.xml

FDataModule.ACBrNFe1.InutNFe.LerXML(NomeA);
FDataModule.ACBrNFe1.ImprimirInutilizacao;

coloquei um BreakPoint e acompanhei o codigo, e na função da classe citada acima volta tudo nil, por isso não preenche os campos

 if AuxNode <> nil then  // Aqui AuxNode está como nil na passada

 

Editado 20 Julho por Arnaldo Cruz

[Arnaldo Cruz]

325240000015025-ProcInutNFe.xml

Este é o arquivo inutilizado hoje 19/07/2024 a impressão sai tudo vazio

 

NomeA := 'C:\InutilizacaoNFCe\325240000015025-ProcInutNFe.xml'

FDataModule.ACBrNFe1.InutNFe.LerXML(NomeA);
FDataModule.ACBrNFe1.ImprimirInutilizacao;

Editado 20 Julho por Arnaldo Cruz

[Italo Giurizzato Junior]

Bom dia @Arnaldo Cruz,

Mas esse XML que você anexou só contem o retorno do pedido de inutilização.

Quando inutilizamos um numero ou faixa de números são gerados 3 XML.

O pedido de inutilização: *-ped-inu.xml

O retorno: *-inu.xml

E o processamento da inutilização: *-ProcInutNFe.xml

Este ultimo é composto pelo pedido mais o retorno.

Esse XML que você anexou é simplesmente o retorno mas com o nome do XML de processamento.

O XML de processamento traz em seu nome o ID do pedido de inutilização e não o numero do protocolo.

Esse XML foi gerado por outra aplicação e você esta tentando carregar ele para poder imprimir?

[Arnaldo Cruz]

eu salvo em arquivo e estou fazendo assim

Memo1.Lines.Clear;
Protocolo := FDataModule.ACBrNFe1.WebServices.Inutilizacao.Protocolo;
NomeA := 'C:\InutilizacaoNFCe\';
Memo1.Lines.Add(FDataModule.ACBrNFe1.WebServices.Inutilizacao.RetornoWS);
Memo1.Lines.SaveToFile(NomeA +  Protocolo + '-ProcInutNFe.xml');

 

Estranho é que a versao que está nos clientes está desse mesmo jeito, e imprime o comprovante certinho

só esta que estou mechendo no código fonte com atualização do ACBr não imprime, alias imprime em branco e

vez em quando dá um AccesViolation tipo inutilizo 3 notas em uma dá erro 

Editado 20 Julho por Arnaldo Cruz

[Arnaldo Cruz]

Resolvido de Salvar o  ACBrNFe1.WebServices.Inutilizacao.RetornoWS, salvei o ACBrNFe1.WebServices.Inutilizacao.RetWS,

obrigado a dica de que mais de um arquivo  foi fundamental

[Italo Giurizzato Junior]

Bom dia @Arnaldo Cruz,

Você não precisa fazer nada disso.

Basta configurar a propriedade Salvar para que o componente salve automaticamente o XML (*-ProcInutNFe.xml) para você.

Configuracoes.Arquivos.Salvar := True;

Com relação ao caminho:

Configuracoes.Arquivos.PathInu :=  'C:\InutilizacaoNFCe\';