Emitente No Canhoto Da Danfe

[IdealB]

Alguém está conseguindo imprimir os dados do cliente no canhoto da NFe no modo retrato?

Parou de funcionar e mesmo seguindo as dicas em outro tópico.

 

grato.

[Juliomar Marchetti]

boa tarde

qual é o gerenciador usado?

[IdealB]

ops, desculpa...TACBrNFeDANFERaveCB

[IdealB]

Já setei a propriedade ExibirResumoCanhoto como true mas ainda não sai.

Tenho clientes reclamando por isso a minha insistência.

 

grato.

[Juliomar Marchetti]

Bom dia !

não utilizo o mesmo, mas vamos debugar um pouco

abra o arquivo ACBrDANFeCBRaveRetrato.pas

coloque um breakpoint na linha 114 e outro na linha 137

 

após isso rode sua aplicação e veja em qual dos dois ele para e veja se como está passando a variável e se entra na mesma!

[IdealB]

Estava fazendo exatamente isso.

o que ocorre é que na linha 125 dessa unit, temos a validação 

if Length(vEnd)>100 then

essa validação bloqueia praticamente a impressão do emitente quando o nome da empresa ultrapassar 38 caracteres pois a variável vEnd concatena

o texto "Recebemos de" + nome da empresa + " os produtos/serviços constantes da NFe indicada ao lado"

 

grato.

[Juliomar Marchetti]

Temos uma solução para o problema?

[IdealB]

Será que o canhoto poderia ser impresso na fonte Courier New? Assim usaríamos o máximo de espaço oferecido pelo campo visto que a contagem dos caracteres seria fixo.

[Juliomar Marchetti]

Sim Pode !

é só alterar no seu fonte o nome da fonte!

 

Mas sobre a pergunta acima, conseguiu solucionar o problema do canhoto?

Onde no canhoto é um resumo somente pra ter confirmação da entrega certo?

então no caso não vai precisar de todas as informações da nota e caso precise tem o número dela certo?

[IdealB]

Como é proibido a impressão de + de uma via da DANFE, os meus clientes estão usando o canhoto para identificar melhor a entrega e arquivar o documento sem precisar recorrer ao sistema.

 

isso é mais praticidade, não é impeditivo.

 

Ainda não consegui resolver, estou fazendo alterações no unit. Se der certo, posto para vocês avaliarem.

Editado 2 Maio, 2014 por Ideal Brasil

[Juliomar Marchetti]

Como assim não pode mais de uma via?

Você pode imprimir quantas vezes quiser o DANFe!

[IdealB]

Segundo o Ajuste SINIEF 07/05 (nova redação dada pelo Ajuste SINIEF 08/10),

o DANFe é utilizado para acompanhar o trânsito das mercadorias, devendo ser impresso em apenas uma via.

[IdealB]

Juliomar, na pesquisa do fórum, vi que tem muita gente com o mesmo problema, por isso minha insistência no caso.

 

Em analise no código abaixo, tenho a seguinte dúvida:

 

Se a variável vEnd estiver com o texto acima de 100 caracteres, exemplo: 

"Recebemos de BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA os produtos/serviços constantes da NFe" ,

 

não será impresso os dados:

"Emissão:16/04/2014 Dest/Rem:NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL Total:464,90"

 

O que tem haver um caso com o outro? 

if Length(vEnd)>100 then
begin
  vEnd:='Recebemos de '+Emit.XNome;
  PrintLeft(vEnd,PosX+1);
  NewLine;
  vEnd:='os produtos/serviços constantes da NFe indicada ao lado';
  PrintLeft(vEnd,PosX+1);
end
else
begin
  PrintLeft(vEnd,PosX+1);
  NewLine;
  if ExibirResumoCanhoto then
  begin
    if DFeUtil.EstaVazio(ExibirResumoCanhoto_Texto) then
      PrintCenter('Emissão:'+DFeUtil.FormatDate(DateToStr(Ide.DEmi))+' Dest/Rem:'+Dest.XNome+' Total:'+DFeUtil.FormatFloat(      Total.ICMSTot.VNF),PosX+(aWidthOutros/2))
    else
      PrintCenter(ExibirResumoCanhoto_Texto,PosX+(aWidthOutros/2));
  end;
end;

[Juliomar Marchetti]

Não sei, não fui eu quem implementou o código!

[IdealB]

Ops, desculpa ai.

A pergunta foi só para tirar a duvida.

Editado 2 Maio, 2014 por Ideal Brasil

[André Ferreira de Moraes]

 

Juliomar, na pesquisa do fórum, vi que tem muita gente com o mesmo problema, por isso minha insistência no caso.

 

Em analise no código abaixo, tenho a seguinte dúvida:

 

Se a variável vEnd estiver com o texto acima de 100 caracteres, exemplo: 

"Recebemos de BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA os produtos/serviços constantes da NFe" ,

 

não será impresso os dados:

"Emissão:16/04/2014 Dest/Rem:NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL Total:464,90"

 

O que tem haver um caso com o outro? 

if Length(vEnd)>100 then
begin
  vEnd:='Recebemos de '+Emit.XNome;
  PrintLeft(vEnd,PosX+1);
  NewLine;
  vEnd:='os produtos/serviços constantes da NFe indicada ao lado';
  PrintLeft(vEnd,PosX+1);
end
else
begin
  PrintLeft(vEnd,PosX+1);
  NewLine;
  if ExibirResumoCanhoto then
  begin
    if DFeUtil.EstaVazio(ExibirResumoCanhoto_Texto) then
      PrintCenter('Emissão:'+DFeUtil.FormatDate(DateToStr(Ide.DEmi))+' Dest/Rem:'+Dest.XNome+' Total:'+DFeUtil.FormatFloat(      Total.ICMSTot.VNF),PosX+(aWidthOutros/2))
    else
      PrintCenter(ExibirResumoCanhoto_Texto,PosX+(aWidthOutros/2));
  end;
end;

Pq se a variável for maior que 100 ou 108(fonte courier) vai consumir 2 linhas e não vai sobrar espaço para imprimir as demais informações.

[Juliomar Marchetti]

Complementando ao que o André repassou por curiosidade na página 103 do "Manual_de_Orientacao_Contribuinte_v_5.00.pdf" que você acha no portal da nf-e dispões das medidas!

[IdealB]

anfm/Juliomar, obrigado pelo retorno.

 

Você acha viável baixar um pouco a linha DATA DE RECEBIMENTO | IDENTIFICAÇÃO E ASSINATURA para que tenhamos espaço para a impressão dos outros dados ?

 

Se sim, posso fazer e testar.

[IdealB]

Ops, acho que não pode né?

[Marcio Lopes ACBr]

Também estou com o mesmo problema depois que atualizei, acho meio pequeno o tamanho 100, uma solução seria desativar o negrito (Bold:=false) quando ultrapassar o tamanho ao invez de suprimir a informação.

 

Antes o código era esse:

             if Length(vEnd)>122 then
             begin
                vEnd:='Recebemos de '+Emit.XNome;
                PrintCenter(vEnd,PosX+(aWidthOutros/2));
                NewLine;
                vEnd:='os produtos/serviços constantes da NFe indicada ao lado';
                PrintCenter(vEnd,PosX+(aWidthOutros/2));
             end
             else
             begin
                PrintCenter(vEnd,PosX+(aWidthOutros/2));
                NewLine;
                if ExibirResumoCanhoto then
                begin
                   if DFeUtil.EstaVazio(ExibirResumoCanhoto_Texto) then
                      PrintCenter('Emissão:'+DFeUtil.FormatDate(DateToStr(Ide.DEmi))+' Dest/Rem:'+Dest.XNome+' Total:'+DFeUtil.FormatFloat(Total.ICMSTot.VNF),PosX+(aWidthOutros/2))
                   else
                      PrintCenter(ExibirResumoCanhoto_Texto,PosX+(aWidthOutros/2));
                end;
             end;

Depois

 

if Length(vEnd)>100 then
             begin
                vEnd:='Recebemos de '+Emit.XNome;
PrintLeft(vEnd,PosX+1);
                NewLine;
                vEnd:='os produtos/serviços constantes da NFe indicada ao lado';
PrintLeft(vEnd,PosX+1);
             end
             else
             begin
PrintLeft(vEnd,PosX+1);
                NewLine;
                if ExibirResumoCanhoto then
                begin
                   if DFeUtil.EstaVazio(ExibirResumoCanhoto_Texto) then
                      PrintCenter('Emissão:'+DFeUtil.FormatDate(DateToStr(Ide.DEmi))+' Dest/Rem:'+Dest.XNome+' Total:'+DFeUtil.FormatFloat(Total.ICMSTot.VNF),PosX+(aWidthOutros/2))
                   else
                      PrintCenter(ExibirResumoCanhoto_Texto,PosX+(aWidthOutros/2));
                end;
             end;
          end;
        end;

Editado 11 Junho, 2014 por marciotga

[juaumkiko]

Senhores,

 

Favor atualizar o componente (Revisão: 7006) e realizar novos testes.

 

Obrigado