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á 3177 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á 3177 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.