파일을 열고 무조건 열관류율탭 자동 업데이트 적용

ArinWarev1/DataSet/DS.vb

@@ -1,4 +1,12 @@
 Partial Class DS
+    Partial Class tbl_ykDataTable
+
+        Private Sub tbl_ykDataTable_tbl_ykRowChanging(sender As System.Object, e As tbl_ykRowChangeEvent) Handles Me.tbl_ykRowChanging
+
+        End Sub
+
+    End Class
+
     Partial Class tbl_profileDataTable
 
     End Class

ArinWarev1/Forms_Input/Frm_YK.Designer.vb

@@ -70,16 +70,6 @@ Partial Class Frm_YK
         Me.cmb_재료 = New System.Windows.Forms.ComboBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.arindv1 = New System.Windows.Forms.DataGridView()
-        Me.bn_detail = New System.Windows.Forms.BindingNavigator(Me.components)
-        Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
-        Me.btj_add = New System.Windows.Forms.ToolStripButton()
-        Me.btj_del = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
-        Me.btj_showimg = New System.Windows.Forms.ToolStripButton()
-        Me.cmb_형태 = New Eco2Ar.MyCmb()
-        Me.bs_gubun = New System.Windows.Forms.BindingSource(Me.components)
-        Me.bS_재료 = New System.Windows.Forms.BindingSource(Me.components)
         Me.커스텀 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.code = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.재료명 = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -91,6 +81,16 @@ Partial Class Frm_YK
         Me.열저항 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.전경 = New System.Windows.Forms.DataGridViewButtonColumn()
         Me.Column1 = New System.Windows.Forms.DataGridViewButtonColumn()
+        Me.bn_detail = New System.Windows.Forms.BindingNavigator(Me.components)
+        Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
+        Me.btj_add = New System.Windows.Forms.ToolStripButton()
+        Me.btj_del = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
+        Me.btj_showimg = New System.Windows.Forms.ToolStripButton()
+        Me.cmb_형태 = New Eco2Ar.MyCmb()
+        Me.bs_gubun = New System.Windows.Forms.BindingSource(Me.components)
+        Me.bS_재료 = New System.Windows.Forms.BindingSource(Me.components)
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer1.Panel1.SuspendLayout()
         Me.SplitContainer1.Panel2.SuspendLayout()
@@ -591,97 +591,6 @@ Partial Class Frm_YK
         Me.arindv1.Size = New System.Drawing.Size(427, 326)
         Me.arindv1.TabIndex = 157
         '
-        'bn_detail
-        '
-        Me.bn_detail.AddNewItem = Nothing
-        Me.bn_detail.AutoSize = False
-        Me.bn_detail.BindingSource = Me.bs_detail
-        Me.bn_detail.CountItem = Me.ToolStripLabel1
-        Me.bn_detail.DeleteItem = Nothing
-        Me.bn_detail.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.bn_detail.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
-        Me.bn_detail.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
-        Me.bn_detail.ImageScalingSize = New System.Drawing.Size(20, 20)
-        Me.bn_detail.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btj_add, Me.btj_del, Me.ToolStripSeparator2, Me.ToolStripLabel2, Me.ToolStripLabel1, Me.btj_showimg})
-        Me.bn_detail.Location = New System.Drawing.Point(0, 326)
-        Me.bn_detail.MoveFirstItem = Nothing
-        Me.bn_detail.MoveLastItem = Nothing
-        Me.bn_detail.MoveNextItem = Nothing
-        Me.bn_detail.MovePreviousItem = Nothing
-        Me.bn_detail.Name = "bn_detail"
-        Me.bn_detail.PositionItem = Me.ToolStripLabel2
-        Me.bn_detail.Size = New System.Drawing.Size(427, 40)
-        Me.bn_detail.TabIndex = 2
-        Me.bn_detail.Text = "BindingNavigator1"
-        '
-        'ToolStripLabel1
-        '
-        Me.ToolStripLabel1.Name = "ToolStripLabel1"
-        Me.ToolStripLabel1.Size = New System.Drawing.Size(33, 37)
-        Me.ToolStripLabel1.Text = "/{0}"
-        '
-        'btj_add
-        '
-        Me.btj_add.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btj_add.Image = Global.Eco2Ar.My.Resources.Resources.new_32
-        Me.btj_add.Name = "btj_add"
-        Me.btj_add.RightToLeftAutoMirrorImage = True
-        Me.btj_add.Size = New System.Drawing.Size(24, 37)
-        Me.btj_add.Text = "신규추가(&A)"
-        Me.btj_add.ToolTipText = "새로운 프로필을 추가합니다"
-        '
-        'btj_del
-        '
-        Me.btj_del.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btj_del.Image = Global.Eco2Ar.My.Resources.Resources.remov_32
-        Me.btj_del.Name = "btj_del"
-        Me.btj_del.RightToLeftAutoMirrorImage = True
-        Me.btj_del.Size = New System.Drawing.Size(24, 37)
-        Me.btj_del.Text = "선택삭제(&D)"
-        Me.btj_del.ToolTipText = "선택된 프로필을 삭제합니다"
-        '
-        'ToolStripSeparator2
-        '
-        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
-        Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40)
-        '
-        'ToolStripLabel2
-        '
-        Me.ToolStripLabel2.Name = "ToolStripLabel2"
-        Me.ToolStripLabel2.Size = New System.Drawing.Size(12, 37)
-        Me.ToolStripLabel2.Text = "0"
-        '
-        'btj_showimg
-        '
-        Me.btj_showimg.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.btj_showimg.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
-        Me.btj_showimg.Image = CType(resources.GetObject("btj_showimg.Image"), System.Drawing.Image)
-        Me.btj_showimg.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btj_showimg.Name = "btj_showimg"
-        Me.btj_showimg.Size = New System.Drawing.Size(87, 37)
-        Me.btj_showimg.Text = "구분그림보기"
-        Me.btj_showimg.Visible = False
-        '
-        'cmb_형태
-        '
-        Me.cmb_형태.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
-        Me.cmb_형태.FormattingEnabled = True
-        Me.cmb_형태.Location = New System.Drawing.Point(22, 225)
-        Me.cmb_형태.Name = "cmb_형태"
-        Me.cmb_형태.NectControl = Nothing
-        Me.cmb_형태.Size = New System.Drawing.Size(152, 204)
-        Me.cmb_형태.TabIndex = 131
-        '
-        'bs_gubun
-        '
-        Me.bs_gubun.DataMember = "tbl_common"
-        Me.bs_gubun.DataSource = Me.DS
-        '
-        'bS_재료
-        '
-        Me.bS_재료.DataMember = "tbl_common"
-        Me.bS_재료.DataSource = Me.DS
-        '
         '커스텀
         '
         Me.커스텀.DataPropertyName = "커스텀"
@@ -791,6 +700,97 @@ Partial Class Frm_YK
         Me.Column1.Visible = False
         Me.Column1.Width = 35
         '
+        'bn_detail
+        '
+        Me.bn_detail.AddNewItem = Nothing
+        Me.bn_detail.AutoSize = False
+        Me.bn_detail.BindingSource = Me.bs_detail
+        Me.bn_detail.CountItem = Me.ToolStripLabel1
+        Me.bn_detail.DeleteItem = Nothing
+        Me.bn_detail.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.bn_detail.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
+        Me.bn_detail.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
+        Me.bn_detail.ImageScalingSize = New System.Drawing.Size(20, 20)
+        Me.bn_detail.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btj_add, Me.btj_del, Me.ToolStripSeparator2, Me.ToolStripLabel2, Me.ToolStripLabel1, Me.btj_showimg})
+        Me.bn_detail.Location = New System.Drawing.Point(0, 326)
+        Me.bn_detail.MoveFirstItem = Nothing
+        Me.bn_detail.MoveLastItem = Nothing
+        Me.bn_detail.MoveNextItem = Nothing
+        Me.bn_detail.MovePreviousItem = Nothing
+        Me.bn_detail.Name = "bn_detail"
+        Me.bn_detail.PositionItem = Me.ToolStripLabel2
+        Me.bn_detail.Size = New System.Drawing.Size(427, 40)
+        Me.bn_detail.TabIndex = 2
+        Me.bn_detail.Text = "BindingNavigator1"
+        '
+        'ToolStripLabel1
+        '
+        Me.ToolStripLabel1.Name = "ToolStripLabel1"
+        Me.ToolStripLabel1.Size = New System.Drawing.Size(33, 37)
+        Me.ToolStripLabel1.Text = "/{0}"
+        '
+        'btj_add
+        '
+        Me.btj_add.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.btj_add.Image = Global.Eco2Ar.My.Resources.Resources.new_32
+        Me.btj_add.Name = "btj_add"
+        Me.btj_add.RightToLeftAutoMirrorImage = True
+        Me.btj_add.Size = New System.Drawing.Size(24, 37)
+        Me.btj_add.Text = "신규추가(&A)"
+        Me.btj_add.ToolTipText = "새로운 프로필을 추가합니다"
+        '
+        'btj_del
+        '
+        Me.btj_del.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.btj_del.Image = Global.Eco2Ar.My.Resources.Resources.remov_32
+        Me.btj_del.Name = "btj_del"
+        Me.btj_del.RightToLeftAutoMirrorImage = True
+        Me.btj_del.Size = New System.Drawing.Size(24, 37)
+        Me.btj_del.Text = "선택삭제(&D)"
+        Me.btj_del.ToolTipText = "선택된 프로필을 삭제합니다"
+        '
+        'ToolStripSeparator2
+        '
+        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40)
+        '
+        'ToolStripLabel2
+        '
+        Me.ToolStripLabel2.Name = "ToolStripLabel2"
+        Me.ToolStripLabel2.Size = New System.Drawing.Size(12, 37)
+        Me.ToolStripLabel2.Text = "0"
+        '
+        'btj_showimg
+        '
+        Me.btj_showimg.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.btj_showimg.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
+        Me.btj_showimg.Image = CType(resources.GetObject("btj_showimg.Image"), System.Drawing.Image)
+        Me.btj_showimg.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.btj_showimg.Name = "btj_showimg"
+        Me.btj_showimg.Size = New System.Drawing.Size(87, 37)
+        Me.btj_showimg.Text = "구분그림보기"
+        Me.btj_showimg.Visible = False
+        '
+        'cmb_형태
+        '
+        Me.cmb_형태.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
+        Me.cmb_형태.FormattingEnabled = True
+        Me.cmb_형태.Location = New System.Drawing.Point(22, 225)
+        Me.cmb_형태.Name = "cmb_형태"
+        Me.cmb_형태.NectControl = Nothing
+        Me.cmb_형태.Size = New System.Drawing.Size(152, 204)
+        Me.cmb_형태.TabIndex = 131
+        '
+        'bs_gubun
+        '
+        Me.bs_gubun.DataMember = "tbl_common"
+        Me.bs_gubun.DataSource = Me.DS
+        '
+        'bS_재료
+        '
+        Me.bS_재료.DataMember = "tbl_common"
+        Me.bS_재료.DataSource = Me.DS
+        '
         'Frm_YK
         '
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None

ArinWarev1/Forms_Input/Frm_YK.vb

@@ -89,58 +89,9 @@
         Me.arindv1.EndEdit()
         Me.bs.EndEdit()
 
-        '//열관류율이 링크된 모든면의 건축부위 데이터를 열관류율 화면의 건축부위 데이터로 갱신
-        For Each Drow As DS.tbl_myounRow In DSET1.tbl_myoun
+        Pub.Update_열관류율_140409()
 
-            If Drow.RowState = DataRowState.Deleted OrElse Drow.RowState = DataRowState.Detached Then Continue For
-
-#If DEBUG Then
-            If Drow.code = "0009" Then
-                MsgBox("test")
-            End If
-#End If
-
-            If Drow.열관류율2 <> "0" Then
-                Try   '==========================================2014.04.17 열관류율 삭제시 코드번호가 남아 오류 발생하는 현상을 try 안으로 넣음
-                    Dim Dr As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" & Drow.열관류율2.ToString & "'")(0)
-                    Drow.건축부위방식 = Dr.면형태    '// 링크된 열관류율에서 면형태를 가져옴..
-                    Select Case Dr.면형태
-                        Case "외벽(벽체)", "0"
-                            Drow.건축부위방식 = "외벽"
-                        Case "외벽(지붕)", "0001"
-                            Drow.건축부위방식 = "외벽"
-                            'Drow.방위 = "수평"
-                        Case "외벽(바닥)", "0002"
-                            Drow.건축부위방식 = "외벽"
-                            'Drow.방위 = "일사없음"
-                        Case "내벽(벽체)", "0003", "지중벽", "0009"
-                            Drow.건축부위방식 = "내벽"
-                            Drow.방위 = "일사없음"
-                        Case "내벽(지붕)", "0004"
-                            Drow.건축부위방식 = "내벽"
-                            Drow.방위 = "일사없음"
-                        Case "내벽(바닥)", "0005"
-                            Drow.건축부위방식 = "내벽"
-                            Drow.방위 = "일사없음"
-                        Case "간벽", "0006"
-                            Drow.건축부위방식 = "간벽"
-                            Drow.방위 = "일사없음"
-                        Case "외부창", "0007"
-                            Drow.건축부위방식 = "외부창"
-                            'Drow.투과율 = Dr.일사에너지투과율
-                        Case "내부창", "0008"
-                            Drow.건축부위방식 = "내부창"
-                            'Drow.투과율 = Dr.일사에너지투과율
-                        Case Else
-                            MsgBox("모르는값 " & Dr("면형태").ToString & "/" & Dr.면형태)
-                    End Select
-
-                Catch ex As Exception
-
-                End Try
-            End If
-
-        Next
+        
 
     End Sub
 

ArinWarev1/Forms_Input/Frm_v20091231_Myoun.vb

@@ -1115,6 +1115,10 @@
             Me.cmb_건축부위방식.Enabled = False
             ' MsgBox(Me.cmb_열관류율.SelectedValue)
 
+
+            '//아래와동일한 코드 pub Update_열관류율_140409() 에 있음
+            '//변경시 같이 변경해야함 250710-2320
+
             Try
                 Dim Dr As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" & Me.cmb_열관류율.SelectedValue & "'")(0)
                 Dim dr2() As DS.tbl_commonRow = DSET1.tbl_common.Select("gubun='1088' and code='" & Dr("면형태").ToString & "'")

ArinWarev1/MdiMain.resx

@@ -331,72 +331,72 @@
   <data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA82SURBVHhe7ZpZbFXXFYap0kRN2kptU6kP6VPV17z0sVIV
-        9aVS1ap9CWmathmaJhDA2IDNZPDFBmyMZ2zHA1MGRhswEBIgDJfREzYzhHlwwDaebRzmy+r/r733Oede
-        HDAZpES6W/q19hnuuXd991/r7HPtEfERH/ERH/ERH/ERHxyhjVefyd048MvMdf3PUnlb+n6Rtanv51RB
-        Te/PHqWcrW0/tpf6fo2EoubS5PJjN3JWn5Kvq4ySs7eTFhzcO7Kq6gl7+e/+GL1g/+Dxznty+57IkbZ7
-        sv7Ena+kDSfvyNYL9yR7bTiSWNScai//3R9TF9ff+vjkoOw/c0sKN/dL7sePowGNeZx/YrSs8QtJLDh4
-        M2Fe/a/tW3y3R2LBoZsL6/pMAi4xzDUplUky6nhw257rn98voVDl/YmlzfvsW3y3hwOgSWhSSPgTyiVk
-        AVAx+/Owra9RCJjrvn4pC1+X9KWn7o4vbFw4trjh2TEl4Z98m3q7oulJm87jjykLj9+orDVJOQhMxCRM
-        maRMsm5u9rvXKAAe45yvxfa207fhhNL7QzXLb0MJhU0No/Jqn7NpDX84ACb5QIL2GzUQ3DGbtEtWz3Pn
-        R79+ye7r0tofka6bIvva73+rqusQwK64P7agsc6mNfyRQgD7XVImSU2Iyerc38doYBg5MD4gt8+P/uvN
-        9ZyjjIOC28FrmePel2I/V/D1vgakeNuAfHL2rowtahoIhcI/tKk9eowcWfUEe0DFvj7J+Rh9IOrC5uLR
-        b2o+iJPZP9Qxt+2uE3OcdxtvOzg329Ex5tjm2M/Dff1S+Ol1SZzfcH1CXu3TNr1HjxdAiwDKASBzXWfA
-        xkb5jLg431T3Meo8sM9pqHP0WPQ1o8+hHnKt4Yifz15j7ILmgccC8PbbTU+mVNbfKtvbJ7Or22Xuug6T
-        tF7YxPzgh3H73ByKOu7J/1B6TvB8O2fU11KBc/X1Nnrn4Lh3rjvHnWfFc78SgGQAeHdPn6SvbpWMqrYA
-        BCZh3si8+fXABw7s944bcW4Ucz732Wi2zfFYxV5X56qY89013PnQYwN4LRT+EQGUAUBo5RVJX3VVZgHE
-        nDXXJGcTFkcsCQpv5JoT34w1mMueoR/ENjDtIfzgPN//oObD+3L73PEoBZLx9zuQ11XB42aff+5jA3hx
-        Qu3TWEjcLt3dJzOWtUjacgggZimINoAwZTG3pkOy1ndKZk2XZG3oknkbuiHE9Waetb5bsjf0GG00yvmo
-        T+Zv6pVcykFy3xo//BaCMtJtPY75Fns8AMNL2J0T3EcIdh8BIK0fmOyGMf6Wsv6nBFAS7pGp71+Q6e9f
-        BIjLqpmAQVeEVhkg6auhVa2SXt0mGQAzG3E2SkaF/kFYqrXXZC40m/DgJM7pKN3P7TUAuhYC2Ezsy8Sc
-        8vatwz5Cx3l6DDFrTadkre2Uedivwjxb54j4crLxxWRj33jcBUaMEAcAUedfDsQBKN7ZLSkLz8jkJedk
-        +nvnZfoHF6FLAHFJQcxc/rmkrTBSKM4l1EobAcrBMsAAi9DYWzjHvgwAzKiyIkCAI6ig5lRdlTk4fy6O
-        z61uBYA2VRbOzcTxrLXtAIBtwDNqBwzsA7jRRfsHbWojRIbhhL+GNj6THDp2hw5IWXxWpi49J9PeuyDT
-        4IRpgJD6ISHADSsolocFwARtorMUyFUPzFBiWZk5XdWisNKRaEY1xLiGapXZa5H8OiReg/KrgYModYQV
-        S7HGxMwauEIjnIB9LNFQ6Pi9mVjYPUxJC0/2jCtqPBkDoBcA6AADgeUwjSXxIUoCEGYuNyWRBgis3doL
-        d6Tji/tyvCMiR64ZHW43OgQdbINaI9IEHYAaqasRqYfqrkSkFtr/eUT2QXtbIrLnckR2Q7ugnZcisuNi
-        RLZD26gLEdlqteW80eavqE/ORaT66F04LxxRACNDVU8lh47eKdnVK8mVp00ZLDorUxTEeQsCTkAp0A20
-        7vpDtyRyX+Sz1rtSsHVQ8iHGgk8HpXDbF1IAMRYxbr8hRdsx12i0YMcNKYYW7LwpxQGVhBHDtzSWarxl
-        4i5s78L8G1TG0ot3FQBXgq+VH73LEphY8ZlMqjwlyYCQvAggUBJT0BOmvoeyAIhUgKis7ZFl9TeQsO2+
-        7NiEsMVC2AoAUCFgKIhPDYxCQtgGAJgTwAKCUBg3DZCdhGJBWBhOURAIJSaZr6JRxXW9CoBd0gFILDsh
-        E8pPBkCchhv8skhD7S5u6JUiJJ+jDzHmvpzrQACCyjpCI0E4GJ6MKwhAHWFdoXKOcDA8EMYZJfjwCuVr
-        uCJ7Q6ckFDWHNX0+DE0KHb1XsqtHxpcek8R3j0tS2UkDwkJQEHBDya5OKdvdL/M28sGJEK5LDhdEMSDy
-        HAgLwwFRN7BMnCsAQktliBKhMxwEdQdhcE4IO015OHdoYozDdEdSxfGed/Lq/6gAOCaFjgBAt4wrPiIJ
-        JUcVRBJATKAjrBvYIBc39GD114uFEBc4BNAv8xWEcwTkQDipM6w7FAZLxMHwQbA0PABOFkSUMwIypeLD
-        MM4YOmmnfDTwhIKGSzZ1MxRAuEvGFB3GSuoIQBwFCLihlG4ACLgh5+NWKcdqcc66HgWQ/VE/NCDzqU0B
-        EHADXcGozrDueBCEcUUBIGjP2OY7I+iGIlcaniuiYTDpYjjCzX2ZhFkyQQDJS89eH5PX8JZN3YwXysMR
-        AhhdcFDeKTwkYwFiHEAkAMR4goAbFtZ1Y63fAwBY9m5gGUBY6mYjGhiAQBBwhnEHZSAEZWAAwGYoWCbs
-        E3SH5woLwwJx/ULngKDloSViG6iDweR1bl2hiZueUbTjC0nIb+x54FnBARiV1ySj85oVxJgAiLQVF6R8
-        by9ugZ1YmPRI5vo+dQGlINATKAci20JwIJw7ch0QQDBlMhjdLywMdYVtnp4rVBYAQThXWCB0hXOG9orA
-        3LkivaTl9rjCAwU2bX8ogF1d8lZOo7yde8CAyG+WdxTEYSnb24UP342VGwH0KgCFsB79QGGYvmBAEAKi
-        ggg4gxA8ZxgYroE6Z/Cpz91W3e3UKxHnDA8IIDggAOCik99AIXXFDRlf2NyXMNTfKhyAN7Pr5X/zGyyI
-        JoBoRv2fkIp93Vj6tsusqi7tAXMpgnAiCHWEBeHBsCViy8SUiA/DOIMgnCNsJISgOwL9otD1C+sKcyfx
-        neFB2I7EEWl7OoN/pxhXcGCzTTl6TAxl3C8FgDey6uS/8+oBosGCOIALt6P2u7AKvIoHlW6s1bvxVMde
-        QPUChpXCoDPoCgeEMPoRTc/Q8nDRNU8PBGTd4O4m2i8UiIXhgQgAcc6wrtCVpwLhsUGFRDBJZY097+Q2
-        /t6mHD0IgA54fe5+eT2zVkG8CRCj4AJ+++mr2vAgxEdgAFD1AAQABAUIc9gfAMKUiQFiSsSXVyYeCIil
-        YkEoDAuB0XcFIAQapwIISFeeASCc8/cCwsjZ1IM73IEzNt0Hx8RQOgB0yquz98lrc/YpiDcAIrOmRQq2
-        dOKxGE98qP/0asCAMigLIwPJ0xUKRF1h5ErEKxXtGXCIgwEQQWe4GOUKANB+4dYXBBPrCu0Ztl9ozyCI
-        Qbx2QI/RAVOXnB7AwudVm+6DQwGEO+Xf6XvkPxl7LYj92vz47U8jgNWYowekV7EZ2mhhGFdY2RJxQPzy
-        sFAIge5gv8Bc+4U6g7dVc0cxrmCJAIJTsETwzbrGGQ3DlAl7CEESCM8dl9vUNTJ0/Cmb7oPDAfjXrN2A
-        sBsQ9uDh54wUb+/Cc0AL7N+BJtglodWdCsKH4UPJqEakI6w8VxCG1y8CQGyJGBh0B/sG+wVgcH1BCB6I
-        mF7B26lrnkEQqkGUVy9e2wf3DsqYkou89WXaVIceE8sO6zr/lbSwvBLapSBKwt36S8+UpZ9L2qpOVSgg
-        BYGy4J3BAxIsEcrB0J7hAyEELRWAMO4ACAvF3Umy6Ah7J9FbKjRfgfhl4lxhZFxBSHPWdZltAEnArW98
-        Yd2vbKpDDwfg5Zk75Z8zw/pMsGB7D779y+j+aIArO/AkCAhWIcYoGA6IAWEiS8UAUSgeDAPCLxEbYxro
-        kM3TucLJusKDweRrUIIAQBih0Lv3Ewoba2yaXz4MgA75R+oOeXnGDtQSV32tkryYvwJ1GKEMFIRGH4bK
-        g0E3+DBmeRDojq4HnJFhnWHuIpS5kxhXEASbpoMR4wwCsI1T3QEItH161TU9l2WShGXv2Pza39k0v3wQ
-        QCkAvDR9O9YBdbiVDODbvyRT3rsiM5D8DCQ9Y/k1jQrCSZ0BraICIAgAILRn0A0Bd3iuCDhCo3NFAAZB
-        OGmvUCDWFVoe5u7hnDF7Dd//msLgr9AJhU3HbYoPHw7AyGnbcPEumV3dIZMW8mcwJI3EUwlBxW07jwWh
-        kY4gFB+G5wgnzxkGxgOucBA8GHSFA2HKxNxJLAgr3knSVvJX5k51RnLlkf4x+Q0v2RQfPghg7cFevQVy
-        QTF16WU8/7coAKcZjEg8VSEYsTQ0rsC254hOLzqxZ7gSMe6IheHKhBBQKuoMOMIuuPQuojBMeagjXLT9
-        IgOJz1jeqtvsAaNy6juG/WdyAthxagAX5R8luiSx7OwDADwxeZ07R1DWFZDvCoAIQHGlYkBALBF3ayUI
-        C8TdTZwrzPqCMGyZaHlASN44w7iCyaetaFcA/Gv3mPwDM216jx6Tyg/LRycGpa0/IpMXX8Dz/1mFMKHi
-        vCQvuhSjy6oUNEijFrymxUSsGSYv+Vwm49bpxD4ylXr/KnQF64urRh+0YoUJ4S6jWtYGqNDyNiTDpTdd
-        xdiOxK4BIESAq68BFsuqQyP7S+qyVklBz0qHC9hExxU29fH/kmx6jx7Jlcf0BwP+ITQJiSe+eyYgbgfE
-        4zHia6JUfg4RYrSaECvApSYG4sRKpwvoQZDGi2ZulbzoYrQWXwT8S4B6RZ2RGlqAp76mlTa1R4+KJnly
-        yqLP9AeDrHXd+g3yAz8OgFjFJh+rIAAPBBOPgaAgnAIQVAEIXK+wdFgiiaHDd8bm1T5v03v0KA7ffjmp
-        5DDu/f2SWgWC32NNQ58Zne//bXBYY/qSpupZq8KR0Tn1klB8TCaWn5ZJFWe+PVWekWTEZEYn/iHGxYVn
-        VSmqc5KyaGhNhqYsdjovKXj9uNCBe396bd5cpPUbaHj/Lvfcb59/8Q9/f2sUpn/+BvWXIfZ9mR7n3OGI
-        ycdHfMRHfMRHfMRHfMTHw8eIEf8HuQBY8vKqkawAAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA80SURBVHhe7ZpZbFXXFYap0kRN2kptU6kP6VPV17z0sVIV
+        9aVS1ap9CWmathmaBghgbMBmMvhiAzbGM7ZjY8YkjDZgICRAGC4E8IRNmMM8OGAbzzYO82X1/9fe+5xz
+        LwYMSaREulv6tfYZ7rl3ffdf6+xz7WHxER/xER/xER/xER8coU1Xnsvd1P/LzPV9z1N5W3t/kbW59+dU
+        QXXPzx6lnG2tP7aX+n6NhKKm0uTyo9dz1pyUr6uMkjO3kuYf3Du8svIpe/nv/hg1f//AsY67cuuuyOHW
+        u7Lh+O0n0sYTt2Xb+buSvS4cSSxqSrWX/+6PKYvrbn58YkD2n74phVv6JPfjx1G/xjzOPzFa3vCVJBYc
+        vJEwt+7X9i2+2yOx4PMbC2t7TQIuMcw1KZVJMup4cNue65/fJ6HQe/cmlDbts2/x3R4OgCahSSHhTyiX
+        kAVAxezPw7a+RiFgrvv6pCx8TdKXnrwzrrBh4Zji+udHl4R/8m1qxILGp206jz8mLzx2vaLGJOUgMBGT
+        MGWSMsm6udnvXqMAeIxzvhbb20/dghOK7g3WLL8NJRQ21o/Mq3nBpjX04QCY5AMJ2m/UQHDHbNIuWT3P
+        nR/9+iV7rklLX0Q6b4jsa7v3raq2XQC79N6YgoZam9bQRwoB7HdJmSQ1ISarc38fo4Fh5MD4gNw+P/qv
+        N9dzjjIOCm4Hr2WOe1+K/VzB1/vql+Lt/fLJmTsypqixPxQK/9Cm9ugxfHjlU+wBC/b1Ss7H6ANRFzYX
+        j35T80GczP7Bjrltd52Y47zbeNvBudmOjjHHtsR+Hu7rk8JPr0nivPpr4/NqnrXpPXq8BFoEUA4Ames7
+        AjY2ymfExfmmuo9R54F9ToOdo8eirxl9DvWQaw1F/Hz2GmPmN/U/FoARIxqfTqmou1m2t1dmVbXJnPXt
+        Jmm9sIn5wQ/j9rk5FHXck/+h9Jzg+XbOqK+lAufq6230zsFx71x3jjvPiuc+EYBkAHjvs15JX9MiGZWt
+        AQhMwryRefNrgQ8c2O8dN+LcKOZ87rPRbJvjsYq9rs5VMee7a7jzoccG8EYo/CMCKAOA0KrLkr76iswE
+        iNlrr0rOZiyOWBIU3sg1J74ZazCXPUM/iG1g2kP4wXm+/0HNh/fl9rnjUQok4+93IK+pgsfNPv/cxwbw
+        8viaZ7GQuFW6p1emL2+WtBUQQMxUEK0AYcpiTnW7ZG3okMzqTsna2ClzN3ZBiBvMPGtDl2Rv7DbaZJTz
+        Ua/M29wjuZSD5L41fvitBGWk23oc8632eACGl7A7J7iPEOw+AkBaPzDZDWH8LWXDTwmgJNwtU94/L9Pe
+        vwAQl1QzAIOuCK02QNLXQKtbJL2qVTIAZhbiLJSMCv2DsFTrrsocaBbhwUmc01G6n9trAXQdBLCZ2JeJ
+        OeXtW499hI7z9Bhi1toOyVrXIXOxX4V5ts4R8eVk44vJxr5xuAsMGyYOAKLOHwzEASje1SUpC0/LpCVn
+        ZdqyczLtgwvQRYC4qCBmrPhS0lYaKRTnEmqVjQDlYBlggEVo7C2cY18GAGZUWhEgwBFUULMrr8hsnD8H
+        x+dUtQBAqyoL52bieNa6NgDANuAZtQEG9gHcqKL9Aza1YSJDcMJfQ5ueSw4dvU0HpCw+I1OWnpWpy87L
+        VDhhKiCkfkgIcMNKiuVhATBBm+hMBXLFAzOYWFZmTlc1K6x0JJpRBTGupVpk1jokvx6JV6P8quEgSh1h
+        xVKsNjGzGq7QCCdgH0s0FDp2dwYWdg9T0sIT3WOLGk7EAOgBADrAQGA5TGVJfIiSAIQZK0xJpAECa7fm
+        /G1p/+qeHGuPyOGrRofajD6HDrZCLRFphA5ADdSViNRBtZcjUgPt/zIi+6C9zRH57FJE9kC7oV0XI7Lz
+        QkR2QNup8xHZZrX1nNGWJ9QnZyNSdeQOnBeOKIDhocpnkkNHbpfs7pHkilOmDBadkckK4pwFASegFOgG
+        WnfD5zclck/ki5Y7UrBtQPIhxoJPB6Rw+1dSADEWMe64LkU7MNdoNH/ndSmG5u+6IcUBlYQRwzc1lmq8
+        aeJubO/G/BtUxtILdxQAV4JvlB+5wxKYsOALmVhxUpIBIXkRQKAkJqMnTFmGsgCIVICoqOmW5XXXkbDt
+        vuzYhLDVQtgGAFAhYCiITw2MQkLYDgCYE8B8glAYNwyQXYRiQVgYTlEQCCUmmSfRyOLaHgXALukAJJYd
+        l/HlJwIgTsENflmkoXYX1/dIEZLP0YcYc1/OdSAAQWUdoZEgHAxPxhUEoI6wrlA5RzgYHgjjjBJ8eIXy
+        NVyRvbFDEoqawpo+H4Ymho7cLdndLeNKj0rie8ckqeyEAWEhKAi4oWR3h5Tt6ZO5m/jgRAjXJIcLohgQ
+        eQ6EheGAqBtYJs4VAKGlMkiJ0BkOgrqDMDgnhF2mPJw7NDHGIbojacGx7nfz6v6oADgmhg4DQJeMLT4s
+        CSVHFEQSQIynI6wb2CAX13dj9deDhRAXOATQJ/MUhHME5EA4qTOsOxQGS8TB8EGwNDwAThZElDMCMqXi
+        wzDOGDxpp3w08ISC+os2dTMUQLhTRhcdwkrqMEAcAQi4oZRuAAi4IefjFinHanH2+m4FkP1RH9Qv86jN
+        ARBwA13BqM6w7rgfhHFFASBoz9juOyPohiJXGp4romEw6WI4ws19mYRZMkEAyUvPXBudV/+OTd2Ml8rD
+        EQIYVXBQ3i38XMYAxFiASACIcQQBNyys7cJavxsAsOzdyDKAsNTNRjQwAIEg4AzjDspACMrAAIAtULBM
+        2CfoDs8VFoYF4vqFzgFBy0NLxDZQB4PJ69y6QhM3PaNo51eSkN/Qfd+zggMwMq9RRuU1KYjRARBpK89L
+        +d4e3AI7sDDplswNveoCSkGgJ1AORLaF4EA4d+Q6IIBgymQgul9YGOoK2zw9V6gsAIJwrrBA6ArnDO0V
+        gblzRXpJ862xhQcKbNr+UAC7O+WdnAYZkXvAgMhvkncVxCEp29uJD9+FlRsB9CgAhbAB/UBhmL5gQBAC
+        ooIIOIMQPGcYGK6BOmfwqc/dVt3t1CsR5wwPCCA4IADgopPfQCF1xXUZV9jUmzDY3yocgLez6+R/8+ot
+        iEaAaEL9H5cF+7qw9G2TmZWd2gPmUAThRBDqCAvCg2FLxJaJKREfhnEGQThH2EgIQXcE+kWh6xfWFeZO
+        4jvDg7ADiSPS9nQG/04xtuDAFpty9JgQCt0rBYC3smrlv3PrAKLegjiAC7eh9juxCryCB5UurNW78FTH
+        XkD1AIaVwqAz6AoHhDD6EE3P0PJw0TVPDwRk3eDuJtovFIiF4YEIAHHOsK7QlacC4bEBhUQwSWUN3e/m
+        Nvzephw9CIAOeHPOfnkzs0ZBvA0QI+ECfvvpq1vxIMRHYABQdQMEAAQFCLPZHwDClIkBYkrEl1cmHgiI
+        pWJBKAwLgdF3BSAEGqcCCEhXngEgnPP3AsLI2dyNO9yB0zbd+4cB0CGvz9onb8zepyDeAojM6mYp2NqB
+        x2I88aH+06sAA8qgLIwMJE9XKBB1hZErEa9UtGfAIQ4GQASd4WKUKwBA+4VbXxBMrCu0Z9h+oT2DIAbw
+        2n49RgdMWXKqHwuf12269w8FEO6Qf6d/Jv/J2GtB7Nfmx29/KgGswRw9IL2SzdBGC8O4wsqWiAPil4eF
+        Qgh0B/sF5tov1Bm8rZo7inEFSwQQnIIlgm/WNc5oGKZM2EMIkkB47tjcxs7hoWPP2HTvHw7Av2buAYQ9
+        gPAZHn5OS/GOTjwHNMP+7WiCnRJa06EgfBg+lIwqRDrCynMFYXj9IgDEloiBQXewb7BfAAbXF4TggYjp
+        FbyduuYZBKEaQHn14LW9cO+AjC65wFtfpk118DGh7JCu819LC8trod0KoiTcpb/0TF76paSt7lCFAlIQ
+        KAveGTwgwRKhHAztGT4QQtBSAQjjDoCwUNydJIuOsHcSvaVC8xSIXybOFUbGFYQ0e32n2QaQBNz6xhXW
+        /sqmOvhwAF6dsUv+OSOszwTzd3Tj27+E7o8GuKodT4KAYBVijILhgBgQJrJUDBCF4sEwIPwSsTGmgQ7a
+        PJ0rnKwrPBhMvholCACEEQrNv5dQ2FBt03zwMADa5R+pO+XV6TtRS1z1tUjyYv4K1G6EMlAQGn0YKg8G
+        3eDDmOlBoDs673NGhnWGuYtQ5k5iXEEQbJoORowzCMA2TnUHIND26ZVX9VyWSRKWvWPya35n03zwIIBS
+        AHhl2g6sA2pxK+nHt39RJi+7LNOR/HQkPX3FVY0KwkmdAa2mAiAIACC0Z9ANAXd4rgg4QqNzRQAGQThp
+        r1Ag1hVaHubu4Zwxay3f/6rC4K/QCYWNx2yKDx8OwPCp23HxTplV1S4TF/JnMCSNxFMJQcVtO48FoZGO
+        IBQfhucIJ88ZBsZ9rnAQPBh0hQNhysTcSSwIK95J0lbxV+YOdUZyxeG+0fn1r9gUHz4IYN3BHr0FckEx
+        ZeklPP83KwCn6YxIPFUhGLE0NK7EtueIDi86sWe4EjHuiIXhyoQQUCrqDDjCLrj0LqIwTHmoI1y0/SID
+        iU9f0aLb7AEjc+rah/xncgLYebIfF+UfJTolsezMfQA8MXmdO0dQ1hWQ7wqACEBxpWJAQCwRd2slCAvE
+        3U2cK8z6gjBsmWh5QEjeOMO4gsmnrWxTAPxr9+j8AzNseo8eE8sPyUfHB6S1LyKTFp/H8/8ZhTB+wTlJ
+        XnQxRpdUKWiQRs14TbOJWDNMWvKlTMKt04l9ZAr1/hXoMtYXV4w+aMEKE8JdRrW8FVChFa1Ihktvuoqx
+        DYldBUCIANdcBSyWVbtG9pfU5S2Sgp6VDhewiY4tbOzl/yXZ9B49kiuO6g8G/ENoEhJPfO90QNwOiMdj
+        xNdEqfwsIsRoNT5WgEtNCMQJFU7n0YMgjRfM3Cp50YVoLb4A+BcB9bI6IzWUj6e+xlU2tUePBY3y9ORF
+        X+gPBlnru/Qb5Ad+HACxik0+VkEAHggmHgNBQTgFIKgCELheYemwRBJDh26Pyat50ab36FEcvvVqUskh
+        3Pv7JLUSBL/Hmoo+Myrf/9vgkMa0JY1VM1eHI6Ny6iSh+KhMKD8lExec/vZUcVqSEZMZnfiHGBcXnlGl
+        qM5KyqLBNQmavNjpnKTg9WNDB+7+6Y25c5DWb6Ch/bvcC7998eU//P2dkZj++RvUXwbZ9yA9zrlDEZOP
+        j/iIj/iIj/iIj/iIj4ePYcP+Dz45WM5wBcQ9AAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

ArinWarev1/MdiMain.vb

@@ -936,6 +936,9 @@ Public Class MdiMain
             DSET1.tbl_profile.AcceptChanges()
 
 
+            Pub.Update_열관류율_140409()
+
+
             PrjChanged = False
 
             Me.RefreshMenuList("")

ArinWarev1/Module/Pub.vb

@@ -57,6 +57,158 @@
     Public DSHistory As New DS2
     Public Importsameaddress As Boolean = False
 
+    Public Sub Update_열관류율_140409()
+
+
+        For Each DrowYK As DS.tbl_ykRow In DSET1.tbl_yk
+            Dim R_value As Decimal = 0
+            Dim width As Decimal = 0
+            Dim filter As String = "pcode='" + DrowYK.code + "'"
+            For Each Dr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select(filter, "")
+                If Dr.설명 = "공기층" Then
+                    Dr.열전도율 = ""
+                    If TOSG(Dr.두께) > 10.0 Then
+                        Dr.열저항 = TOST(0.086)
+                        R_value += 0.086
+                    Else
+                        Dr.열저항 = TOST(TOSG(Dr.두께) * 0.0086)
+                        R_value = R_value + TOSG(Dr.두께) * 0.0086
+                    End If
+                Else  '//여기아래 추가하신거에요?
+
+                    If Dr.설명.IndexOf("열전달저항") <> -1 Then
+                        Dr.두께 = ""
+                        Dr.열전도율 = ""
+                        Select Case Dr.설명
+                            Case "실내열전달저항(벽체)"
+                                Dr.열저항 = TOST(0.11)
+                                R_value += 0.11
+                            Case "실외열전달저항(벽체,간접)"
+                                Dr.열저항 = TOST(0.11)
+                                R_value += 0.11
+                            Case "실외열전달저항(벽체,직접)"
+                                Dr.열저항 = TOST(0.043)
+                                R_value += 0.043
+                            Case "실내열전달저항(바닥)"
+                                Dr.열저항 = TOST(0.086)
+                                R_value += 0.086
+                            Case "실외열전달저항(바닥,간접)"
+                                Dr.열저항 = TOST(0.15)
+                                R_value += 0.15
+                            Case "실외열전달저항(바닥,직접)"
+                                Dr.열저항 = TOST(0.043)
+                                R_value += 0.043
+                            Case "실내열전달저항(지붕)"
+                                Dr.열저항 = TOST(0.086)
+                                R_value += 0.086
+                            Case "실외열전달저항(지붕,간접)"
+                                Dr.열저항 = TOST(0.086)
+                                R_value += 0.086
+                            Case "실외열전달저항(지붕,직접)"
+                                Dr.열저항 = TOST(0.043)
+                                R_value += 0.043
+
+                        End Select
+
+                    Else
+                        If Dr.열전도율 <> "" AndAlso TOSG(Dr.열전도율) <> 0 Then
+                            Dr.열저항 = TOSG(Math.Round(TOSG(Dr.두께) / 1000 / TOSG(Dr.열전도율), 4)).ToString
+                            R_value += TOSG(Dr.열저항)  '//여부분에서는 나올수잇겟군요.?예
+                        End If
+
+                    End If
+
+                End If
+
+
+                If Dr.설명.IndexOf("열전달저항") = -1 Then
+                    width += TOSG(Dr.두께)
+                End If
+            Next
+
+            Try
+                If DrowYK.면형태 = "0" Then
+                    DrowYK.열관류율 = CSng(Math.Round(1 / R_value, 3)).ToString
+                    DrowYK.투과율 = ""
+                Else
+                    Dim 면형태 As DS.tbl_commonRow = DSET1.tbl_common.Select("gubun='1088' and code='" + DrowYK.면형태 + "'")(0)
+                    If 면형태.name = "외부창" OrElse 면형태.name = "내부창" Then
+                        If DrowYK.발코니창호여부 Then
+                            DrowYK.열관류율 = Math.Round((1 / ((1 / TOSG(DrowYK.창호열관류율)) + (1 / TOSG(DrowYK.발코니창호열관류율)) * 0.5)), 3)
+                            DrowYK.투과율 = Math.Round(TOSG(DrowYK.발코니투과율) * TOSG(DrowYK.일사에너지투과율), 3)
+                        Else
+                            DrowYK.열관류율 = DrowYK.창호열관류율
+                            DrowYK.투과율 = DrowYK.일사에너지투과율
+                        End If
+                    Else
+                        DrowYK.열관류율 = CSng(Math.Round(1 / R_value, 3)).ToString
+                        DrowYK.투과율 = ""
+                    End If
+                End If
+           
+            Catch ex As Exception
+                DrowYK.열관류율 = ""
+                DrowYK.투과율 = ""
+            End Try
+
+        Next
+
+
+
+        '//열관류율이 링크된 모든면의 건축부위 데이터를 열관류율 화면의 건축부위 데이터로 갱신
+        For Each Drow As DS.tbl_myounRow In DSET1.tbl_myoun
+
+            If Drow.RowState = DataRowState.Deleted OrElse Drow.RowState = DataRowState.Detached Then Continue For
+
+#If DEBUG Then
+            If Drow.code = "0009" Then
+                MsgBox("test")
+            End If
+#End If
+
+            If Drow.열관류율2 <> "0" Then
+                Try   '==========================================2014.04.17 열관류율 삭제시 코드번호가 남아 오류 발생하는 현상을 try 안으로 넣음
+                    Dim Dr As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" & Drow.열관류율2.ToString & "'")(0)
+                    Drow.건축부위방식 = Dr.면형태    '// 링크된 열관류율에서 면형태를 가져옴..
+                    Select Case Dr.면형태
+                        Case "외벽(벽체)", "0"
+                            Drow.건축부위방식 = "외벽"
+                        Case "외벽(지붕)", "0001"
+                            Drow.건축부위방식 = "외벽"
+                            'Drow.방위 = "수평"
+                        Case "외벽(바닥)", "0002"
+                            Drow.건축부위방식 = "외벽"
+                            'Drow.방위 = "일사없음"
+                        Case "내벽(벽체)", "0003", "지중벽", "0009"
+                            Drow.건축부위방식 = "내벽"
+                            Drow.방위 = "일사없음"
+                        Case "내벽(지붕)", "0004"
+                            Drow.건축부위방식 = "내벽"
+                            Drow.방위 = "일사없음"
+                        Case "내벽(바닥)", "0005"
+                            Drow.건축부위방식 = "내벽"
+                            Drow.방위 = "일사없음"
+                        Case "간벽", "0006"
+                            Drow.건축부위방식 = "간벽"
+                            Drow.방위 = "일사없음"
+                        Case "외부창", "0007"
+                            Drow.건축부위방식 = "외부창"
+                            'Drow.투과율 = Dr.일사에너지투과율
+                        Case "내부창", "0008"
+                            Drow.건축부위방식 = "내부창"
+                            'Drow.투과율 = Dr.일사에너지투과율
+                        Case Else
+                            MsgBox("모르는값 " & Dr("면형태").ToString & "/" & Dr.면형태)
+                    End Select
+
+                Catch ex As Exception
+
+                End Try
+            End If
+
+        Next
+    End Sub
+
     Public Function 프로필급탕요구량(면적별범위 As Char) As Decimal
         'Drow프로필.일일급탕요구량()
 

ArinWarev1/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' 지정되도록 할 수 있습니다.
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.2017.0122.1009")> 
-<Assembly: AssemblyFileVersion("1.2017.0122.1009")> 
+<Assembly: AssemblyVersion("1.2017.0122.1010")> 
+<Assembly: AssemblyFileVersion("1.2017.0122.1010")>