inv_qry_currentinv_position.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_Qry_CurrentInv_Position: TFrm_Inv_Qry_CurrentInv_Position
  Left = 16
  Top = 67
  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 = 108
      Caption = '仓库/货位/物料代码'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 459
    Width = 770
    object Label1: TLabel
      Left = 24
      Top = 9
      Width = 96
      Height = 12
      Caption = '当前行物料描述：'
    end
    object DBText1: TDBText
      Left = 122
      Top = 8
      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 = 83
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WHPCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货位'
          Width = 120
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 90
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 166
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 218
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          Width = 55
          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 = '库存总量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalACount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '库存未税总额'
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnHandInv'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '可用库存量'
          Width = 82
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnCheckInv'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '待检库存量'
          Width = 78
          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 = 78
          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 = 101
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnCheckACount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '待检库存未税额'
          Width = 102
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FreezeACount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '冻结库存未税额'
          Width = 98
          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 = 101
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Top = 136
    inherited Act_Sum: TAction
      Enabled = True
      Visible = True
    end
  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.WhPositionCode'
      
        '    ,WhPosition.WhPositionCode+'#39' '#39'+WhPosition.WhPositionName As ' +
        'WHPCodeName'
      '    ,CurrentInv.ItemCode'
      '    ,Item.ItemName'
      '    ,CurrentInv.ItemCode+'#39' '#39'+Item.ItemName As ItemCodeName'
      '    ,Uom.UomName'
      '    ,case Warehouse.PriceType When 1 then StandardPrice.SPPrice'
      '     else AveragePrice.AveragePrice end As NoTaxPrice'
      ''
      '    ,CurrentInv.OnHandInv'
      '    ,CurrentInv.OnCheckInv'
      '    ,CurrentInv.FreezeInv'
      '    ,CurrentInv.OnShipInv'
      '    ,CurrentInv.WasterInv'
      
        '    ,CurrentInv.OnHandInv+CurrentInv.OnCheckInv+CurrentInv.Freez' +
        'eInv+CurrentInv.OnShipInv As TotalInv'
      ''
      
        '    ,case Warehouse.PriceType When 1 then StandardPrice.SPPrice*' +
        'CurrentInv.OnHandInv'
      
        '     else AveragePrice.AveragePrice*CurrentInv.OnHandInv end As ' +
        'OnHandACount'
      ''
      
        '    ,case Warehouse.PriceType When 1 then StandardPrice.SPPrice*' +
        'CurrentInv.OnCheckInv'
      
        '     else AveragePrice.AveragePrice*CurrentInv.OnCheckInv end As' +
        ' OnCheckACount'
      ''
      
        '    ,case Warehouse.PriceType When 1 then StandardPrice.SPPrice*' +
        'CurrentInv.FreezeInv'
      
        '     else AveragePrice.AveragePrice*CurrentInv.FreezeInv end As ' +
        'FreezeACount'
      ''
      
        '    ,case Warehouse.PriceType When 1 then StandardPrice.SPPrice*' +
        'CurrentInv.OnShipInv'
      
        '     else AveragePrice.AveragePrice*CurrentInv.OnShipInv end As ' +
        'OnShipACount'
      ''
      
        '    ,case Warehouse.PriceType When 1 then StandardPrice.SPPrice*' +
        'CurrentInv.OnShipInv'
      
        '     else AveragePrice.AveragePrice*CurrentInv.WasterInv end As ' +
        'WasterACount'
      ''
      
        '    ,case Warehouse.PriceType When 1 then StandardPrice.SPPrice*' +
        '(CurrentInv.OnHandInv+'
      
        '     CurrentInv.OnCheckInv+CurrentInv.FreezeInv+CurrentInv.Onshi' +
        'pInv)'
      
        '     else AveragePrice.AveragePrice*(CurrentInv.OnHandInv+Curren' +
        'tInv.OnCheckInv+'
      
        '     CurrentInv.FreezeInv+CurrentInv.OnShipInv) end As TotalAcou' +
        'nt'
      ''
      '     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'
      '     join WhPosition on CurrentInv.WHCode=WhPosition.WHCode'
      '     And CurrentInv.WhPositionCode=WhPosition.WhPositionCode'
      ' '
      ' '
      ' ')
    Left = 296
    Top = 169
    object AdoQry_MainWHCode: TStringField
      FieldName = 'WHCode'
      Origin = 'CurrentInv'
      Size = 4
    end
    object AdoQry_MainWHCodeName: TStringField
      FieldName = 'WHCodeName'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_MainWhPositionCode: TStringField
      FieldName = 'WhPositionCode'
      Origin = 'CurrentInv'
      Size = 4
    end
    object AdoQry_MainWHPCodeName: TStringField
      FieldName = 'WHPCodeName'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = 'CurrentInv'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Origin = 'Item'
      Size = 60
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Origin = 'Uom'
      Size = 10
    end
    object AdoQry_MainNoTaxPrice: TFloatField
      FieldName = 'NoTaxPrice'
      ReadOnly = True
    end
    object AdoQry_MainOnHandInv: TFloatField
      FieldName = 'OnHandInv'
      Origin = 'CurrentInv'
    end
    object AdoQry_MainOnCheckInv: TFloatField
      FieldName = 'OnCheckInv'
      Origin = 'CurrentInv'
    end
    object AdoQry_MainFreezeInv: TFloatField
      FieldName = 'FreezeInv'
      Origin = 'CurrentInv'
    end
    object AdoQry_MainOnShipInv: TFloatField
      FieldName = 'OnShipInv'
      Origin = 'CurrentInv'
    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'
    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 = 233
  end
end