...

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).태양광전력생산량))