forders.pas

suite component ace report

unit Forders;

{ ----------------------------------------------------------------
  Ace Reporter Version 1.0
  Copyright 1995 SCT Accociates, Inc.
  Written by Kevin Maher, Steve Tyrakowski
  ---------------------------------------------------------------- }

interface

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

type
  TformOrders = class(TForm)
    orders: TTable;
    ordersSource: TDataSource;
    customerSource: TDataSource;
    customer: TTable;
    rptOrder: TSctReport;
    ReportPage: TSctGrouppage;
    ReportHeaderBand: TSctBand;
    ReportHeaderBandlevel: TSctLevel;
    PageHeaderBand: TSctBand;
    PageHeaderBandlevel: TSctLevel;
    DetailBand: TSctBand;
    DetailBandlevel: TSctLevel;
    PageFooterBand: TSctBand;
    PageFooterBandlevel: TSctLevel;
    ReportFooterBand: TSctBand;
    ReportFooterBandlevel: TSctLevel;
    svarDateTime1: TSctDateTimeVar;
    svarPage1: TSctPageVar;
    DataSourceGuide: TSctDataSourceGuide;
    DataSourceGuide1: TSctDataSourceGuide;
    ordersORDERNO: TSctdbvar;
    ordersCUSTNO: TSctdbvar;
    ordersSALEDATE: TSctdbvar;
    ordersSHIPDATE: TSctdbvar;
    ordersEMPNO: TSctdbvar;
    ordersSHIPTOCONTACT: TSctdbvar;
    ordersSHIPTOADDR1: TSctdbvar;
    ordersSHIPTOADDR2: TSctdbvar;
    ordersSHIPTOCITY: TSctdbvar;
    ordersSHIPTOSTATE: TSctdbvar;
    ordersSHIPTOZIP: TSctdbvar;
    ordersSHIPTOCOUNTRY: TSctdbvar;
    ordersSHIPTOPHONE: TSctdbvar;
    ordersSHIPVIA: TSctdbvar;
    ordersPO: TSctdbvar;
    ordersTERMS: TSctdbvar;
    ordersPAYMENTMETHOD: TSctdbvar;
    ordersITEMSTOTAL: TSctdbvar;
    ordersTAXRATE: TSctdbvar;
    ordersFREIGHT: TSctdbvar;
    ordersAMOUNTPAID: TSctdbvar;
    customerCUSTNO: TSctdbvar;
    customerCOMPANY: TSctdbvar;
    customerADDR1: TSctdbvar;
    customerADDR2: TSctdbvar;
    customerCITY: TSctdbvar;
    customerSTATE: TSctdbvar;
    customerZIP: TSctdbvar;
    customerCOUNTRY: TSctdbvar;
    customerPHONE: TSctdbvar;
    customerFAX: TSctdbvar;
    customerTAXRATE: TSctdbvar;
    customerCONTACT: TSctdbvar;
    customerLASTINVOICEDATE: TSctdbvar;
    TotalPaid: TSctTotalvar;
    Ace: TSctExprvar;
    SctTextLabel5: TSctTextLabel;
    Sctvarlabel4: TSctvarlabel;
    Sctvarlabel5: TSctvarlabel;
    SctTextLabel6: TSctTextLabel;
    SctShape4: TSctShape;
    SctShape5: TSctShape;
    SctTextLabel7: TSctTextLabel;
    SctTextLabel8: TSctTextLabel;
    SctTextLabel9: TSctTextLabel;
    SctTextLabel10: TSctTextLabel;
    SctTextLabel11: TSctTextLabel;
    SctTextLabel12: TSctTextLabel;
    SctLine3: TSctLine;
    CustomerGroup: TSctGroup;
    CustomerGroupHeader: TSctBand;
    CustomerGroupHeaderLevel: TSctLevel;
    CustomerGroupFooter: TSctBand;
    CustomerGroupFooterLevel: TSctLevel;
    SctShape6: TSctShape;
    Sctvarlabel6: TSctvarlabel;
    Sctvarlabel7: TSctvarlabel;
    Sctvarlabel8: TSctvarlabel;
    SctTotalvarLabel3: TSctTotalvarLabel;
    SctTotalvarLabel4: TSctTotalvarLabel;
    SctTotalvarLabel5: TSctTotalvarLabel;
    Sctvarlabel9: TSctvarlabel;
    SctLine4: TSctLine;
    SctTotalvarLabel7: TSctTotalvarLabel;
    SctLine5: TSctLine;
    SctTotalvarLabel6: TSctTotalvarLabel;
    SctLine6: TSctLine;
    SctTotalvarLabel8: TSctTotalvarLabel;
    procedure ExprTestGetData(oVar: TSctvar);
    procedure aceGetData(oVar: TSctvar);
    procedure ExprBooleanGetData(oVar: TSctvar);
    procedure Sctvarlabel3LabelPrintWhen(lb: TSctLabel; var Result: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formOrders: TformOrders;

implementation

uses sctdata;

{$R *.DFM}

procedure TformOrders.ExprTestGetData(oVar: TSctvar);
begin
  oVar.AsFloat := totalpaid.getlevel(CustomerGroupFooterLevel, ttSum).AsFloat;
end;

procedure TformOrders.aceGetData(oVar: TSctvar);
begin
  oVar.AsString := 'Ace Reporter';
end;


procedure TformOrders.ExprBooleanGetData(oVar: TSctvar);
begin
  oVar.AsBoolean := False;
end;

procedure TformOrders.Sctvarlabel3LabelPrintWhen(lb: TSctLabel; var Result: Boolean);
var
  v: TSctVar;
begin
  v := TSctVarLabel(lb).Variable;
  result := v.AsString <> v.DataLast.AsString;
end;

end.