...

ArinWarev1/Calculator/CRenewable.vb

@@ -390,12 +390,15 @@
 
         Dim E_el_pv_out As Decimal, P_pk As Decimal, f_perf As Decimal, E_sol As Decimal
         Dim a As Decimal, K_pk As Decimal
+        Dim E_el_pv_out_offsite As Decimal = 0
         'Dim i_count_pv As Integer, i_count_pv_location As Integer, i_pv_location As Integer
 
         E_el_pv_out = 0
+        E_el_pv_out_offsite = 0
 
         'If DSET.tbl_new.Rows.Count > 0 Then ' Worksheets("신재생기기").Range("신재생생산기기1").Offset(0, 0) <> "" Then    '//신재생기기 처음칸에 뭐가 잇다? 즉 데이터가잇느냐
         For Each Dr신재생 As DS.tbl_newRow In DSET.tbl_new.Select("code <> '0'", "code")
+
             If Dr신재생.기기종류 = "태양광" Then
 
                 a = TOSG(Dr신재생.태양광모듈면적) ' Worksheets("신재생기기").Range("태양광모듈1").Offset(0, i_count_pv - 1)
@@ -489,7 +492,13 @@
                 End Select
 
                 P_pk = K_pk * a
-                E_el_pv_out = E_el_pv_out + E_sol * P_pk * f_perf
+
+                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
+                End If
+
                 'End If
             End If
         Next
@@ -502,6 +511,8 @@
         'End If
 
         Result.생산E(i_count_pv_month).태양광전력생산량 += E_el_pv_out
+        Result.생산E(i_count_pv_month).태양광전력생산량_offsite += E_el_pv_out_offsite
+
 
         pLog.Add(String.Format(">>Calc_PhotovoltaicSystem_EN 진입 : E_el_pv_out={0}, 태양광전력생산량={1}", _
                        E_el_pv_out, Result.생산E(i_count_pv_month).태양광전력생산량))

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())