mast_dtl.pas

suite component ace report

unit Mast_dtl;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, DB, DBTables, StdCtrls, Buttons, Sctbtn, Sctrep, sctctrl,
  Sctvar, ExtCtrls, Grids, DBGrids, AcePage;

type
  TAceTutor = class(TForm)
    custtable: TTable;
    ordtable: TTable;
    custSource: TDataSource;
    ordsource: TDataSource;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    ReportHeaderBand: TSctBand;
    ReportHeaderBandlevel: TSctLevel;
    PageHeaderBand: TSctBand;
    PageHeaderBandlevel: TSctLevel;
    DetailBand: TSctBand;
    DetailBandlevel: TSctLevel;
    PageFooterBand: TSctBand;
    PageFooterBandlevel: TSctLevel;
    ReportFooterBand: TSctBand;
    ReportFooterBandlevel: TSctLevel;
    ReportPage: TSctGrouppage;
    MastDtl: TSctReport;
    svarDateTime: TSctDateTimeVar;
    svarPage: TSctPageVar;
    DataSourceGuide: TSctDataSourceGuide;
    DataSourceGuide1: TSctDataSourceGuide;
    custtableCUSTNO: TSctdbvar;
    custtableCOMPANY: TSctdbvar;
    custtableADDR1: TSctdbvar;
    custtableADDR2: TSctdbvar;
    custtableCITY: TSctdbvar;
    custtableSTATE: TSctdbvar;
    custtableZIP: TSctdbvar;
    custtableCOUNTRY: TSctdbvar;
    custtablePHONE: TSctdbvar;
    custtableFAX: TSctdbvar;
    custtableTAXRATE: TSctdbvar;
    custtableCONTACT: TSctdbvar;
    custtableLASTINVOICEDATE: TSctdbvar;
    ordtableORDERNO: TSctdbvar;
    ordtableCUSTNO: TSctdbvar;
    ordtableSALEDATE: TSctdbvar;
    ordtableSHIPDATE: TSctdbvar;
    ordtableEMPNO: TSctdbvar;
    ordtableSHIPTOCONTACT: TSctdbvar;
    ordtableSHIPTOADDR1: TSctdbvar;
    ordtableSHIPTOADDR2: TSctdbvar;
    ordtableSHIPTOCITY: TSctdbvar;
    ordtableSHIPTOSTATE: TSctdbvar;
    ordtableSHIPTOZIP: TSctdbvar;
    ordtableSHIPTOCOUNTRY: TSctdbvar;
    ordtableSHIPTOPHONE: TSctdbvar;
    ordtableSHIPVIA: TSctdbvar;
    ordtablePO: TSctdbvar;
    ordtableTERMS: TSctdbvar;
    ordtablePAYMENTMETHOD: TSctdbvar;
    ordtableITEMSTOTAL: TSctdbvar;
    ordtableTAXRATE: TSctdbvar;
    ordtableFREIGHT: TSctdbvar;
    ordtableAMOUNTPAID: TSctdbvar;
    TSctvarlabel: TSctvarlabel;
    TSctTextLabel: TSctTextLabel;
    TSctvarlabel1: TSctvarlabel;
    TSctTextLabel1: TSctTextLabel;
    TSctvarlabel2: TSctvarlabel;
    TSctTextLabel2: TSctTextLabel;
    OrderBand: TSctSubDataBand;
    OrderBandlevel: TSctLevel;
    TSctvarlabel3: TSctvarlabel;
    TSctvarlabel4: TSctvarlabel;
    TSctvarlabel5: TSctvarlabel;
    Single: TSctReportButton;
    All: TSctReportButton;
    Sctvarlabel1: TSctvarlabel;
    SctTextLabel1: TSctTextLabel;
    OrderBandFoot: TSctDataFootBand;
    OrderBandFootlevel: TSctLevel;
    totalItems: TSctTotalvar;
    SctTotalvarLabel1: TSctTotalvarLabel;
    SctTotalvarLabel2: TSctTotalvarLabel;
    SctTotalvarLabel3: TSctTotalvarLabel;
    SctTotalvarLabel4: TSctTotalvarLabel;
    SctTotalvarLabel5: TSctTotalvarLabel;
    SctTextLabel2: TSctTextLabel;
    procedure SctTextLabel1LabelPrintWhen(lb: TSctLabel; var Result: Boolean);
    procedure MastDtlAfterPrint(report: TSctReport);
    procedure MastDtlBeforePrint(report: TSctReport);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AceTutor: TAceTutor;

implementation

{$R *.DFM}

procedure TAceTutor.SctTextLabel1LabelPrintWhen(lb: TSctLabel; var Result: Boolean);
begin
  result := DetailBand.Continued;
end;

procedure TAceTutor.MastDtlAfterPrint(report: TSctReport);
begin
  visible := True;
end;

procedure TAceTutor.MastDtlBeforePrint(report: TSctReport);
begin
  visible := False;
end;

procedure TAceTutor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

end.