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

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

object fmPrintPO: TfmPrintPO
  Left = 241
  Top = 142
  Width = 409
  Height = 382
  HelpContext = 652
  Caption = 'Print Purchase Orders'
  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 = 27
      Top = 12
      Width = 106
      Height = 16
      Caption = 'Start Supplier Ref.'
    end
    object lblFinCust: TLabel
      Left = 27
      Top = 44
      Width = 113
      Height = 16
      Caption = 'Finish Supplier Ref.'
    end
    object rxcbeStartSupp: TComboEdit
      Left = 197
      Top = 5
      Width = 120
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 680
      ButtonHint = 'Search'
      CharCase = ecUpperCase
      ButtonWidth = 24
      MaxLength = 10
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnButtonClick = rxcbeStartSuppButtonClick
      OnEnter = rxcbeStartSuppEnter
      OnExit = rxcbeStartSuppExit
    end
    object rxcbeFinSupp: TComboEdit
      Left = 197
      Top = 37
      Width = 120
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 681
      ButtonHint = 'Search'
      CharCase = ecUpperCase
      ButtonWidth = 24
      MaxLength = 10
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnButtonClick = rxcbeFinSuppButtonClick
      OnEnter = rxcbeFinSuppEnter
      OnExit = rxcbeFinSuppExit
    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 = 27
      Top = 12
      Width = 59
      Height = 16
      Caption = 'Start Date'
    end
    object lblFinDate: TLabel
      Left = 27
      Top = 44
      Width = 66
      Height = 16
      Caption = 'Finish Date'
    end
    object rxdcbeStartDate: TDateEdit
      Left = 197
      Top = 4
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 682
      ButtonHint = 'Calendar'
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      CalendarStyle = csDialog
      Weekends = [Sun, Sat]
      YearDigits = dyFour
      TabOrder = 0
    end
    object rxdcbeFinDate: TDateEdit
      Left = 197
      Top = 36
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 685
      ButtonHint = 'Calendar'
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      CalendarStyle = csDialog
      Weekends = [Sun, Sat]
      YearDigits = dyFour
      TabOrder = 1
    end
  end
  object pnlButtons: TPanel
    Left = 0
    Top = 312
    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 purchase orders'
      Caption = '&Print'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = btnPrintClick
    end
    object btnCancel: TButton
      Left = 242
      Top = 8
      Width = 75
      Height = 30
      Hint = 'Quit this option'
      Caption = '&Cancel'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = btnCancelClick
    end
    object btnPreview: TButton
      Left = 86
      Top = 8
      Width = 75
      Height = 30
      Hint = 'View purchase order before printing'
      Caption = 'P&review'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = btnPreviewClick
    end
    object btnEmail: TButton
      Left = 164
      Top = 8
      Width = 75
      Height = 30
      Hint = 'Email purchase order'
      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 = 27
      Top = 12
      Width = 88
      Height = 16
      Caption = 'Start Order No.'
    end
    object lblFinNo: TLabel
      Left = 27
      Top = 44
      Width = 95
      Height = 16
      Caption = 'Finish Order No.'
    end
    object rxcbeStartNo: TComboEdit
      Left = 197
      Top = 5
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 678
      ButtonHint = 'Search'
      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 = 197
      Top = 37
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 679
      ButtonHint = 'Search'
      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 = 57
    HelpContext = 684
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 3
    object cbCurrent: TCheckBox
      Left = 22
      Top = 8
      Width = 189
      Height = 17
      Hint = 'Press F1 for help'
      HelpContext = 683
      Alignment = taLeftJustify
      Caption = 'Current Transaction Only'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = cbCurrentClick
    end
    object cbIgnore: TCheckBox
      Left = 22
      Top = 32
      Width = 189
      Height = 17
      Hint = 'Press F1 for help'
      HelpContext = 684
      Alignment = taLeftJustify
      Caption = 'Ignore Printed Trans.'
      ParentShowHint = False
      ShowHint = True
      State = cbChecked
      TabOrder = 1
    end
  end
  object pnlDoc: TPanel
    Left = 0
    Top = 264
    Width = 401
    Height = 48
    Hint = 'Press F1 for help'
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    object Label1: TLabel
      Left = 21
      Top = 16
      Width = 102
      Height = 16
      Caption = 'Document Layout'
    end
    object cbDocName: TComboBox
      Left = 198
      Top = 12
      Width = 193
      Height = 24
      HelpContext = 686
      ItemHeight = 16
      TabOrder = 0
    end
  end
  object ipdsUDD: TwwDataSource
    DataSet = iptblUDD
    Left = 370
    Top = 4
  end
  object iptblUDD: TwwTable
    DatabaseName = 'MainEB'
    TableName = 'Udd.DBF'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 370
    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 = 370
    Top = 76
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      409)
    OriginalFormHeight = (
      382)
    OriginalFormLeft = (
      241)
    OriginalFormTop = (
      142)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      401)
    OriginalClientHeight = (
      355)
  end
  object taMainPurcOrder: TwwQuery
    DatabaseName = 'EmpireBuilder'
    SQL.Strings = (
      'select * from purchaseorder'
      'where (ORDNO >= :STINVNO) and (ORDNO <= :FININVNO) and'
      '            ((ACREF >= :STACC) and (ACREF <= :FINACC) or'
      '           (ACREF = :BLANK)) and (PODATE >= :STADATE) and'
      '           (PODATE <= :FINDATE)')
    Params.Data = {
      01000700075354494E564E4F00060800000000000000000000000846494E494E
      564E4F0006080000000000000000000000055354414343000102003000000006
      46494E414343000102003000000005424C414E4B000102003000000007535441
      44415445000B080000002C845D40CB4200000746494E44415445000B08000000
      2C845D40CB420000}
    ValidateWithMask = True
    Left = 370
    Top = 114
    object taMainPurcOrderPORDTYPE: TStringField
      FieldName = 'PORDTYPE'
      Origin = '"purchaseorder.DBF".PORDTYPE'
      Size = 12
    end
    object taMainPurcOrderORDNO: TFloatField
      FieldName = 'ORDNO'
      Origin = '"purchaseorder.DBF".ORDNO'
    end
    object taMainPurcOrderPODATE: TDateField
      FieldName = 'PODATE'
      Origin = '"purchaseorder.DBF".PODATE'
    end
    object taMainPurcOrderDUEDATE: TDateField
      FieldName = 'DUEDATE'
      Origin = '"purchaseorder.DBF".DUEDATE'
    end
    object taMainPurcOrderORDSTATUS: TStringField
      FieldName = 'ORDSTATUS'
      Origin = '"purchaseorder.DBF".ORDSTATUS'
      Size = 9
    end
    object taMainPurcOrderORDERBY: TStringField
      FieldName = 'ORDERBY'
      Origin = '"purchaseorder.DBF".ORDERBY'
    end
    object taMainPurcOrderACREF: TStringField
      FieldName = 'ACREF'
      Origin = '"purchaseorder.DBF".ACREF'
      Size = 10
    end
    object taMainPurcOrderNAME: TStringField
      FieldName = 'NAME'
      Origin = '"purchaseorder.DBF".NAME'
      Size = 40
    end
    object taMainPurcOrderADDRESS1: TStringField
      FieldName = 'ADDRESS1'
      Origin = '"purchaseorder.DBF".ADDRESS1'
      Size = 30
    end
    object taMainPurcOrderADDRESS2: TStringField
      FieldName = 'ADDRESS2'
      Origin = '"purchaseorder.DBF".ADDRESS2'
      Size = 30
    end
    object taMainPurcOrderADDRESS3: TStringField
      FieldName = 'ADDRESS3'
      Origin = '"purchaseorder.DBF".ADDRESS3'
      Size = 30
    end
    object taMainPurcOrderADDRESS4: TStringField
      FieldName = 'ADDRESS4'
      Origin = '"purchaseorder.DBF".ADDRESS4'
      Size = 30
    end
    object taMainPurcOrderTELNO: TStringField
      FieldName = 'TELNO'
      Origin = '"purchaseorder.DBF".TELNO'
      Size = 15
    end
    object taMainPurcOrderDELNAME: TStringField
      FieldName = 'DELNAME'
      Origin = '"purchaseorder.DBF".DELNAME'
      Size = 30
    end
    object taMainPurcOrderDELADD1: TStringField
      FieldName = 'DELADD1'
      Origin = '"purchaseorder.DBF".DELADD1'
      Size = 30
    end
    object taMainPurcOrderDELADD2: TStringField
      FieldName = 'DELADD2'
      Origin = '"purchaseorder.DBF".DELADD2'
      Size = 30
    end
    object taMainPurcOrderDELADD3: TStringField
      FieldName = 'DELADD3'
      Origin = '"purchaseorder.DBF".DELADD3'
      Size = 30
    end
    object taMainPurcOrderDELADD4: TStringField
      FieldName = 'DELADD4'
      Origin = '"purchaseorder.DBF".DELADD4'
      Size = 30
    end
    object taMainPurcOrderORDERNO: TStringField
      FieldName = 'ORDERNO'
      Origin = '"purchaseorder.DBF".ORDERNO'
      Size = 15
    end
    object taMainPurcOrderNOTES: TMemoField
      FieldName = 'NOTES'
      Origin = '"purchaseorder.DBF".NOTES'
      BlobType = ftMemo
      Size = 1
    end
    object taMainPurcOrderSETTDAYS: TSmallintField
      FieldName = 'SETTDAYS'
      Origin = '"purchaseorder.DBF".SETTDAYS'
    end
    object taMainPurcOrderSETTDISC: TFloatField
      FieldName = 'SETTDISC'
      Origin = '"purchaseorder.DBF".SETTDISC'
    end
    object taMainPurcOrderITEMSNETT: TFloatField
      FieldName = 'ITEMSNETT'
      Origin = '"purchaseorder.DBF".ITEMSNETT'
    end
    object taMainPurcOrderITEMSDISC: TFloatField
      FieldName = 'ITEMSDISC'
      Origin = '"purchaseorder.DBF".ITEMSDISC'
    end
    object taMainPurcOrderITEMSSUB: TFloatField
      FieldName = 'ITEMSSUB'
      Origin = '"purchaseorder.DBF".ITEMSSUB'
    end
    object taMainPurcOrderITEMSTAX: TFloatField
      FieldName = 'ITEMSTAX'
      Origin = '"purchaseorder.DBF".ITEMSTAX'
    end
    object taMainPurcOrderITEMSTOTAL: TFloatField
      FieldName = 'ITEMSTOTAL'
      Origin = '"purchaseorder.DBF".ITEMSTOTAL'
    end
    object taMainPurcOrderCARRIAGE: TFloatField
      FieldName = 'CARRIAGE'
      Origin = '"purchaseorder.DBF".CARRIAGE'
    end
    object taMainPurcOrderCARTAXCODE: TStringField
      FieldName = 'CARTAXCODE'
      Origin = '"purchaseorder.DBF".CARTAXCODE'
      Size = 1
    end
    object taMainPurcOrderCARTAX: TFloatField
      FieldName = 'CARTAX'
      Origin = '"purchaseorder.DBF".CARTAX'
    end
    object taMainPurcOrderCARNOMINAL: TStringField
      FieldName = 'CARNOMINAL'
      Origin = '"purchaseorder.DBF".CARNOMINAL'
      Size = 10
    end
    object taMainPurcOrderCARGROSS: TFloatField
      FieldName = 'CARGROSS'
      Origin = '"purchaseorder.DBF".CARGROSS'
    end
    object taMainPurcOrderTOTALNETT: TFloatField
      FieldName = 'TOTALNETT'
      Origin = '"purchaseorder.DBF".TOTALNETT'
    end
    object taMainPurcOrderTOTALDISC: TFloatField
      FieldName = 'TOTALDISC'
      Origin = '"purchaseorder.DBF".TOTALDISC'
    end
    object taMainPurcOrderTOTALSUB: TFloatField
      FieldName = 'TOTALSUB'
      Origin = '"purchaseorder.DBF".TOTALSUB'
    end
    object taMainPurcOrderTOTALTAX: TFloatField
      FieldName = 'TOTALTAX'
      Origin = '"purchaseorder.DBF".TOTALTAX'
    end
    object taMainPurcOrderINVTOTAL: TFloatField
      FieldName = 'INVTOTAL'
      Origin = '"purchaseorder.DBF".INVTOTAL'
    end
    object taMainPurcOrderPRINTED: TBooleanField
      FieldName = 'PRINTED'
      Origin = '"purchaseorder.DBF".PRINTED'
    end
    object taMainPurcOrderSDTOPAY: TFloatField
      FieldName = 'SDTOPAY'
      Origin = '"purchaseorder.DBF".SDTOPAY'
    end
    object taMainPurcOrderTAG1: TBooleanField
      FieldName = 'TAG1'
      Origin = '"purchaseorder.DBF".TAG1'
    end
  end
  object pdTrans: TPrintDialog
    Left = 365
    Top = 158
  end
end