inv_enter_mounitmnrequestauditingh.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_Enter_MoUnitMnRequestAuditingH: TFrm_Inv_Enter_MoUnitMnRequestAuditingH
  Left = 2
  Top = 107
  Caption = 'Mo合并领料核定'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = 'Mo合并领料核定'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 150
      Caption = '受单部门代码/生产领料单号'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      ReadOnly = False
      OnTitleClick = DBGridEhTitleClick
      FrozenCols = 2
      Columns = <
        Item
          FieldName = 'InvBilltmpflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '标记'
          Width = 32
          Visible = False
          KeyList.Strings = (
            '1'
            '0')
          Checkboxes = True
        end
        Item
          FieldName = 'InvBillWhchck'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '核定否'
          KeyList.Strings = (
            '1'
            '0')
          Checkboxes = True
        end
        Item
          FieldName = 'InvBillno'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '生产领料单号'
          Width = 107
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '受单部门标识'
          Width = 94
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 173
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 246
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Sfc_EmployeeCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓管员'
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '审核人员'
          Width = 71
          KeyList.Strings = ()
        end
        Item
          FieldName = 'whCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货位'
          Width = 71
          KeyList.Strings = ()
        end
        Item
          FieldName = 'shiftType'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '班别'
          Width = 86
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillRemArk'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 30
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 717
    Top = 0
  end
  inherited ActionList: TActionList
    Left = 552
    Top = 0
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_kl;Data Source=192.168.0.1' +
      '00;Use procedure for Prepare=1;Auto Translate=True;Packet Size=4' +
      '096;Workstation ID=XYB'
    SQL.Strings = (
      'select'
      '                    InvOutBill.InvBilltmpflag,'
      '                    InvOutBill.InvBillWhchck,'
      '                    InvOutBill.InvBillid,'
      '                    InvOutBill.whCode,'
      
        '                    InvOutBill.whCode+'#39' '#39'+Warehouse.whName as wh' +
        'CodeName,'
      '                    InvOutBill.WhPositionCode,'
      
        '                    InvOutBill.WhPositionCode+'#39' '#39'+WhPosition.whp' +
        'ositionName as WhPositionCodeName,'
      '                    InvOutBill.DeptCode,'
      
        '                    InvOutBill.DeptCode+'#39' '#39'+DeptName as DeptCode' +
        'Name,'
      '                    InvOutBill.shiftType,'
      '                    InvOutBill.InvBillno,'
      '                    InvOutBill.InvBilldate,'
      
        '                    InvOutBill.WH_EmployeeCode+'#39'  '#39'+Employee.Emp' +
        'loyeeName  As Sfc_EmployeeCodeName,'
      
        '                     InvOutBill.WH_EmployeeCode +'#39'  '#39'+Employee.E' +
        'mployeeName as WhEmployeeCode ,'
      '                    InvOutBill.InvBillRemArk,'
      '                     InvOutBillline.mono,'
      '                    InvOutBillline.MoLineno,'
      '                    InvOutBillline.ite_ItemCode as ItemCode,'
      '                    Item.ItemName'
      
        '                 from InvOutBillline  left join InvOutBill  on i' +
        'nvOutBillline.InvBillid=InvOutBill.InvBillid  '
      '                   left join Warehouse'
      '                        on InvOutBill.whCode=Warehouse.whCode'
      '                   left join WhPosition'
      '                        on InvOutBill.whCode=WhPosition.whCode'
      
        '                        and InvOutBill.WhPositionCode=WhPosition' +
        '.WhPositionCode'
      
        '                   left join Item on InvOutBillline.ite_ItemCode' +
        '=Item.ItemCode'
      
        '                   left join Dept on  InvOutBill.DeptCode=Dept.d' +
        'eptCode'
      
        '                   left join Employee on InvOutBill.WH_EmployeeC' +
        'ode=Employee.EmployeeCode'
      
        '                   --//left join (select * from Employee) t1 on ' +
        'InvOutBill.WH_EmployeeCode=t1.EmployeeCode'
      
        '                   where InvOutBill.ISMoUnitRequest=1  And InvBi' +
        'llWhchck=0'
      ' '
      ' '
      ' ')
    Left = 584
    Top = 1
    object InvBilltmpflag: TIntegerField
      FieldName = 'InvBillWhchck'
      Origin = '#TmPMoLine1'
    end
    object AdoQry_HeadInvBillid: TFloatField
      FieldName = 'InvBillid'
      Origin = '#TmPMoLine1'
      ReadOnly = True
    end
    object AdoQry_HeadwhCode: TStringField
      FieldName = 'whCode'
      Origin = '#TmPMoLine1'
      Size = 4
    end
    object AdoQry_HeadwhCodeName: TStringField
      FieldName = 'whCodeName'
      Origin = '#TmPMoLine1'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_HeadWhPositionCode: TStringField
      FieldName = 'WhPositionCode'
      Origin = '#TmPMoLine1'
      Size = 4
    end
    object AdoQry_HeadWhPositionCodeName: TStringField
      FieldName = 'WhPositionCodeName'
      Origin = '#TmPMoLine1'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_HeadDeptCode: TStringField
      FieldName = 'DeptCode'
      Origin = '#TmPMoLine1'
      Size = 8
    end
    object AdoQry_HeadDeptCodeName: TStringField
      FieldName = 'DeptCodeName'
      Origin = '#TmPMoLine1'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_HeadshiftType: TStringField
      FieldName = 'shiftType'
      Origin = '#TmPMoLine1'
    end
    object AdoQry_HeadInvBillno: TStringField
      FieldName = 'InvBillno'
      Origin = '#TmPMoLine1'
      Size = 10
    end
    object AdoQry_HeadInvBilldate: TDateTimeField
      FieldName = 'InvBilldate'
      Origin = '#TmPMoLine1'
    end
    object AdoQry_HeadSfc_EmployeeCodeName: TStringField
      FieldName = 'Sfc_EmployeeCodeName'
      Origin = '#TmPMoLine1'
      ReadOnly = True
      Size = 92
    end
    object AdoQry_HeadWhEmployeeCode: TStringField
      FieldName = 'WhEmployeeCode'
      Origin = '#TmPMoLine1'
      Size = 30
    end
    object AdoQry_HeadInvBillRemArk: TStringField
      FieldName = 'InvBillRemArk'
      Origin = '#TmPMoLine1'
      Size = 250
    end
    object AdoQry_HeadInvBilltmpflag: TIntegerField
      FieldName = 'InvBilltmpflag'
      Origin = '#TmPMoLine1'
    end
  end
  inherited DataSource: TDataSource
    Left = 616
    Top = 1
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 682
    Top = 1
  end
  inherited ExtPrintReport: TExtPrintReport
    PAperSet = [ptA4]
    Left = 650
    Top = 1
  end
end