inv_qry_currentinv_employee.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_Qry_CurrentInv_Employee: TFrm_Inv_Qry_CurrentInv_Employee
  Left = 14
  Top = 62
  Caption = '分仓管员当前物料结存表'
  ClientHeight = 485
  ClientWidth = 770
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 770
  end
  inherited Pnl_Title: TPanel
    Width = 770
    Caption = '分仓管员当前物料结存表'
  end
  inherited Pnl_Head: TPanel
    Width = 770
    inherited Lbl_Order: TLabel
      Width = 78
      Caption = '仓库/物料代码'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 459
    Width = 770
    object Label1: TLabel
      Left = 25
      Top = 9
      Width = 96
      Height = 12
      Caption = '当前行物料描述：'
    end
    object DBText1: TDBText
      Left = 121
      Top = 9
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Width = 770
    Height = 362
    inherited DBGridEh: TDBGridEh
      Width = 770
      Height = 362
      Columns = <
        Item
          FieldName = 'WHCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库'
          Width = 97
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 74
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 208
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 246
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'NoTaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税价'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalInv'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '库存总量'
          Width = 84
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalACount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '库存未税总额'
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnHandInv'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '可用库存量'
          Width = 83
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnCheckInv'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '待检库存量'
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FreezeInv'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '冻结库存量'
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnShipInv'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '在运库存量'
          Width = 82
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WasterInv'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '废品库存量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnHandACount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '可用库存未税额'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnCheckACount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '待检库存未税额'
          Width = 101
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FreezeACount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '冻结库存未税额'
          Width = 99
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnShipACount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '在运库存未税额'
          Width = 99
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WasterACount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '废品库存未税额'
          Width = 102
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Top = 136
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=MDRCMRM;Data Source=192.168.0.8;' +
      'Use procedure for Prepare=1;Auto Translate=True;Packet Size=4096' +
      ';Workstation ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      'Select CurrentInv.WHCode'
      '    ,CurrentInv.WHCode+'#39' '#39'+Warehouse.WHName As WHCodeName'
      '    ,CurrentInv.ItemCode'
      '    ,CurrentInv.ItemCode+'#39' '#39'+Item.ItemName As ItemCodeName'
      '    ,Item.ItemName'
      '    ,Uom.UomName'
      '    ,(case Sum(CurrentInv.OnHandInv) When 0 then 0 else'
      
        '     (Sum(case Warehouse.PriceType When 1 then StandardPrice.SPP' +
        'rice*CurrentInv.OnHandInv'
      '     else AveragePrice.AveragePrice*CurrentInv.OnHandInv end)/'
      '     Sum(CurrentInv.OnHandInv)) end)As NoTaxPrice'
      ''
      '    ,Sum(CurrentInv.OnHandInv) As OnHandInv'
      '    ,Sum(CurrentInv.OnCheckInv) As OnCheckInv'
      '    ,Sum(CurrentInv.FreezeInv) As FreezeInv'
      '    ,Sum(CurrentInv.OnShipInv) As OnShipInv'
      '    ,Sum(CurrentInv.WasterInv) As WasterInv'
      
        '    ,Sum(CurrentInv.OnHandInv+CurrentInv.OnCheckInv+CurrentInv.F' +
        'reezeInv+CurrentInv.OnShipInv) As TotalInv'
      ''
      
        '    ,Sum(case Warehouse.PriceType When 1 then StandardPrice.SPPr' +
        'ice*CurrentInv.OnHandInv'
      
        '     else AveragePrice.AveragePrice*CurrentInv.OnHandInv end) As' +
        ' OnHandACount'
      ''
      
        '    ,Sum(case Warehouse.PriceType When 1 then StandardPrice.SPPr' +
        'ice*CurrentInv.OnCheckInv'
      
        '     else AveragePrice.AveragePrice*CurrentInv.OnCheckInv end) A' +
        's OnCheckACount'
      ''
      
        '    ,Sum(case Warehouse.PriceType When 1 then StandardPrice.SPPr' +
        'ice*CurrentInv.FreezeInv'
      
        '     else AveragePrice.AveragePrice*CurrentInv.FreezeInv end) As' +
        ' FreezeACount'
      ''
      
        '    ,Sum(case Warehouse.PriceType When 1 then StandardPrice.SPPr' +
        'ice*CurrentInv.OnShipInv'
      
        '     else AveragePrice.AveragePrice*CurrentInv.OnShipInv end) As' +
        ' OnShipACount'
      ''
      
        '    ,Sum(case Warehouse.PriceType When 1 then StandardPrice.SPPr' +
        'ice*CurrentInv.OnShipInv'
      
        '     else AveragePrice.AveragePrice*CurrentInv.WasterInv end) As' +
        ' WasterACount'
      ''
      
        '    ,Sum(case Warehouse.PriceType When 1 then StandardPrice.SPPr' +
        'ice*(CurrentInv.OnHandInv+'
      
        '     CurrentInv.OnCheckInv+CurrentInv.FreezeInv+CurrentInv.Onshi' +
        'pInv)'
      
        '     else AveragePrice.AveragePrice*(CurrentInv.OnHandInv+Curren' +
        'tInv.OnCheckInv+'
      
        '     CurrentInv.FreezeInv+CurrentInv.OnShipInv) end) As TotalAco' +
        'unt'
      ''
      '     From CurrentInv'
      '     Join Warehouse On CurrentInv.WHCode=Warehouse.WHCode'
      '     Join Item On CurrentInv.ItemCode=Item.ItemCode'
      
        '     Left Join AveragePrice On (CurrentInv.WHCode=AveragePrice.W' +
        'HCode)'
      '     And (CurrentInv.ItemCode=AveragePrice.ItemCode)'
      
        '     Left Join StandardPrice On (StandardPrice.SPStArtMonth='#39'200' +
        '1.01'#39')'
      '     And (CurrentInv.ItemCode=StandardPrice.ItemCode)'
      '     join Uom on Item.UomCode=Uom.UomCode'
      
        '     group by CurrentInv.WHCode,Warehouse.WHName,CurrentInv.Item' +
        'Code,ItemName,UomName'
      ''
      ''
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' ')
    Left = 296
    Top = 169
    object AdoQry_MainWHCode: TStringField
      FieldName = 'WHCode'
      Size = 4
    end
    object AdoQry_MainWHCodeName: TStringField
      FieldName = 'WHCodeName'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Size = 60
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_MainNoTaxPrice: TFloatField
      FieldName = 'NoTaxPrice'
      ReadOnly = True
    end
    object AdoQry_MainOnHandInv: TFloatField
      FieldName = 'OnHandInv'
      ReadOnly = True
    end
    object AdoQry_MainOnCheckInv: TFloatField
      FieldName = 'OnCheckInv'
      ReadOnly = True
    end
    object AdoQry_MainFreezeInv: TFloatField
      FieldName = 'FreezeInv'
      ReadOnly = True
    end
    object AdoQry_MainOnShipInv: TFloatField
      FieldName = 'OnShipInv'
      ReadOnly = True
    end
    object AdoQry_MainTotalInv: TFloatField
      FieldName = 'TotalInv'
      ReadOnly = True
    end
    object AdoQry_MainOnHandACount: TFloatField
      FieldName = 'OnHandACount'
      ReadOnly = True
    end
    object AdoQry_MainOnCheckACount: TFloatField
      FieldName = 'OnCheckACount'
      ReadOnly = True
    end
    object AdoQry_MainFreezeACount: TFloatField
      FieldName = 'FreezeACount'
      ReadOnly = True
    end
    object AdoQry_MainOnShipACount: TFloatField
      FieldName = 'OnShipACount'
      ReadOnly = True
    end
    object AdoQry_MainTotalACount: TFloatField
      FieldName = 'TotalACount'
      ReadOnly = True
    end
    object AdoQry_MainWasterInv: TFloatField
      FieldName = 'WasterInv'
      ReadOnly = True
    end
    object AdoQry_MainWasterACount: TFloatField
      FieldName = 'WasterACount'
      ReadOnly = True
    end
    object AdoQry_MainItemCodeName: TStringField
      FieldName = 'ItemCodeName'
      ReadOnly = True
      Size = 77
    end
  end
  inherited DataSource: TDataSource
    DataSet = AdODataSet
    Top = 153
  end
  object AdODataSet: TAdODataSet
    AfterOpen = AdoQueryAfterOpen
    CommandTimeout = 0
    EnableBCD = False
    Parameters = <>
    Left = 232
    Top = 225
  end
end