rcust.pas

suite component ace report

unit Rcust;

{ ----------------------------------------------------------------
  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, StdCtrls, sctctrl, DB, DBTables, Sctvar, Sctrep, ExtCtrls,
  Grids, DBGrids, Buttons, Sctbtn, AcePage;

type
  Trptcust = class(TForm)
    Panel1: TPanel;
    customer: TTable;
    customerSource: TDataSource;
    DBGrid1: TDBGrid;
    PrintCustomer: TButton;
    customerCustNo: TFloatField;
    customerCompany: TStringField;
    customerAddr1: TStringField;
    customerAddr2: TStringField;
    customerCity: TStringField;
    customerState: TStringField;
    customerZip: TStringField;
    customerCountry: TStringField;
    customerPhone: TStringField;
    customerFAX: TStringField;
    customerTaxRate: TFloatField;
    customerContact: TStringField;
    customerLastInvoiceDate: TDateTimeField;
    orders: TTable;
    ordersSource: TDataSource;
    ordersOrderNo: TFloatField;
    ordersCustNo: TFloatField;
    ordersSaleDate: TDateTimeField;
    ordersShipDate: TDateTimeField;
    ordersEmpNo: TIntegerField;
    ordersShipToContact: TStringField;
    ordersShipToAddr1: TStringField;
    ordersShipToAddr2: TStringField;
    ordersShipToCity: TStringField;
    ordersShipToState: TStringField;
    ordersShipToZip: TStringField;
    ordersShipToCountry: TStringField;
    ordersShipToPhone: TStringField;
    ordersShipVIA: TStringField;
    ordersPO: TStringField;
    ordersTerms: TStringField;
    ordersPaymentMethod: TStringField;
    ordersItemsTotal: TCurrencyField;
    ordersTaxRate: TFloatField;
    ordersFreight: TCurrencyField;
    ordersAmountPaid: TCurrencyField;
    Button1: TButton;
    Preview: TButton;
    Button3: TButton;
    ReportHeaderBand: TSctBand;
    ReportHeaderBandlevel: TSctLevel;
    PageHeaderBand: TSctBand;
    PageHeaderBandlevel: TSctLevel;
    DetailBand: TSctBand;
    DetailBandlevel: TSctLevel;
    PageFooterBand: TSctBand;
    PageFooterBandlevel: TSctLevel;
    ReportFooterBand: TSctBand;
    ReportFooterBandlevel: TSctLevel;
    ReportPage: TSctGrouppage;
    CustomerReport: TSctReport;
    Sctvarlabel9: TSctvarlabel;
    SctTextLabel7: TSctTextLabel;
    SctTextLabel8: TSctTextLabel;
    SctTextLabel9: TSctTextLabel;
    SctTextLabel10: TSctTextLabel;
    SctTextLabel11: TSctTextLabel;
    SctTextLabel12: TSctTextLabel;
    Sctvarlabel10: TSctvarlabel;
    Sctvarlabel11: TSctvarlabel;
    SctLine2: TSctLine;
    svarDataTime: TSctDateTimeVar;
    svarPage1: TSctPageVar;
    DataSourceGuide2: TSctDataSourceGuide;
    DataSourceGuide3: TSctDataSourceGuide;
    customerCUSTNO1: TSctdbvar;
    customerCOMPANY1: TSctdbvar;
    customerADDR11: TSctdbvar;
    customerADDR21: TSctdbvar;
    customerCITY1: TSctdbvar;
    customerSTATE1: TSctdbvar;
    customerZIP1: TSctdbvar;
    customerCOUNTRY1: TSctdbvar;
    customerPHONE1: TSctdbvar;
    customerFAX1: TSctdbvar;
    customerTAXRATE1: TSctdbvar;
    customerCONTACT1: TSctdbvar;
    customerLASTINVOICEDATE1: TSctdbvar;
    ordersORDERNO1: TSctdbvar;
    ordersCUSTNO1: TSctdbvar;
    ordersSALEDATE1: TSctdbvar;
    ordersSHIPDATE1: TSctdbvar;
    ordersEMPNO1: TSctdbvar;
    ordersSHIPTOCONTACT1: TSctdbvar;
    ordersSHIPTOADDR11: TSctdbvar;
    ordersSHIPTOADDR21: TSctdbvar;
    ordersSHIPTOCITY1: TSctdbvar;
    ordersSHIPTOSTATE1: TSctdbvar;
    ordersSHIPTOZIP1: TSctdbvar;
    ordersSHIPTOCOUNTRY1: TSctdbvar;
    ordersSHIPTOPHONE1: TSctdbvar;
    ordersSHIPVIA1: TSctdbvar;
    ordersPO1: TSctdbvar;
    ordersTERMS1: TSctdbvar;
    ordersPAYMENTMETHOD1: TSctdbvar;
    ordersITEMSTOTAL1: TSctdbvar;
    ordersTAXRATE1: TSctdbvar;
    ordersFREIGHT1: TSctdbvar;
    ordersAMOUNTPAID1: TSctdbvar;
    totalITEMSTOTAL: TSctTotalvar;
    totalAMOUNTPAID: TSctTotalvar;
    Difference: TSctExprvar;
    Sctvarlabel12: TSctvarlabel;
    Sctvarlabel13: TSctvarlabel;
    Sctvarlabel14: TSctvarlabel;
    Sctvarlabel15: TSctvarlabel;
    Sctvarlabel16: TSctvarlabel;
    SctShape2: TSctShape;
    SctTotalvarLabel3: TSctTotalvarLabel;
    SctTotalvarLabel4: TSctTotalvarLabel;
    SctReportButton1: TSctReportButton;
    SctReportButton2: TSctReportButton;
    SctReportButton3: TSctReportButton;
    SctTextLabel1: TSctTextLabel;
    DBGrid2: TDBGrid;
    procedure PrintCustomerClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure PreviewClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure DifferenceGetData(oVar: TSctvar);
    procedure CustomerReportAfterPrint(report: TSctReport);
    procedure CustomerReportBeforePrint(report: TSctReport);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rptcust: Trptcust;

implementation

uses psetup, printers;

{$R *.DFM}

procedure Trptcust.PrintCustomerClick(Sender: TObject);
begin
  ReportPage.PageSetup.Destination := destScreen;
  CustomerReport.Prompt := True;
  CustomerReport.Run;
end;

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

procedure Trptcust.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure Trptcust.PreviewClick(Sender: TObject);
begin
  ReportPage.PageSetup.Destination := destScreen;
  CustomerReport.Prompt := False;
  CustomerReport.Run;
end;

procedure Trptcust.Button3Click(Sender: TObject);
begin
  ReportPage.PageSetup.Destination := destPrinter;
  CustomerReport.Prompt := False;
  CustomerReport.Run;
end;

procedure Trptcust.DifferenceGetData(oVar: TSctvar);
begin
  oVar.AsFloat := ordersItemsTotal1.AsFloat - ordersAmountPaid1.AsFloat;
end;

procedure Trptcust.CustomerReportAfterPrint(report: TSctReport);
begin
  {visible := True;}
  customer.EnableControls;
  orders.EnableControls;
end;

procedure Trptcust.CustomerReportBeforePrint(report: TSctReport);
begin
  {visible := False;}
   customer.DisableControls;
   orders.DisableControls;
end;

end.