Ir para conteúdo
  • Cadastre-se

dev botao

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


Carlos Júnior
Ver Solução Respondido por hleorj,
  • Este tópico foi criado há 1847 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Consultores

Boa tarde Carlos,

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

  • Curtir 2
Consultor SAC ACBr

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

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • 3 semanas depois ...

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

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Moderadores
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 

Equipe ACBr Henrique Leonardo
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Tecnólogo em processamento de dados

E-mail [email protected] - Skype : hleorj

Link para o comentário
Compartilhar em outros sites

  • Moderadores
  • Solution

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.

  • Curtir 1
Equipe ACBr Henrique Leonardo
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Tecnólogo em processamento de dados

E-mail [email protected] - Skype : hleorj

Link para o comentário
Compartilhar em outros sites

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!

  • Curtir 2
Link para o comentário
Compartilhar em outros sites

  • Administradores

Obrigado por reportar.

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

  • Curtir 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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 !!

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1847 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.