ACBrNFe1.WebServices.Inutiliza Não recebe Dados

[Germano Solter]

Amigos, boa noite.

Estou tentando trazer da base um XML em Blob para inutilizar a numeracao mas os campos para ACBrNFe1.WebServices.Inutiliza() estao todos em branco. Acredito esta usando o componente de forma errada. Poderiam me ajudar?

Obrigado a todos.

 

    begin
      NFCeCHAVE:= 'NFe' + trim(fdqCancVendaCHAVE_NFE.AsString);
      with fdqXML do
      begin
        Close;
        SQL.Clear;
        SQL.Text:='select * from nfe_xml';
        SQL.Add('where chave_nfe = :pChave');
        Params[0].AsString:= NFCeCHAVE;
        Open();
      end;
      if fdqXML.RecordCount = 0 then
      begin
        ShowMessage('Nfe' + fdqCancVendaCHAVE_NFE.AsString + '. Nota não encontrada' );
        Abort;
      end;
      DmAcBr.ACBrNFe1.InutNFe.LerXMLFromString(fdqXMLARQUIVO_XML.AsAnsiString);
      with DmAcBr.ACBrNFe1 do
      begin
      DmAcBr.ACBrNFe1.WebServices.Inutiliza(InutNFe.CNPJ, 'Cliente cancelou a compra.', InutNFe.ano, InutNFe.modelo, InutNFe.Serie, InutNFe.nNFIni, InutNFe.nNFFin);
      end;
      DmAcBr.ACBrNFe1.ImprimirInutilizacao;
    end;

 

[André Ferreira de Moraes]

O comando LerXMLFromString lê um XML de inutilização, não de uma venda.

[Germano Solter]

Em 19/06/2018 at 22:05, André Ferreira de Moraes disse:

O comando LerXMLFromString lê um XML de inutilização, não de uma venda.

Consegui dessa forma (não tenho certeza se é a forma mais limpa ou correta) mas nao consegui achar o ANO para enviar. O que ainda faço de errado? Obrigado.   

DmAcBr.ACBrNFe1.NotasFiscais.LoadFromString(fdqXMLARQUIVO_XML.AsAnsiString);
ShowMessage(DmAcBr.ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF);
ShowMessage(DmAcBr.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.serie.ToString);
ShowMessage(DmAcBr.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.modelo.ToString);
ShowMessage(DmAcBr.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.nNF.ToString);
ShowMessage(DateToStr(DmAcBr.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dhCont));

[Germano Solter]

2 horas atrás, Germano Solter disse:

Consegui dessa forma (não tenho certeza se é a forma mais limpa ou correta) mas nao consegui achar o ANO para enviar. O que ainda faço de errado? Obrigado.   

DmAcBr.ACBrNFe1.NotasFiscais.LoadFromString(fdqXMLARQUIVO_XML.AsAnsiString);
ShowMessage(DmAcBr.ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF);
ShowMessage(DmAcBr.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.serie.ToString);
ShowMessage(DmAcBr.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.modelo.ToString);
ShowMessage(DmAcBr.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.nNF.ToString);
ShowMessage(DateToStr(DmAcBr.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dhCont));

Andre, esquece a pergunta. Era falta de lógica minha mesmo (Burrice, heheheheheeh). Fiz pegando as informaçoes da Base mesmo e já esta resolvido.

Abraço,

Obrigado Mesmo!