Nota Técnica (NT) nº 5/2018

[Carlos Júnior]

O Layout do Danfe já sofreu alteração decorrente na  Nota Técnica (NT) nº 5/2018, versão 1.00?

 

[Italo Giurizzato Junior]

Boa tarde Carlos,

Sim, para contemplar a impressão dos dados referente a Retirada e Entrega.

[Sandro Souza SP]

Bom dia, Italo!

Atualizei os fontes, instalei novamente o ACBr, e emiti numa Nf-e em homologação.  o XML gravou os campos de entrega, porém a danfe sai normal, sem esses dados.

Há um comando ou configuração para ativar a impressão de entrega/retirada no danfe?  Obrigado.

35190220723049000180550000000000031000000033-nfe.xml

[hleorj]

22 horas atrás, sandrovillas disse:

Bom dia, Italo!

Atualizei os fontes, instalei novamente o ACBr, e emiti numa Nf-e em homologação.  o XML gravou os campos de entrega, porém a danfe sai normal, sem esses dados.

Há um comando ou configuração para ativar a impressão de entrega/retirada no danfe?  Obrigado.

35190220723049000180550000000000031000000033-nfe.xml 7 kB · 4 downloads

Consegue ler os fontes ? de impressão das Danfe´s 

[hleorj]

Para te facilitar 

procedure TfrlDANFeRLRetrato.DefinirEntrega;
begin
  with fpNFe.Entrega do
  begin
    rlbEntrega.Visible := NaoEstaVazio(xNome);

    if rlbEntrega.Visible then
    begin
      RLLquadroEntregaNome.Caption := xNome;
      RLLquadroEntregaDocumento.Caption := FormatarCNPJouCPF(CNPJCPF);
      RLLquadroEntregaIE.Caption := IE;
      RLLquadroEntregaEndereco.Caption := XLgr +
                                          IfThen(Nro = '0', '', ', ' + Nro) +
                                          IfThen(EstaVazio(xCpl), '', ' - ' + xCpl);
      RLLquadroEntregaBairro.Caption := xBairro;
      RLLquadroEntregaCep.Caption := FormatarCEP(CEP);
      RLLquadroEntregaMunicipio.Caption := xMun;
      RLLquadroEntregaUF.Caption := UF;
      RLLquadroEntregaTelefone.Caption := FormatarFone(Fone);
    end;
  end;
end;

 

rlbEntrega.Visible := NaoEstaVazio(xNome);

Seu xml , não possui a Tag xNome.

[hleorj]

No Svn :

[*] Melhoria na condição para apresentar o layout de local retirada / entrega.
    (por: Henrique Leonardo - Hleorj )
 

[Sandro Souza SP]

Em 01/03/2019 at 09:10, hleorj disse:

Para te facilitar 

procedure TfrlDANFeRLRetrato.DefinirEntrega;
begin
  with fpNFe.Entrega do
  begin
    rlbEntrega.Visible := NaoEstaVazio(xNome);

    if rlbEntrega.Visible then
    begin
      RLLquadroEntregaNome.Caption := xNome;
      RLLquadroEntregaDocumento.Caption := FormatarCNPJouCPF(CNPJCPF);
      RLLquadroEntregaIE.Caption := IE;
      RLLquadroEntregaEndereco.Caption := XLgr +
                                          IfThen(Nro = '0', '', ', ' + Nro) +
                                          IfThen(EstaVazio(xCpl), '', ' - ' + xCpl);
      RLLquadroEntregaBairro.Caption := xBairro;
      RLLquadroEntregaCep.Caption := FormatarCEP(CEP);
      RLLquadroEntregaMunicipio.Caption := xMun;
      RLLquadroEntregaUF.Caption := UF;
      RLLquadroEntregaTelefone.Caption := FormatarFone(Fone);
    end;
  end;
end;

 

rlbEntrega.Visible := NaoEstaVazio(xNome);

Seu xml , não possui a Tag xNome.

Bom dia Leonardo!  Adicionei a tag xnome e funcionou.  Muito obrigado.

um grande abraço!

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.