purc.dfm

this is sample for traders

object PurcForm: TPurcForm
  Left = 192
  Top = 110
  Align = alCustom
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = ' Faktur Pembelian '
  ClientHeight = 468
  ClientWidth = 777
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Dina'
  Font.Style = [fsBold]
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefaultPosOnly
  ScreenSnap = True
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox4: TGroupBox
    Left = 504
    Top = 368
    Width = 265
    Height = 97
    TabOrder = 3
    object JvStaticText1: TJvStaticText
      Left = 8
      Top = 16
      Width = 113
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = ' SUB-TOTAL :'
      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
      ParentFont = False
      TabOrder = 0
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object DBEdit20: TDBEdit
      Left = 128
      Top = 16
      Width = 129
      Height = 22
      TabStop = False
      AutoSize = False
      Color = 13434828
      Ctl3D = True
      DataField = 'TRTOTAL'
      DataSource = dsPurc
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
    end
    object JvStaticText4: TJvStaticText
      Left = 8
      Top = 40
      Width = 113
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = ' PPN :'
      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
      ParentFont = False
      TabOrder = 2
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object JvStaticText5: TJvStaticText
      Left = 8
      Top = 64
      Width = 113
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'T O T A L :'
      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
      ParentFont = False
      TabOrder = 3
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object DBEdit5: TDBEdit
      Left = 128
      Top = 64
      Width = 129
      Height = 22
      TabStop = False
      AutoSize = False
      Color = 13434828
      Ctl3D = True
      DataField = 'GRANDTOTAL'
      DataSource = dsPurc
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 4
    end
    object ChkSerialBox: TDBCheckBox
      Left = 128
      Top = 43
      Width = 17
      Height = 17
      DataField = 'PPN'
      DataSource = dsPurc
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 5
      ValueChecked = '1'
      ValueUnchecked = '0'
      OnClick = ChkSerialBoxClick
    end
    object PPNVALUE: TDBEdit
      Left = 144
      Top = 40
      Width = 113
      Height = 22
      TabStop = False
      AutoSize = False
      Color = 13434828
      Ctl3D = True
      DataField = 'TRPPN'
      DataSource = dsPurc
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 6
    end
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 0
    Width = 313
    Height = 97
    Caption = ' Supplier '
    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
      OnButtonClick = PickLgnNo
      OnChange = SplEditChange
      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 = ' Faktur '
    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 SJDueEdit: TJvDBDateEdit
      Left = 336
      Top = 65
      Width = 97
      Height = 23
      TabStop = False
      BeepOnError = False
      DataField = 'DUEDATE'
      DataSource = dsPurc
      ClickKey = 112
      DefaultToday = True
      DialogTitle = 'Tgl Nota'
      BiDiMode = bdRightToLeft
      ParentBiDiMode = False
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      PopupColor = 55807
      ShowHint = False
      YearDigits = dyFour
      TabOrder = 2
      ClipboardCommands = []
      DisabledTextColor = clRed
    end
    object JvStaticText2: TJvStaticText
      Left = 304
      Top = 42
      Width = 128
      Height = 22
      Alignment = taCenter
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'J.Tempo (Hari) '
      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
      ParentFont = False
      TabOrder = 3
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object JTempoEdit: TDBNumEdit
      Left = 304
      Top = 65
      Width = 33
      Height = 22
      AutoSize = False
      Color = 16119285
      DisplayFormat = '##0'
      DataField = 'TERMDAYS'
      DataSource = dsPurc
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      MaxLength = 3
      ParentFont = False
      TabOrder = 4
      Text = '0'
      OnChange = JTempoEditChange
      OnKeyDown = JTempoEditKeyDown
    end
    object JvStaticText6: TJvStaticText
      Left = 8
      Top = 46
      Width = 283
      Height = 20
      Alignment = taCenter
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'No-Faktur Beli : '
      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 = 5
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object DBEdit2: TDBEdit
      Left = 8
      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 = 6
    end
    object JvDBDateEdit1: TJvDBDateEdit
      Left = 196
      Top = 66
      Width = 97
      Height = 23
      BeepOnError = False
      DataField = 'SJDATE'
      DataSource = dsPurc
      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 = 7
      OnChange = JTempoEditChange
      ClipboardCommands = []
    end
  end
  object GroupBox3: TGroupBox
    Left = 8