inv_dailyreport.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_DailyReport: TFrm_Inv_DailyReport
  Left = 45
  Top = 152
  Caption = '日（时段）收发存数量汇总表'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '日（时段）收发存数量汇总表'
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        Item
          FieldName = 'ItemCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'qichujiechun'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '期初结存'
          KeyList.Strings = ()
        end
        Item
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          PickList.Strings = ()
          KeyList.Strings = ()
        end>
    end
  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 ')
  end
end