Ir para conteúdo
  • Cadastre-se

dev botao

Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

compra.xPed no danfe simplificado etiqueta

cdsistemas
 Compartilhar
Ver Solução Respondido por Italo Giurizzato Junior,
  • Este tópico foi criado há 790 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Consultores
Italo Giurizzato Junior Grand Master

Italo Giurizzato Junior

Postado
  • Consultores
Postado

Boa tarde,

Segundo a NT 2020/001 não está previsto a impressão dessa informação.

Qual é a real necessidade de se ter essa informação impressa na etiqueta?

Lhe pergunto isso, pois o DANFE Simplificado - Etiqueta foi criado para atender o comercio varejista para consumidor final em comércio eletrônico, venda por telemarketing ou processos semelhantes.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

  • Membros Pro
cdsistemas Enthusiast

cdsistemas

Postado
  • Autor
  • Membros Pro
Postado

Eu copiei o FR3 do padrão do ACBR.

Normalmente quando preciso manipular o danfe faço assim.

image.png.5659a7b9aa039d6417099ba1b1f5200a.png

Porém ao editar, não existe a tag compras.xped na unit ACBrNFeDANFEFRDM.

image.png.da27cebbf120835d70e24e452589d60b.png

 

  • Membros Pro
cdsistemas Enthusiast

cdsistemas

Postado
  • Autor
  • Membros Pro
Postado

Italo, boa tarde!

Estou usando dessa forma:

<b>NOME/RAZÃO SOCIAL :</b>[Emitente."XNome"]
<b>CNPJ:</b>[Emitente."CNPJ"] <b>IE:</b> [Emitente."IE"] <b>UF:</b>[Emitente."UF"] <b>PEDIDO:</b>[Compra."xPed"] 

Mas ACBrNFeDANFEFRDM não tem    

cdsCompra: TClientDataSet;
FfrxCompra: TfrxDBDataset;

Existe apenas cdsIdentificacao, cdsEmitente, cdsDestinatario, cdsDadosProdutos, cdsParametros, cdsDuplicatas e etc.

  • Moderadores
Juliomar Marchetti Grand Master

Juliomar Marchetti

Postado
  • Moderadores
Postado
32 minutos atrás, cdsistemas disse:

Italo, boa tarde!

Estou usando dessa forma:

<b>NOME/RAZÃO SOCIAL :</b>[Emitente."XNome"]
<b>CNPJ:</b>[Emitente."CNPJ"] <b>IE:</b> [Emitente."IE"] <b>UF:</b>[Emitente."UF"] <b>PEDIDO:</b>[Compra."xPed"] 

Mas ACBrNFeDANFEFRDM não tem    

cdsCompra: TClientDataSet;
FfrxCompra: TfrxDBDataset;

Existe apenas cdsIdentificacao, cdsEmitente, cdsDestinatario, cdsDadosProdutos, cdsParametros, cdsDuplicatas e etc.

tu está alterando ou tem alterado o ACBr localmente? se sim acho que precisa reverter para o SVN nosso

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br 		MVP_NewLogo_100x100_Transparent-02.png
 

 

  • Membros Pro
cdsistemas Enthusiast

cdsistemas

Postado
  • Autor
  • Membros Pro
Postado

Juliomar, boa tarde!

Eu resolvi o problema mas tive que alterar o fonte do ACBr.

Alterei o fonte do ACBrNFeDANFEFRDM.pas

Na linha 279 eu inclui FieldDefs.Add('Pedido', ftString, 20);

Na linha 1412 eu incluir FieldByName('Pedido').AsString := FNFe.Compra.Xped; 

Com essa mudança eu consegui manipular o arquivo FR3, utilizando a tag  [Identificacao."Pedido"]

Obrigado!!!

ACBrNFeDANFEFRDM.pas

  • Moderadores
Juliomar Marchetti Grand Master

Juliomar Marchetti

Postado
  • Moderadores
Postado
7 horas atrás, cdsistemas disse:

Juliomar, boa tarde!

Eu resolvi o problema mas tive que alterar o fonte do ACBr.

Alterei o fonte do ACBrNFeDANFEFRDM.pas

Na linha 279 eu inclui FieldDefs.Add('Pedido', ftString, 20);

Na linha 1412 eu incluir FieldByName('Pedido').AsString := FNFe.Compra.Xped; 

Com essa mudança eu consegui manipular o arquivo FR3, utilizando a tag  [Identificacao."Pedido"]

Obrigado!!!

ACBrNFeDANFEFRDM.pasUnavailable

estou tentando pegar o arquivo mas ele está corrompido. por favor anexe novamente

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br 		MVP_NewLogo_100x100_Transparent-02.png
 

 

  • Membros Pro
cdsistemas Enthusiast

cdsistemas

Postado
  • Autor
  • Membros Pro
Postado

Esta dando erro ao anexar o arquivo.

Segue os blocos das mudanças:

  // cdsIdentificacao
  if not Assigned(cdsIdentificacao) then
  begin
     cdsIdentificacao := TClientDataSet.Create(AOwner);
     FfrxIdentificacao := TfrxDBDataset.Create(AOwner);
     with FfrxIdentificacao do
     begin
        DataSet := cdsIdentificacao;
        OpenDataSource := False;
        Enabled := False;
        UserName := 'Identificacao';
     end;

     with cdsIdentificacao do
     begin
        FieldDefs.Add('Id', ftString, 44);
        FieldDefs.Add('Versao', ftFloat);
        FieldDefs.Add('Chave', ftString, 60);
        FieldDefs.Add('cUF', ftString, 2);
        FieldDefs.Add('cNF', ftString, 9);
        FieldDefs.Add('NatOp', ftString, 60);
        FieldDefs.Add('IndPag', ftString, 1);
        FieldDefs.Add('Mod_', ftString, 2);
        FieldDefs.Add('Serie', ftString, 3);
        FieldDefs.Add('NNF', ftString, 11);
        FieldDefs.Add('DEmi', ftString, 19);
        FieldDefs.Add('DSaiEnt', ftString, 10);
        FieldDefs.Add('TpNF', ftString, 1);
        FieldDefs.Add('CMunFG', ftString, 7);
        FieldDefs.Add('TpImp', ftString, 1);
        FieldDefs.Add('TpEmis', ftString, 1);
        FieldDefs.Add('CDV', ftString, 1);
        FieldDefs.Add('TpAmb', ftString, 1);
        FieldDefs.Add('FinNFe', ftString, 1);
        FieldDefs.Add('ProcEmi', ftString, 1);
        FieldDefs.Add('VerProc', ftString, 6);
        FieldDefs.Add('HoraSaida', ftString, 10);
        FieldDefs.Add('MensagemFiscal', ftString, 200);
        FieldDefs.Add('URL', ftString, 1000);
        FieldDefs.Add('Pedido', ftString, 20);
        CreateDataSet;
     end;
   end;

 

procedure TACBrNFeFRClass.CarregaIdentificacao;
begin
  with cdsIdentificacao do
  begin
    Close;
    CreateDataSet;
    Append;

    FieldByName('Id').AsString      := OnlyNumber(FNFe.infNFe.Id);
    FieldByName('Versao').AsFloat   := FNFe.infNFe.versao;
    FieldByName('Chave').AsString   := FormatarChaveAcesso(FNFe.infNFe.Id);
    FieldByName('CUF').AsString     := IntToStr(FNFe.Ide.CUF);
    FieldByName('CNF').AsString     := IntToStr(FNFe.Ide.CNF);
    FieldByName('NatOp').AsString   := FNFe.Ide.NatOp;
    FieldByName('IndPag').AsString  := IndpagToStr(FNFe.Ide.IndPag );
    FieldByName('Mod_').AsString    := IntToStr(FNFe.Ide.Modelo);
    FieldByName('Serie').AsString   := IntToStr(FNFe.Ide.Serie);
    FieldByName('NNF').AsString     := FormatarNumeroDocumentoFiscal(IntToStr(FNFe.Ide.NNF));
    FieldByName('DEmi').AsString    := FormatDateBr(FNFe.Ide.DEmi);
    FieldByName('DSaiEnt').AsString := IfThen(FNFe.Ide.DSaiEnt <> 0, FormatDateBr(FNFe.Ide.DSaiEnt));
    FieldByName('TpNF').AsString    := tpNFToStr( FNFe.Ide.TpNF );
    FieldByName('CMunFG').AsString  := IntToStr(FNFe.Ide.CMunFG);
    FieldByName('TpImp').AsString   := TpImpToStr( FNFe.Ide.TpImp );
    FieldByName('TpEmis').AsString  := TpEmisToStr( FNFe.Ide.TpEmis );
    FieldByName('CDV').AsString     := IntToStr(FNFe.Ide.CDV);
    FieldByName('TpAmb').AsString   := TpAmbToStr( FNFe.Ide.TpAmb );
    FieldByName('FinNFe').AsString  := FinNFeToStr( FNFe.Ide.FinNFe );
    FieldByName('ProcEmi').AsString := procEmiToStr( FNFe.Ide.ProcEmi );
    FieldByName('VerProc').AsString := FNFe.Ide.VerProc;
    if FNFe.infNFe.versao = 2.00 then
      FieldByName('HoraSaida').AsString := ifthen(FNFe.ide.hSaiEnt = 0, '', TimeToStr(FNFe.ide.hSaiEnt))
    else
      FieldByName('HoraSaida').AsString := ifthen(TimeOf(FNFe.ide.dSaiEnt)=0, '', TimeToStr(FNFe.ide.dSaiEnt));

    if (FNFe.Ide.Modelo = 65) then
    begin
      FieldByName('DEmi').AsString := FormatDateTimeBr(FNFe.Ide.DEmi);

      if (FNFe.Ide.tpEmis <> teNormal) and EstaVazio(FNFe.procNFe.nProt) then
        FieldByName('MensagemFiscal').AsString := ACBrStr('EMITIDA EM CONTINGÊNCIA'+LineBreak+'Pendente de autorização');

      if FNFe.Ide.TpAmb = taHomologacao then
        FieldByName('MensagemFiscal').AsString := FieldByName('MensagemFiscal').AsString+LineBreak+LineBreak+ACBrStr('EMITIDA EM AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL');

      if EstaVazio(FieldByName('MensagemFiscal').AsString) then
        FieldByName('MensagemFiscal').AsString := ACBrStr('ÁREA DE MENSAGEM FISCAL');

      if EstaVazio(FNFe.infNFeSupl.urlChave) then
        FieldByName('URL').AsString := TACBrNFe(DANFEClassOwner.ACBrNFe).GetURLConsultaNFCe(FNFe.Ide.cUF, FNFe.Ide.tpAmb, FNFe.infNFe.Versao)
      else
        FieldByName('URL').AsString := FNFe.infNFeSupl.urlChave;

      FieldByName('MensagemFiscal').AsString := Trim(FieldByName('MensagemFiscal').AsString);
    end
    else
    begin
      FieldByName('MensagemFiscal').AsString := '';
      FieldByName('URL').AsString            := '';
    end;

    FieldByName('Pedido').AsString := FNFe.Compra.Xped; 

    Post;
  end;
end;

  • Consultores
Victor H. Gonzales - Panda Experienced

Victor H. Gonzales - Panda

Postado
  • Consultores
Postado

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

TK-3087

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

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

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

  • 2 semanas depois ...
  • Consultores
Victor H. Gonzales - Panda Experienced

Victor H. Gonzales - Panda

Postado
  • Consultores
Postado

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

Utilize a tag xPed no lugar de Pedido por favor

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

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

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

 Compartilhar
Ir para a lista de tópicos
×
×
  • 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.