diff --git a/ArinWarev1/Calculator/CRenewable.vb b/ArinWarev1/Calculator/CRenewable.vb index c5f6836..760b9b9 100644 --- a/ArinWarev1/Calculator/CRenewable.vb +++ b/ArinWarev1/Calculator/CRenewable.vb @@ -498,11 +498,8 @@ P_pk = K_pk * a If Dr신재생.대지외설치여부 Then - E_el_pv_out_offsite = E_el_pv_out_offsite + E_sol * P_pk * f_perf + E_el_pv_out_offsite += E_sol * P_pk * f_perf Else - - - E_el_pv_out += E_sol * P_pk * f_perf End If diff --git a/ArinWarev1/Forms_Input/Frm_YK.vb b/ArinWarev1/Forms_Input/Frm_YK.vb index 09895df..c081dd3 100644 --- a/ArinWarev1/Forms_Input/Frm_YK.vb +++ b/ArinWarev1/Forms_Input/Frm_YK.vb @@ -27,14 +27,16 @@ '// 입력면데이터중에 열관류율을 사용한 데이터 업데이트(131009) For Each dr As DS.tbl_myounRow In DSET1.tbl_myoun.Select("열관류율2 <> '0'") + If dr.RowState = DataRowState.Deleted Then Continue For Dim ykcode As String = dr.열관류율2 Dim ykrow() As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" + ykcode + "'") If ykrow.Length = 1 Then dr.투과율 = ykrow(0).투과율 End If - dr.AcceptChanges() + dr.EndEdit() Next - + BaseDT.AcceptChanges() + BaseDS.AcceptChanges() Update_열관류율_140409() Return True @@ -903,6 +905,7 @@ Next End If Me.bs.RemoveCurrent() + Me.bs.EndEdit() End Sub diff --git a/ArinWarev1/Forms_Report/Report_그래프.vb b/ArinWarev1/Forms_Report/Report_그래프.vb index 7b9c114..eb475b9 100644 --- a/ArinWarev1/Forms_Report/Report_그래프.vb +++ b/ArinWarev1/Forms_Report/Report_그래프.vb @@ -256,6 +256,9 @@ 단위면적당1차에너소비량합 = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지 + Math.Round(단위면적당신재생1차에너지합, 1) + 단위면적당1차에너소비량합 += -신재생에너지_offsite + + If 단위면적당1차에너소비량합 <> 0 Then 에너지자립률 = (Math.Round(단위면적당신재생1차에너지합, 1) / 단위면적당1차에너소비량합) * 100 diff --git a/ArinWarev1/Forms_Report/그래프.rdlc b/ArinWarev1/Forms_Report/그래프.rdlc index f082eb2..4d06895 100644 --- a/ArinWarev1/Forms_Report/그래프.rdlc +++ b/ArinWarev1/Forms_Report/그래프.rdlc @@ -1211,7 +1211,7 @@ iif(Fields!type.Value="조명에너지","#765e00","#475e76"))))) - 단위면적당 1차에너지생산량(대지내): + 단위면적당 1차에너지순생산량(대지내): + + true + + + + + 단위면적당 1차에너지생산량(대지외): + + + + + + + Textbox2 + 0.55662cm + 11.75629cm + 0.44125cm + 5.042cm + 12 + + =iif(Parameters!bcustomprofile.Value = "1",false,true) + + + + 2pt + 2pt + 2pt + 2pt + + true 19.37185cm 1.18837cm - 17.87958cm + 18.5cm 4 - - true - - - - - 단위면적당 1차에너지생산량(대지외): - - - - - - - Textbox2 - 19.92847cm - 11.21595cm - 0.44125cm - 5.042cm - 5 - - =iif(Parameters!bcustomprofile.Value = "1",false,true) - - - - 2pt - 2pt - 2pt - 2pt - - 20.56022cm