unit SAT;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ACBrSAT, ACBrBase, ACBrDFeReport,
ACBrSATExtratoClass, ACBrSATExtratoReportClass, ACBrSATExtratoFortesFr,
Vcl.StdCtrls;
type
TForm1 = class(TForm)
btn1: TButton;
ACBrSATExtratoFortes1: TACBrSATExtratoFortes;
ACBrSAT1: TACBrSAT;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
VAR caminho_arquivo, tipo_fiscal: string;
FExtrato : TACBrSATExtratoFortes;
FAcbrSAT : TACBrSAT;
begin
caminho_arquivo := 'c:\102030.xml';
FAcbrSAT := TACBrSAT.Create(Nil);
FExtrato := TACBrSATExtratoFortes.Create(Nil);
FExtrato.LarguraBobina := 280;
FExtrato.MargemSuperior := 2;
FExtrato.MargemEsquerda := 0;
FExtrato.MargemDireita := 2;
FExtrato.MostraPreview := True;
FExtrato.MostraSetup := True;
FAcbrSAT.Extrato := FExtrato;
FAcbrSAT.CFe.LoadFromFile( caminho_arquivo );
FAcbrSAT.ImprimirExtrato();
end;
end.
NESTE SIMPLES TESTE EM UM MAQUINA COM DELPHI FUNCIONA NA OUTRA NAO , AS DUAS MAQUINAS ESTAO COM DELPHI 10 SEATTLE