Problemas Com A Impressão Do Resumo No Canhoto

[JLuis]

Bom dia,

 

Estou tendo problemas com o Danfe Rave no que se refere à impressão do canhoto. Sem ter alterado nada no meu sistema parou de imprimir "Emissão: ... Dest/Reme: ... Valor Total:...." imprimindo apenas "Recebemos de <nome do emitente> os produtos/serviços constantes da Nota Fiscal indicada ao lado."

Já verifiquei o indicador ExibirResumoCanhoto que está = True e também já tentei setar na propriedade ExibirResumoCanhoto_Texto o mesmo texto impresso antes e nada, parece que ignora e imprime de forma fixa.

 

Alguém saberia me informar se mudou algo no ACBr que eu precise ajustar em meu sistema?

 

Desde já agradeço.

 

 

 

[Juliomar Marchetti]

A ultima alteração foi no dia 15/04 no DANFE em Rave mas o RaveCB

[JLuis]

Juliomar, obrigado pelo retorno.

Não ententi sua resposta quanto a "...mas o RaveCB..?" 

Utilizo o Rave CB, tem algo em relação a ele especificamente?

Obrigado.

[Juliomar Marchetti]

Quis dizer que a última alteração

está na revisão 5176 do svn mas não mexe em nada com o canhoto

Chegou a recompilar tudo após atualizar o SVn?

[JLuis]

Boa tarde,

 

Pelo que verifiquei houve alteração, não sei precisar em que versão... mas o fato é que o código atual tenta resolver o problema do tamanho da string a ser impressa na primeira linha do canhoto mas falha em outros pontos. Meus clientes exigem que apareça no canhoto a emissão, o nome do cliente/destinatário e o valor total na NF portanto preciso que saia como nas versões anteriores:

 

Unit ACBrDANFeCBRaveRetrato Linha 99

O texto em vermelho destacado abaixo foi acrescentado fazendo com que no meu caso excedesse os 110 caracteres.

          vEnd:='Recebemos de '+Emit.XNome+' os produtos / serviços constantes da Nota Fiscal indicada ao lado';
          if FontNameUsed = 'Courier New' then
          begin
             if Length(vEnd)>96 then
             begin
                vEnd:='Recebemos de '+Emit.XNome;
                PrintCenter(vEnd,PosX+(aWidthOutros/2));
                NewLine;
                vEnd:='os produtos / serviços constantes da Nota Fiscal 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/Reme: '+Dest.XNome+'  Valor Total: '+DFeUtil.FormatFloat(Total.ICMSTot.VNF),PosX+(aWidthOutros/2))
                   else
                      PrintCenter(ExibirResumoCanhoto_Texto,PosX+(aWidthOutros/2));
                end;
             end;
          end
          else
          begin
             if Length(vEnd)>110 then
             begin
                vEnd:='Recebemos de '+Emit.XNome;
                PrintCenter(vEnd,PosX+(aWidthOutros/2));
                NewLine;
                vEnd:='os produtos / serviços constantes da Nota Fiscal indicada ao lado';
                PrintCenter(vEnd,PosX+(aWidthOutros/2));
             end
             else
             begin

Mesmo não excedendo o limite de 110 ... ignora completamente a propriedade ExibirResumoCanhoto_Texto...

                PrintCenter(vEnd,PosX+(aWidthOutros/2));
                NewLine;
                if ExibirResumoCanhoto then
                   PrintCenter('Emissão: '+DFeUtil.FormatDate(DateToStr(Ide.DEmi))+'  Dest/Reme: '+Dest.XNome+'  Valor Total: '+DFeUtil.FormatFloat(Total.ICMSTot.VNF),PosX+(aWidthOutros/2));
             end;
          end;
        end;
 

Sugestão de ajustes... no meu caso resolveu:

          //NewLine;

//Na linha abaixo removi os espaços antes e depois da barra em produtos/serviços e substitui "Nota Fiscal" por "NF"
          vEnd:='Recebemos de '+Emit.XNome+' os produtos/serviços constantes da NF indicada ao lado';
          if FontNameUsed = 'Courier New' then
          begin
             if Length(vEnd)>96 then
             begin
                vEnd:='Recebemos de '+Emit.XNome;
                PrintCenter(vEnd,PosX+(aWidthOutros/2));
                NewLine;
                vEnd:='os produtos / serviços constantes da Nota Fiscal 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/Reme: '+Dest.XNome+'  Valor Total: '+DFeUtil.FormatFloat(Total.ICMSTot.VNF),PosX+(aWidthOutros/2))
                   else
                      PrintCenter(ExibirResumoCanhoto_Texto,PosX+(aWidthOutros/2));
                end;
             end;
          end
          else
          begin
             if Length(vEnd)>110 then
             begin
                vEnd:='Recebemos de '+Emit.XNome;
                PrintCenter(vEnd,PosX+(aWidthOutros/2));
                NewLine;
                vEnd:='os produtos/serviços constantes da NF indicada ao lado';
                PrintCenter(vEnd,PosX+(aWidthOutros/2));
             end
             else
             begin
                PrintCenter(vEnd,PosX+(aWidthOutros/2));
                NewLine;
                if ExibirResumoCanhoto then
                begin

// Acrescentei o tratamento para a propriedade ExibirResumoCanhoto_Texto pois era ignorada

                   if DFeUtil.EstaVazio(ExibirResumoCanhoto_Texto) then
                      PrintCenter('Emissão: '+DFeUtil.FormatDate(DateToStr(Ide.DEmi))+'  Dest/Reme: '+Dest.XNome+'  Valor Total: '+DFeUtil.FormatFloat(Total.ICMSTot.VNF),PosX+(aWidthOutros/2))
                   else
                      PrintCenter(ExibirResumoCanhoto_Texto,PosX+(aWidthOutros/2));
                end;
             end;
          end;
        end;
 

 

Peço que alguém verifique a possibilidade de subir estes ajustes para o SVN.

 

Desde já agradeço.

[Juliomar Marchetti]

Isso consta no Manual/Nota técnica?

Se sim em que página, senão você está fazendo algo especifico e personalizando um documento impresso

no ACBr está com uma versão compatível com o manual

[JLuis]

Bom dia Juliomar,

 

A única coisa que consta a respeito do canhoto está na página 103 do manual 5.0

CANHOTO

RECEBEMOS DE...

NF-e / Nº 000.000.000 / SÉRIE 000

DATA DE RECEBIMENTO

IDENTIFICAÇÃO E ASSINATURA...

 

Presumo então que o texto

'Recebemos de '+Emit.XNome+' os produtos / serviços constantes da Nota Fiscal indicada ao lado'

não tenha que ser impresso obrigatoriamente desta forma, portanto, minha sugestão de alterá-lo para

'Recebemos de '+Emit.XNome+' os produtos/serviços constantes da NF indicada ao lado'

não vai contra nada que esteja especificado no manual, apenas visa reduzir o número de caracteres possibilitando assim a impressão das demais informações necessárias no canhoto não só apenas a informação

'Recebemos de '+Emit.XNome+' os produtos / serviços constantes da Nota Fiscal indicada ao lado' utilizando as duas linhas disponíveis.

 

A segunda alteração visa apenas possibilitar a utilização da propriedade ExibirResumoCanhoto_Texto, pois no ponto ande alterei está sendo simplesmente ignorada na versão atual.

 

Obrigado.

[Juliomar Marchetti]

Anexa a unit com a alteração para que possa ser feito a análise e possível merge do fonte

[JLuis]

Segue cfe. solicitado.

Obrigado.

ACBrDANFeCBRaveRetrato.pas

[Emanuel Andrade]

eu tb não consigo por o canhoto pra funcionar!

parou de funcionar depois que atualizei os fontes

[juaumkiko]

Segue cfe. solicitado.

Obrigado.

 Enviado correção proposta para o SVN ( revisao 5342)

 

Qq coisa nos informe

 

Obrigado

[felipeiw]

Boa tarde,

 

Também estou com esse problema fiz a atualizacao, estou com a revisao 5365, porem nao imprime o nome do cliente, valor da nota e data de emissao. Estou usando o raveCB.

 

Abs

[juaumkiko]

Abra um novo tópico (este esta marcado como resolvido) e anexe o XML.

 

[]´s

[jairodacosta]

Olá !!! Se a fonte do danfe tiver ftCourier não imprime, mas se tiver ftTimes imprime normalmente, também tive esse problema e alterei a fonte e está imprimindo normal !!!

Alterei na configuração do componente AcbrnfeDanfeRaveCB propriedade fonte !!!

[juaumkiko]

Ola senhores.

estou com um problema na impressao da logomarca da empresa,

na gerado do arquivo PDF a mesma aparece la.

 

mas na impressao diretamente para impressora a logomarca nao

aparece, 

 

alguem conseguiu resolver este problema?

o detalhe pode estar no tamanho da logomarca que esta configurado ?

 

att

giovano

 

Favor usar a busca....

 

Muitos tópicos já trataram disso.

 

[]´s