inv_noorderopin_b.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_NoOrderOpIn_B: TFrm_Inv_NoOrderOpIn_B
  Left = 11
  Top = 103
  Caption = '无订单委外入库'
  ClientHeight = 553
  ClientWidth = 800
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 800
    inherited ToolBar: TToolBar
      inherited TlBtn_Preview: TToolButton
        Hint = '打印预览(不计打印次数)'
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 800
    Caption = '无订单委外入库'
    inherited Image2: TImage
      Width = 800
    end
  end
  inherited Pnl_Head: TPanel
    Width = 800
    Height = 81
    inherited Image1: TImage
      Width = 800
      Height = 81
    end
    object Label1: TLabel
      Left = 47
      Top = 14
      Width = 36
      Height = 12
      Caption = '仓库：'
    end
    object Label2: TLabel
      Left = 200
      Top = 38
      Width = 72
      Height = 12
      Caption = '供应商描述：'
    end
    object Label4: TLabel
      Left = 320
      Top = 14
      Width = 36
      Height = 12
      Caption = '货位：'
    end
    object Label5: TLabel
      Left = 591
      Top = 38
      Width = 48
      Height = 12
      Caption = '日  期：'
    end
    object Label7: TLabel
      Left = 554
      Top = 61
      Width = 60
      Height = 12
      Caption = '入库类型：'
      Visible = False
    end
    object Label8: TLabel
      Left = 234
      Top = 60
      Width = 36
      Height = 12
      Caption = '备注：'
    end
    object Label10: TLabel
      Left = 590
      Top = 14
      Width = 48
      Height = 12
      Caption = '单据号：'
    end
    object Label16: TLabel
      Left = 11
      Top = 38
      Width = 72
      Height = 12
      Caption = '供应商代码：'
    end
    object lbl_OutName: TLabel
      Left = 272
      Top = 38
      Width = 6
      Height = 12
    end
    object Label6: TLabel
      Left = 46
      Top = 60
      Width = 36
      Height = 12
      Caption = '税率：'
    end
    object Label9: TLabel
      Left = 144
      Top = 60
      Width = 36
      Height = 12
      Caption = '货币：'
    end
    object lbl_CurrencyName: TLabel
      Left = 180
      Top = 60
      Width = 6
      Height = 12
    end
    object lb_Vendortaxrate_Percent: TLabel
      Left = 86
      Top = 60
      Width = 6
      Height = 12
    end
    object Extedt_Billno: TExtEdit
      Left = 637
      Top = 10
      Width = 111
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 0
    end
    object Extedt_OutCode: TExtEdit
      Left = 84
      Top = 34
      Width = 89
      Height = 20
      TabOrder = 4
      OnExit = Extedt_OutCodeExit
      OnKeyDown = Extedt_OutCodeKeyDown
      DispLabel = lbl_OutName
    end
    object medt_Date: TMaskEdit
      Left = 638
      Top = 34
      Width = 67
      Height = 20
      EditMask = '9999.99.99;1; '
      MaxLength = 10
      TabOrder = 5
      Text = '    .  .  '
      OnExit = DateCheck
    end
    object Extedt_memo: TExtEdit
      Left = 275
      Top = 56
      Width = 474
      Height = 20
      TabOrder = 6
    end
    object cmbbx_WhCode: TComboBox
      Left = 84
      Top = 10
      Width = 182
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 1
      OnChange = cmbbx_WhCodeChange
    end
    object cmbbx_WhPositionCode: TComboBox
      Left = 360
      Top = 10
      Width = 163
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 2
    end
    object cmbbx_BillType2Code: TComboBox
      Left = 596
      Top = 81
      Width = 182
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 3
      Visible = False
      OnExit = cmbbx_BillType2CodeExit
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 384
    Width = 800
    Height = 169
    TabOrder = 4
    inherited Image4: TImage
      Width = 800
      Height = 145
    end
    object Panel2: TPanel
      Left = 0
      Top = 145
      Width = 800
      Height = 24
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 0
      object Label11: TLabel
        Left = 24
        Top = 7
        Width = 96
        Height = 12
        Caption = '当前行物料描述：'
      end
      object DBText2: TDBText
        Left = 127
        Top = 6
        Width = 42
        Height = 12
        AutoSize = True
        DataField = 'ItemName'
        DataSource = DataSource1
      end
    end
    object DBGridEh1: TDBGridEh
      Left = 0
      Top = 0
      Width = 800
      Height = 145
      Align = alClient
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 1
      TitleFont.ChArset = GB2312_CHArSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDblClick = DBGridEh1DblClick
      OnKeyDown = DBGridEh1KeyDown
      Columns = <
        Item
          FieldName = 'ItemCode'
          Title.Alignment = taCenter
          Title.Caption = '子项物料代码'
          Width = 125
        end
        Item
          FieldName = 'ItemName'
          Title.Alignment = taCenter
          Title.Caption = '子项物料描述'
          Width = 250
        end
        Item
          FieldName = 'RealOpQty'
          Title.Alignment = taCenter
          Title.Caption = '定额'
          Width = 91
        end
        Item
          FieldName = 'RealOPScrAp_Percent'
          Title.Alignment = taCenter
          Title.Caption = '损耗%'
          Width = 74
        end
        Item
          FieldName = 'RealOpQtyNew'
          Title.Alignment = taCenter
          Title.Caption = '实际定额'
          Width = 65
        end
        Item
          FieldName = 'RealOPScrAp_PercentNew'
          Title.Alignment = taCenter
          Title.Caption = '实际损耗%'
          Width = 72
        end>
    end
  end
  inherited Pnl_Body: TPanel
    Top = 138
    Width = 800
    Height = 246
    TabOrder = 3
    inherited Image3: TImage
      Width = 800
      Height = 222
    end
    inherited DBGridEh: TDBGridEh
      Width = 800
      Height = 217
      Align = alNone
      Columns = <
        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 = 27
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Batchno'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '批次号'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税价'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税金额'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillnotaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税价'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillnotaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税金额'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BilllineremArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 182
          KeyList.Strings = ()
        end>
    end
    object Panel1: TPanel
      Left = 0
      Top = 222
      Width = 800
      Height = 24
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object Label3: TLabel
        Left = 24
        Top = 7
        Width = 96
        Height = 12
        Caption = '当前行物料描述：'
      end
      object DBText1: TDBText
        Left = 128
        Top = 6
        Width = 42
        Height = 12
        AutoSize = True
        DataField = 'ItemName'
        DataSource = DataSource
      end
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 397
    Top = 211
  end
  inherited ActionList: TActionList
    inherited Act_New: TAction
      Enabled = True
    end
    inherited Act_Hint: TAction
      Enabled = False
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = ''
    BeforePost = AdoQry_BodyBeforePost
    AfterPost = AdoQry_BodyAfterPost
    SQL.Strings = (
      'select '
      '                 bl.InvBillid,'
      '                 bl.InvBilllineno,'
      '                 bl.InvBillqty,'
      '                 bl.ItemCode,'
      '                 i.ItemName,'
      '                 u.UomName,'
      '                 bl.BilllineremArk,'
      '                 bl.InvBillPrice,'
      '                 bl.InvBillAmount,'
      '                 bl.InvBillnotaxPrice,'
      '                 bl.InvBillnotaxAmount '
      '               from InvInBillline bl,Item i,Uom u '
      '               where bl.InvBillid=95270'
      '                 and bl.ItemCode=i.ItemCode '
      '                 and i.UomCode=u.UomCode '
      '                Order by bl.InvBilllineno')
    Top = 209
  end
  inherited DataSource: TDataSource
    OnDataChange = DataSourceDataChange
    Top = 209
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 120
    Top = 225
  end
  object AdoQry_RealOpQty: TAdoQuery
    LockType = ltBatchOptimistic
    EnableBCD = False
    Parameters = <>
    Left = 392
    Top = 435
  end
  object DataSource1: TDataSource
    DataSet = AdoQry_RealOpQty
    Left = 304
    Top = 427
  end
end