Ir para conteúdo
  • Cadastre-se

dev botao

Novo Pacote De Impressão Para Acbrsat, Usando Fortesreport


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

Recommended Posts

  • Fundadores
Postado

Não há como ele enviar algo para o SVN do ACBr...

 

Eu Não recebi nenhuma correção.....

 

Repetindo:

Se desejar submeter correções ou melhorias aos fontes do SVN, favor anexar as Units modificadas
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Postado

Daniel, pra falar a verdade eu acredito que nem seja necessário, pois adicionei os valores de margens e topo como você postou e funcionou perfeitamente.

 

então pelo menos no meu caso o problema foi resolvido!

  • Curtir 1
  • 2 semanas depois ...
Postado

Bom dia!

 

Novato! Como vc fez para alterar a funão CalcularTamanhodaPagina();??

Ja alterei as margens e mesmo assim continuam saindo em várias paginas(42)

 

Obrigado

 

Professor

  • 3 semanas depois ...
  • 3 meses depois ...
Postado

Encontrei um problema na impressão do cupom usando o ACBRSATExtrafortes. No campo itens da venda se não for informado o valor do imposto do produto, na impressão ele não gera uma segunda linha sobrescrevendo o conteúdo da linha. Se o mesmo produto for adicionado o valor do imposto é impresso corretamente.

Estou utilizando o SAT da Dimep e impressora Daruma DR700

Postado

Acabei de anexar com dois itens no cupom. O primeiro item está com valor do imposto  e está ok e o segundo está sem o valor do imposto e esta sobrescrevendo.

cupom fiscal.png

Postado (editado)

Aqui eu estou utilizando o trunk e ainda não estou utilizando o trunk2. No meu caso eu resolvi colocando na ACBrSATExtratoFortesFr na 

procedure TACBrSATExtratoFortesFr.rlbDetItemBeforePrint(Sender: TObject; var PrintIt: boolean); na linha 608

if Imposto.vItem12741 > 0 then
  LinhaItem := LinhaItem +' '+ '('+DFeUtil.FormatFloat(Imposto.vItem12741,'0.00')+') '
else
  LinhaItem := LinhaItem+ '      ';

 

Dessa forma o cupom gerou sem sobrescrever.

 

Editado por Armando Lopes
Postado

Estava com mesmo problemas. Ao fazer alteração deixando com espaços em branco o cupom gerou corretamente quando não era informando o imposto do produto. Estava quebrando a cabeça para resolver.

 

 

 

 

Postado

Professor,

 

Por favor como conseguiu resolver o problema?

 

 

[]s,

Bom dia!

 

Novato! Como vc fez para alterar a funão CalcularTamanhodaPagina();??

Ja alterei as margens e mesmo assim continuam saindo em várias paginas(42)

 

Obrigado

 

Professor

Pessoal eu resolvi isso alterando o Margens.TOPO no componente de extrato, coloquei zero e parou de gerar as varias paginas.

ACBrSATExtratoFortes1.Margens.Topo := 0

 

 

Daniel Carus

 

 

Postado

Erros ao instalar o ACBr:

 

Compiling package C:\ACBr\\Pacotes\Delphi\ACBrNFe2\ACBrNFeDanfeESCPOS.dpk
"C:\Program Files (x86)\Borland\Delphi7\bin\dcc32.exe" "C:\ACBr\\Pacotes\Delphi\ACBrNFe2\ACBrNFeDanfeESCPOS.dpk" -B -$O- -$W+ -$Y- -M -Q -H- -W- -DRELEASE -U"..\..\..\..\PROGRA~2\Borland\Delphi7\lib" -U"$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib;..\..\..\..\PROGRA~2\Borland\Delphi7\Projects\Bpl;..\..\..\Fontes\ACBRBO~1;..\..\..\Fontes\ACBRBO~1\Logos;..\..\..\Fontes\ACBRBO~1\Logos\Colorido;..\..\..\Fontes\ACBRBO~1\Logos\PRETOB~1;..\..\..\Fontes\ACBRCA~1;..\..\..\Fontes\ACBRCO~2;..\..\..\Fontes\ACBRCO~1;..\..\..\Fontes\ACBrCTe;..\..\..\Fontes\ACBrCTe\DACTE_QR3;..\..\..\Fontes\ACBRDI~1;..\..\..\Fontes\ACBRDI~1\ACBRFA~1;..\..\..\Fontes\ACBrLFD;..\..\..\Fontes\ACBrMDFe;..\..\..\Fontes\ACBrMDFe\DAMDFE_QR3;..\..\..\Fontes\ACBrNFe2;..\..\..\Fontes\ACBrNFe2\DANFE_QR3;..\..\..\Fontes\ACBrNFSe;..\..\..\Fontes\ACBrNFSe\DANFSE_QR3;..\..\..\Fontes\ACBrPAF;..\..\..\Fontes\ACBrSAT;..\..\..\Fontes\ACBRSE~1;..\..\..\Fontes\ACBRSI~1;..\..\..\Fontes\ACBrSPED;..\..\..\Fontes\ACBrSPED\ACBRSP~1;..\..\..\Fontes\ACBrSPED\ACB35C~1;..\..\..\Fontes\ACBrSPED\ACBRSP~4;..\..\..\Fontes\ACBrSPED\ACBRSP~3;..\..\..\Fontes\ACBrTCP;..\..\..\Fontes\ACBrTCP\backup;..\..\..\Fontes\ACBrTEFD;..\..\..\Fontes\Imagens;..\..\..\Fontes\PCN2;..\..\..\Fontes\SINTEG~1;..\..\..\Fontes\synalist;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\LOCKBO~1\source;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\ZipTV07\packages;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\cport-3.0\source;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\FREEBO~1;..\..\..\Fontes\ACBrGNRE;..\..\..\Fontes\ACBrSEF2;..\..\..\lib\delphi\libd7;..\..\..\Fontes\ACBrSPED\ACBRSP~2;..\..\..\Fontes\ZLibExGZ;..\..\..\Fontes\ZLibExGZ\win32;..\..\..\Fontes\ZLibExGZ\win64;..\..\..\Fontes\ZLibExGZ\zlib;..\..\..\Fontes\ACBrSPED\ACDC1D~1" -U"..\..\..\Lib\Delphi\LibD7" -I"$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib;..\..\..\..\PROGRA~2\Borland\Delphi7\Projects\Bpl;..\..\..\Fontes\ACBRBO~1;..\..\..\Fontes\ACBRBO~1\Logos;..\..\..\Fontes\ACBRBO~1\Logos\Colorido;..\..\..\Fontes\ACBRBO~1\Logos\PRETOB~1;..\..\..\Fontes\ACBRCA~1;..\..\..\Fontes\ACBRCO~2;..\..\..\Fontes\ACBRCO~1;..\..\..\Fontes\ACBrCTe;..\..\..\Fontes\ACBrCTe\DACTE_QR3;..\..\..\Fontes\ACBRDI~1;..\..\..\Fontes\ACBRDI~1\ACBRFA~1;..\..\..\Fontes\ACBrLFD;..\..\..\Fontes\ACBrMDFe;..\..\..\Fontes\ACBrMDFe\DAMDFE_QR3;..\..\..\Fontes\ACBrNFe2;..\..\..\Fontes\ACBrNFe2\DANFE_QR3;..\..\..\Fontes\ACBrNFSe;..\..\..\Fontes\ACBrNFSe\DANFSE_QR3;..\..\..\Fontes\ACBrPAF;..\..\..\Fontes\ACBrSAT;..\..\..\Fontes\ACBRSE~1;..\..\..\Fontes\ACBRSI~1;..\..\..\Fontes\ACBrSPED;..\..\..\Fontes\ACBrSPED\ACBRSP~1;..\..\..\Fontes\ACBrSPED\ACB35C~1;..\..\..\Fontes\ACBrSPED\ACBRSP~4;..\..\..\Fontes\ACBrSPED\ACBRSP~3;..\..\..\Fontes\ACBrTCP;..\..\..\Fontes\ACBrTCP\backup;..\..\..\Fontes\ACBrTEFD;..\..\..\Fontes\Imagens;..\..\..\Fontes\PCN2;..\..\..\Fontes\SINTEG~1;..\..\..\Fontes\synalist;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\LOCKBO~1\source;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\ZipTV07\packages;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\cport-3.0\source;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\FREEBO~1;..\..\..\Fontes\ACBrGNRE;..\..\..\Fontes\ACBrSEF2;..\..\..\lib\delphi\libd7;..\..\..\Fontes\ACBrSPED\ACBRSP~2;..\..\..\Fontes\ZLibExGZ;..\..\..\Fontes\ZLibExGZ\win32;..\..\..\Fontes\ZLibExGZ\win64;..\..\..\Fontes\ZLibExGZ\zlib;..\..\..\Fontes\ACBrSPED\ACDC1D~1" -R"$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib;..\..\..\..\PROGRA~2\Borland\Delphi7\Projects\Bpl;..\..\..\Fontes\ACBRBO~1;..\..\..\Fontes\ACBRBO~1\Logos;..\..\..\Fontes\ACBRBO~1\Logos\Colorido;..\..\..\Fontes\ACBRBO~1\Logos\PRETOB~1;..\..\..\Fontes\ACBRCA~1;..\..\..\Fontes\ACBRCO~2;..\..\..\Fontes\ACBRCO~1;..\..\..\Fontes\ACBrCTe;..\..\..\Fontes\ACBrCTe\DACTE_QR3;..\..\..\Fontes\ACBRDI~1;..\..\..\Fontes\ACBRDI~1\ACBRFA~1;..\..\..\Fontes\ACBrLFD;..\..\..\Fontes\ACBrMDFe;..\..\..\Fontes\ACBrMDFe\DAMDFE_QR3;..\..\..\Fontes\ACBrNFe2;..\..\..\Fontes\ACBrNFe2\DANFE_QR3;..\..\..\Fontes\ACBrNFSe;..\..\..\Fontes\ACBrNFSe\DANFSE_QR3;..\..\..\Fontes\ACBrPAF;..\..\..\Fontes\ACBrSAT;..\..\..\Fontes\ACBRSE~1;..\..\..\Fontes\ACBRSI~1;..\..\..\Fontes\ACBrSPED;..\..\..\Fontes\ACBrSPED\ACBRSP~1;..\..\..\Fontes\ACBrSPED\ACB35C~1;..\..\..\Fontes\ACBrSPED\ACBRSP~4;..\..\..\Fontes\ACBrSPED\ACBRSP~3;..\..\..\Fontes\ACBrTCP;..\..\..\Fontes\ACBrTCP\backup;..\..\..\Fontes\ACBrTEFD;..\..\..\Fontes\Imagens;..\..\..\Fontes\PCN2;..\..\..\Fontes\SINTEG~1;..\..\..\Fontes\synalist;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\LOCKBO~1\source;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\ZipTV07\packages;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\cport-3.0\source;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\FREEBO~1;..\..\..\Fontes\ACBrGNRE;..\..\..\Fontes\ACBrSEF2;..\..\..\lib\delphi\libd7;..\..\..\Fontes\ACBrSPED\ACBRSP~2;..\..\..\Fontes\ZLibExGZ;..\..\..\Fontes\ZLibExGZ\win32;..\..\..\Fontes\ZLibExGZ\win64;..\..\..\Fontes\ZLibExGZ\zlib;..\..\..\Fontes\ACBrSPED\ACDC1D~1" -N0"..\..\..\Lib\Delphi\LibD7" -LE"..\..\..\Lib\Delphi\LibD7" -LN"..\..\..\Lib\Delphi\LibD7" -U"..\..\..\..\PROGRA~2\Borland\Delphi7\Rave5\Lib"
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
C:\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFeESCPOS.pas(909) Error: Incompatible types: 'TStringList' and 'String'
C:\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFeESCPOS.pas(910) Error: Undeclared identifier: 'y'
C:\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFeESCPOS.pas(929) Error: Incompatible types: 'TStringList' and 'String'
C:\ACBr\\Pacotes\Delphi\ACBrNFe2\ACBrNFeDanfeESCPOS.dpk(80) Fatal: Could not compile used unit '..\..\..\Fontes\ACBrNFe2\ACBrNFeDANFeESCPOS.pas'
Compilation failure

Compiling package C:\ACBr\\Pacotes\Delphi\ACBrSAT\ACBr_SAT_Extrato_Fortes.dpk
"C:\Program Files (x86)\Borland\Delphi7\bin\dcc32.exe" "C:\ACBr\\Pacotes\Delphi\ACBrSAT\ACBr_SAT_Extrato_Fortes.dpk" -B -$O- -$W+ -$Y- -M -Q -H- -W- -DRELEASE -U"..\..\..\..\PROGRA~2\Borland\Delphi7\lib" -U"$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib;..\..\..\..\PROGRA~2\Borland\Delphi7\Projects\Bpl;..\..\..\Fontes\ACBRBO~1;..\..\..\Fontes\ACBRBO~1\Logos;..\..\..\Fontes\ACBRBO~1\Logos\Colorido;..\..\..\Fontes\ACBRBO~1\Logos\PRETOB~1;..\..\..\Fontes\ACBRCA~1;..\..\..\Fontes\ACBRCO~2;..\..\..\Fontes\ACBRCO~1;..\..\..\Fontes\ACBrCTe;..\..\..\Fontes\ACBrCTe\DACTE_QR3;..\..\..\Fontes\ACBRDI~1;..\..\..\Fontes\ACBRDI~1\ACBRFA~1;..\..\..\Fontes\ACBrLFD;..\..\..\Fontes\ACBrMDFe;..\..\..\Fontes\ACBrMDFe\DAMDFE_QR3;..\..\..\Fontes\ACBrNFe2;..\..\..\Fontes\ACBrNFe2\DANFE_QR3;..\..\..\Fontes\ACBrNFSe;..\..\..\Fontes\ACBrNFSe\DANFSE_QR3;..\..\..\Fontes\ACBrPAF;..\..\..\Fontes\ACBrSAT;..\..\..\Fontes\ACBRSE~1;..\..\..\Fontes\ACBRSI~1;..\..\..\Fontes\ACBrSPED;..\..\..\Fontes\ACBrSPED\ACBRSP~1;..\..\..\Fontes\ACBrSPED\ACB35C~1;..\..\..\Fontes\ACBrSPED\ACBRSP~4;..\..\..\Fontes\ACBrSPED\ACBRSP~3;..\..\..\Fontes\ACBrTCP;..\..\..\Fontes\ACBrTCP\backup;..\..\..\Fontes\ACBrTEFD;..\..\..\Fontes\Imagens;..\..\..\Fontes\PCN2;..\..\..\Fontes\SINTEG~1;..\..\..\Fontes\synalist;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\LOCKBO~1\source;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\ZipTV07\packages;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\cport-3.0\source;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\FREEBO~1;..\..\..\Fontes\ACBrGNRE;..\..\..\Fontes\ACBrSEF2;..\..\..\lib\delphi\libd7;..\..\..\Fontes\ACBrSPED\ACBRSP~2;..\..\..\Fontes\ZLibExGZ;..\..\..\Fontes\ZLibExGZ\win32;..\..\..\Fontes\ZLibExGZ\win64;..\..\..\Fontes\ZLibExGZ\zlib;..\..\..\Fontes\ACBrSPED\ACDC1D~1" -U"..\..\..\Lib\Delphi\LibD7" -I"$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib;..\..\..\..\PROGRA~2\Borland\Delphi7\Projects\Bpl;..\..\..\Fontes\ACBRBO~1;..\..\..\Fontes\ACBRBO~1\Logos;..\..\..\Fontes\ACBRBO~1\Logos\Colorido;..\..\..\Fontes\ACBRBO~1\Logos\PRETOB~1;..\..\..\Fontes\ACBRCA~1;..\..\..\Fontes\ACBRCO~2;..\..\..\Fontes\ACBRCO~1;..\..\..\Fontes\ACBrCTe;..\..\..\Fontes\ACBrCTe\DACTE_QR3;..\..\..\Fontes\ACBRDI~1;..\..\..\Fontes\ACBRDI~1\ACBRFA~1;..\..\..\Fontes\ACBrLFD;..\..\..\Fontes\ACBrMDFe;..\..\..\Fontes\ACBrMDFe\DAMDFE_QR3;..\..\..\Fontes\ACBrNFe2;..\..\..\Fontes\ACBrNFe2\DANFE_QR3;..\..\..\Fontes\ACBrNFSe;..\..\..\Fontes\ACBrNFSe\DANFSE_QR3;..\..\..\Fontes\ACBrPAF;..\..\..\Fontes\ACBrSAT;..\..\..\Fontes\ACBRSE~1;..\..\..\Fontes\ACBRSI~1;..\..\..\Fontes\ACBrSPED;..\..\..\Fontes\ACBrSPED\ACBRSP~1;..\..\..\Fontes\ACBrSPED\ACB35C~1;..\..\..\Fontes\ACBrSPED\ACBRSP~4;..\..\..\Fontes\ACBrSPED\ACBRSP~3;..\..\..\Fontes\ACBrTCP;..\..\..\Fontes\ACBrTCP\backup;..\..\..\Fontes\ACBrTEFD;..\..\..\Fontes\Imagens;..\..\..\Fontes\PCN2;..\..\..\Fontes\SINTEG~1;..\..\..\Fontes\synalist;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\LOCKBO~1\source;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\ZipTV07\packages;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\cport-3.0\source;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\FREEBO~1;..\..\..\Fontes\ACBrGNRE;..\..\..\Fontes\ACBrSEF2;..\..\..\lib\delphi\libd7;..\..\..\Fontes\ACBrSPED\ACBRSP~2;..\..\..\Fontes\ZLibExGZ;..\..\..\Fontes\ZLibExGZ\win32;..\..\..\Fontes\ZLibExGZ\win64;..\..\..\Fontes\ZLibExGZ\zlib;..\..\..\Fontes\ACBrSPED\ACDC1D~1" -R"$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib;..\..\..\..\PROGRA~2\Borland\Delphi7\Projects\Bpl;..\..\..\Fontes\ACBRBO~1;..\..\..\Fontes\ACBRBO~1\Logos;..\..\..\Fontes\ACBRBO~1\Logos\Colorido;..\..\..\Fontes\ACBRBO~1\Logos\PRETOB~1;..\..\..\Fontes\ACBRCA~1;..\..\..\Fontes\ACBRCO~2;..\..\..\Fontes\ACBRCO~1;..\..\..\Fontes\ACBrCTe;..\..\..\Fontes\ACBrCTe\DACTE_QR3;..\..\..\Fontes\ACBRDI~1;..\..\..\Fontes\ACBRDI~1\ACBRFA~1;..\..\..\Fontes\ACBrLFD;..\..\..\Fontes\ACBrMDFe;..\..\..\Fontes\ACBrMDFe\DAMDFE_QR3;..\..\..\Fontes\ACBrNFe2;..\..\..\Fontes\ACBrNFe2\DANFE_QR3;..\..\..\Fontes\ACBrNFSe;..\..\..\Fontes\ACBrNFSe\DANFSE_QR3;..\..\..\Fontes\ACBrPAF;..\..\..\Fontes\ACBrSAT;..\..\..\Fontes\ACBRSE~1;..\..\..\Fontes\ACBRSI~1;..\..\..\Fontes\ACBrSPED;..\..\..\Fontes\ACBrSPED\ACBRSP~1;..\..\..\Fontes\ACBrSPED\ACB35C~1;..\..\..\Fontes\ACBrSPED\ACBRSP~4;..\..\..\Fontes\ACBrSPED\ACBRSP~3;..\..\..\Fontes\ACBrTCP;..\..\..\Fontes\ACBrTCP\backup;..\..\..\Fontes\ACBrTEFD;..\..\..\Fontes\Imagens;..\..\..\Fontes\PCN2;..\..\..\Fontes\SINTEG~1;..\..\..\Fontes\synalist;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\LOCKBO~1\source;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\ZipTV07\packages;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\cport-3.0\source;..\..\..\..\PROGRA~2\Borland\Delphi7\COMPON~1\FREEBO~1;..\..\..\Fontes\ACBrGNRE;..\..\..\Fontes\ACBrSEF2;..\..\..\lib\delphi\libd7;..\..\..\Fontes\ACBrSPED\ACBRSP~2;..\..\..\Fontes\ZLibExGZ;..\..\..\Fontes\ZLibExGZ\win32;..\..\..\Fontes\ZLibExGZ\win64;..\..\..\Fontes\ZLibExGZ\zlib;..\..\..\Fontes\ACBrSPED\ACDC1D~1" -N0"..\..\..\Lib\Delphi\LibD7" -LE"..\..\..\Lib\Delphi\LibD7" -LN"..\..\..\Lib\Delphi\LibD7" -U"..\..\..\..\PROGRA~2\Borland\Delphi7\Rave5\Lib"
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
C:\ACBr\Fontes\ACBrSAT\ACBrSATExtratoFortesFr.pas(505) Error: Missing operator or semicolon
C:\ACBr\\Pacotes\Delphi\ACBrSAT\ACBr_SAT_Extrato_Fortes.dpk(47) Fatal: Could not compile used unit '..\..\..\Fontes\ACBrSAT\ACBrSATExtratoFortesFr.pas'
Compilation failure

Resumindo os erros:

C:\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFeESCPOS.pas(909) Error: Incompatible types: 'TStringList' and 'String'
C:\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFeESCPOS.pas(910) Error: Undeclared identifier: 'y'
C:\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFeESCPOS.pas(929) Error: Incompatible types: 'TStringList' and 'String'
C:\ACBr\\Pacotes\Delphi\ACBrNFe2\ACBrNFeDanfeESCPOS.dpk(80) Fatal: Could not compile used unit '..\..\..\Fontes\ACBrNFe2\ACBrNFeDANFeESCPOS.pas'
Compilation failure

e o outro:

C:\ACBr\Fontes\ACBrSAT\ACBrSATExtratoFortesFr.pas(505) Error: Missing operator or semicolon
C:\ACBr\\Pacotes\Delphi\ACBrSAT\ACBr_SAT_Extrato_Fortes.dpk(47) Fatal: Could not compile used unit '..\..\..\Fontes\ACBrSAT\ACBrSATExtratoFortesFr.pas'
Compilation failure

 

o erro é nessa linha:               Txt := QuebraLinhas(sInfadProd,60);

substitui por isso:

                  n := 0;
                  while n - 60 < length(sInfadProd) do
                  begin
                     Txt.Add(copy(sInfadProd, 1 + n, 60 + n);
                        n := n + 60;
                  end;

 

 

Postado (editado)

Boa tarde

Está saindo na impressão do extrato um memo "= Teste =" e algumas linhas Filler ">>>>..", não entendi a necessidade,

imagino que seja algum teste e que pode ser removido.

Percebi também que ao imprimir o logo as linhas do cabeçalho ficam posicionadas incorretamente.

Segue imagem em anexo.

PS: Estou usando o trunk e não trunk2

extrato.png

Editado por Augusto Fontana
Postado

Boa tarde, conseguiram resolver esse problema de impressão quando o CFe possui muitos itens ?

Eu resolvi alterando a função function TACBrSATExtratoFortesFr.CalcularTamanhoDaPagina(AReport: TRLReport): Integer;

function TACBrSATExtratoFortesFr.CalcularTamanhoDaPagina(AReport: TRLReport
  ): Integer;
var
  TotalPaginaPixel: Integer;
  tamanhocomponente,tamanhoitem: integer;
begin
  if AReport = rlVenda then
    // Calculando o tamanho da Página em Pixels //
    TotalPaginaPixel := rlbsCabecalho.Height +
                        rlbRodape.Height +
                        round( rlbDetItem.Height * ACBrSATExtrato.CFe.Det.Count )
  else
    TotalPaginaPixel := rlbCabecalhoCan.Height +
                        rlbDadosCupomCancelado.Height +
                        rlbCanRodape.Height +
                        ifthen( (ACBrSATExtrato.CFe.ide.tpAmb = taHomologacao), rlbTeste.Height, 0 ) ;
  Result := max( 100, 96 + round(TotalPaginaPixel/MMAsPixels));
end;

 

Postado

Bom dia, desculpem ressuscitar, mas como faço para imprimir o relatório do FortesReport da classe ACBrSATExtratoFortesFr em uma impressora não fiscal? Estou com um pouco de dificuldades nessa parte. Também não estou conseguindo imprimir o relatório ESCPOS, na impressora sai apenas um monte de caracteres especiais. Estou testando numa Daruma DR700 e testando no SATTESTE.

Se alguem poder dar algum auxilio será de grande ajuda.

  • Fundadores
Postado
2.2 - Permaneça no assunto - Quando tiver uma dúvida diferente do assunto no tópico, poste em novo tópico. Não use algo equivalente a "aproveitando o gancho... [dúvida não relacionada com o tópico aqui]". Favor leia as regras do fórum.
  • Curtir 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Postado

No meu caso a função CalcularTamanhoDaPagina só funcionou em impressora virtual PDF "doPDF", nas impressoras EPSON, SWEDA, sempre cortando o papel em 30cm.

Ai alterei o fonte para que se o CalcularTamanhoDaPagina passar de 250 eu deixo fixo o tamanho 250, assim vai gerar página menores que 30cm, e funcionou, imprimiu tudo.

Testem desta forma, se funcionar anexo o fontes.

      // Ajustando o tamanho da página //
      RLLayout.PageBreaking := pbNone;
      RLLayout.PageSetup.PaperSize   := fpCustom ;
      RLLayout.PageSetup.PaperWidth  := Round(LarguraBobina/MMAsPixels) ;
      RLLayout.PageSetup.PaperHeight := CalcularTamanhoDaPagina( RLLayout );
      if RLLayout.PageSetup.PaperHeight >250 then
        RLLayout.PageSetup.PaperHeight := 250;

 

Daniel Carus

 

 

  • Este tópico foi criado há 3262 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.

The popup will be closed in 10 segundos...
The popup will be closed in 10 segundos...