창호 열관류율 발코니창 추가

소요량 평가서 날짜 변경

ArinWarev1/FORM-BASIC/Frm_v20091231_YK.Designer.vb

@@ -63,6 +63,13 @@ Partial Class Frm_V20091231_YK
         Me.bsmain = New System.Windows.Forms.BindingSource(Me.components)
         Me.체크바닥난방여부 = New System.Windows.Forms.CheckBox()
         Me.체크열교방지구조 = New System.Windows.Forms.CheckBox()
+        Me.tb_발코니열관류율 = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.chk_발코니여부 = New System.Windows.Forms.CheckBox()
+        Me.tb_발코니투과율 = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.tb_투과율 = New Eco2OD.MyTb()
+        Me.Label5 = New System.Windows.Forms.Label()
         CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel2.SuspendLayout()
@@ -83,7 +90,7 @@ Partial Class Frm_V20091231_YK
         Me.NTb_창호세부설명.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.NTb_창호세부설명.BackColor = System.Drawing.Color.White
         Me.NTb_창호세부설명.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "창호세부설명", True))
-        Me.NTb_창호세부설명.Location = New System.Drawing.Point(282, 519)
+        Me.NTb_창호세부설명.Location = New System.Drawing.Point(282, 518)
         Me.NTb_창호세부설명.Name = "NTb_창호세부설명"
         Me.NTb_창호세부설명.Size = New System.Drawing.Size(226, 25)
         Me.NTb_창호세부설명.TabIndex = 2
@@ -104,7 +111,7 @@ Partial Class Frm_V20091231_YK
         Me.NTb_일사에너지투과율.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.NTb_일사에너지투과율.BackColor = System.Drawing.Color.White
         Me.NTb_일사에너지투과율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "일사에너지투과율", True))
-        Me.NTb_일사에너지투과율.Location = New System.Drawing.Point(306, 483)
+        Me.NTb_일사에너지투과율.Location = New System.Drawing.Point(496, 451)
         Me.NTb_일사에너지투과율.Name = "NTb_일사에너지투과율"
         Me.NTb_일사에너지투과율.Size = New System.Drawing.Size(50, 25)
         Me.NTb_일사에너지투과율.TabIndex = 1
@@ -114,7 +121,7 @@ Partial Class Frm_V20091231_YK
         Me.NTb_창호열관류율.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.NTb_창호열관류율.BackColor = System.Drawing.Color.White
         Me.NTb_창호열관류율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "창호열관류율", True))
-        Me.NTb_창호열관류율.Location = New System.Drawing.Point(282, 453)
+        Me.NTb_창호열관류율.Location = New System.Drawing.Point(282, 451)
         Me.NTb_창호열관류율.Name = "NTb_창호열관류율"
         Me.NTb_창호열관류율.Size = New System.Drawing.Size(74, 25)
         Me.NTb_창호열관류율.TabIndex = 0
@@ -154,11 +161,11 @@ Partial Class Frm_V20091231_YK
         '
         Me.lbl_일사에너지투과율.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.lbl_일사에너지투과율.AutoSize = True
-        Me.lbl_일사에너지투과율.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lbl_일사에너지투과율.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lbl_일사에너지투과율.ForeColor = System.Drawing.Color.Black
-        Me.lbl_일사에너지투과율.Location = New System.Drawing.Point(183, 488)
+        Me.lbl_일사에너지투과율.Location = New System.Drawing.Point(373, 456)
         Me.lbl_일사에너지투과율.Name = "lbl_일사에너지투과율"
-        Me.lbl_일사에너지투과율.Size = New System.Drawing.Size(120, 15)
+        Me.lbl_일사에너지투과율.Size = New System.Drawing.Size(116, 15)
         Me.lbl_일사에너지투과율.TabIndex = 153
         Me.lbl_일사에너지투과율.Text = "일사에너지투과율[-]:"
         '
@@ -167,7 +174,7 @@ Partial Class Frm_V20091231_YK
         Me.lbl_창호열관류율.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.lbl_창호열관류율.AutoSize = True
         Me.lbl_창호열관류율.ForeColor = System.Drawing.Color.Black
-        Me.lbl_창호열관류율.Location = New System.Drawing.Point(183, 456)
+        Me.lbl_창호열관류율.Location = New System.Drawing.Point(183, 455)
         Me.lbl_창호열관류율.Name = "lbl_창호열관류율"
         Me.lbl_창호열관류율.Size = New System.Drawing.Size(94, 17)
         Me.lbl_창호열관류율.TabIndex = 153
@@ -207,7 +214,7 @@ Partial Class Frm_V20091231_YK
         Me.Panel1.Controls.Add(Me.C1StatusBar1)
         Me.Panel1.Location = New System.Drawing.Point(362, 12)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(619, 461)
+        Me.Panel1.Size = New System.Drawing.Size(619, 427)
         Me.Panel1.TabIndex = 154
         '
         'fxData
@@ -220,7 +227,7 @@ Partial Class Frm_V20091231_YK
         Me.fxData.Name = "fxData"
         Me.fxData.Rows.Count = 1
         Me.fxData.Rows.DefaultSize = 24
-        Me.fxData.Size = New System.Drawing.Size(617, 436)
+        Me.fxData.Size = New System.Drawing.Size(617, 402)
         Me.fxData.StyleInfo = resources.GetString("fxData.StyleInfo")
         Me.fxData.TabIndex = 158
         '
@@ -264,7 +271,7 @@ Partial Class Frm_V20091231_YK
         Me.C1StatusBar1.AutoSizeElement = C1.Framework.AutoSizeElement.Width
         Me.C1StatusBar1.LeftPaneItems.Add(Me.RibbonButton1)
         Me.C1StatusBar1.LeftPaneItems.Add(Me.RibbonButton2)
-        Me.C1StatusBar1.Location = New System.Drawing.Point(0, 436)
+        Me.C1StatusBar1.Location = New System.Drawing.Point(0, 402)
         Me.C1StatusBar1.Name = "C1StatusBar1"
         Me.C1StatusBar1.Size = New System.Drawing.Size(617, 23)
         Me.C1StatusBar1.VisualStyle = C1.Win.C1Ribbon.VisualStyle.Office2010Silver
@@ -371,7 +378,7 @@ Partial Class Frm_V20091231_YK
         'Label2
         '
         Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label2.Location = New System.Drawing.Point(530, 518)
+        Me.Label2.Location = New System.Drawing.Point(530, 519)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(155, 22)
         Me.Label2.TabIndex = 153
@@ -399,7 +406,7 @@ Partial Class Frm_V20091231_YK
         Me.체크바닥난방여부.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.체크바닥난방여부.AutoSize = True
         Me.체크바닥난방여부.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "바닥난방여부", True))
-        Me.체크바닥난방여부.Location = New System.Drawing.Point(748, 485)
+        Me.체크바닥난방여부.Location = New System.Drawing.Point(743, 453)
         Me.체크바닥난방여부.Name = "체크바닥난방여부"
         Me.체크바닥난방여부.Size = New System.Drawing.Size(105, 21)
         Me.체크바닥난방여부.TabIndex = 164
@@ -411,17 +418,101 @@ Partial Class Frm_V20091231_YK
         Me.체크열교방지구조.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.체크열교방지구조.AutoSize = True
         Me.체크열교방지구조.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "열교방지구조", True))
-        Me.체크열교방지구조.Location = New System.Drawing.Point(867, 485)
+        Me.체크열교방지구조.Location = New System.Drawing.Point(871, 453)
         Me.체크열교방지구조.Name = "체크열교방지구조"
         Me.체크열교방지구조.Size = New System.Drawing.Size(105, 21)
         Me.체크열교방지구조.TabIndex = 165
         Me.체크열교방지구조.Text = "열교방지구조"
         Me.체크열교방지구조.UseVisualStyleBackColor = True
         '
+        'tb_발코니열관류율
+        '
+        Me.tb_발코니열관류율.BackColor = System.Drawing.Color.White
+        Me.tb_발코니열관류율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "발코니창호열관류율", True))
+        Me.tb_발코니열관류율.Enabled = False
+        Me.tb_발코니열관류율.Location = New System.Drawing.Point(386, 484)
+        Me.tb_발코니열관류율.Name = "tb_발코니열관류율"
+        Me.tb_발코니열관류율.Size = New System.Drawing.Size(66, 25)
+        Me.tb_발코니열관류율.TabIndex = 168
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Enabled = False
+        Me.Label3.ForeColor = System.Drawing.Color.Black
+        Me.Label3.Location = New System.Drawing.Point(279, 488)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(102, 17)
+        Me.Label3.TabIndex = 169
+        Me.Label3.Text = "발코니열관류율:"
+        '
+        'chk_발코니여부
+        '
+        Me.chk_발코니여부.AutoSize = True
+        Me.chk_발코니여부.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "발코니창호여부", True))
+        Me.chk_발코니여부.Location = New System.Drawing.Point(184, 486)
+        Me.chk_발코니여부.Name = "chk_발코니여부"
+        Me.chk_발코니여부.Size = New System.Drawing.Size(92, 21)
+        Me.chk_발코니여부.TabIndex = 167
+        Me.chk_발코니여부.Text = "발코니여부"
+        Me.chk_발코니여부.UseVisualStyleBackColor = True
+        '
+        'tb_발코니투과율
+        '
+        Me.tb_발코니투과율.BackColor = System.Drawing.Color.White
+        Me.tb_발코니투과율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "발코니투과율", True))
+        Me.tb_발코니투과율.Enabled = False
+        Me.tb_발코니투과율.Location = New System.Drawing.Point(581, 484)
+        Me.tb_발코니투과율.Name = "tb_발코니투과율"
+        Me.tb_발코니투과율.Size = New System.Drawing.Size(62, 25)
+        Me.tb_발코니투과율.TabIndex = 170
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Enabled = False
+        Me.Label4.ForeColor = System.Drawing.Color.Black
+        Me.Label4.Location = New System.Drawing.Point(466, 488)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(102, 17)
+        Me.Label4.TabIndex = 171
+        Me.Label4.Text = "발코니투과율[-]:"
+        '
+        'tb_투과율
+        '
+        Me.tb_투과율.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.tb_투과율.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.tb_투과율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "투과율", True))
+        Me.tb_투과율.Location = New System.Drawing.Point(893, 484)
+        Me.tb_투과율.Name = "tb_투과율"
+        Me.tb_투과율.NectControl = Nothing
+        Me.tb_투과율.Size = New System.Drawing.Size(83, 25)
+        Me.tb_투과율.TabIndex = 172
+        Me.tb_투과율.TabStop = False
+        Me.tb_투과율.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.tb_투과율.TextFormat = Eco2OD.MyTb.ETFormat.Normal
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.ForeColor = System.Drawing.Color.Black
+        Me.Label5.Location = New System.Drawing.Point(824, 488)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(63, 17)
+        Me.Label5.TabIndex = 173
+        Me.Label5.Text = "투과율[-]:"
+        '
         'Frm_V20091231_YK
         '
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
         Me.ClientSize = New System.Drawing.Size(992, 575)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.tb_투과율)
+        Me.Controls.Add(Me.tb_발코니투과율)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.tb_발코니열관류율)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.chk_발코니여부)
         Me.Controls.Add(Me.체크열교방지구조)
         Me.Controls.Add(Me.체크바닥난방여부)
         Me.Controls.Add(Me.tb법적기준)
@@ -503,4 +594,11 @@ Partial Class Frm_V20091231_YK
     Friend WithEvents Label2 As System.Windows.Forms.Label
     Friend WithEvents 체크바닥난방여부 As System.Windows.Forms.CheckBox
     Friend WithEvents 체크열교방지구조 As System.Windows.Forms.CheckBox
+    Friend WithEvents tb_발코니열관류율 As System.Windows.Forms.TextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents chk_발코니여부 As System.Windows.Forms.CheckBox
+    Friend WithEvents tb_발코니투과율 As System.Windows.Forms.TextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents tb_투과율 As Eco2OD.MyTb
+    Friend WithEvents Label5 As System.Windows.Forms.Label
 End Class

ArinWarev1/FORM-BASIC/Frm_v20091231_YK.vb

@@ -51,6 +51,13 @@
             AddHandler .OwnerDrawCell, AddressOf flexOwnerDrawCell
 
         End With
+
+        Label3.Enabled = True
+        Label4.Enabled = True
+        Label5.Enabled = True
+        열관류율NTb.ReadOnly = True
+
+
     End Sub
 
     Private Function Refresh_열전도율목록() As String
@@ -768,8 +775,9 @@
             End If
         Next
 
+
         Try
-            If cmb_형태.Text.StartsWith("창") OrElse cmb_형태.Text.StartsWith("문") OrElse cmb_형태.Text.StartsWith("세대현관문") Then
+            If cmb_형태.Text.StartsWith("문") OrElse cmb_형태.Text.StartsWith("세대현관문") Then
                 Me.열관류율NTb.Text = Me.NTb_창호열관류율.Text
             Else
                 Me.열관류율NTb.Text = CSng(Math.Round(1 / R_value, 3)).ToString
@@ -780,6 +788,27 @@
             'MsgBox("4. " & ex.Message.ToString)
         End Try
 
+        Try
+
+            If cmb_형태.Text = "창(직접)" OrElse cmb_형태.Text = "창(간접)" Then
+                If Me.chk_발코니여부.Checked Then
+                    Me.tb_투과율.Text = Math.Round(TOSG(tb_발코니투과율.Text) * TOSG(NTb_일사에너지투과율.Text), 3)
+                    Me.열관류율NTb.Text = Math.Round((1 / ((1 / TOSG(Me.NTb_창호열관류율.Text)) + (1 / TOSG(Me.tb_발코니열관류율.Text)) * 0.5)), 3)
+                Else
+                    Me.tb_투과율.Text = NTb_일사에너지투과율.Text
+                    Me.열관류율NTb.Text = Me.NTb_창호열관류율.Text
+                End If
+            Else
+                Me.열관류율NTb.Text = CSng(Math.Round(1 / R_value, 3)).ToString
+                Me.tb_투과율.Text = ""
+            End If
+        Catch ex As Exception
+            Me.열관류율NTb.Text = ""
+            Me.tb_투과율.Text = ""
+        End Try
+
+
+
         '  Me.MyTb1.Text = width.ToString("N2")
         Me.UserControl11.MaxSize = width
         'MsgBox(width)
@@ -950,7 +979,7 @@
                                 Else
                                     tb법적기준.Text = "0.350"
                                 End If
-                          
+
                             Case "지중벽"
                                 tb법적기준.Text = "0.450"
                             Case "세대현관문(직접)"
@@ -990,7 +1019,7 @@
                                 Else
                                     tb법적기준.Text = "0.470"
                                 End If
-                            
+
                             Case "지중벽"
                                 tb법적기준.Text = "0.560"
                             Case "세대현관문(직접)"
@@ -1311,40 +1340,68 @@
 
             End If
 
-            
+
         Else
             '//지역코드가 연결되지 않은경우
             tb법적기준.Text = "--"
         End If
 
         UpdateColor()
-      
+
 
     End Sub
 
     Sub UpdateColor()
         '열관류율NTb,tb법적기준
-        If IsNumeric(tb법적기준.Text) AndAlso IsNumeric(열관류율NTb.Text) Then
-            Dim S1 As Single = TOSG(tb법적기준.Text)
+        NTb_창호열관류율.BackColor = Color.WhiteSmoke
+        열관류율NTb.BackColor = Color.WhiteSmoke
 
-            Dim S2 As Single = TOSG(열관류율NTb.Text)
-            If S2 > S1 Then
-                열관류율NTb.BackColor = Color.HotPink
-                Label2.Text = "법적기준(부적합)"
-                Label2.ForeColor = Color.Red
-                Label2.Font = New Font("맑은 고딕", 9.75, FontStyle.Bold)
+        If cmb_형태.Text = "창(간접)" Then
+            If IsNumeric(tb법적기준.Text) AndAlso IsNumeric(NTb_창호열관류율.Text) Then
+                Dim S1 As Single = TOSG(tb법적기준.Text)
+
+                Dim S2 As Single = TOSG(NTb_창호열관류율.Text)
+                If S2 > S1 Then
+                    NTb_창호열관류율.BackColor = Color.HotPink
+                    Label2.Text = "법적기준(부적합)"
+                    Label2.ForeColor = Color.Red
+                    Label2.Font = New Font("맑은 고딕", 9.75, FontStyle.Bold)
+                Else
+                    NTb_창호열관류율.BackColor = Color.WhiteSmoke
+                    Label2.Text = "법적기준"
+                    Label2.ForeColor = Color.Black
+                    Label2.Font = New Font("맑은 고딕", 9.75, FontStyle.Regular)
+                End If
+            Else
+                NTb_창호열관류율.BackColor = Color.WhiteSmoke
+                Label2.Text = "법적기준"
+                Label2.ForeColor = Color.Black
+                Label2.Font = New Font("맑은 고딕", 9.75, FontStyle.Regular)
+            End If
+        Else
+            If IsNumeric(tb법적기준.Text) AndAlso IsNumeric(열관류율NTb.Text) Then
+                Dim S1 As Single = TOSG(tb법적기준.Text)
+
+                Dim S2 As Single = TOSG(열관류율NTb.Text)
+                If S2 > S1 Then
+                    열관류율NTb.BackColor = Color.HotPink
+                    Label2.Text = "법적기준(부적합)"
+                    Label2.ForeColor = Color.Red
+                    Label2.Font = New Font("맑은 고딕", 9.75, FontStyle.Bold)
+                Else
+                    열관류율NTb.BackColor = Color.WhiteSmoke
+                    Label2.Text = "법적기준"
+                    Label2.ForeColor = Color.Black
+                    Label2.Font = New Font("맑은 고딕", 9.75, FontStyle.Regular)
+                End If
             Else
                 열관류율NTb.BackColor = Color.WhiteSmoke
                 Label2.Text = "법적기준"
                 Label2.ForeColor = Color.Black
                 Label2.Font = New Font("맑은 고딕", 9.75, FontStyle.Regular)
             End If
-        Else
-            열관류율NTb.BackColor = Color.WhiteSmoke
-            Label2.Text = "법적기준"
-            Label2.ForeColor = Color.Black
-            Label2.Font = New Font("맑은 고딕", 9.75, FontStyle.Regular)
         End If
+   
     End Sub
     Private Sub cmb_형태_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_형태.SelectedIndexChanged
         If cmb_형태.Text = "지붕(직접)" OrElse cmb_형태.Text = "바닥(직접)" OrElse cmb_형태.Text = "지붕(간접)" OrElse cmb_형태.Text = "바닥(간접)" Then
@@ -1388,6 +1445,35 @@
             Me.lbl_일사에너지투과율.ForeColor = Color.LightGray
             Me.lbl_창호세부설명.ForeColor = Color.LightGray
         End If
+
+        If cmb_형태.Text.StartsWith("창(직접)") OrElse cmb_형태.Text.StartsWith("창(간접)") Then
+            Me.chk_발코니여부.ForeColor = Color.Black
+            Application.DoEvents()
+            Me.chk_발코니여부.Refresh()
+            Application.DoEvents()
+            Me.chk_발코니여부.Enabled = True
+            Me.tb_투과율.Enabled = True
+            Me.Label5.Enabled = True
+            Me.tb_발코니투과율.Visible = True
+            Me.tb_발코니열관류율.Visible = True
+            Me.Label3.ForeColor = Color.Black
+            Me.Label4.ForeColor = Color.Black
+            Me.Label5.ForeColor = Color.Black
+        Else
+            체크바닥난방여부.ForeColor = Color.LightGray
+            Me.chk_발코니여부.Refresh()
+            Application.DoEvents()
+            Me.chk_발코니여부.Enabled = False
+            Me.Label3.ForeColor = Color.LightGray
+            Me.Label4.ForeColor = Color.LightGray
+            Me.Label5.ForeColor = Color.LightGray
+            Me.tb_투과율.Enabled = False
+            'Me.Label5.Enabled = False
+            Me.tb_발코니투과율.Visible = False
+            Me.tb_발코니열관류율.Visible = False
+          
+        End If
+
     End Sub
 
     Private Sub NTb_창호열관류율_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NTb_창호열관류율.TextChanged
@@ -1554,4 +1640,29 @@
     Private Sub 열관류율NTb_TextChanged(sender As System.Object, e As System.EventArgs) Handles 열관류율NTb.TextChanged
         UpdateColor()
     End Sub
+
+    Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chk_발코니여부.CheckedChanged
+        refresh_Image()
+
+        Me.tb_발코니열관류율.Enabled = chk_발코니여부.Checked
+        Me.tb_발코니투과율.Enabled = chk_발코니여부.Checked
+        'Me.Label2.Enabled = chk_발코니여부.Checked
+        'Me.Label3.Enabled = chk_발코니여부.Checked
+    End Sub
+
+    Private Sub tb_발코니열관류율_TextChanged(sender As System.Object, e As System.EventArgs) Handles tb_발코니열관류율.TextChanged, tb_발코니투과율.TextChanged
+        refresh_Image()
+    End Sub
+
+    Private Sub chk_발코니여부_EnabledChanged(sender As System.Object, e As System.EventArgs) Handles chk_발코니여부.EnabledChanged
+        refresh_Image()
+        If chk_발코니여부.Enabled = False Then
+            Me.tb_발코니열관류율.Enabled = chk_발코니여부.Enabled
+            Me.tb_발코니투과율.Enabled = chk_발코니여부.Enabled
+            'Me.Label2.Enabled = chk_발코니여부.Enabled
+            'Me.Label3.Enabled = chk_발코니여부.Enabled
+        Else
+            CheckBox1_CheckedChanged(sender, e)
+        End If
+    End Sub
 End Class

ArinWarev1/FORM-OD/Frm_2_Build.vb

@@ -463,7 +463,15 @@
                 If dr.GetUpperBound(0) <> -1 Then
 
                     e.Row("열관류율") = dr(0).열관류율
-                    e.Row("투과율") = dr(0).일사에너지투과율
+                    'e.Row("투과율") = dr(0).일사에너지투과율
+
+                    If dr(0).면형태 = "0007" OrElse dr(0).면형태 = "0008" Then
+                        e.Row("투과율") = dr(0).투과율
+                    Else
+                        e.Row("투과율") = dr(0).일사에너지투과율
+                    End If
+
+
                     Select Case dr(0).면형태
                         Case "외벽(직접)", "0"
                             e.Row("면형태") = "외벽(직접)"
@@ -499,7 +507,7 @@
                             ElseIf dr(0).면형태 = "0008" Then
                                 e.Row("면형태") = "창(간접)"
                                 e.Row("건축부위방식") = "내부창"
-                                e.Row("방위") = "(없음)"
+                                'e.Row("방위") = "(없음)"
                             ElseIf dr(0).면형태 = "0010" Then
                                 e.Row("면형태") = "문(직접)"
                                 e.Row("건축부위방식") = "외부창"
@@ -613,6 +621,79 @@
                 Dim Dr열관류율 As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" & Dr입력면.열관류율2.ToString & "'")(0)
 
 
+                Dr입력면("열관류율") = Dr열관류율.열관류율
+
+                If Dr열관류율.면형태 = "0007" OrElse Dr열관류율.면형태 = "0008" Then
+                    Dr입력면("투과율") = Dr열관류율.투과율
+                Else
+                    Dr입력면("투과율") = Dr열관류율.일사에너지투과율
+                End If
+
+                Select Case Dr열관류율.면형태
+                    Case "외벽(직접)", "0"
+                        Dr입력면("면형태") = "외벽(직접)"
+                        Dr입력면("건축부위방식") = "외벽"
+                    Case "지붕(직접)", "0001"
+                        Dr입력면("면형태") = "지붕(직접)"
+                        Dr입력면("건축부위방식") = "외벽"
+                        Dr입력면("방위") = "수평"
+                    Case "바닥(직접)", "0002"
+                        Dr입력면("면형태") = "바닥(직접)"
+                        Dr입력면("건축부위방식") = "외벽"
+                        Dr입력면("방위") = "일사없음"
+                    Case "외벽(간접)", "0003"
+                        Dr입력면("면형태") = "외벽(간접)"
+                        Dr입력면("건축부위방식") = "내벽"
+                        Dr입력면("방위") = "(없음)"
+                    Case "지붕(간접)", "0004"
+                        Dr입력면("면형태") = "지붕(간접)"
+                        Dr입력면("건축부위방식") = "내벽"
+                        Dr입력면("방위") = "일사없음"
+                    Case "바닥(간접)", "0005"
+                        Dr입력면("면형태") = "바닥(간접)"
+                        Dr입력면("건축부위방식") = "내벽"
+                        Dr입력면("방위") = "일사없음"
+                    Case "간벽", "0006"
+                        Dr입력면("면형태") = "간벽"
+                        Dr입력면("건축부위방식") = "간벽"
+                        Dr입력면("방위") = "(없음)"
+                    Case "창(직접)", "창(간접)", "문(직접)", "문(간접)", "세대현관문(직접)", "세대현관문(간접)", "0007", "0008", "0010", "0011", "0012", "0013"
+                        If Dr열관류율.면형태 = "0007" Then
+                            Dr입력면("면형태") = "창(직접)"
+                            Dr입력면("건축부위방식") = "외부창"
+                        ElseIf Dr열관류율.면형태 = "0008" Then
+                            Dr입력면("면형태") = "창(간접)"
+                            Dr입력면("건축부위방식") = "내부창"
+                            'e.Row("방위") = "(없음)"
+                        ElseIf Dr열관류율.면형태 = "0010" Then
+                            Dr입력면("면형태") = "문(직접)"
+                            Dr입력면("건축부위방식") = "외부창"
+                        ElseIf Dr열관류율.면형태 = "0011" Then
+                            Dr입력면("면형태") = "문(간접)"
+                            Dr입력면("건축부위방식") = "내부창"
+                            Dr입력면("방위") = "(없음)"
+                        ElseIf Dr열관류율.면형태 = "0012" Then
+                            Dr입력면("면형태") = "세대현관문(직접)"
+                            Dr입력면("건축부위방식") = "외부창"
+                        ElseIf Dr열관류율.면형태 = "0013" Then
+                            Dr입력면("면형태") = "세대현관문(간접)"
+                            Dr입력면("건축부위방식") = "내부창"
+                            Dr입력면("방위") = "(없음)"
+                        End If
+                    Case "지중벽", "0009"
+                        Dr입력면("면형태") = "지중벽"
+                        Dr입력면("건축부위방식") = "내벽"
+                        Dr입력면("방위") = "(없음)"
+                    Case Else
+                        Dr입력면("면형태") = "--"
+                        MsgBox("모르는값 " & Dr열관류율.면형태 & "/")
+                End Select
+                Me.bs.EndEdit()
+
+
+
+
+
                 Select Case Dr입력면.건축부위방식
                     Case "외벽"
 
@@ -832,6 +913,7 @@
 
         '//형별성능내역목록 업데이트 170517
         Make_형별성능내역_List(fxList.Cols("열관류율2").Index)
+        Display_info()
     End Sub
 
     Private Sub MyTb1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_층고.TextChanged

ArinWarev1/REPORT-OD/Result_친환경.rdlc

@@ -886,7 +886,7 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>2017-12-15</Value>
+                    <Value>2025-06-30</Value>
                     <Style>
                       <FontFamily>돋움</FontFamily>
                       <FontSize>8pt</FontSize>
@@ -8910,7 +8910,7 @@
         </TablixRowHierarchy>
         <DataSetName>DSInfo</DataSetName>
         <Top>14.03597cm</Top>
-        <Height>4.65202cm</Height>
+        <Height>4.65206cm</Height>
         <Width>18.97784cm</Width>
         <ZIndex>4</ZIndex>
         <Style>