Novo Pacote De Impressão Para Acbrsat, Usando Fortesreport

[Daniel Simoes]

Não lembro...

Mas para mim... funciona a contento

[ermo]

Problema corrigido. Ajustei a function CalcularTamanhodaPagina();

[Daniel Simoes]

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

[netsolutions]

ermo, você subiu essa correção para o ACBR?? estou com o mesmo problema aqui

[Daniel Simoes]

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

[netsolutions]

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!

[Professor]

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

[klipvirtual]

Professor,

 

Por favor como conseguiu resolver o problema?

 

 

[]s,

[João Paulo F. Bellucci]

Encontrei um erro ortográfico no cupom de cancelamento.

 

Na linha: "DADOS DO CUMPOM FISCAL ELETRÔNICO CANCELADO" a palavra "CUMPOM" tem que ser alterada para "CUPOM".

[LopesSilva]

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

[Daniel Simoes]

Não compreendi totalmente o que você reportou...

Favor demonstrar com a foto de um cupom impresso

[LopesSilva]

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.

[Daniel Simoes]

Não consegui reproduzir o problema no "trunk2"

[LopesSilva]

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 7 Julho, 2015 por Armando Lopes

[Jose L. Silva]

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.

 

 

 

 

[Daniel Carus]

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

 

 

[João Carlos Almeida Prado]

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;

 

 

[Juliomar Marchetti]

Boa tarde

Havia aplicado modificações ao extrato mas compilaram localmente!

estou averiguando e já vejo a correção!

[Augusto Fontana]

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

Editado 13 Julho, 2015 por Augusto Fontana

[denissimao]

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;

 

[Daniel Simoes]

Se deseja sugerir correções nos fontes, favor anexar (zip) os mesmos...

[Robson Silva alves]

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.

[Daniel Simoes]

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.

[Daniel Carus]

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 Simoes]

E se você tiver mais Itens que necessite de mais espaço do que 250 ??