inv_mninbilllistqry.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_MnInBillListQry: TFrm_Inv_MnInBillListQry
  Left = -118
  Top = 150
  Caption = '车间生产入库单列表查询'
  ClientHeight = 479
  ClientWidth = 774
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 774
  end
  inherited Pnl_Title: TPanel
    Width = 774
    Caption = '车间生产入库单列表查询'
  end
  inherited Pnl_Head: TPanel
    Width = 774
    inherited Lbl_Order: TLabel
      Width = 66
      Caption = '日期,单据号'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 453
    Width = 774
    object Label1: TLabel
      Left = 24
      Top = 8
      Width = 84
      Height = 12
      Caption = '当前物料描述：'
    end
    object DBText1: TDBText
      Left = 112
      Top = 8
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemFlag'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Width = 774
    Height = 356
    inherited DBGridEh: TDBGridEh
      Width = 774
      Height = 356
      OnDblClick = DBGridEhDblClick
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'InvBillDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '日期'
          Width = 68
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单据号'
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '生产部门'
          Width = 123
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MONo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '生产订单号'
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'shiftType'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '班别'
          Width = 40
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLineNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '订单行号'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'whFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库'
          Width = 52
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPosition'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货位'
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 170
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单位'
          Width = 34
          KeyList.Strings = ()
        end
        Item
          Alignment = taCenter
          FieldName = 'InvBillSfcQty'
          PickList.Strings = ()
          Title.Alignment = tArightJustify
          Title.Caption = '拟入数量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '实入数量'
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNoTaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税价'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNoTaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税金额'
          Width = 63
          KeyList.Strings = ()
        end
        Item
          FieldName = 'IsOverPlan'
          PickList.Strings = (
            '是'
            '')
          Title.Alignment = taCenter
          Title.Caption = '超订单'
          Width = 48
          KeyList.Strings = (
            '1'
            '0')
          Checkboxes = False
        end
        Item
          FieldName = 'Sfc_EmployeeCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '车间制单'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WH_EmployeeCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓管员'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BatchNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '批次号'
          Width = 144
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillLineRemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 100
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 333
    Top = 147
  end
  inherited ActionList: TActionList
    Top = 176
    inherited Act_Look: TAction
      Enabled = True
      Visible = True
      OnExecute = Act_LookExecute
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B;Data Source=192.168.0.' +
      '151'
    CurSorType = ctStatic
    SQL.Strings = (
      'Select InvInBill.InvBillDate,'
      '       InvInBill.InvBillNo,'
      '       InvInBill.DeptCode+'#39' '#39'+Dept.DeptName As DeptCodeName,'
      '       InvInBill.MONo,'
      '       InvInBill.shiftType,'
      '       InvInBillLine.MoLineNo,'
      '       InvInBill.whCode+'#39' '#39'+Warehouse.whName whFlag,'
      
        '       InvInBill.WhPositionCode+'#39' '#39'+WhPosition.WhPositionName Wh' +
        'position,'
      '       Warehouse.whCode,'
      '       InvInBillLine.ItemCode+'#39' '#39'+Item.ItemName as ItemFlag,'
      '       Uom.UomName,'
      '       InvInBill.OverPlan isOverPlan,'
      '       InvInBillLine.InvBillSfcQty,'
      '       InvInBillLine.InvBillQty,'
      '       StandardPrice.SPPrice As InvBillNoTaxPrice,'
      
        '       StandardPrice.SPPrice*InvInBillLine.InvBillQty As InvBill' +
        'NoTaxAmount,'
      
        '       InvInBill.EmployeeCode+'#39' '#39'+Employee1.EmployeeName As Sfc_' +
        'EmployeeCodeName,'
      
        '       InvInBill.WH_EmployeeCode+'#39' '#39'+Employee2.EmployeeName As W' +
        'H_EmployeeCodeName,'
      '       InvInBillLine.BatchNo,'
      '       InvInBill.Sfc_EmployeeCode,'
      '       InvInBillLine.BillLineRemArk'
      'From  InvInBillLine Join InvInBill on'
      
        '                   InvInBillLine.InvBillId=InvInBill.InvBillId  ' +
        ' And'
      
        '                   (InvInBill.BillTypeCode='#39'0105'#39')left join stan' +
        'dArdPrice on'
      
        '                   InvInBill.InvBillMonth=StandardPrice.spstArtm' +
        'onth   and'
      '                   InvInBillline.ItemCode=StandardPrice.ItemCode'
      '                   Left Outer Join Item'
      '                   On  InvInBillLine.ItemCode=Item.ItemCode'
      '                   Left Outer Join Uom'
      '                   On  Item.UomCode=Uom.UomCode'
      '                   Left Outer Join Dept'
      '                   On  InvInBill.DeptCode=Dept.DeptCode'
      '                   Left Outer Join Employee Employee1'
      
        '                   On  InvInBill.EmployeeCode=Employee1.Employee' +
        'Code'
      '                   left outer'
      
        '                   join Warehouse on InvInBill.whCode=Warehouse.' +
        'whCode'
      '                   Left Outer'
      
        '                   Join WhPosition on InvInBill.WhPositionCode=W' +
        'hposition.WhPositionCode'
      '                   Left outer'
      
        '                   Join Employee Employee2 on InvInBill.Wh_Emplo' +
        'yeeCode=Employee2.EmployeeCode'
      ''
      ' ')
    Left = 300
    Top = 155
    object AdoQry_MainInvBillDate: TDateTimeField
      FieldName = 'InvBillDate'
      Origin = 'InvInBill'
    end
    object AdoQry_MainInvBillNo: TStringField
      FieldName = 'InvBillNo'
      Origin = 'InvInBill'
      Size = 10
    end
    object AdoQry_MainDeptCodeName: TStringField
      FieldName = 'DeptCodeName'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_MainMONo: TStringField
      FieldName = 'MONo'
      Origin = 'InvInBill'
      Size = 16
    end
    object AdoQry_MainMoLineNo: TIntegerField
      FieldName = 'MoLineNo'
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_MainInvBillQty: TFloatField
      FieldName = 'InvBillQty'
    end
    object AdoQry_MainInvBillNoTaxPrice: TFloatField
      FieldName = 'InvBillNoTaxPrice'
    end
    object AdoQry_MainInvBillNoTaxAmount: TFloatField
      FieldName = 'InvBillNoTaxAmount'
      ReadOnly = True
    end
    object AdoQry_MainBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 16
    end
    object AdoQry_MainWHCode: TStringField
      FieldName = 'WHCode'
    end
    object AdoQry_MainInvBillSfcQty: TFloatField
      FieldName = 'InvBillSfcQty'
    end
    object AdoQry_MainshiftType: TStringField
      FieldName = 'shiftType'
    end
    object AdoQry_MainItemFlag: TStringField
      FieldName = 'ItemFlag'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_MainwhFlag: TStringField
      FieldName = 'whFlag'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_MainWhPosition: TStringField
      FieldName = 'WhPosition'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_MainSfc_EmployeeCodeName: TStringField
      FieldName = 'Sfc_EmployeeCodeName'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainWH_EmployeeCodeName: TStringField
      FieldName = 'WH_EmployeeCodeName'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MaInBillLineRemArk: TStringField
      FieldName = 'BillLineRemArk'
      Size = 250
    end
    object AdoQry_MainIsOverPlan: TIntegerField
      FieldName = 'IsOverPlan'
      ReadOnly = True
    end
  end
  inherited DataSource: TDataSource
    Left = 368
    Top = 169
  end
  inherited ExtPrintReport: TExtPrintReport
    PAperType = ptNArrow
  end
end