sfc_backflushoutin_b.dfm

一个MRPII系统源代码版本

inherited Frm_Sfc_BackFlushOutIn_B: TFrm_Sfc_BackFlushOutIn_B
  Left = -29
  Top = 1
  Caption = '拉式生产订单补退料'
  ClientHeight = 553
  ClientWidth = 800
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 800
    inherited ToolBar: TToolBar
      Width = 283
      inherited ToolButton3: TToolButton
        Width = 6
        Visible = False
      end
      inherited TlBtn_Preview: TToolButton
        Left = 191
        Hint = '打印预览(不计打印次数)'
      end
      inherited TlBtn_Print: TToolButton
        Left = 214
      end
      inherited TlBtn_Excel: TToolButton
        Left = 237
      end
      inherited ToolButton4: TToolButton
        Left = 260
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 800
    Caption = '拉式生产订单补退料'
  end
  inherited Pnl_Head: TPanel
    Width = 800
    Height = 97
    object Label1: TLabel
      Left = 44
      Top = 8
      Width = 36
      Height = 12
      Caption = '仓库：'
    end
    object Label2: TLabel
      Left = 277
      Top = 8
      Width = 36
      Height = 12
      Caption = '货位：'
    end
    object Label3: TLabel
      Left = 20
      Top = 31
      Width = 60
      Height = 12
      Caption = '领料部门：'
    end
    object Label4: TLabel
      Left = 632
      Top = 8
      Width = 48
      Height = 12
      Caption = '单据号：'
    end
    object Label5: TLabel
      Left = 278
      Top = 31
      Width = 36
      Height = 12
      Caption = '班别：'
    end
    object Label6: TLabel
      Left = 644
      Top = 31
      Width = 36
      Height = 12
      Caption = '日期：'
    end
    object Label9: TLabel
      Left = 8
      Top = 52
      Width = 72
      Height = 12
      Caption = '生产订单号：'
    end
    object Label10: TLabel
      Left = 183
      Top = 52
      Width = 60
      Height = 12
      Caption = '订单行号：'
    end
    object Label11: TLabel
      Left = 279
      Top = 52
      Width = 36
      Height = 12
      Caption = '物料：'
    end
    object Label12: TLabel
      Left = 44
      Top = 77
      Width = 36
      Height = 12
      Caption = '备注：'
    end
    object lbl_Dept: TLabel
      Left = 83
      Top = 31
      Width = 6
      Height = 12
    end
    object lbl_Mono: TLabel
      Left = 83
      Top = 52
      Width = 6
      Height = 12
    end
    object lbl_MoLineno: TLabel
      Left = 243
      Top = 52
      Width = 6
      Height = 12
    end
    object lbl_Item: TLabel
      Left = 318
      Top = 52
      Width = 6
      Height = 12
    end
    object Label7: TLabel
      Left = 485
      Top = 8
      Width = 48
      Height = 12
      Caption = '仓管员：'
    end
    object cmbbx_WhCode: TComboBox
      Left = 83
      Top = 4
      Width = 164
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 1
      OnChange = cmbbx_WhCodeChange
      OnExit = cmbbx_WhCodeExit
    end
    object cmbbx_WhPositionCode: TComboBox
      Left = 314
      Top = 4
      Width = 153
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 2
      OnExit = cmbbx_WhPositionCodeExit
    end
    object medt_Date: TMaskEdit
      Left = 680
      Top = 27
      Width = 106
      Height = 20
      EditMask = '9999.99.99;1; '
      MaxLength = 10
      TabOrder = 5
      Text = '    .  .  '
      OnExit = DateCheck
    end
    object Extedt_Billno: TExtEdit
      Left = 680
      Top = 4
      Width = 106
      Height = 20
      Enabled = False
      TabOrder = 0
    end
    object Extedt_memo: TExtEdit
      Left = 80
      Top = 71
      Width = 393
      Height = 20
      TabOrder = 6
    end
    object CheckBox1: TCheckBox
      Left = 490
      Top = 72
      Width = 156
      Height = 17
      Caption = '只显示库存不为0的数据'
      TabOrder = 7
      OnClick = CheckBox1Click
    end
    object CheckBox2: TCheckBox
      Left = 658
      Top = 72
      Width = 129
      Height = 17
      Caption = '按用料部门过滤'
      TabOrder = 8
      OnClick = CheckBox2Click
    end
    object cmbbx_WhEmployee: TComboBox
      Left = 534
      Top = 4
      Width = 81
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 3
      OnExit = cmbbx_WhEmployeeExit
    end
    object cmbbx_Shift: TComboBox
      Left = 315
      Top = 27
      Width = 152
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 4
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 517
    Width = 800
    Height = 36
    object DBText1: TDBText
      Left = 85
      Top = 17
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
    end
    object Label8: TLabel
      Left = 21
      Top = 16
      Width = 60
      Height = 12
      Caption = '物料描述：'
    end
  end
  inherited Pnl_Body: TPanel
    Top = 154
    Width = 800
    Height = 363
    inherited DBGridEh: TDBGridEh
      Width = 800
      Height = 363
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      Columns = <
        Item
          FieldName = 'mono'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '订单号'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLineno'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓管员'
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'moCtrlqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '限额数量'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BFRealQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '累计实领数量'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'onhandInv'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '当前库存'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'moRequestqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '请领数量'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Batchno'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '批次号'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'moRequestid'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 80
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BilllineremArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 200
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    inherited Act_New: TAction
      Enabled = True
    end
    inherited Act_Hint: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_auto: TAction
      Caption = '获取最佳领用数量'
      Hint = '获取最佳领用数量'
      OnExecute = Act_autoExecute
    end
    inherited Act_Excel: TAction
      OnExecute = Act_ExcelExecute
    end
  end
  inherited AdoQry_Body: TAdoQuery
    BeforePost = AdoQry_BodyBeforePost
    AfterPost = AdoQry_BodyAfterPost
    SQL.Strings = (
      'select m.mono,'
      '           m.MoLineno,'
      '           m.ItemCode,'
      '           i.ItemName,'
      '           u.UomName,'
      '           m.moCtrlqty,'
      '           m.BFRealQty,'
      '           m.moRequestqty,'
      '           0 as onhandInv'
      '       from mnItemList m'
      '        left join Item i '
      '             on m.ItemCode=i.ItemCode '
      '        left join Uom u '
      '             on i.UomCode=u.UomCode '
      '        where m.mono='#39'1'#39
      '          and m.MoLineno=1')
  end
  object Extpr: TExtPrintReport
    TopBOrdermm = 20
    BottomBOrdermm = 20
    LeftBOrdermm = 10
    RightBOrdermm = 10
    TitleFont.ChArset = DEFAULT_CHArSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -19
    TitleFont.Name = '宋体'
    TitleFont.Style = [fsBold]
    SubtitleFont.ChArset = DEFAULT_CHArSET
    SubtitleFont.Color = clWindowText
    SubtitleFont.Height = -13
    SubtitleFont.Name = '宋体'
    SubtitleFont.Style = [fsBold]
    ReportFont.ChArset = DEFAULT_CHArSET
    ReportFont.Color = clWindowText
    ReportFont.Height = -13
    ReportFont.Name = '宋体'
    ReportFont.Style = []
    FootFont.ChArset = DEFAULT_CHArSET
    FootFont.Color = clWindowText
    FootFont.Height = -13
    FootFont.Name = '宋体'
    FootFont.Style = [fsBold]
    NeedLine = False
    SumPerPage = True
    SumTotal = True
    PAperSet = [ptA3, ptA4, ptB4, ptB5, ptNArrow, ptWide]
    PAperOrientation = poPortrait
    ShowPrintRange = True
    PAperType = ptA4
    HeaderGroups = <>
    Headers = <>
    Left = 232
    Top = 230
  end
end