Ir para conteúdo
  • Cadastre-se

dev botao

dev botao

  • Este tópico foi criado há 2580 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

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;

 

Postado
  Em 20/06/2018 at 01:05, André Ferreira de Moraes disse:

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

Expandir  

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));

Postado
  Em 24/06/2018 at 22:07, 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));

Expandir  

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!

  • Este tópico foi criado há 2580 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.