inv_opvendorsum.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_OpVendorSum: TFrm_Inv_OpVendorSum
  Left = 23
  Top = 121
  Caption = '委外加工单位材料金额月结表'
  ClientHeight = 414
  ClientWidth = 795
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 795
  end
  inherited Pnl_Title: TPanel
    Width = 795
    Caption = '委外加工单位材料金额月结表'
    inherited Image2: TImage
      Width = 795
    end
  end
  inherited Pnl_Head: TPanel
    Width = 795
    inherited Image1: TImage
      Width = 795
    end
    inherited Lbl_ConditionTitle: TLabel
      Left = 617
      Top = 25
      Visible = False
    end
    inherited Lbl_Condition: TLabel
      Left = 20
      Visible = False
    end
    object Label4: TLabel
      Left = 16
      Top = 1
      Width = 36
      Height = 12
      Caption = '月份：'
    end
    object lbl_Month: TLabel
      Left = 56
      Top = 1
      Width = 6
      Height = 12
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 376
    Width = 795
    Height = 38
    inherited Image4: TImage
      Width = 795
      Height = 38
    end
    object Label1: TLabel
      Left = 7
      Top = 14
      Width = 72
      Height = 12
      Caption = '当前供应商：'
    end
    object DBText2: TDBText
      Left = 79
      Top = 14
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'VendorCode'
      DataSource = DataSource
    end
    object Label2: TLabel
      Left = 240
      Top = 14
      Width = 48
      Height = 12
      Caption = '合　计：'
    end
    object edt_Sum1: TEdit
      Left = 288
      Top = 10
      Width = 100
      Height = 20
      ReadOnly = True
      TabOrder = 0
    end
    object edt_Sum2: TEdit
      Left = 390
      Top = 10
      Width = 97
      Height = 20
      ReadOnly = True
      TabOrder = 1
    end
    object edt_Sum3: TEdit
      Left = 489
      Top = 10
      Width = 92
      Height = 20
      ReadOnly = True
      TabOrder = 2
    end
    object edt_Sum4: TEdit
      Left = 582
      Top = 10
      Width = 92
      Height = 20
      ReadOnly = True
      TabOrder = 3
    end
    object edt_Sum5: TEdit
      Left = 677
      Top = 10
      Width = 112
      Height = 20
      ReadOnly = True
      TabOrder = 4
    end
  end
  inherited Pnl_Body: TPanel
    Width = 795
    Height = 279
    inherited Image3: TImage
      Width = 795
      Height = 279
    end
    inherited DBGridEh: TDBGridEh
      Width = 795
      Height = 279
      UseMultiTitle = True
      Columns = <
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商标识'
          Width = 288
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvLMAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '上月结存'
          Width = 75
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvInAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '本月领料'
          Width = 71
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvOutAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '本月交货（未税）|材料费'
          Width = 88
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNoTaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '本月交货（未税）|加工费'
          Width = 87
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBlncAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '本月结存'
          Width = 82
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 317
    Top = 195
  end
  inherited ActionList: TActionList
    Left = 176
    Top = 72
  end
  inherited AdoQry_Main: TAdoQuery
    CurSorType = ctStatic
    SQL.Strings = (
      
        'select Bill.InvLMAmount,Bill.InvInAmount,Bill.InvOutAmount,Bill.' +
        'InvBlncAmount,Bill.VendorCode+'#39'  '#39'+Vendor.VendorName VendorCode,' +
        'BillS.InvBillNoTaxAmount from  '
      
        '  (select VendorCode,sum(InvLMAmount) InvLMAmount,sum(InvInAmoun' +
        't) InvInAmount,'
      
        '       sum(InvOutAmount) InvOutAmount,sum(InvBlncAmount) InvBlnc' +
        'Amount'
      '       from OpMonthSum where InvMonth='#39'2001.08'#39
      '       group by VendorCode) Bill '
      '  join '
      
        '  (select InvInBill.VendorCode,sum(InvInBillLine.InvBillNoTaxAmo' +
        'unt) InvBillNoTaxAmount '
      '       from InvInBill '
      
        '       join InvInBillLine on InvInBill.InvBillId=InvInBillLine.I' +
        'nvBillId'
      
        '       where InvInBill.BillTypeCode='#39'0103'#39' and InvInBill.InvBill' +
        'Month='#39'2001.08'#39
      
        '       group by InvInBill.VendorCode ) BillS  on Bill.VendorCode' +
        '=BillS.VendorCode'
      '   join Vendor on Vendor.VendorCode=Bill.VendorCode')
    Left = 312
    Top = 73
  end
  inherited DataSource: TDataSource
    Left = 312
    Top = 161
  end
  inherited ExtPrintReport: TExtPrintReport
    PAperOrientation = poLandScApe
    PAperType = ptWide
  end
  object AdoQry_tmp1: TAdoQuery
    Parameters = <>
    Left = 480
    Top = 193
  end
end