Computer Buyer 1999 September/Dpcb0999.iso/Business/Empire/_SETUP.1/EmpireBuilder.exe/0/RCDATA/TFMCUSTSTATEMENTS/TFMCUSTSTATEMENTS.txt

Text File | 1999-06-21 | 10KB | 397 lines

object fmCustStatements: TfmCustStatements
  Left = 235
  Top = 123
  Width = 420
  Height = 379
  HelpContext = 121
  Caption = 'Customer Statements'
  ParentFont = True
  Scaled = False
  OnActivate = FormActivate
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object pnlCustomer: TPanel
    Left = 0
    Top = 0
    Width = 412
    Height = 189
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object lblStartCust: TLabel
      Left = 12
      Top = 12
      Width = 114
      Height = 16
      Caption = 'Start Customer Ref.'
    end
    object lblFinCust: TLabel
      Left = 12
      Top = 40
      Width = 122
      Height = 16
      Caption = 'Finish Customer Ref.'
    end
    object lblStartDate: TLabel
      Left = 12
      Top = 84
      Width = 133
      Height = 16
      Caption = 'Start Transaction Date'
    end
    object lblFinDate: TLabel
      Left = 12
      Top = 112
      Width = 141
      Height = 16
      Caption = 'Finish Transaction Date'
    end
    object bvl1: TBevel
      Left = 4
      Top = 68
      Width = 369
      Height = 5
      Shape = bsBottomLine
    end
    object bvl2: TBevel
      Left = 4
      Top = 136
      Width = 369
      Height = 9
      Shape = bsBottomLine
    end
    object rxcbeStartCust: TComboEdit
      Left = 176
      Top = 8
      Width = 120
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 100
      CharCase = ecUpperCase
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777000000000000000088888888880088808777777770EC7780877777770EC0
        778087777770EC0777808770003F30777780878FFF200777778083FFFFF27777
        77808FFFFFFF077777808FFFFFFF0777778083FFFFFF77777780888888808888
        8880800333000080880080000000000000003333333333333330}
      ButtonWidth = 24
      MaxLength = 10
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnButtonClick = rxcbeStartCustButtonClick
      OnEnter = rxcbeStartCustEnter
      OnExit = rxcbeStartCustExit
    end
    object rxcbeFinCust: TComboEdit
      Left = 176
      Top = 36
      Width = 120
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 101
      CharCase = ecUpperCase
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777000000000000000088888888880088808777777770EC7780877777770EC0
        778087777770EC0777808770003F30777780878FFF200777778083FFFFF27777
        77808FFFFFFF077777808FFFFFFF0777778083FFFFFF77777780888888808888
        8880800333000080880080000000000000003333333333333330}
      ButtonWidth = 24
      MaxLength = 10
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnButtonClick = rxcbeFinCustButtonClick
      OnEnter = rxcbeFinCustEnter
      OnExit = rxcbeFinCustExit
    end
    object rxdcbeStartDate: TDateEdit
      Left = 176
      Top = 80
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 102
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      CalendarStyle = csDialog
      Weekends = [Sun, Sat]
      YearDigits = dyFour
      TabOrder = 2
    end
    object rxdcbeFinDate: TDateEdit
      Left = 176
      Top = 108
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 103
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      CalendarStyle = csDialog
      Weekends = [Sun, Sat]
      YearDigits = dyFour
      TabOrder = 3
    end
    object cbIZB: TCheckBox
      Left = 12
      Top = 156
      Width = 177
      Height = 17
      Hint = 'Press F1 for help'
      HelpContext = 122
      Alignment = taLeftJustify
      Caption = 'Ignore Zero Balances'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 189
    Width = 412
    Height = 78
    Align = alClient
    Caption = 'Include'
    TabOrder = 1
    object rbAllTrans: TRadioButton
      Left = 12
      Top = 20
      Width = 177
      Height = 17
      Hint = 'Press F1 for help'
      HelpContext = 123
      Alignment = taLeftJustify
      Caption = 'All Transactions'
      Checked = True
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      TabStop = True
    end
    object rbOTO: TRadioButton
      Left = 12
      Top = 48
      Width = 177
      Height = 17
      Hint = 'Press F1 for help'
      HelpContext = 124
      Alignment = taLeftJustify
      Caption = 'Outstanding Trans. Only'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
  end
  object pnlButtons: TPanel
    Left = 0
    Top = 309
    Width = 412
    Height = 43
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 3
    object btnPrint: TButton
      Left = 5
      Top = 8
      Width = 75
      Height = 30
      Hint = 'Print statements'
      Caption = '&Print'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = btnPrintClick
    end
    object btnCancel: TButton
      Left = 248
      Top = 8
      Width = 75
      Height = 30
      Caption = '&Cancel'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = btnCancelClick
    end
    object btnPreview: TButton
      Left = 86
      Top = 8
      Width = 75
      Height = 30
      Hint = 'View statement before printing'
      Caption = 'P&review'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = btnPreviewClick
    end
    object btnEMail: TButton
      Left = 167
      Top = 8
      Width = 75
      Height = 30
      Hint = 'Email statements'
      Caption = '&Email'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = btnEMailClick
    end
    object btnHelp: TButton
      Left = 329
      Top = 8
      Width = 75
      Height = 30
      Caption = '&Help'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = btnHelpClick
    end
  end
  object pnlDoc: TPanel
    Left = 0
    Top = 267
    Width = 412
    Height = 42
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object Label1: TLabel
      Left = 12
      Top = 16
      Width = 104
      Height = 16
      Caption = 'Document Layout'
    end
    object cbDocName: TComboBox
      Left = 176
      Top = 12
      Width = 200
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 125
      ItemHeight = 16
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object iptblUDD: TwwTable
    DatabaseName = 'MainEB'
    TableName = 'Udd.DBF'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 340
    Top = 32
    object iptblUDDITEM_NAME: TStringField
      DisplayLabel = 'Layout Name'
      DisplayWidth = 35
      FieldName = 'ITEM_NAME'
      Size = 30
    end
    object iptblUDDDOC_TYPE: TSmallintField
      FieldName = 'DOC_TYPE'
    end
    object iptblUDDREP_NAME: TStringField
      FieldName = 'REP_NAME'
      Size = 40
    end
  end
  object dsUDD: TwwDataSource
    DataSet = iptblUDD
    Left = 312
    Top = 32
  end
  object Sizer1: TSizer
    Enabled = True
    ExceptionAction = eaIgnoreControl
    GridColumnSizing = gcSizeAllColumns
    GridRowSizing = grSizeByDefaults
    MinimumSize = True
    NavigateOnEnter = True
    OverrideParentFont = True
    PerformAssertions = True
    ShowAssertionFailures = False
    StretchFonts = True
    StretchImages = True
    StretchOnResize = True
    ThreadProcessing = False
    Left = 324
    Top = 4
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      420)
    OriginalFormHeight = (
      379)
    OriginalFormLeft = (
      235)
    OriginalFormTop = (
      123)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      412)
    OriginalClientHeight = (
      352)
  end
  object taCustomer: TwwQuery
    DatabaseName = 'EmpireBuilder'
    SQL.Strings = (
      'select ACCREF, BALANCE, LASTUPDATE, LASTCALC from customer'
      'where (ACCREF >= :STACREF) and (ACCREF <= :FINACREF)'
      '             and (BALANCE <> 0)')
    Params.Data = {
      01000200075354414352454600010200300000000846494E4143524546000102
      0030000000}
    ValidateWithMask = True
    Left = 340
    Top = 75
    object taCustomerACCREF: TStringField
      FieldName = 'ACCREF'
      Origin = '"customer.DBF".ACCREF'
      Size = 10
    end
    object taCustomerBALANCE: TFloatField
      FieldName = 'BALANCE'
      Origin = '"customer.DBF".BALANCE'
    end
    object taCustomerLASTUPDATE: TStringField
      FieldName = 'LASTUPDATE'
      Origin = '"customer.DBF".LASTUPDATE'
    end
    object taCustomerLASTCALC: TStringField
      FieldName = 'LASTCALC'
      Origin = '"customer.DBF".LASTCALC'
    end
  end
  object pdTrans: TPrintDialog
    Left = 340
    Top = 150
  end
end