transfer.~dfm

this is sample for traders

object TransferForm: TTransferForm
  Left = 192
  Top = 107
  AutoScroll = False
  BorderIcons = []
  Caption = ' Nota Transfer Inventory ( Item Penjualan ) '
  ClientHeight = 468
  ClientWidth = 777
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 0
    Width = 313
    Height = 97
    Caption = ' Gudang Pengirim '
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Dina'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object SplEdit: TJvDBComboEdit
      Left = 8
      Top = 16
      Width = 65
      Height = 23
      BeepOnError = False
      CharCase = ecUpperCase
      ClickKey = 112
      DataField = 'SPLCODE'
      DataSource = dsPurc
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      ImageKind = ikEllipsis
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 0
      ClipboardCommands = []
    end
    object Memo1: TMemo
      Left = 80
      Top = 16
      Width = 225
      Height = 73
      TabStop = False
      Color = clBtnFace
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    Left = 328
    Top = 0
    Width = 441
    Height = 97
    Caption = ' Nota '
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Dina'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object SJNOEDIT: TDBEdit
      Left = 208
      Top = 10
      Width = 121
      Height = 23
      TabStop = False
      AutoSize = False
      BevelInner = bvLowered
      BevelOuter = bvRaised
      BevelKind = bkFlat
      CharCase = ecUpperCase
      Color = clBtnFace
      Ctl3D = True
      DataField = 'TRNO'
      DataSource = dsPurc
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = [fsBold]
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
    object SJDateEdit: TJvDBDateEdit
      Left = 336
      Top = 10
      Width = 97
      Height = 23
      TabStop = False
      BeepOnError = False
      DataField = 'TRDATE'
      DataSource = dsPurc
      ReadOnly = True
      ClickKey = 112
      DefaultToday = True
      DialogTitle = 'Tgl Nota'
      BiDiMode = bdRightToLeft
      ParentBiDiMode = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      ParentFont = False
      PopupColor = 55807
      YearDigits = dyFour
      TabOrder = 1
      ClipboardCommands = []
    end
    object JvStaticText6: TJvStaticText
      Left = 148
      Top = 46
      Width = 283
      Height = 20
      Alignment = taCenter
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Gudang Penerima : '
      Color = clBtnFace
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = [fsBold]
      HotTrackFont.Charset = ANSI_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -13
      HotTrackFont.Name = 'Dina'
      HotTrackFont.Style = []
      Layout = tlCenter
      ParentColor = False
      ParentFont = False
      TabOrder = 2
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object DBEdit2: TDBEdit
      Left = 244
      Top = 67
      Width = 185
      Height = 20
      TabStop = False
      AutoSize = False
      CharCase = ecUpperCase
      Color = 16119285
      Ctl3D = True
      DataField = 'SJNO'
      DataSource = dsPurc
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 3
    end
  end
  object GroupBox3: TGroupBox
    Left = 8
    Top = 100
    Width = 761
    Height = 273
    Color = 12961221
    ParentColor = False
    TabOrder = 2
    object LineGrid: TJvDBUltimGrid
      Left = 2
      Top = 15
      Width = 757
      Height = 256
      Align = alClient
      BorderStyle = bsNone
      Color = 16119285
      Ctl3D = False
      DataSource = LineSource
      FixedColor = 14408667
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Dina'
      Font.Style = []
      Options = [dgEditing, dgTitles, dgIndicator, dgRowLines, dgCancelOnExit]
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'Dina'
      TitleFont.Style = [fsBold]
      AutoAppend = False
      AutoSort = False
      FixedCols = 1
      TitleButtons = True
      PostOnEnterKey = True
      TitleArrow = True
      ShowCellHint = True
      SelectColumnsDialogStrings.Caption = 'Select columns'
      SelectColumnsDialogStrings.RealNamesOption = '[With the real field name]'
      SelectColumnsDialogStrings.OK = '&OK'
      SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
      EditControls = <
        item
          ControlName = 'dbneD1'
          FieldName = 'DISC_1'
          FitCell = fcBiggest
        end
        item
          ControlName = 'dbneD2'
          FieldName = 'DISC_2'
          FitCell = fcBiggest
        end
        item
          ControlName = 'dbneQTY'
          FieldName = 'QTY'
          FitCell = fcBiggest
        end
        item
          ControlName = 'LkSat'
          FieldName = 'SAT'
          FitCell = fcCellSize
        end
        item
          ControlName = 'dbnePrice'
          FieldName = 'PRICE'
          FitCell = fcBiggest
          LeaveOnEnterKey = True