inv_mnoutsumqry.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_MnOutSumQry: TFrm_Inv_MnOutSumQry
  Left = 0
  Top = 56
  Caption = '生产领料汇总'
  ClientHeight = 462
  ClientWidth = 769
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 769
  end
  inherited Pnl_Title: TPanel
    Width = 769
    Caption = '生产领料汇总'
  end
  inherited Pnl_Head: TPanel
    Width = 769
  end
  inherited Pnl_Hint: TPanel
    Top = 421
    Width = 769
    Height = 41
    object Lab_Amount: TLabel
      Left = 545
      Top = 14
      Width = 60
      Height = 12
      Caption = '金额汇总：'
      Visible = False
    end
    object edt_Amount: TEdit
      Left = 608
      Top = 10
      Width = 137
      Height = 20
      Enabled = False
      TabOrder = 0
      Visible = False
    end
  end
  inherited Pnl_Body: TPanel
    Width = 769
    Height = 324
    inherited DBGridEh: TDBGridEh
      Width = 769
      Height = 324
      Columns = <
        Item
          FieldName = 'ItemCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 293
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单位'
          Width = 32
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '数量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Price'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单价'
          Width = 73
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillnotaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '金额'
          Width = 77
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Top = 120
  end
  inherited AdoQry_Main: TAdoQuery
    CurSorType = ctStatic
    SQL.Strings = (
      
        'select a.ItemCode,a.ItemCode+'#39' '#39'+i.ItemName as ItemCodeName,u.uo' +
        'mName,a.InvBillqty,'
      
        'Price=case a.InvBillqty when 0 then 0 else   a.InvBillnotaxamoun' +
        't/a.InvBillqty end,a.InvBillnotaxAmount '
      
        'from (select  i.whCode,i.DeptCode,il.ItemCode,sum(isnull(il.Invb' +
        'illqty,0)) as InvBillqty,'
      'sum(isnull(il.InvBillnotaxAmount,0)) as InvBillnotaxAmount '
      
        'from InvOutBill i,InvOutBillline il  where  i.whCode='#39'01'#39' and i.' +
        'DeptCode='#39'00'#39' and InvBilldate between '#39'2001.04.18'#39' and '#39'2001.06.' +
        '18'#39' and i.InvBillwhchck<>0and i.BillTypeCode='#39'0201'#39' and i.Invbil' +
        'lid=il.InvBillid group by i.whCode,i.DeptCode,il.ItemCode ) a '
      
        'left join Item i  on a.ItemCode=i.ItemCode  left join Uom u on  ' +
        'i.UomCode=u.UomCode ')
    Top = 121
  end
  inherited ExtPrintReport: TExtPrintReport
    PAperType = ptNArrow
  end
end