rpoh.dfm

速达开源ERP系统

inherited frmRpoh: TfrmRpoh
  Left = 22
  Top = 14
  Width = 753
  Caption = '请购订单录入'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object sgRpoh: TSDGrid [0]
    Left = 1
    Top = 174
    Width = 740
    Height = 283
    Color = clWhite
    ColCount = 7
    Ctl3D = False
    DefaultRowHeight = 23
    FixedColor = 8564917
    RowCount = 4
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
    ParentCtl3D = False
    ParentFont = False
    PopupMenu = pmDetail
    TabOrder = 3
    OnDblClick = sgRpohDblClick
    OnSelectCell = sgRpohSelectCell
    Columns = <
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '行号'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '货物编码'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '单位'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '请购数量'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '请购单价'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '行金额'
        ColumnWidth = 0
      end>
    ColWidths = (
      6
      64
      162
      52
      125
      81
      154)
  end
  object FloatPanel2: TFloatPanel [1]
    Left = 0
    Top = 173
    Width = 745
    Height = 291
    Align = alClient
    Color = clWhite
    Caption = 'FloatPanel2'
    ParentColor = False
    TabOrder = 4
    object GroupBox1: TGroupBox
      Left = 6
      Top = 2
      Width = 333
      Height = 273
      TabOrder = 0
      object Label20: TLabel
        Left = 12
        Top = 104
        Width = 54
        Height = 12
        Caption = '计量单位:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label21: TLabel
        Left = 12
        Top = 133
        Width = 54
        Height = 12
        Caption = '换算系数:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label22: TLabel
        Left = 12
        Top = 189
        Width = 54
        Height = 12
        Caption = '请购单价:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label23: TLabel
        Left = 12
        Top = 161
        Width = 54
        Height = 12
        Caption = '请购数量:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label18: TLabel
        Left = 12
        Top = 20
        Width = 30
        Height = 12
        Caption = '行号:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label19: TLabel
        Left = 12
        Top = 48
        Width = 54
        Height = 12
        Caption = '货物编码:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label12: TLabel
        Left = 12
        Top = 76
        Width = 54
        Height = 12
        Caption = '货物名称:'
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 183
        Top = 161
        Width = 54
        Height = 12
        Caption = '生成数量:'
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object labRpodPQty: TLabel
        Left = 242
        Top = 161
        Width = 75
        Height = 12
        AutoSize = False
        Caption = 'RpodPQty'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label27: TLabel
        Left = 12
        Top = 245
        Width = 42
        Height = 12
        Caption = '行状态:'
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label11: TLabel
        Left = 12
        Top = 217
        Width = 30
        Height = 12
        Caption = '金额:'
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object labRpodGoodsName: TLabel
        Left = 69
        Top = 76
        Width = 178
        Height = 12
        AutoSize = False
        Caption = 'labRpodGoodsName'
      end
      object seRpodConvRate: TSDEdit
        Left = 69
        Top = 128
        Width = 103
        Height = 18
        TabStop = False
        Ctl3D = False
        MaxLength = 8
        ParentColor = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 3
        Text = 'seRpodConvRate'
        CharType = ctMathematic
        SplitSymbol = ' | '
      end
      object seRpodQty: TSDEdit
        Left = 69
        Top = 156
        Width = 102
        Height = 18
        Ctl3D = False
        MaxLength = 10
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 4
        Text = 'seRpodQty'
        OnExit = seRpodQtyExit
        CharType = ctMathematic
        SplitSymbol = ' | '
      end
      object seRpodPrice: TSDEdit
        Left = 69
        Top = 184
        Width = 101
        Height = 18
        Ctl3D = False
        MaxLength = 10
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 5
        Text = 'seRpodPrice'
        OnExit = seRpodQtyExit
        CharType = ctMathematic
        SplitSymbol = ' | '
      end
      object seRpodLine: TSDEdit
        Left = 69
        Top = 16
        Width = 99
        Height = 18
        Ctl3D = False
        MaxLength = 8
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 0
        Text = 'seRpodLine'
        CharType = ctNumeric
        SplitSymbol = ' | '
      end
      object scRpodStatus: TSDComboBox
        Left = 69
        Top = 240
        Width = 101
        Height = 20
        Style = csDropDownList
        Color = clWhite
        Ctl3D = False
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 6
        KeyItem = cbItem2
      end
      object seRpodAmt: TSDEdit
        Left = 69
        Top = 212
        Width = 101
        Height = 18
        TabStop = False
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 7
        Text = 'seRpodAmt'
        CharType = ctMathematic
        SplitSymbol = ' | '
      end
      object seRpodGoodsCode: TSDEdit
        Left = 69
        Top = 44
        Width = 175
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 1
        Text = 'seRpodGoodsCode'
        OnExit = seRpodGoodsCodeExit
        OnButtonClick = seRpodGoodsCodeButtonClick
        ButtonVisible = True
        SplitSymbol = ' | '
      end
      object seRpodUnitCode: TSDEdit
        Left = 69
        Top = 101
        Width = 125
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 2
        Text = 'seRpodUnitCode'
        OnButtonClick = seRpodUnitCodeButtonClick
        ButtonVisible = True
        KeyItem = cbItem2
        SplitSymbol = ' | '
      end
    end
    object GroupBox2: TGroupBox
      Left = 343
      Top = 210
      Width = 280
      Height = 64
      Caption = '结清'
      TabOrder = 1
      object Label30: TLabel
        Left = 9
        Top = 41
        Width = 54
        Height = 12
        Caption = '结清日期:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object ChkRpodClose: TCheckBox
        Left = 6
        Top = 14
        Width = 76
        Height = 21
        Alignment = taLeftJustify
        Caption = '单行结清'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object seRpodCloseDate: TSDEdit
        Left = 69
        Top = 37
        Width = 103
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 1
        Text = 'seRpodCloseDate'
        SplitSymbol = ' | '
      end
    end
    object GroupBox3: TGroupBox
      Left = 342
      Top = 2
      Width = 281
      Height = 206
      Caption = '请购需求信息'
      TabOrder = 2
      object Label31: TLabel
        Left = 9
        Top = 70
        Width = 54
        Height = 12
        Caption = '需求部门:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label32: TLabel
        Left = 9
        Top = 96
        Width = 54
        Height = 12
        Caption = '需求货位:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label28: TLabel
        Left = 9
        Top = 46
        Width = 54
        Height = 12
        Caption = '需求日期:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label35: TLabel
        Left = 9
        Top = 147
        Width = 30
        Height = 12
        Caption = '备注:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label26: TLabel
        Left = 9
        Top = 122
        Width = 54
        Height = 12
        Caption = '需求来源:'
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label29: TLabel
        Left = 7
        Top = 22
        Width = 54
        Height = 12
        Caption = '交货日期:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object scRpodDeptCode: TSDComboBox
        Left = 67
        Top = 65
        Width = 173
        Height = 20
        Color = clWhite
        Ctl3D = False
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 2
        Text = 'scRpodDeptCode'
        OnExit = scRpodDeptCodeExit
        KeyItem = cbItem2
      end
      object deRpodReqDate: TDateEdit
        Left = 67
        Top = 43