aord.pas

suite component ace report

unit Aord;

{ ----------------------------------------------------------------
  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, Sctrep, ExtCtrls,
  AcePage;

type
  Tallord = class(TForm)
    TSctBand1: TSctBand;
    ReportHeaderLevel: TSctLevel;
    TSctBand2: TSctBand;
    PageHeaderLevel: TSctLevel;
    TSctBand3: TSctBand;
    DetailLevel: TSctLevel;
    TSctBand4: TSctBand;
    PageFooterLevel: TSctLevel;
    TSctBand5: TSctBand;
    ReportFooterLevel: TSctLevel;
    ReportPage: TSctGrouppage;
    SctReport1: TSctReport;
    customer: TTable;
    customerSource: TDataSource;
    svarDateTime: TSctDateTimeVar;
    svarPage: TSctPageVar;
    orders: TTable;
    ordersSource: TDataSource;
    CustomerOrders: TSctSubDataBand;
    CustomerOrdersLevel: TSctLevel;
    TSctDataSourceGuide1: TSctDataSourceGuide;
    orderItems: TSctSubDataBand;
    ItemsLevel: TSctLevel;
    items: TTable;
    TSctDataSourceGuide3: TSctDataSourceGuide;
    itemsSource: TDataSource;
    Sctvarlabel3: TSctvarlabel;
    Sctvarlabel4: TSctvarlabel;
    Sctvarlabel5: TSctvarlabel;
    partSource: TDataSource;
    parts: TTable;
    Sctvarlabel6: TSctvarlabel;
    Sctvarlabel7: TSctvarlabel;
    TotalofpartsCOST: TSctTotalvar;
    rsctvarlabel6: TSctvarlabel;
    rscttextlabel10: TSctTextLabel;
    rsctvarlabel7: TSctvarlabel;
    SctLine1: TSctLine;
    SctTextLabel1: TSctTextLabel;
    SctTextLabel2: TSctTextLabel;
    SctTextLabel3: TSctTextLabel;
    SctTextLabel4: TSctTextLabel;
    ExprQtyCost: TSctExprvar;
    Sctvarlabel9: TSctvarlabel;
    TotalofExprQtyCost: TSctTotalvar;
    SctTextLabel5: TSctTextLabel;
    SctTextLabel6: TSctTextLabel;
    SctTextLabel7: TSctTextLabel;
    PageFoot2: TSctSubBand;
    Sctvarlabel11: TSctvarlabel;
    SctTextLabel10: TSctTextLabel;
    Sctvarlabel12: TSctvarlabel;
    SctShape3: TSctShape;
    ReportSummary: TSctSubDataBand;
    ReportSummaryLevel: TSctLevel;
    TSctDataSourceGuide5: TSctDataSourceGuide;
    SummarySource: TDataSource;
    Summary: TQuery;
    Sctvarlabel13: TSctvarlabel;
    Sctvarlabel14: TSctvarlabel;
    SctLine2: TSctLine;
    TSctDataSourceGuide2: TSctDataSourceGuide;
    TSctDataSourceGuide4: TSctDataSourceGuide;
    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;
    itemsORDERNO: TSctdbvar;
    itemsITEMNO: TSctdbvar;
    itemsPARTNO: TSctdbvar;
    itemsQTY: TSctdbvar;
    itemsDISCOUNT: TSctdbvar;
    summaryCUSTNO: TSctdbvar;
    summaryCOMPANY: TSctdbvar;
    summaryADDR1: TSctdbvar;
    summaryADDR2: TSctdbvar;
    summaryCITY: TSctdbvar;
    summarySTATE: TSctdbvar;
    summaryZIP: TSctdbvar;
    summaryCOUNTRY: TSctdbvar;
    summaryPHONE: TSctdbvar;
    summaryFAX: TSctdbvar;
    summaryTAXRATE: TSctdbvar;
    summaryCONTACT: TSctdbvar;
    summaryLASTINVOICEDATE: TSctdbvar;
    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;
    partsPARTNO: TSctdbvar;
    partsVENDORNO: TSctdbvar;
    partsDESCRIPTION: TSctdbvar;
    partsONHAND: TSctdbvar;
    partsONORDER: TSctdbvar;
    partsCOST: TSctdbvar;
    partsLISTPRICE: TSctdbvar;
    CustomerOrdersHead: TSctDataHeadBand;
    CustomerOrdersHeadLevel: TSctLevel;
    OrderItemsFoot: TSctDataFootBand;
    ItemsFooterLevel: TSctLevel;
    SctShape5: TSctShape;
    SctTotalvarLabel5: TSctTotalvarLabel;
    SctTotalvarLabel6: TSctTotalvarLabel;
    Sctvarlabel15: TSctvarlabel;
    Sctvarlabel16: TSctvarlabel;
    CustomerOrdersFoot: TSctDataFootBand;
    CustomerOrdersFooterLevel: TSctLevel;
    SctShape2: TSctShape;
    SctTotalvarLabel1: TSctTotalvarLabel;
    SctTotalvarLabel2: TSctTotalvarLabel;
    CustomerOrdersHead2: TSctSubBand;
    SctTextLabel11: TSctTextLabel;
    OrderItemsHead: TSctDataHeadBand;
    OrderItemsHeadlevel: TSctLevel;
    SctTextLabel12: TSctTextLabel;
    SctTextLabel13: TSctTextLabel;
    SubCustomerOrders: TSctSubBand;
    SctTextLabel9: TSctTextLabel;
    Sctvarlabel2: TSctvarlabel;
    SctTextLabel8: TSctTextLabel;
    Sctvarlabel10: TSctvarlabel;
    Sctvarlabel17: TSctvarlabel;
    SctTextLabel14: TSctTextLabel;
    Sctvarlabel1: TSctvarlabel;
    TotalPages: TSctExprvar;
    Sctvarlabel8: TSctvarlabel;
    SctTextLabel15: TSctTextLabel;
    procedure ExprQtyCostGetData(oVar: TSctvar);
    procedure CustomerOrdersHead2PrintWhen(band: TSctBand; var Result: Boolean);
    procedure SctTextLabel13LabelPrintWhen(lb: TSctLabel; var Result: Boolean);
    procedure SctTextLabel14LabelPrintWhen(lb: TSctLabel; var Result: Boolean);
    procedure TotalPagesGetData(oVar: TSctvar);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  allord: Tallord;

implementation

{$R *.DFM}

procedure Tallord.ExprQtyCostGetData(oVar: TSctvar);
begin
  oVar.AsFloat := itemsQty.AsFloat * partsCost.AsFloat;
end;

procedure Tallord.CustomerOrdersHead2PrintWhen(band: TSctBand; var Result: Boolean);
begin
  result := band.Continued;
end;

procedure Tallord.SctTextLabel13LabelPrintWhen(lb: TSctLabel; var Result: Boolean);
begin
  result := orderitemshead.Continued;
end;

procedure Tallord.SctTextLabel14LabelPrintWhen(lb: TSctLabel; var Result: Boolean);
begin
  result := subcustomerorders.Continued;
end;

procedure Tallord.TotalPagesGetData(oVar: TSctvar);
begin
  oVar.AsInteger := ReportPage.PageCount;
end;

end.