...

ArinWarev1/Calculator/Result/C생산에너지.vb

@@ -72,6 +72,34 @@ Public Class C생산에너지
             End If
         End Set
     End Property
+    Property 태양광전력생산량_offsite() 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).태양광전력생산량_offsite
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("전력태양광offsite"))
+                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
+                '    MsgBox("태양광기록(" & Mon & ")")
+                DR(0)("전력태양광offsite") = value
+            End If
+        End Set
+    End Property
     Property 열병합전력생산량() As Decimal
         Get
             Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())