inv_opoutbilllistqry.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_OpOutBillListQry: TFrm_Inv_OpOutBillListQry
  Left = 8
  Top = 127
  Caption = '委外加工领单列表查询'
  ClientHeight = 553
  ClientWidth = 800
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 800
  end
  inherited Pnl_Title: TPanel
    Width = 800
    Caption = '委外加工领单列表查询'
    inherited Image2: TImage
      Width = 800
    end
  end
  inherited Pnl_Head: TPanel
    Width = 800
    inherited Image1: TImage
      Width = 800
    end
    inherited Lbl_Order: TLabel
      Width = 66
      Caption = '日期,单据号'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 523
    Width = 800
    Height = 30
    inherited Image4: TImage
      Width = 800
      Height = 30
    end
    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 = 'ItemName'
      DataSource = DataSource
    end
    object Label2: TLabel
      Left = 580
      Top = 10
      Width = 60
      Height = 12
      Caption = '金额合计：'
      Visible = False
    end
    object Edit1: TEdit
      Left = 644
      Top = 6
      Width = 121
      Height = 20
      ReadOnly = True
      TabOrder = 0
      Visible = False
    end
  end
  inherited Pnl_Body: TPanel
    Width = 800
    Height = 426
    inherited Image3: TImage
      Width = 800
      Height = 426
    end
    inherited DBGridEh: TDBGridEh
      Width = 800
      Height = 426
      OnDblClick = DBGridEhDblClick
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'InvBillDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '日期'
          Width = 63
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单据号'
          Width = 73
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商'
          Width = 138
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MONo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '采购订单号'
          Width = 61
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLineNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '订单行号'
          Width = 52
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库'
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPosition'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货位'
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单位'
          Width = 30
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Width = 48
          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 = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OverPlan'
          PickList.Strings = (
            '是'
            ' ')
          Title.Alignment = taCenter
          Title.Caption = '超订单'
          KeyList.Strings = (
            '1'
            '0')
        end
        Item
          FieldName = 'EmployeeCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓管员'
          Width = 84
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BatchNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '批次号'
          Width = 112
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillLineReMArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 76
          KeyList.Strings = ()
        end>
    end
    object tmp_grid: TDBGridEh
      Left = 488
      Top = 64
      Width = 216
      Height = 120
      DataSource = DataSource
      TabOrder = 1
      TitleFont.ChArset = GB2312_CHArSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Visible = False
    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  InvOutBill.InvBillDate,'
      '         InvOutBill.InvBillNo,'
      
        '         InvOutBill.VendorCode+'#39' '#39'+Vendor.VendorName As VendorNa' +
        'me,'
      
        '         InvOutBill.PoNO As MONo,InvOutBillLine.POLineNo As MOLi' +
        'neNo,'
      '         InvOutBill.whCode+'#39' '#39'+Warehouse.whName WhCodeName,'
      '         InvOutBill.whCode,'
      
        '         InvOutBill.WhPositionCode+'#39' '#39'+WhPosition.WhPositionName' +
        ' WhPosition,'
      '         InvOutBillLine.ItemCode+'#39' '#39'+Item.ItemName ItemFlag,'
      '         InvOutBillLine.ItemCode,'
      '         Item.ItemName,    '
      '         Uom.UomName,'
      '         InvOutBillLine.InvBillQty,'
      '         Warehouse.PriceType,'
      '         case when Warehouse.PriceType='#39'1'#39
      '              then   StandardPrice.SPPrice'
      '              else   InvOutBillLine.InvBillNoTaxPrice  end'
      '         InvBillNoTaxPrice,'
      '         InvOutBill.OverPlan,'
      '         case when Warehouse.PriceType='#39'1'#39
      
        '              then   InvOutBillLine.InvBillqty*StandardPrice.SPP' +
        'rice'
      '              else    InvOutBillLine.InvBillNoTaxAmount  end'
      '         InvBillNoTaxAmount,'
      
        '         InvOutBill.wh_EmployeeCode+'#39' '#39'+Employee.EmployeeName as' +
        ' EmployeeCodeName,'
      '         InvOutBillLine.BatchNo,'
      '         InvOutBillLine.BillLineReMArk'
      '    From InvOutBillLine'
      '         join InvOutBill'
      '           on InvOutBillLine.InvBillId=InvOutBill.InvBillId'
      '              And (InvOutBill.BillTypeCode='#39'0202'#39')'
      '         left join StandardPrice'
      '           on InvOutBill.InvBillMonth=StandardPrice.spstArtMonth'
      
        '              And  InvOutBillline.ItemCode=StandardPrice.Itemcod' +
        'e'
      '         left outer join Vendor'
      '           on InvOutBill.VendorCode=Vendor.VendorCode'
      '         left outer join Employee'
      '           on InvOutBill.wh_EmployeeCode=Employee.EmployeeCode'
      '         left outer join Warehouse'
      '           on InvOutBill.whCode=Warehouse.whCode'
      '         left outer join Item'
      '           on InvOutBillLine.ItemCode=Item.ItemCode'
      '         left outer join Uom'
      '           on Item.UomCode=Uom.UomCode'
      '         Left Outer Join WhPosition'
      
        '           on WhPosition.WhPositionCode=InvOutBill.WhPositioncod' +
        'e'
      '   Where  InvOutBill.WHCode In'
      '          ('#39'0010'#39','#39'0020'#39','#39'0030'#39','#39'0040'#39','#39'0041'#39','
      '           '#39'0050'#39','#39'0060'#39','#39'0070'#39','#39'0080'#39','#39'0090'#39','#39'9999'#39')'
      '          And InvOutBill.InvBillDate>='#39'2001.07.01'#39
      '          And InvOutBill.InvBillDate<='#39'2001.08.02'#39
      '')
    Left = 320
    Top = 249
  end
end