Jump to content

logo_acbr_paygo.png

Chegou o TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao_saibamais.png

beneficios.png

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

gss200610

ANSWERED Alterar uma propriedade do AcbrNFe e capturar o xml atualizado via componente

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

Recommended Posts

Ola a todos tenho um procedimento como abaixo descrito, que percorro o xml, altero um campo desejado, porem ao chamar o metodo gravar xml ou tentar capturar o xml do componente o mesmo nao me retorna com o valor que alterei, o que estou fazendo de errado?
 

var
  Nota: TCollectionItem;
  prodxml: TDetCollectionItem;
begin
  if not  OpenDialog1.Execute then Exit;

  ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

  for Nota in ACBrNFe1.NotasFiscais do
  begin
    
    for prodxml in NotaFiscal(Nota).NFe.Det do
    begin
     
      if prodxml.Prod.nItem.ToString.Equals( Edit1.Text) then
      begin
        Memo1.Lines.Add(' ITEM ENCONTRADO , NCM = ' + prodxml.Prod.NCM );
        prodxml.Prod.NCM := Edit2.Text;
     
      end;
      
    end;

    NotaFiscal(Nota).GravarXML('', 'c:\intel'); /// XML SALVO é o mesmo que carreguei no opendialog e nao com a propriedade ncm alterada.
    RichEdit1.Text := NotaFiscal(Nota).GerarXML; // o mesmo acontece aqui, mesmo se chamar metodo xml , vem xml desatualizado
  end;
  

Share this post


Link to post
Share on other sites

Aparentemente falta chamar o método Assinar, após o ACBrNFe1.GerarNFe ou ACBrNFe1.NotasFiscais.GerarXML.

O método GravarXML deve refletir as alterações após o GerarNFe ou GerarXML.


Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Share this post


Link to post
Share on other sites
9 minutos atrás, gss200610 disse:

Sem o método assinar ele não vai persistir os dados no componente?

O GerarNFe / GerarXML vai gerar o XML internamente no componente.

Para gravar em arquivo é preciso o componente estar configurado pra isso e a chamada ao método Assinar.

O GravarXML vai apenas gravar em arquivo o XML no estado atual.

  • Like 1

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Share this post


Link to post
Share on other sites

Ótimo, então posso alterar qualquer propriedade e após chamar o método assinar capturar o XML da propriedade?

Pra apenas gerar no componente atualizado preciso chamar o assinar?

 

Edited by gss200610

Share this post


Link to post
Share on other sites

Use a força, leia os fontes... veja:

procedure NotaFiscal.Assinar;
var
  XMLStr: String;
  XMLUTF8: AnsiString;
  Leitor: TLeitor;
begin
  with TACBrNFe(TNotasFiscais(Collection).ACBrNFe) do
  begin
    if not Assigned(SSL.AntesDeAssinar) then
      SSL.ValidarCNPJCertificado( NFe.Emit.CNPJCPF );
  end;

  // Gera novamente, para processar propriedades que podem ter sido modificadas   <==== AQUI
  XMLStr := GerarXML;
.....

 

  • Like 2

Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Share this post


Link to post
Share on other sites
  • Este tópico foi criado há 147 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...