Mostrar Chave da Nota Fiscal Eletronica em Notas de Devolução

[Josemar Sabino]

Boa noite pessoal.

Um cliente que atendo teve a necessidade de fazer uma nota fiscal de devolução. Com base nisso tive que fazer algumas alterações e uma deles foi fazer a inclusão da chave da nota fiscal eletronica referenciada para devolução, ou seja, ocliente tinha que informar a chave eletronica da nota fiscal de origem da daquele produto que estava sendo devolvido.

A inclusão do mesmo foi feito da seguinte forma :

       ide.NFref.Add.refNFe:=QueryNfeChRefNFECHREF_CHAVE.AsString;

Ao fazer a emissão do Danfe , observei que essa chave não é mostrada em lugar algum. Teria como fazer a impressão desta chave referenciada ?

 

[RicardoVoigt]

Bom dia

A primeira opção seria seu sistema inserir/repetir os dados da nota referenciada nas informações complementares (infCpl).

Acho que seria interessante a ideia de fazer a concatenação automática dessa informação junto do infCpl na impressão do danfe. (Eu ja vi isso sendo feito no danfe do projeto nfephp.) Acho legal pois a informaçao não fica duplicada dentro do xml.

Att

Ricardo

[RicardoVoigt]

Boa tarde,

segue para análise, a alteração no DANFe Fortes (retrato e paisagem) para exibir automaticamente, nos dados adicionais, os documentos referenciados contidos no XML, mais precisamente na tag NFRef.

Segue imagem para mostrar como ficaria a impressão, um exemplo referenciando uma NFe e outro exemplo referenciando uma nota de produtor (NFP).

(OBS: São 2 pedaços de imagem, um por cima do outro, montado rapidinho no mspaint)

Att

Ricardo

 

ACBrNFeDANFeRLRetrato.pas

ACBrNFeDANFeRLPaisagem.pas

[hleorj]

@RicardoVoigt, verifique a possibilidade de desenvolver uma função 

  Ex. Function ManterDocreferenciados ( FNFe.Ide.NFref ) : String;

[RicardoVoigt]

6 minutos atrás, hleorj disse:

@RicardoVoigt, verifique a possibilidade de desenvolver uma função 

  Ex. Function ManterDocreferenciados ( FNFe.Ide.NFref ) : String;

Claro...

Não entendi bem sua ideia, mas imagino que seria interessante manter o comportamento atual (sem exibir o NFref) mas permitir o usuário/programador fazer uma chamada (uma procedure, function ou property) no sentido de habilitar ou não a exibição do NFref nos dados adicionais. Isso ?

Att

Ricardo

[hleorj]

@RicardoVoigt, temos um grande problema para dar manutenção no código.

  InsereLinhas(   ManterDocreferenciados +
                  ManterInfAdFisco +
                  ManterObsFisco +
                  ManterProcreferenciado +
                  ManterInfContr +
                  ManterInfCompl ,
                  iLimiteCaracteresLinha,
                  rlmDadosAdicionaisAuxiliar);

 

Segue uma ideia

ACBrNFeDANFeRLRetrato.pas

Na nota receita já é padrão imprimir documento referenciado

[RicardoVoigt]

28 minutos atrás, hleorj disse:

@RicardoVoigt, temos um grande problema para dar manutenção no código.

  InsereLinhas(   ManterDocreferenciados +
                  ManterInfAdFisco +
                  ManterObsFisco +
                  ManterProcreferenciado +
                  ManterInfContr +
                  ManterInfCompl ,
                  iLimiteCaracteresLinha,
                  rlmDadosAdicionaisAuxiliar);

 

Segue uma ideia

 

Entendi, fica bem mais organizado mesmo... minha intenção era colaborar com algo novo, não mexer no código que já tinha pronto.

Att

Ricardo

[hleorj]

@RicardoVoigt, poderia efetuar alguns testes.

sugestões serão bem aceitas

 

 

 

[RicardoVoigt]

A princípio, nos meus testes aqui tudo OK.

Só vi que sobraram algumas variáveis que não são mais usadas na procedure TfrlDANFeRLPaisagem.DadosAdicionais;

OBS: achei que ficava melhor de ler, usando a função que formata a chave de acesso com espaços no meio.

Att

Ricardo

Editado 28 Março, 2017 por RicardoVoigt
obs

[hleorj]

Qual o padrão ? de outros projetos  ( Mde , Cte , Nfe ) 

22 minutos atrás, RicardoVoigt disse:

A princípio, nos meus testes aqui tudo OK.

Só vi que sobraram algumas variáveis que não são mais usadas na procedure TfrlDANFeRLPaisagem.DadosAdicionais;

OBS: achei que ficava melhor de ler, usando a função que formata a chave de acesso com espaços no meio.

Att

Ricardo

Na danfe da receita é separado.

[hleorj]

At revision: 13103

-- ACBrNFeDANFeRL, ACBrNFeDANFeRLRetrato, ACBrNFeDANFeRLPaisagem --
[+] Ajuste para mostrar documentos referenciados em informações adicionais.
    http://www.projetoacbr.com.br/forum/topic/35910-mostrar-chave-da-nota-fiscal-eletronica-em-notas-de-devolução/
[*] Refatoração de informações adicionais, com o desenvolvimento de funções para eliminação de 
     código duplicado nas danfe retrato e paisagem
     Por : RicardoVoigt/Henrique Leonardo    

[Daniel Simoes]

Obrigado pelo empenho... Henrique e Ricardo...

[hleorj]

At revision: 13106

-- ACBrNFeDANFeRL --
[*] Refatoração de ManterDocReferenciados para retornar a informações sem quebra de linha.
[*] Refatoração de ManterInfContr, ManterObsFisco, ManterProcreferenciado.
     Por : Henrique Leonardo