inv_mninsumqry.dfm

来自「一个MRPII系统源代码版本」· DFM 代码 · 共 122 行

inherited Frm_Inv_MnInSumQry: TFrm_Inv_MnInSumQry
  Left = 12
  Top = 71
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Hint: TPanel
    Top = 396
    Height = 33
    object Label1: TLabel
      Left = 570
      Top = 13
      Width = 60
      Height = 12
      Caption = '金额合计：'
    end
    object Edit1: TEdit
      Left = 632
      Top = 8
      Width = 121
      Height = 20
      ReadOnly = True
      TabOrder = 0
    end
  end
  inherited Pnl_Body: TPanel
    Height = 299
    inherited DBGridEh: TDBGridEh
      Height = 299
      Columns = <
        Item
          FieldName = 'whName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库标识'
          Width = 120
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '部门标识'
          Width = 144
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 287
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Price'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单价'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillnotaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '金额'
          Width = 80
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 392
    Top = 168
  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 InvInBill i,InvInBillline il  where  i.whCode='#39'01'#39' and i.de' +
        'ptCode='#39'00'#39' and InvBilldate between '#39'2001.04.18'#39' and '#39'2001.06.18' +
        #39' and i.InvBillwhchck<>0and i.BillTypeCode in ('#39'0104'#39','#39'0105'#39')and' +
        ' i.InvBillid=il.InvBillid group by i.whCode,i.DeptCode,il.Itemco' +
        'de ) a '
      
        'left join Item i  on a.ItemCode=i.ItemCode  left join Uom u on  ' +
        'i.UomCode=u.UomCode ')
    Left = 328
    Top = 145
  end
  inherited ExtPrintReport: TExtPrintReport
    PAperType = ptWide
    Left = 64
  end
end