형별성능내역 삭제 오류 해결

대지외 신재생 계산 오류 해결
순생산량, 총소요량 문구 수정

ArinWarev1/Module/Pub.vb

@@ -58,9 +58,12 @@
     Public Importsameaddress As Boolean = False
 
     Public Sub Update_열관류율_140409()
-
+        DSET1.tbl_yk.AcceptChanges()
 
         For Each DrowYK As DS.tbl_ykRow In DSET1.tbl_yk
+
+            If DrowYK.RowState = DataRowState.Deleted OrElse DrowYK.RowState = DataRowState.Detached Then Continue For
+
             Dim R_value As Decimal = 0
             Dim width As Decimal = 0
             Dim filter As String = "pcode='" + DrowYK.code + "'"
@@ -145,7 +148,7 @@
                         DrowYK.투과율 = ""
                     End If
                 End If
-           
+
             Catch ex As Exception
                 DrowYK.열관류율 = ""
                 DrowYK.투과율 = ""