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

Text File | 1999-06-21 | 22KB | 855 lines

object fmStockTransHist: TfmStockTransHist
  Left = 57
  Top = 99
  HelpContext = 552
  AutoScroll = False
  Caption = 'Stock History'
  ClientHeight = 432
  ClientWidth = 698
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  FormStyle = fsMDIChild
  Position = poDefaultPosOnly
  Scaled = False
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 698
    Height = 52
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 4
      Width = 100
      Height = 16
      Caption = 'Start Stock Code'
    end
    object Label2: TLabel
      Left = 160
      Top = 4
      Width = 107
      Height = 16
      Caption = 'Finish Stock Code'
    end
    object Label3: TLabel
      Left = 512
      Top = 4
      Width = 59
      Height = 16
      Caption = 'Start Date'
    end
    object Label5: TLabel
      Left = 612
      Top = 4
      Width = 66
      Height = 16
      Caption = 'Finish Date'
    end
    object Label4: TLabel
      Left = 296
      Top = 4
      Width = 84
      Height = 16
      Caption = 'Start Prod Grp'
    end
    object Label8: TLabel
      Left = 400
      Top = 4
      Width = 91
      Height = 16
      Caption = 'Finish Prod Grp'
    end
    object DEStartTrans: TDateEdit
      Left = 500
      Top = 20
      Width = 94
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 102
      ClickKey = 16452
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      CalendarStyle = csDialog
      Weekends = [Sun, Sat]
      YearDigits = dyFour
      TabOrder = 4
      OnAcceptDate = DEStartTransAcceptDate
      OnEnter = DEStartTransEnter
      OnExit = DEStartTransExit
    end
    object DEFinTrans: TDateEdit
      Left = 600
      Top = 20
      Width = 94
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 103
      ClickKey = 16452
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      CalendarStyle = csDialog
      Weekends = [Sun, Sat]
      YearDigits = dyFour
      TabOrder = 5
      OnAcceptDate = DEFinTransAcceptDate
      OnEnter = DEFinTransEnter
      OnExit = DEFinTransExit
    end
    object DBCDlgStStockCode: TComboEdit
      Left = 4
      Top = 20
      Width = 140
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 546
      CharCase = ecUpperCase
      ClickKey = 16467
      ButtonWidth = 24
      MaxLength = 16
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnButtonClick = DBCDlgStStockCodCustomDlg
      OnEnter = DBCDlgStStockCodeEnter
      OnExit = DBCDlgStStockCodeExit
    end
    object DBCDlgFiStockCode: TComboEdit
      Left = 148
      Top = 20
      Width = 140
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 547
      CharCase = ecUpperCase
      ClickKey = 16467
      ButtonWidth = 24
      MaxLength = 16
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnButtonClick = DBCDlgFiStockCodCustomDlg
      OnEnter = DBCDlgFiStockCodeEnter
      OnExit = DBCDlgFiStockCodeExit
    end
    object DBCDlgStProdGrp: TComboEdit
      Left = 292
      Top = 20
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 548
      CharCase = ecUpperCase
      ClickKey = 16467
      ButtonWidth = 24
      MaxLength = 4
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnButtonClick = DBCDlgStProdGrCustomDlg
      OnEnter = DBCDlgStProdGrpEnter
      OnExit = DBCDlgStProdGrpExit
    end
    object DBCDlgFiProdGrp: TComboEdit
      Left = 396
      Top = 20
      Width = 100
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 549
      CharCase = ecUpperCase
      ClickKey = 16467
      ButtonWidth = 24
      MaxLength = 4
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnButtonClick = DBCDlgFiProdGrCustomDlg
      OnEnter = DBCDlgFiProdGrpEnter
      OnExit = DBCDlgFiProdGrpExit
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 52
    Width = 698
    Height = 380
    Align = alClient
    TabOrder = 1
    object SpeedBar: TSpeedBar
      Left = 1
      Top = 1
      Width = 696
      Height = 49
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [sbAllowDrag, sbFlatBtns, sbTransparentBtns]
      BtnOffsetHorz = 3
      BtnOffsetVert = 3
      BtnWidth = 70
      BtnHeight = 43
      TabOrder = 0
      InternalVer = 1
      object Panel5: TPanel
        Left = 520
        Top = 2
        Width = 173
        Height = 45
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object rbBySC: TRadioButton
          Left = 5
          Top = 4
          Width = 161
          Height = 17
          Hint = 'Press  F1 for help'
          HelpContext = 550
          Alignment = taLeftJustify
          Caption = 'By Stock Code'
          Checked = True
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          TabStop = True
        end
        object rbByPG: TRadioButton
          Left = 5
          Top = 24
          Width = 161
          Height = 17
          Hint = 'Press  F1 for help'
          HelpContext = 550
          Alignment = taLeftJustify
          Caption = 'By Product Group'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
        end
      end
      object SpeedbarSection1: TSpeedbarSection
        Caption = 'Untitled (0)'
      end
      object BtnRepPrint: TSpeedItem
        BtnCaption = 'Print'
        Caption = 'Print stock history report'
        Hint = 'Print stock history report'
        Spacing = 1
        Left = 3
        Top = 3
        Visible = True
        OnClick = BtnRepPrintClick
        SectionName = 'Untitled (0)'
      end
      object BtnRepEmail: TSpeedItem
        BtnCaption = 'Email'
        Caption = 'Email stock history report'
        Hint = 'Email stock history report'
        Spacing = 1
        Left = 73
        Top = 3
        Visible = True
        OnClick = BtnRepEmailClick
        SectionName = 'Untitled (0)'
      end
      object BtnRepClose: TSpeedItem
        BtnCaption = 'Close'
        Caption = 'Close Report Form'
        Hint = 'Close report'
        Spacing = 1
        Left = 353
        Top = 3
        Visible = True
        OnClick = BtnRepCloseClick
        SectionName = 'Untitled (0)'
      end
      object BtnZoom: TSpeedItem
        BtnCaption = 'Zoom In'
        Caption = 'Report Zoom In'
        Hint = 'Zoom in'
        Spacing = 1
        Left = 3
        Top = 3
        OnClick = BtnZoomClick
        SectionName = 'Untitled (0)'
      end
      object BtnRepPrev: TSpeedItem
        BtnCaption = 'Previous'
        Caption = 'Previous stock item'
        Hint = 'Previous stock item'
        Spacing = 1
        Left = 143
        Top = 3
        Visible = True
        OnClick = BtnRepPrevClick
        SectionName = 'Untitled (0)'
      end
      object BtnRepNext: TSpeedItem
        BtnCaption = 'Next'
        Caption = 'Next stock item'
        Hint = 'Next stock item'
        Spacing = 1
        Left = 213
        Top = 3
        Visible = True
        OnClick = BtnRepNextClick
        SectionName = 'Untitled (0)'
      end
      object btnHelp: TSpeedItem
        BtnCaption = '&Help'
        Caption = 'View full help on this window'
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
          888888888E6648888888888888E6688888888888888888888888888888446888
          8888888886664888888888888E664888888888888E6664888888888888E66648
          88888888888E6664888888844888E6664888886664888E66488888E666444666
          4888888E6666666668888888EE6666668888888888EEEEE88888}
        Hint = 'View full help on this window|'
        Spacing = 1
        Left = 283
        Top = 3
        Visible = True
        OnClick = btnHelpClick
        SectionName = 'Untitled (0)'
      end
    end
    object Panel3: TPanel
      Left = 1
      Top = 50
      Width = 696
      Height = 40
      Align = alTop
      TabOrder = 1
      object Label6: TLabel
        Left = 8
        Top = 12
        Width = 68
        Height = 16
        Caption = 'Stock Code'
      end
      object Label7: TLabel
        Left = 266
        Top = 12
        Width = 65
        Height = 16
        Caption = 'Description'
      end
      object wwDBEdit1: TwwDBEdit
        Left = 346
        Top = 10
        Width = 340
        Height = 24
        TabStop = False
        Ctl3D = True
        DataField = 'DESC'
        DataSource = dsStock
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 1
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object DBCDlgStockCode: TComboEdit
        Left = 96
        Top = 8
        Width = 150
        Height = 24
        Hint = 'Press F1 for help'
        HelpContext = 551
        ButtonHint = 'Search'
        CharCase = ecUpperCase
        ClickKey = 16467
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777000000000000000088888888880088808777777770EC7780877777770EC0
          778087777770EC0777808770003F30777780878FFF200777778083FFFFF27777
          77808FFFFFFF077777808FFFFFFF0777778083FFFFFF77777780888888808888
          8880800333000080880080000000000000003333333333333330}
        ButtonWidth = 24
        MaxLength = 16
        NumGlyphs = 1
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        Text = 'DBCDLGSTOCKCODE'
        OnButtonClick = DBCDlgStockCodButtonClick
        OnEnter = DBCDlgStockCodeEnter
        OnExit = DBCDlgStockCodeExit
      end
    end
    object Panel4: TPanel
      Left = 1
      Top = 90
      Width = 696
      Height = 228
      Align = alClient
      Caption = 'Panel3'
      TabOrder = 2
      object wwDBGrid1: TwwDBGrid
        Left = 1
        Top = 1
        Width = 694
        Height = 226
        Selected.Strings = (
          'TRANSTYPE'#9'12'#9'Trans. Type'
          'TRANSDATE'#9'10'#9'Date'
          'DETAILS'#9'27'#9'Details'
          'QUAN'#9'10'#9'Quantity'
          'QUANUSED'#9'10'#9'Qty Used'
          'COSTPRICE'#9'10'#9'Cost Price'
          'SALEPRICE'#9'10'#9'Sale Price'
          'REF'#9'10'#9'Ref.')
        TitleColor = clBtnFace
        FixedCols = 0
        ShowHorzScrollBar = True
        EditControlOptions = [ecoSearchOwnerForm, ecoDisableDateTimePicker]
        Align = alClient
        DataSource = dsStkTrans
        Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
        PopupMenu = RCPopup
        TabOrder = 0
        TitleAlignment = taLeftJustify
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'Arial'
        TitleFont.Style = []
        TitleLines = 1
        TitleButtons = True
        UseTFields = False
        OnCalcCellColors = wwDBGrid1CalcCellColors
        IndicatorColor = icBlack
      end
    end
    object Panel6: TPanel
      Left = 1
      Top = 318
      Width = 696
      Height = 61
      Align = alBottom
      TabOrder = 3
      object Label9: TLabel
        Left = 24
        Top = 8
        Width = 48
        Height = 16
        Caption = 'In Stock'
      end
      object Label10: TLabel
        Left = 24
        Top = 36
        Width = 53
        Height = 16
        Caption = 'On Order'
      end
      object Label11: TLabel
        Left = 228
        Top = 8
        Width = 93
        Height = 16
        Caption = 'Projected Stock'
      end
      object Label12: TLabel
        Left = 228
        Top = 36
        Width = 78
        Height = 16
        Caption = 'Reorder Level'
      end
      object Label13: TLabel
        Left = 476
        Top = 8
        Width = 55
        Height = 16
        Caption = 'Last Sale'
      end
      object Label14: TLabel
        Left = 476
        Top = 36
        Width = 74
        Height = 16
        Caption = 'Last Delivery'
      end
      object wwDBEdit2: TwwDBEdit
        Left = 108
        Top = 4
        Width = 73
        Height = 24
        TabStop = False
        Ctl3D = True
        DataField = 'INSTOCK'
        DataSource = dsStock
        ParentColor = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 0
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit3: TwwDBEdit
        Left = 108
        Top = 32
        Width = 73
        Height = 24
        TabStop = False
        Ctl3D = True
        DataField = 'ONORDER'
        DataSource = dsStock
        ParentColor = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 1
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit4: TwwDBEdit
        Left = 344
        Top = 4
        Width = 73
        Height = 24
        TabStop = False
        Ctl3D = True
        DataField = 'Projected'
        DataSource = dsStock
        ParentColor = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 2
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit5: TwwDBEdit
        Left = 344
        Top = 32
        Width = 73
        Height = 24
        TabStop = False
        Ctl3D = True
        DataField = 'REORDLEV'
        DataSource = dsStock
        ParentColor = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 3
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit6: TwwDBEdit
        Left = 580
        Top = 32
        Width = 81
        Height = 24
        TabStop = False
        Ctl3D = True
        DataField = 'LASTDEL'
        DataSource = dsStock
        ParentColor = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 4
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit7: TwwDBEdit
        Left = 580
        Top = 4
        Width = 81
        Height = 24
        TabStop = False
        Ctl3D = True
        DataField = 'LASTSALE'
        DataSource = dsStock
        ParentColor = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 5
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
    end
  end
  object dsStock: TwwDataSource
    DataSet = taStock
    Left = 556
    Top = 299
  end
  object taStock: TwwTable
    OnCalcFields = taStockCalcFields
    DatabaseName = 'EmpireBuilder'
    IndexName = 'STOCKCODE'
    TableName = 'Stock.DBF'
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 580
    Top = 215
    object taStockSTOCKCODE: TStringField
      FieldName = 'STOCKCODE'
      Size = 16
    end
    object taStockDESC: TStringField
      FieldName = 'DESC'
      Size = 40
    end
    object taStockPRODGROUP: TStringField
      FieldName = 'PRODGROUP'
      Size = 10
    end
    object taStockSALEPRICE1: TFloatField
      FieldName = 'SALEPRICE1'
    end
    object taStockSALEPRICE2: TFloatField
      FieldName = 'SALEPRICE2'
    end
    object taStockSALEPRICE3: TFloatField
      FieldName = 'SALEPRICE3'
    end
    object taStockDISC1: TFloatField
      FieldName = 'DISC1'
    end
    object taStockDISC2: TFloatField
      FieldName = 'DISC2'
    end
    object taStockDISC3: TFloatField
      FieldName = 'DISC3'
    end
    object taStockCOSTPRICE: TFloatField
      FieldName = 'COSTPRICE'
    end
    object taStockUNITSALE: TStringField
      FieldName = 'UNITSALE'
      Size = 10
    end
    object taStockUNITPURC: TStringField
      FieldName = 'UNITPURC'
      Size = 10
    end
    object taStockREORDLEV: TFloatField
      FieldName = 'REORDLEV'
    end
    object taStockREORDQUAN: TFloatField
      FieldName = 'REORDQUAN'
    end
    object taStockSUPPLIER: TStringField
      FieldName = 'SUPPLIER'
      Size = 10
    end
    object taStockPARTREF: TStringField
      FieldName = 'PARTREF'
      Size = 16
    end
    object taStockLOCATION: TStringField
      FieldName = 'LOCATION'
      Size = 15
    end
    object taStockNOMINAL: TStringField
      FieldName = 'NOMINAL'
      Size = 10
    end
    object taStockPURCNOM: TStringField
      FieldName = 'PURCNOM'
      Size = 10
    end
    object taStockSALESVAT: TStringField
      FieldName = 'SALESVAT'
      Size = 1
    end
    object taStockPURCVAT: TStringField
      FieldName = 'PURCVAT'
      Size = 1
    end
    object taStockINSTOCK: TFloatField
      FieldName = 'INSTOCK'
    end
    object taStockONORDER: TFloatField
      FieldName = 'ONORDER'
    end
    object taStockCOMMODITY: TStringField
      FieldName = 'COMMODITY'
      Size = 15
    end
    object taStockLEVELS: TBooleanField
      FieldName = 'LEVELS'
    end
    object taStockNOTEPAD: TMemoField
      FieldName = 'NOTEPAD'
      BlobType = ftMemo
      Size = 1
    end
    object taStockLASTSALE: TDateField
      FieldName = 'LASTSALE'
    end
    object taStockLASTDEL: TDateField
      FieldName = 'LASTDEL'
    end
    object taStockProjected: TFloatField
      FieldName = 'Projected'
      Calculated = True
    end
  end
  object dsStkTrans: TwwDataSource
    DataSet = taStkTrans
    Left = 556
    Top = 327
  end
  object taStkTrans: TwwTable
    DatabaseName = 'EmpireBuilder'
    IndexName = 'STOCKCODE'
    MasterFields = 'STOCKCODE'
    MasterSource = dsStock
    TableName = 'StkTrans.DBF'
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    OnFilter = taStkTransFilter
    Left = 588
    Top = 271
    object taStkTransTRANSTYPE: TStringField
      DisplayLabel = 'Trans. Type'
      DisplayWidth = 12
      FieldName = 'TRANSTYPE'
      Size = 12
    end
    object taStkTransTRANSDATE: TDateField
      DisplayLabel = 'Date'
      DisplayWidth = 10
      FieldName = 'TRANSDATE'
    end
    object taStkTransDETAILS: TStringField
      DisplayWidth = 30
      FieldName = 'DETAILS'
      Size = 30
    end
    object taStkTransQUAN: TFloatField
      DisplayLabel = 'Quantity'
      DisplayWidth = 10
      FieldName = 'QUAN'
    end
    object taStkTransQUANUSED: TFloatField
      DisplayLabel = 'Qty Used'
      DisplayWidth = 10
      FieldName = 'QUANUSED'
    end
    object taStkTransCOSTPRICE: TFloatField
      DisplayLabel = 'Cost Price'
      DisplayWidth = 10
      FieldName = 'COSTPRICE'
    end
    object taStkTransSALEPRICE: TFloatField
      DisplayLabel = 'Sale Price'
      DisplayWidth = 10
      FieldName = 'SALEPRICE'
    end
    object taStkTransREF: TStringField
      DisplayLabel = 'Ref.'
      DisplayWidth = 10
      FieldName = 'REF'
      Size = 10
    end
    object taStkTransSTOCKCODE: TStringField
      FieldName = 'STOCKCODE'
      Visible = False
      Size = 16
    end
    object taStkTransTRANLINK: TFloatField
      FieldName = 'TRANLINK'
      Visible = False
    end
    object taStkTransINVLINK: TFloatField
      FieldName = 'INVLINK'
      Visible = False
    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 = True
    Left = 624
    Top = 327
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      706)
    OriginalFormHeight = (
      459)
    OriginalFormLeft = (
      57)
    OriginalFormTop = (
      99)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      698)
    OriginalClientHeight = (
      432)
  end
  object RCPopup: TRxPopupMenu
    Style = msOwnerDraw
    ShowCheckMarks = False
    OnGetItemParams = RCPopupGetItemParams
    Left = 624
    Top = 297
    object pmPrint: TMenuItem
      Caption = 'Print'
      OnClick = BtnRepPrintClick
    end
    object pmEmail: TMenuItem
      Caption = 'Email'
      OnClick = BtnRepEmailClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object pmChangeGridColour: TMenuItem
      Caption = 'Change Grid Colour'
      OnClick = pmChangeGridColourClick
    end
  end
end