..

2023-10-27 23:05:50 +09:00
parent 0b976ad2ab
commit ec0e3013c6
50 changed files with 4751 additions and 1383 deletions
--- a/ArinWarev1/Calculator/CRenewable.vb
+++ b/ArinWarev1/Calculator/CRenewable.vb
@@ -361,16 +361,20 @@
            Case 1  '//난방?급탕 혼합형태?
                If Q_W_sol_out_m <> 0 Then
                    Result.생산E(i_ts_month).면적당생산량태양열 += (Q_W_sol_out_net / Result.사용면적.W) '// 20170120 추가
+                    Result.생산E(i_ts_month).면적당생산량태양열_급탕 += (Q_W_sol_out_net / Result.사용면적.W) '// 20170120 추가
                    'Result.생산E(i_ts_month).면적당생산량태양열 += (Q_W_sol_out_m / Result.사용면적.W)  삭제
                Else
                    Result.생산E(i_ts_month).면적당생산량태양열 += (Q_H_sol_out_net / Result.사용면적.H) '// 20170120 추가
+                    Result.생산E(i_ts_month).면적당생산량태양열_난방 += (Q_H_sol_out_net / Result.사용면적.H) '// 20170120 추가
                    'Result.생산E(i_ts_month).면적당생산량태양열 += (Q_H_sol_out_m / Result.사용면적.H)
                End If
            Case 2  '//냉방?
                Result.생산E(i_ts_month).면적당생산량태양열 += (Q_H_sol_out_net / Result.사용면적.C) '// 20170120 추가
+                Result.생산E(i_ts_month).면적당생산량태양열_냉방 += (Q_H_sol_out_net / Result.사용면적.C) '// 20170120 추가
                'Result.생산E(i_ts_month).면적당생산량태양열 += (Q_H_sol_out_m / Result.사용면적.C)
            Case 3  '//급탕
                Result.생산E(i_ts_month).면적당생산량태양열 += (Q_W_sol_out_net / Result.사용면적.W) '// 20170120 추가
+                Result.생산E(i_ts_month).면적당생산량태양열_급탕 += (Q_W_sol_out_net / Result.사용면적.W) '// 20170120 추가
                'Result.생산E(i_ts_month).면적당생산량태양열 += (Q_W_sol_out_m / Result.사용면적.W)
            Case Else
                MsgBox("단위면적당생산량 누적시 i_syste_ts 가 알수없음", MsgBoxStyle.Critical, "확인")
@@ -496,7 +500,7 @@
                If Dr신재생.대지외설치여부 Then
                    E_el_pv_out_offsite = E_el_pv_out_offsite + E_sol * P_pk * f_perf
                Else
-                    E_el_pv_out = E_el_pv_out + E_sol * P_pk * f_perf
+                    E_el_pv_out += E_sol * P_pk * f_perf
                End If

                'End If
@@ -649,14 +653,17 @@
        Select Case i_system_hp
            Case 1
                Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_outg_net / Result.사용면적.H)  '//20170120 추가
+                Result.생산E(i_hp_month).면적당생산량지열_난방 += (Q_h_outg_net / Result.사용면적.H)  '//20170120 추가
                '//Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result.사용면적.H) '20170120 지열생산량을 수정
                'DSETR.TReqUse.Rows(100)("M00") = CSng(DSETR.TReqUse.Rows(100)("M00")) + Q_h_f_hp / CSng(DSETR.TReqUse.Rows(10)("M00")) ' DrT요구량.난방사용면적 ' Sheets("계산결과").Cells(15, 7)
            Case 2
                Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_outg_net / Result.사용면적.C)  '//20170120 추가
+                Result.생산E(i_hp_month).면적당생산량지열_냉방 += (Q_h_outg_net / Result.사용면적.C)  '//20170120 추가
                '//Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result.사용면적.C) '20170120 지열생산량을 수정
                'DSETR.TReqUse.Rows(100)("M00") = CSng(DSETR.TReqUse.Rows(100)("M00")) + Q_h_f_hp / CSng(DSETR.TReqUse.Rows(15)("M00")) 'DrT요구량.냉방사용면적 '("계산결과").Cells(20, 7)
            Case 3
                Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_outg_net / Result.사용면적.W)  '//20170120 추가
+                Result.생산E(i_hp_month).면적당생산량지열_급탕 += (Q_h_outg_net / Result.사용면적.W)  '//20170120 추가
                '//Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result.사용면적.W) '20170120 지열생산량을 수정
        End Select

@@ -811,14 +818,17 @@
        Select Case i_system_hp
            Case 1
                Result.생산E(i_hp_month).면적당생산량수열 += (Q_h_outg_net / Result.사용면적.H)  '//20170120 추가
+                Result.생산E(i_hp_month).면적당생산량수열_난방 += (Q_h_outg_net / Result.사용면적.H)  '//20170120 추가
                '//Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result.사용면적.H) '20170120 지열생산량을 수정
                'DSETR.TReqUse.Rows(100)("M00") = CSng(DSETR.TReqUse.Rows(100)("M00")) + Q_h_f_hp / CSng(DSETR.TReqUse.Rows(10)("M00")) ' DrT요구량.난방사용면적 ' Sheets("계산결과").Cells(15, 7)
            Case 2
                Result.생산E(i_hp_month).면적당생산량수열 += (Q_h_outg_net / Result.사용면적.C)  '//20170120 추가
+                Result.생산E(i_hp_month).면적당생산량수열_냉방 += (Q_h_outg_net / Result.사용면적.C)  '//20170120 추가
                '//Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result.사용면적.C) '20170120 지열생산량을 수정
                'DSETR.TReqUse.Rows(100)("M00") = CSng(DSETR.TReqUse.Rows(100)("M00")) + Q_h_f_hp / CSng(DSETR.TReqUse.Rows(15)("M00")) 'DrT요구량.냉방사용면적 '("계산결과").Cells(20, 7)
            Case 3
                Result.생산E(i_hp_month).면적당생산량수열 += (Q_h_outg_net / Result.사용면적.W)  '//20170120 추가
+                Result.생산E(i_hp_month).면적당생산량수열_급탕 += (Q_h_outg_net / Result.사용면적.W)  '//20170120 추가
                '//Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result.사용면적.W) '20170120 지열생산량을 수정
        End Select

@@ -892,6 +902,7 @@

            '//전력
            Result.생산E(i_chp_month).신재생열병합전력생산량 += (E_el_chp_out_net) '//20170120 추가
+            Result.생산E(i_chp_month).신재생열병합열생산량 += (Q_chp_gen_out_net) '//20170120 추가
            'Result.생산E(i_chp_month).신재생열병합전력생산량 += (E_el_chp_out)

            pLog.Add(String.Format("Calc_CogenerationSystemEN 결과2 신재생열병합전력생산량={0}", Result.생산E(i_chp_month).신재생열병합전력생산량))
@@ -900,12 +911,15 @@
            Select Case i_system_chp
                Case 1
                    Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out_net / Result.사용면적.H) '// 20170120 추가
+                    Result.생산E(i_chp_month).신재생면적당열생산량_난방 += (Q_chp_gen_out_net / Result.사용면적.H) '// 20170120 추가
                    'Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out / Result.사용면적.H)
                Case 2
                    Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out_net / Result.사용면적.C) '// 20170120 추가
+                    Result.생산E(i_chp_month).신재생면적당열생산량_냉방 += (Q_chp_gen_out_net / Result.사용면적.C) '// 20170120 추가
                    'Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out / Result.사용면적.C)
                Case 3
                    Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out_net / Result.사용면적.W) '// 20170120 추가
+                    Result.생산E(i_chp_month).신재생면적당열생산량_급탕 += (Q_chp_gen_out_net / Result.사용면적.W) '// 20170120 추가
                    'Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out / Result.사용면적.W)

            End Select
--- a/ArinWarev1/Calculator/CSummary.vb
+++ b/ArinWarev1/Calculator/CSummary.vb
@@ -230,6 +230,8 @@
 #End Region

    Public Sub Make_ResultSheet()
+        Dim idx As Integer
+
        '//에너지요구량
        DSETR.TReqUse.Clear()
        DSETR.TReqUse.AcceptChanges()
@@ -640,26 +642,40 @@
            Array.Add(Result.생산E(i).수열생산량)
        Next
        Set_ReqUseRow("310", "열에너지 생산량(수열)", "[kWh]", "", "=", Array)
-        Array.Clear()

+        '//열병합추가 230804
+        Array.Clear()
+        For i As Integer = 0 To 12
+            Array.Add(Result.생산E(i).신재생열병합열생산량)
+        Next
+        Set_ReqUseRow("310", "열에너지 생산량(열병합)", "[kWh]", "", "=", Array)
+
+
+        Array.Clear()
        For i As Integer = 0 To 12
            Array.Add(Result.생산E(i).면적당생산량태양열)
        Next
-
        Set_ReqUseRow("310", "단위면적당 생산량(태양열)", "[kWh]", "", "=", Array, "N1")    '//71
+
        Array.Clear()
        For i As Integer = 0 To 12
            Array.Add(Result.생산E(i).면적당생산량지열)
        Next
-
        Set_ReqUseRow("310", "단위면적당 생산량(지열)", "[kWh]", "", "=", Array, "N1")  '//72

+        Array.Clear()
        For i As Integer = 0 To 12
            Array.Add(Result.생산E(i).면적당생산량수열)
        Next
-
        Set_ReqUseRow("310", "단위면적당 생산량(수열)", "[kWh]", "", "=", Array, "N1")  '//72

+        '//열병합추가 230804
+        Array.Clear()
+        For i As Integer = 0 To 12
+            Array.Add(Result.생산E(i).신재생면적당열생산량)
+        Next
+        Set_ReqUseRow("310", "단위면적당 생산량(열병합)", "[kWh]", "", "=", Array, "N1")  '//72
+

        '//CO2배출량
        Array.Clear()
@@ -672,17 +688,17 @@
            Array.Add(Result.Co2발생량(i).단위면적)
        Next

-        Set_ReqUseRow("400", "단위면적당 CO2 배출량", "[kg CO2/m²]", "", "", Array, "N1")    '//74
+        idx = Set_ReqUseRow("400", "단위면적당 CO2 배출량", "[kg CO2/m²]", "", "", Array, "N1")    '//74
        Array.Clear()
        For i As Integer = 0 To 12
            Array.Add(Result.Co2발생량(i).난방발생량)
        Next
-        Set_ReqUseRow("410", "난방 CO2 발생량", "", "", "", Array)  '//75
+        idx = Set_ReqUseRow("410", "난방 CO2 발생량", "", "", "", Array)  '//75
        Array.Clear()
        For i As Integer = 0 To 12
            Array.Add(Result.Co2발생량(i).난방등유)
        Next
-        Set_ReqUseRow("410", "난방유(등유) CO2 발생량", "[kg CO2]", CStr(Result.Co2배출계수.등유), "=", Array)
+        idx = Set_ReqUseRow("410", "난방유(등유) CO2 발생량", "[kg CO2]", CStr(Result.Co2배출계수.등유), "=", Array)
        Array.Clear()
        For i As Integer = 0 To 12
            Array.Add(Result.Co2발생량(i).난방LNG)
@@ -715,7 +731,7 @@
            Array.Add(Result.Co2발생량(i).난방면적)
        Next

-        Set_ReqUseRow("410", "단위면적당 CO2 발생량", "[kg CO2]", "", "=", Array, "N1")
+        idx = Set_ReqUseRow("410", "단위면적당 CO2 발생량", "[kg CO2]", "", "=", Array, "N1")

        Array.Clear()
        For i As Integer = 0 To 12
@@ -860,10 +876,11 @@

    End Sub

-    Private Sub Set_ReqUseRow(ByVal GRP As String, ByVal desc As String, ByVal unit As String, ByVal sign As String, ByVal eq As String, ByVal Value As ArrayList, Optional ByVal F As String = "N0")
+    Private Function Set_ReqUseRow(ByVal GRP As String, ByVal desc As String, ByVal unit As String, ByVal sign As String, ByVal eq As String, ByVal Value As ArrayList, Optional ByVal F As String = "N0") As Integer
        Dim DR As DSR.TReqUseRow : DR = DSETR.TReqUse.NewTReqUseRow

-        DR.Code = Format(DSETR.TReqUse.Rows.Count + 1, "000")
+        Dim idx As Integer = DSETR.TReqUse.Rows.Count + 1
+        DR.Code = Format(idx, "000")
        DR.GRP = GRP  '//그룹 출력할떄 그룹으로 뽑는다.
        DR.Desc = desc  '//설명
        DR.UNIT = unit  '//단위
@@ -884,7 +901,8 @@
        DR.M12 = TOSG(Value.Item(12))
        DR.F = F
        DSETR.TReqUse.AddTReqUseRow(DR)
-    End Sub
+        Return idx
+    End Function
    Private Sub Set_ReqUseRow(ByVal GRP As String, ByVal desc As String, ByVal unit As String, ByVal sign As String, ByVal eq As String, ByVal Value As Decimal, Optional ByVal F As String = "N0")
        Dim DR As DSR.TReqUseRow : DR = DSETR.TReqUse.NewTReqUseRow

--- a/ArinWarev1/Calculator/Result/C1차소요량.vb
+++ b/ArinWarev1/Calculator/Result/C1차소요량.vb
@@ -95,7 +95,41 @@
        End Get
    End Property

+
+#Region "신재생"
+
+    'ReadOnly Property 신재생_난방_소요량() As Decimal
+    '    Get
+    '        If MIdx = 0 Then
+
+
+
+    '            Try
+    '                Dim a As Decimal = Result.생산E(0).태양광전력생산량
+    '                Dim b As Decimal = Result.생산E(0).풍력전력생산량
+    '                Dim c As Decimal = Result.생산E(0).열병합전력생산량
+    '                Dim sumdata As Decimal = a + b + c
+
+    '                Dim 난방비율 As Decimal = Me.난방전력 / (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력)
+
+    '                Return 난방비율 * sumdata
+    '            Catch ex As Exception
+
+    '            End Try
+
+    '        Else
+    '            Return 조명전력 * Result.E변환계수.전력
+    '        End If
+    '    End Get
+    'End Property
+
+#End Region
+
+
 #Region "난방"
+
+  
+
    ReadOnly Property 난방소요량() As Decimal
        Get
            If MIdx = 0 Then
@@ -147,7 +181,7 @@
                    End Try
                End If

-                
+
            Else


@@ -694,6 +728,9 @@
 #End Region

 #Region "조명부분(읽기전용)"
+
+    
+
    ReadOnly Property 조명소요량() As Decimal
        Get
            If MIdx = 0 Then
--- a/ArinWarev1/Calculator/Result/C생산에너지.vb
+++ b/ArinWarev1/Calculator/Result/C생산에너지.vb
@@ -212,6 +212,35 @@ Public Class C생산에너지
        End Set
    End Property

+    Property 신재생열병합열생산량() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).신재생열병합열생산량
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("신재생열병합열생산량"))
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("신재생열병합열생산량") = value
+            End If
+        End Set
+    End Property
+
+
    Property 신재생면적당열생산량() As Decimal
        Get
            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
@@ -239,7 +268,87 @@ Public Class C생산에너지
            End If
        End Set
    End Property
-
+    Property 신재생면적당열생산량_난방() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).신재생면적당열생산량_난방
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("신재생면적당열생산량_난방"))
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("신재생면적당열생산량_난방") = value
+            End If
+        End Set
+    End Property
+    Property 신재생면적당열생산량_냉방() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).신재생면적당열생산량_냉방
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("신재생면적당열생산량_냉방"))
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("신재생면적당열생산량_냉방") = value
+            End If
+        End Set
+    End Property
+    Property 신재생면적당열생산량_급탕() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).신재생면적당열생산량_급탕
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("신재생면적당열생산량_급탕"))
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("신재생면적당열생산량_급탕") = value
+            End If
+        End Set
+    End Property

    Property 태양열생산량() As Decimal
        Get
@@ -355,6 +464,92 @@ Public Class C생산에너지
            End If
        End Set
    End Property
+    Property 면적당생산량태양열_난방() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).면적당생산량태양열_난방
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("면적당생산량태양열_난방"))
+
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("면적당생산량태양열_난방") = value
+            End If
+        End Set
+    End Property
+    Property 면적당생산량태양열_냉방() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).면적당생산량태양열_냉방
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("면적당생산량태양열_냉방"))
+
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("면적당생산량태양열_냉방") = value
+            End If
+        End Set
+    End Property
+    Property 면적당생산량태양열_급탕() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).면적당생산량태양열_급탕
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("면적당생산량태양열_급탕"))
+
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("면적당생산량태양열_급탕") = value
+            End If
+        End Set
+    End Property
+
+
    Property 면적당생산량수열() As Decimal
        Get
            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
@@ -382,6 +577,87 @@ Public Class C생산에너지
            End If
        End Set
    End Property
+    Property 면적당생산량수열_난방() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).면적당생산량수열_난방
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("면적당생산량수열_난방"))
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("면적당생산량수열_난방") = value
+            End If
+        End Set
+    End Property
+    Property 면적당생산량수열_냉방() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).면적당생산량수열_냉방
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("면적당생산량수열_냉방"))
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("면적당생산량수열_냉방") = value
+            End If
+        End Set
+    End Property
+    Property 면적당생산량수열_급탕() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).면적당생산량수열_급탕
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("면적당생산량수열_급탕"))
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("면적당생산량수열_급탕") = value
+            End If
+        End Set
+    End Property

    Property 면적당생산량지열() As Decimal
        Get
@@ -410,6 +686,86 @@ Public Class C생산에너지
            End If
        End Set
    End Property
-
+    Property 면적당생산량지열_난방() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).면적당생산량지열_난방
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("면적당생산량지열_난방"))
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("면적당생산량지열_난방") = value
+            End If
+        End Set
+    End Property
+    Property 면적당생산량지열_냉방() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).면적당생산량지열_냉방
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("면적당생산량지열_냉방"))
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("면적당생산량지열_냉방") = value
+            End If
+        End Set
+    End Property
+    Property 면적당생산량지열_급탕() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).면적당생산량지열_급탕
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("면적당생산량지열_급탕"))
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("면적당생산량지열_급탕") = value
+            End If
+        End Set
+    End Property
 End Class