법적기준수정, 문,세대현관문 직간접 추가, 냉방기기 디폴트 적용, 단열재 추가

ArinWarev1/MdiMain.vb

@@ -303,7 +303,7 @@ Public Class MdiMain
 
             '//<2F><><EFBFBD><EFBFBD><EFBFBD>Ͱ<EFBFBD> <20><>ȣȭ<C8A3>Ǿ<EFBFBD><C7BE><EFBFBD><EFBFBD><EFBFBD> üũ<C3BC>Ѵ<EFBFBD>.(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> OD<4F><44>)
             Dim isEnc As Boolean = False
-            If (fi.Extension.ToLower() = ".ecl") Then isEnc = True
+            If (fi.Extension.ToLower() = (".ecl")) Then isEnc = True
             If isEnc Then
                 Desbuf = DeCryptArea(Source, New Byte() {&HAC, &H29, &H55, &H42})
                 FS = New IO.MemoryStream(Desbuf, True)
@@ -4473,4 +4473,57 @@ ENDSTAT:  '//
         MsgBox("ok")
         Shell("explorer " + path, AppWinStyle.NormalFocus)
     End Sub
+
+    Private Sub RibbonButton27_Click(sender As System.Object, e As System.EventArgs) Handles RibbonButton27.Click
+        If MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڵ尪(1089)<29><> <20><><EFBFBD><EFBFBD><EFBFBD>κ<EFBFBD><CEBA><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ðڽ<C3B0><DABD>ϱ<EFBFBD>?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "Ȯ<EFBFBD><EFBFBD>") = MsgBoxResult.Ok Then
+
+          
+            Dim dtcommon As New DS.tbl_common_odDataTable()
+            Try
+
+                Dim TaC As New DSTableAdapters.tbl_common_odTableAdapter
+                TaC.Fill(dtcommon)
+                dtcommon.AcceptChanges()
+            Catch ex As Exception
+                MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڵ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʈ<EFBFBD><C6AE><EFBFBD><EFBFBD>" & vbCrLf & ex.Message.ToString, MsgBoxStyle.Critical, "Ȯ<EFBFBD><EFBFBD>")
+            End Try
+
+            For Each drow As DS.tbl_common_odRow In dtcommon
+                If drow.gubun <> "1089" Then Continue For
+
+                Dim v As Integer = CInt(drow.code)
+
+                If v < 100 OrElse v > 136 Then Continue For
+
+                Dim finds() As DS.tbl_common_odRow = DSET1.tbl_common_od.Select("gubun='1089' and code = '" + drow.code + "'")
+                If finds Is Nothing OrElse finds.Length < 1 Then
+                    Dim newdr As DS.tbl_common_odRow = DSET1.tbl_common_od.Newtbl_common_odRow()
+                    newdr.gubun = drow.gubun
+                    newdr.code = drow.code
+                    newdr.name = drow.name
+                    newdr.codename = drow.codename
+                    newdr.valn1 = drow.valn1
+                    newdr.EndEdit()
+                    DSET1.tbl_common_od.Addtbl_common_odRow(newdr)
+                End If
+            Next
+            DSET1.tbl_common_od.AcceptChanges()
+
+
+
+            Work_msg("")
+
+
+        End If
+
+    End Sub
+
+    Private Sub RibbonButton28_Click(sender As System.Object, e As System.EventArgs) Handles RibbonButton28.Click
+        If MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20>Ͻðڽ<C3B0><DABD>ϱ<EFBFBD>?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "Ȯ<EFBFBD><EFBFBD>") <> MsgBoxResult.Ok Then Return '//ok <20><><EFBFBD>ϸ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+        Dim newfilename As New System.IO.FileInfo(".\basefile\new." + FileExt)
+        If newfilename.Exists Then
+            System.IO.File.Copy(newfilename.FullName, newfilename.FullName + "_bak_" + DateTime.Now.ToString("yyMMddHhmmssffff"))
+        End If
+        Me.Func_Save_OD(newfilename.FullName)
+    End Sub
 End Class