특수용도 가중치 추가
This commit is contained in:
ykh
@@ -1959,6 +1959,9 @@
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
If dr난방.열생산기기방식 = "보일러" Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then
|
||||
Select Case dr난방.사용연료.Trim ' Worksheets("난방기기").Range("난방기기사용연료1").Offset(0, i_count_boiler - 1)
|
||||
Case "난방유" '난방유"
|
||||
|
||||
@@ -57,29 +57,130 @@
|
||||
'//곱해야할 가중치를 결정하는 방법좀
|
||||
'// 예를들면 업무시설이 100m2 이고 교육연구시설(초중고)가 100m2이면 (100*1+100*1.2)/200
|
||||
|
||||
Dim Total2 As Double = 0.0
|
||||
Dim Total1 As Double = 0.0
|
||||
For Each Dr0 As DS.tbl_typeRow In DSET1.tbl_type.Rows
|
||||
Dim multi As Double = 1.0
|
||||
Select Case Dr0.시설용도
|
||||
Case "0011" '교육연구시설(초중고)"
|
||||
multi = 1.12
|
||||
Case "0012" '교육연구시설(etc)
|
||||
multi = 0.98
|
||||
End Select
|
||||
Total1 += Dr0.면적 * multi
|
||||
Total2 += Dr0.면적
|
||||
Next
|
||||
'Dim Total2 As Double = 0.0
|
||||
'Dim Total1 As Double = 0.0
|
||||
'For Each Dr0 As DS.tbl_typeRow In DSET1.tbl_type.Rows
|
||||
' Dim multi As Double = 1.0
|
||||
' Select Case Dr0.시설용도
|
||||
' Case "0011" '교육연구시설(초중고)"
|
||||
' multi = 1.12
|
||||
' Case "0012" '교육연구시설(etc)
|
||||
' multi = 0.98
|
||||
' End Select
|
||||
' Total1 += Dr0.면적 * multi
|
||||
' Total2 += Dr0.면적
|
||||
'Next
|
||||
Dim addmulti As Double = 0
|
||||
If Total2 <> 0 Then
|
||||
addmulti = Total1 / Total2
|
||||
'If Total2 <> 0 Then
|
||||
' addmulti = Total1 / Total2
|
||||
'Else
|
||||
' addmulti = 1.0
|
||||
'End If
|
||||
|
||||
addmulti = 1.0
|
||||
|
||||
Dim Multi(5) As Double
|
||||
Multi(0) = 0
|
||||
Multi(1) = 0
|
||||
Multi(2) = 0
|
||||
Multi(3) = 0
|
||||
Multi(4) = 0
|
||||
|
||||
Dim Total1(5) As Double
|
||||
Dim Total2 As Double '//total
|
||||
Dim Total3 As Double '//etc
|
||||
|
||||
If Program = EProgram.총량평가 Then
|
||||
|
||||
For Each Dr0 As DS.tbl_typeRow In DSET1.tbl_type.Rows
|
||||
'Dim multi As Double = 1.0
|
||||
Select Case Dr0.시설용도
|
||||
|
||||
Case "0013" '구내식당-0013
|
||||
Multi(0) = 1.571
|
||||
Multi(1) = 1.571
|
||||
Multi(2) = 0.024
|
||||
Multi(3) = 1.286
|
||||
Multi(4) = 1.571
|
||||
Case "0014" '전산실-0014
|
||||
Multi(0) = 0.503
|
||||
Multi(1) = 0.196
|
||||
Multi(2) = 0.685
|
||||
Multi(3) = 0.514
|
||||
Multi(4) = 0.314
|
||||
Case "0017" '병실-0017
|
||||
Multi(0) = 0.314
|
||||
Multi(1) = 0.314
|
||||
Multi(2) = 0.251
|
||||
Multi(3) = 0.514
|
||||
Multi(4) = 0.314
|
||||
Case "0016" '객실-0016
|
||||
Multi(0) = 0.685
|
||||
Multi(1) = 0.685
|
||||
Multi(2) = 0.251
|
||||
Multi(3) = 1.541
|
||||
Multi(4) = 0.685
|
||||
Case "0015" '초중고
|
||||
Multi(0) = 1.964
|
||||
Multi(1) = 1.964
|
||||
Multi(2) = 1.25
|
||||
Multi(3) = 1.875
|
||||
Multi(4) = 1.964
|
||||
Case "0018" '강의실
|
||||
Multi(0) = 2.037
|
||||
Multi(1) = 2.037
|
||||
Multi(2) = 1.667
|
||||
Multi(3) = 2.5
|
||||
Multi(4) = 2.037
|
||||
Case "0019" '체육시설
|
||||
Multi(0) = 0.611
|
||||
Multi(1) = 0.611
|
||||
Multi(2) = 0.114
|
||||
Multi(3) = 0.5
|
||||
Multi(4) = 0.611
|
||||
Case Else
|
||||
Multi(0) = 0.0
|
||||
Multi(1) = 0.0
|
||||
Multi(2) = 0.0
|
||||
Multi(3) = 0.0
|
||||
Multi(4) = 0.0
|
||||
Total3 += Dr0.면적
|
||||
End Select
|
||||
|
||||
Total1(0) += Dr0.면적 * Multi(0)
|
||||
Total1(1) += Dr0.면적 * Multi(1)
|
||||
Total1(2) += Dr0.면적 * Multi(2)
|
||||
Total1(3) += Dr0.면적 * Multi(3)
|
||||
Total1(4) += Dr0.면적 * Multi(4)
|
||||
|
||||
Total2 += Dr0.면적
|
||||
|
||||
Next
|
||||
|
||||
Total2 = Total2
|
||||
|
||||
For i As Integer = 0 To 4
|
||||
If Total2 = 0 Then
|
||||
Multi(i) = 0
|
||||
Else
|
||||
Multi(i) = (Total1(i) + Total3) / Total2 '//171021 난방
|
||||
End If
|
||||
Next
|
||||
|
||||
Total2 = Total2
|
||||
|
||||
'Multi(1) = 1.0 '//냉방
|
||||
'Multi(2) = 1.0 '//급탕
|
||||
'Multi(3) = 1.0 '//조명
|
||||
'Multi(4) = 1.0 '//환기
|
||||
Else
|
||||
addmulti = 1.0
|
||||
Multi(0) = 1.0
|
||||
Multi(1) = 1.0
|
||||
Multi(2) = 1.0
|
||||
Multi(3) = 1.0
|
||||
Multi(4) = 1.0
|
||||
End If
|
||||
|
||||
' addmulti = 1.0
|
||||
|
||||
|
||||
|
||||
Dim Dr2 As DSR.Graph_ReqUseRow
|
||||
For Gubun As Short = 0 To 3
|
||||
@@ -124,20 +225,7 @@
|
||||
Result1o.생산E(0).신재생면적당열생산량 + _
|
||||
Result1o.생산E(0).면적당생산량지열 + 전기 * 2.75)
|
||||
|
||||
Dim Multi(5) As Double
|
||||
If Program = EProgram.총량평가 Then
|
||||
Multi(0) = 1.0 '//171021 난방
|
||||
Multi(1) = 1.0 '//냉방
|
||||
Multi(2) = 1.0 '//급탕
|
||||
Multi(3) = 1.0 '//조명
|
||||
Multi(4) = 1.0 '//환기
|
||||
Else
|
||||
Multi(0) = 1.0
|
||||
Multi(1) = 1.0
|
||||
Multi(2) = 1.0
|
||||
Multi(3) = 1.0
|
||||
Multi(4) = 1.0
|
||||
End If
|
||||
|
||||
|
||||
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
|
||||
Dr2.Gubun = "1차소요량"
|
||||
|
||||
@@ -14,6 +14,113 @@
|
||||
Me.DSR.ExtReport.Merge(DSETR1.ExtReport)
|
||||
|
||||
|
||||
Dim addmulti As Double = 1.0
|
||||
Dim Multi(5) As Double
|
||||
Dim Total1(5) As Double
|
||||
Dim Total2 As Double '//total
|
||||
Dim Total3 As Double '//etc
|
||||
|
||||
If Program = EProgram.총량평가 Then
|
||||
|
||||
For Each Dr0 As DS.tbl_typeRow In DSET1.tbl_type.Rows
|
||||
'Dim multi As Double = 1.0
|
||||
Select Case Dr0.시설용도
|
||||
|
||||
Case "0013" '구내식당-0013
|
||||
Multi(0) = 1.571
|
||||
Multi(1) = 1.571
|
||||
Multi(2) = 0.024
|
||||
Multi(3) = 1.286
|
||||
Multi(4) = 1.571
|
||||
Case "0014" '전산실-0014
|
||||
Multi(0) = 0.503
|
||||
Multi(1) = 0.196
|
||||
Multi(2) = 0.685
|
||||
Multi(3) = 0.514
|
||||
Multi(4) = 0.314
|
||||
Case "0017" '병실-0017
|
||||
Multi(0) = 0.314
|
||||
Multi(1) = 0.314
|
||||
Multi(2) = 0.251
|
||||
Multi(3) = 0.514
|
||||
Multi(4) = 0.314
|
||||
Case "0016" '객실-0016
|
||||
Multi(0) = 0.685
|
||||
Multi(1) = 0.685
|
||||
Multi(2) = 0.251
|
||||
Multi(3) = 1.541
|
||||
Multi(4) = 0.685
|
||||
Case "0015" '초중고
|
||||
Multi(0) = 1.964
|
||||
Multi(1) = 1.964
|
||||
Multi(2) = 1.25
|
||||
Multi(3) = 1.875
|
||||
Multi(4) = 1.964
|
||||
Case "0018" '강의실
|
||||
Multi(0) = 2.037
|
||||
Multi(1) = 2.037
|
||||
Multi(2) = 1.667
|
||||
Multi(3) = 2.5
|
||||
Multi(4) = 2.037
|
||||
Case "0019" '체육시설
|
||||
Multi(0) = 0.611
|
||||
Multi(1) = 0.611
|
||||
Multi(2) = 0.114
|
||||
Multi(3) = 0.5
|
||||
Multi(4) = 0.611
|
||||
Case Else
|
||||
Multi(0) = 0.0
|
||||
Multi(1) = 0.0
|
||||
Multi(2) = 0.0
|
||||
Multi(3) = 0.0
|
||||
Multi(4) = 0.0
|
||||
Total3 += Dr0.면적
|
||||
End Select
|
||||
|
||||
Total1(0) += Dr0.면적 * Multi(0)
|
||||
Total1(1) += Dr0.면적 * Multi(1)
|
||||
Total1(2) += Dr0.면적 * Multi(2)
|
||||
Total1(3) += Dr0.면적 * Multi(3)
|
||||
Total1(4) += Dr0.면적 * Multi(4)
|
||||
|
||||
Total2 += Dr0.면적
|
||||
|
||||
Next
|
||||
|
||||
Total2 = Total2
|
||||
|
||||
For i As Integer = 0 To 4
|
||||
If Total2 = 0 Then
|
||||
Multi(i) = 0
|
||||
Else
|
||||
Multi(i) = (Total1(i) + Total3) / Total2 '//171021 난방
|
||||
End If
|
||||
Next
|
||||
|
||||
Total2 = Total2
|
||||
Else
|
||||
Multi(0) = 1.0
|
||||
Multi(1) = 1.0
|
||||
Multi(2) = 1.0
|
||||
Multi(3) = 1.0
|
||||
Multi(4) = 1.0
|
||||
End If
|
||||
|
||||
Dim a1 As Double = Result1o.일차E소요량(0).난방면적 * Multi(0)
|
||||
Dim a2 As Double = Result1o.일차E소요량(0).냉방면적 * Multi(1)
|
||||
Dim a3 As Double = Result1o.일차E소요량(0).급탕면적 * Multi(2)
|
||||
Dim a4 As Double = Result1o.일차E소요량(0).조명면적 * Multi(3)
|
||||
Dim a5 As Double = Result1o.일차E소요량(0).환기면적 * Multi(4)
|
||||
|
||||
|
||||
DSR.ExtReport.Rows(0)("c077") = a1.ToString("N1")
|
||||
DSR.ExtReport.Rows(0)("c078") = a2.ToString("N1")
|
||||
DSR.ExtReport.Rows(0)("c079") = a3.ToString("N1")
|
||||
DSR.ExtReport.Rows(0)("c080") = a4.ToString("N1")
|
||||
DSR.ExtReport.Rows(0)("c081") = a5.ToString("N1")
|
||||
DSR.ExtReport.Rows(0)("c082") = (a1 + a2 + a3 + a4 + a5).ToString("N1")
|
||||
DSR.ExtReport.AcceptChanges()
|
||||
|
||||
Dim drDesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
|
||||
Dim params As New List(Of Microsoft.Reporting.WinForms.ReportParameter)
|
||||
params.Add(New Microsoft.Reporting.WinForms.ReportParameter("param1", drDesc.민간구분))
|
||||
|
||||
Reference in New Issue
Block a user