Ir para conteúdo
  • Cadastre-se

dev botao

Problemas Com A Impressão Do Resumo No Canhoto


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

Recommended Posts

  • Membros Pro

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.

 

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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?

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

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.

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

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.

Link para o comentário
Compartilhar em outros sites

  • 1 mês depois ...
  • Moderadores
  • Solution

Segue cfe. solicitado.

Obrigado.

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

 

Qq coisa nos informe

 

Obrigado

João Henrique de Souza

 

Manual de como configurar o TortoiseSVN para não ficar mostrando a senha repetidas vezes (somente para commiters):

https://sourceforge.net/p/forge/community-docs/TortoiseSVN/

 

 

Link para o comentário
Compartilhar em outros sites

  • 4 semanas depois ...
  • 7 meses depois ...
  • Moderadores

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

João Henrique de Souza

 

Manual de como configurar o TortoiseSVN para não ficar mostrando a senha repetidas vezes (somente para commiters):

https://sourceforge.net/p/forge/community-docs/TortoiseSVN/

 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3697 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.