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

Text File | 1999-06-21 | 16KB | 647 lines

object fmPrintTrans: TfmPrintTrans
  Left = 227
  Top = 131
  Width = 409
  Height = 388
  Caption = 'Print Transactions'
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  Position = poScreenCenter
  Scaled = False
  OnActivate = FormActivate
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object pnlCust: TPanel
    Left = 0
    Top = 69
    Width = 401
    Height = 69
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object lblStartCust: TLabel
      Left = 12
      Top = 12
      Width = 115
      Height = 16
      Caption = 'Start Customer Ref.'
    end
    object lblFinCust: TLabel
      Left = 12
      Top = 44
      Width = 122
      Height = 16
      Caption = 'Finish Customer Ref.'
    end
    object rxcbeStartCust: TComboEdit
      Left = 182
      Top = 5
      Width = 120
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 451
      CharCase = ecUpperCase
      ButtonWidth = 24
      MaxLength = 10
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnButtonClick = rxcbeStartCustButtonClick
      OnEnter = rxcbeStartCustEnter
      OnExit = rxcbeStartCustExit
    end
    object rxcbeFinCust: TComboEdit
      Left = 182
      Top = 37
      Width = 120
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 452
      CharCase = ecUpperCase
      ButtonWidth = 24
      MaxLength = 10
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnButtonClick = rxcbeFinCustButtonClick
      OnEnter = rxcbeFinCustEnter
      OnExit = rxcbeFinCustExit
    end
  end
  object pnlDate: TPanel
    Left = 0
    Top = 138
    Width = 401
    Height = 69
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object lblStartDate: TLabel
      Left = 12
      Top = 12
      Width = 59
      Height = 16
      Caption = 'Start Date'
    end
    object lblFinDate: TLabel
      Left = 12
      Top = 44
      Width = 66
      Height = 16
      Caption = 'Finish Date'
    end
    object rxdcbeStartDate: TDateEdit
      Left = 182
      Top = 4
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 453
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      CalendarStyle = csDialog
      Weekends = [Sun, Sat]
      YearDigits = dyFour
      TabOrder = 0
    end
    object rxdcbeFinDate: TDateEdit
      Left = 182
      Top = 36
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 454
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      CalendarStyle = csDialog
      Weekends = [Sun, Sat]
      YearDigits = dyFour
      TabOrder = 1
    end
  end
  object pnlButtons: TPanel
    Left = 0
    Top = 318
    Width = 401
    Height = 43
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 5
    object btnPrint: TButton
      Left = 8
      Top = 8
      Width = 75
      Height = 30
      Hint = 'Print specified transaction documents'
      Caption = '&Print'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = btnPrintClick
    end
    object btnCancel: TButton
      Left = 242
      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 = 'Preview a document on screen'
      Caption = 'P&review'
      ParentShowHint = False
      ShowHint = False
      TabOrder = 1
      OnClick = BtnPreviewClick
    end
    object BtnEmail: TButton
      Left = 164
      Top = 8
      Width = 75
      Height = 30
      Hint = 'Email a document'
      Caption = '&Email'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = BtnEmailClick
    end
    object btnHelp: TButton
      Left = 320
      Top = 8
      Width = 75
      Height = 30
      Caption = '&Help'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = btnHelpClick
    end
  end
  object pnlInvNo: TPanel
    Left = 0
    Top = 0
    Width = 401
    Height = 69
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object lblStartNo: TLabel
      Left = 12
      Top = 12
      Width = 116
      Height = 16
      Caption = 'Start Tranaction No.'
    end
    object lblFinNo: TLabel
      Left = 12
      Top = 44
      Width = 130
      Height = 16
      Caption = 'Finish Transaction No.'
    end
    object rxcbeStartNo: TComboEdit
      Left = 182
      Top = 5
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 449
      CharCase = ecUpperCase
      ButtonWidth = 24
      MaxLength = 10
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnButtonClick = rxcbeStartNoButtonClick
      OnEnter = rxcbeStartNoEnter
      OnExit = rxcbeStartNoExit
    end
    object rxcbeFinNo: TComboEdit
      Left = 182
      Top = 37
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 450
      CharCase = ecUpperCase
      ButtonWidth = 24
      MaxLength = 10
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnButtonClick = rxcbeFinNoButtonClick
      OnEnter = rxcbeFinNoEnter
      OnExit = rxcbeFinNoExit
    end
  end
  object pnlThisTrans: TPanel
    Left = 0
    Top = 207
    Width = 401
    Height = 62
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 3
    object cbCurrent: TCheckBox
      Left = 12
      Top = 8
      Width = 184
      Height = 17
      Hint = 'Press F1 for help'
      HelpContext = 455
      Alignment = taLeftJustify
      Caption = 'Current Transaction Only'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = cbCurrentClick
    end
    object cbIgnore: TCheckBox
      Left = 12
      Top = 36
      Width = 184
      Height = 17
      Hint = 'Press F1 for help'
      HelpContext = 456
      Alignment = taLeftJustify
      Caption = 'Ignore Printed Trans.'
      ParentShowHint = False
      ShowHint = True
      State = cbChecked
      TabOrder = 1
    end
  end
  object pnlDoc: TPanel
    Left = 0
    Top = 269
    Width = 401
    Height = 49
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 4
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 102
      Height = 16
      Caption = 'Document Layout'
    end
    object cbDocName: TComboBox
      Left = 183
      Top = 12
      Width = 208
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 457
      ItemHeight = 16
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object ipdsUDD: TwwDataSource
    DataSet = iptblUDD
    Left = 320
    Top = 4
  end
  object iptblUDD: TwwTable
    DatabaseName = 'MainEB'
    TableName = 'Udd.DBF'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 320
    Top = 36
    object iptblUDDDOC_TYPE: TSmallintField
      FieldName = 'DOC_TYPE'
    end
    object iptblUDDITEM_NAME: TStringField
      FieldName = 'ITEM_NAME'
      Size = 30
    end
    object iptblUDDITEM_OWNER: TStringField
      FieldName = 'ITEM_OWNER'
      Size = 6
    end
    object iptblUDDCAN_OPEN: TBooleanField
      FieldName = 'CAN_OPEN'
    end
    object iptblUDDCAN_SAVE: TBooleanField
      FieldName = 'CAN_SAVE'
    end
    object iptblUDDCAN_DELETE: TBooleanField
      FieldName = 'CAN_DELETE'
    end
    object iptblUDDCREATED_DT: TStringField
      FieldName = 'CREATED_DT'
      Size = 15
    end
    object iptblUDDCREATED_BY: TStringField
      FieldName = 'CREATED_BY'
      Size = 6
    end
    object iptblUDDUPDATED_DT: TStringField
      FieldName = 'UPDATED_DT'
      Size = 15
    end
    object iptblUDDUPDATED_BY: TStringField
      FieldName = 'UPDATED_BY'
      Size = 6
    end
    object iptblUDDREP_NAME: TStringField
      FieldName = 'REP_NAME'
      Size = 40
    end
  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 = 320
    Top = 76
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      409)
    OriginalFormHeight = (
      388)
    OriginalFormLeft = (
      227)
    OriginalFormTop = (
      131)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      401)
    OriginalClientHeight = (
      361)
  end
  object taMainInvoice: TwwQuery
    DatabaseName = 'EmpireBuilder'
    SQL.Strings = (
      'select * from invoice'
      'where (INVNO >= :STINVNO) and (INVNO <= :FININVNO) and'
      '            ((ACREF >= :STACC) and (ACREF <= :FINACC) or'
      '           (ACREF = '#39#39')) and (INVDATE >= :STADATE) and'
      '           (INVDATE <= :FINDATE)'
      '           ')
    Params.Data = {
      01000600075354494E564E4F000304000000000000000846494E494E564E4F00
      0608000000000000000000000005535441434300010200300000000646494E41
      434300010200300000000753544144415445000B080000002C845D40CB420000
      0746494E44415445000B080000002C845D40CB420000}
    ValidateWithMask = True
    Left = 320
    Top = 118
    object taMainInvoiceINVNO: TFloatField
      FieldName = 'INVNO'
      Origin = '"invoice.DBF".INVNO'
    end
    object taMainInvoiceINVTYPE: TStringField
      FieldName = 'INVTYPE'
      Origin = '"invoice.DBF".INVTYPE'
      Size = 11
    end
    object taMainInvoicePAYTYPE: TStringField
      FieldName = 'PAYTYPE'
      Origin = '"invoice.DBF".PAYTYPE'
      Size = 8
    end
    object taMainInvoiceBANK: TStringField
      FieldName = 'BANK'
      Origin = '"invoice.DBF".BANK'
      Size = 10
    end
    object taMainInvoicePAYAMOUNT: TFloatField
      FieldName = 'PAYAMOUNT'
      Origin = '"invoice.DBF".PAYAMOUNT'
    end
    object taMainInvoiceINVDATE: TDateField
      FieldName = 'INVDATE'
      Origin = '"invoice.DBF".INVDATE'
    end
    object taMainInvoiceACREF: TStringField
      FieldName = 'ACREF'
      Origin = '"invoice.DBF".ACREF'
      Size = 10
    end
    object taMainInvoiceNAME: TStringField
      FieldName = 'NAME'
      Origin = '"invoice.DBF".NAME'
      Size = 30
    end
    object taMainInvoiceADDRESS1: TStringField
      FieldName = 'ADDRESS1'
      Origin = '"invoice.DBF".ADDRESS1'
      Size = 30
    end
    object taMainInvoiceADDRESS2: TStringField
      FieldName = 'ADDRESS2'
      Origin = '"invoice.DBF".ADDRESS2'
      Size = 30
    end
    object taMainInvoiceADDRESS3: TStringField
      FieldName = 'ADDRESS3'
      Origin = '"invoice.DBF".ADDRESS3'
      Size = 30
    end
    object taMainInvoiceADDRESS4: TStringField
      FieldName = 'ADDRESS4'
      Origin = '"invoice.DBF".ADDRESS4'
      Size = 30
    end
    object taMainInvoiceTELNO: TStringField
      FieldName = 'TELNO'
      Origin = '"invoice.DBF".TELNO'
      Size = 15
    end
    object taMainInvoiceDELNAME: TStringField
      FieldName = 'DELNAME'
      Origin = '"invoice.DBF".DELNAME'
      Size = 30
    end
    object taMainInvoiceDELADD1: TStringField
      FieldName = 'DELADD1'
      Origin = '"invoice.DBF".DELADD1'
      Size = 30
    end
    object taMainInvoiceDELADD2: TStringField
      FieldName = 'DELADD2'
      Origin = '"invoice.DBF".DELADD2'
      Size = 30
    end
    object taMainInvoiceDELADD3: TStringField
      FieldName = 'DELADD3'
      Origin = '"invoice.DBF".DELADD3'
      Size = 30
    end
    object taMainInvoiceDELADD4: TStringField
      FieldName = 'DELADD4'
      Origin = '"invoice.DBF".DELADD4'
      Size = 30
    end
    object taMainInvoiceDELTELNO: TStringField
      FieldName = 'DELTELNO'
      Origin = '"invoice.DBF".DELTELNO'
      Size = 15
    end
    object taMainInvoiceCORDER: TStringField
      FieldName = 'CORDER'
      Origin = '"invoice.DBF".CORDER'
      Size = 15
    end
    object taMainInvoiceNOTES: TMemoField
      FieldName = 'NOTES'
      Origin = '"invoice.DBF".NOTES'
      BlobType = ftMemo
      Size = 1
    end
    object taMainInvoiceSETTDAYS: TSmallintField
      FieldName = 'SETTDAYS'
      Origin = '"invoice.DBF".SETTDAYS'
    end
    object taMainInvoiceSETTDISC: TFloatField
      FieldName = 'SETTDISC'
      Origin = '"invoice.DBF".SETTDISC'
    end
    object taMainInvoiceITEMSNETT: TFloatField
      FieldName = 'ITEMSNETT'
      Origin = '"invoice.DBF".ITEMSNETT'
    end
    object taMainInvoiceITEMSDISC: TFloatField
      FieldName = 'ITEMSDISC'
      Origin = '"invoice.DBF".ITEMSDISC'
    end
    object taMainInvoiceITEMSSUB: TFloatField
      FieldName = 'ITEMSSUB'
      Origin = '"invoice.DBF".ITEMSSUB'
    end
    object taMainInvoiceITEMSTAX: TFloatField
      FieldName = 'ITEMSTAX'
      Origin = '"invoice.DBF".ITEMSTAX'
    end
    object taMainInvoiceITEMSTOTAL: TFloatField
      FieldName = 'ITEMSTOTAL'
      Origin = '"invoice.DBF".ITEMSTOTAL'
    end
    object taMainInvoiceCARRIAGE: TFloatField
      FieldName = 'CARRIAGE'
      Origin = '"invoice.DBF".CARRIAGE'
    end
    object taMainInvoiceCARTAXCODE: TStringField
      FieldName = 'CARTAXCODE'
      Origin = '"invoice.DBF".CARTAXCODE'
      Size = 1
    end
    object taMainInvoiceCARTAX: TFloatField
      FieldName = 'CARTAX'
      Origin = '"invoice.DBF".CARTAX'
    end
    object taMainInvoiceCARNOMINAL: TStringField
      FieldName = 'CARNOMINAL'
      Origin = '"invoice.DBF".CARNOMINAL'
      Size = 10
    end
    object taMainInvoiceCARGROSS: TFloatField
      FieldName = 'CARGROSS'
      Origin = '"invoice.DBF".CARGROSS'
    end
    object taMainInvoiceTOTALNETT: TFloatField
      FieldName = 'TOTALNETT'
      Origin = '"invoice.DBF".TOTALNETT'
    end
    object taMainInvoiceTOTALDISC: TFloatField
      FieldName = 'TOTALDISC'
      Origin = '"invoice.DBF".TOTALDISC'
    end
    object taMainInvoiceTOTALSUB: TFloatField
      FieldName = 'TOTALSUB'
      Origin = '"invoice.DBF".TOTALSUB'
    end
    object taMainInvoiceTOTALTAX: TFloatField
      FieldName = 'TOTALTAX'
      Origin = '"invoice.DBF".TOTALTAX'
    end
    object taMainInvoiceINVTOTAL: TFloatField
      FieldName = 'INVTOTAL'
      Origin = '"invoice.DBF".INVTOTAL'
    end
    object taMainInvoiceSDTOPAY: TFloatField
      FieldName = 'SDTOPAY'
      Origin = '"invoice.DBF".SDTOPAY'
    end
    object taMainInvoicePOSTED: TBooleanField
      FieldName = 'POSTED'
      Origin = '"invoice.DBF".POSTED'
    end
    object taMainInvoicePRINTED: TBooleanField
      FieldName = 'PRINTED'
      Origin = '"invoice.DBF".PRINTED'
    end
    object taMainInvoicePROFIT: TFloatField
      FieldName = 'PROFIT'
      Origin = '"invoice.DBF".PROFIT'
    end
    object taMainInvoiceMARGIN: TFloatField
      FieldName = 'MARGIN'
      Origin = '"invoice.DBF".MARGIN'
    end
    object taMainInvoiceTAG1: TBooleanField
      FieldName = 'TAG1'
      Origin = '"invoice.DBF".TAG1'
    end
    object taMainInvoiceINVFORM: TStringField
      FieldName = 'INVFORM'
      Origin = '"invoice.DBF".INVFORM'
      Size = 1
    end
    object taMainInvoiceTRANSNO: TFloatField
      FieldName = 'TRANSNO'
      Origin = '"invoice.DBF".TRANSNO'
    end
  end
  object pdTrans: TPrintDialog
    Left = 310
    Top = 168
  end
end