compra.xPed no danfe simplificado etiqueta

[cdsistemas]

Boa tarde!

Como faço pra incluir o compra.xped no danfe simplificado etiqueta?

 

[Italo Giurizzato Junior]

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.

[cdsistemas]

Temos um cliente, especializado em e-commerce, onde é necessário aparecer o número do pedido para facilitar a separação e identificação.

[Italo Giurizzato Junior]

Se você utiliza o Fast Report basta criar um novo FR3 que imprima essa informação.

Se você utiliza o Fortes Report vai ser necessário alterar o componente.

[cdsistemas]

Eu copiei o FR3 do padrão do ACBR.

Normalmente quando preciso manipular o danfe faço assim.

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

 

[Italo Giurizzato Junior]

Você colocou o caminho inteiro?

NFe.compra.xPed

[cdsistemas]

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.

[Juliomar Marchetti]

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

[cdsistemas]

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

[Juliomar Marchetti]

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

[cdsistemas]

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;

[Juliomar Marchetti]

Tente anexar o arquivo, nunca cole é ruim pra ver o tópico e para também ajustar no código

[Victor H. Gonzales - Panda]

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

TK-3087

[Victor H. Gonzales - Panda]

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