Public Class Frm_YK

    Dim init As Boolean = False
    Dim pcode As String
    Dim UserCommin As Boolean = False
    Dim SrcDrv As DataRowView
    Dim keyUp1 As Boolean = False    '//열전도율 사용자가 수정하려할시를 나타냄(110618)

    
    Public Sub New(_opentime)

        ' 이 호출은 디자이너에 필요합니다.
        InitializeComponent()
        OpenTime = _opentime

        ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.

    End Sub
#Region "data Base 변경여부및 적용방법"

    '''변경된내용을적용한다.
    Public Overrides Function AcceptChanged() As Boolean
        bs.EndEdit()
        Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
        Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
        BaseDT.AcceptChanges()

        '// 입력면데이터중에 열관류율을 사용한 데이터 업데이트(131009)
        For Each dr As DS.tbl_myounRow In DSET1.tbl_myoun.Select("열관류율2 <> '0'")
            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()
        Next

        Update_열관류율_140409()

        Return True
    End Function

    '''변경된내용이있다면 취소한다.
    Public Overrides Function RejectChanged() As Boolean
        Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
        Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
        BaseDT.RejectChanges()
        Return True
    End Function

    '''데이터에변형이있었는가?
    Public Overrides Function HasChanged() As Boolean
        bs.EndEdit()
        Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
        Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
        Dim ChangeDT As DataTable = BaseDT.GetChanges
        If Not ChangeDT Is Nothing Then Return True
        Return False
    End Function

    '''기본데이터테이블을 반환합니다.
    Public Function DT() As DataTable
        Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
        Return BaseDS.Tables(bs.DataMember)
    End Function


#End Region

    Private Sub ColumChange_YK_Detail(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs)
        Dim oval As String = e.Row(e.Column.ColumnName).ToString
        Dim nval As String = e.ProposedValue.ToString
        If oval <> nval Then
            Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow
            newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss")
            newdr.tablename = "tbl_yk"
            newdr.ovalue = oval
            newdr.nvalue = nval
            newdr.column = e.Column.ColumnName
            newdr.code = e.Row("code").ToString
            DSHistory.history.AddhistoryRow(newdr)
            DSHistory.history.AcceptChanges()
        End If
    End Sub

    Private Sub Update_열관류율_140409()
        Me.Validate()
        Me.dv.EndEdit()
        Me.arindv1.EndEdit()
        Me.bs.EndEdit()

        Pub.Update_열관류율_140409()

        

    End Sub

    Private Sub Frm_V20091231_YK_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Me.bs.EndEdit()
        Me.bs_detail.EndEdit()

        Me.Update_열관류율_140409()
    End Sub
    Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Show()
        My.Application.DoEvents()
        ' Work_msg_timer("잠시만 기다려주세요")

        'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.열관류율)
        'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me)
        '//프로필 관련
        '//공유데이터셋에 연결한다.

        Me.bs.DataSource = DSET1
        Me.bs_detail.DataSource = DSET1
        Me.bs_gubun.DataSource = DSET1
        Me.bS_재료.DataSource = DSET1

        bS_재료.Filter = "gubun='1089'"
        bS_재료.Sort = "code"

        '//냉방분배
        AddHandler DSET1.tbl_yk.TableNewRow, AddressOf addNewDataRow_YK
        AddHandler DSET1.tbl_ykdetail.TableNewRow, AddressOf AddNewDataRow_YK_Detail
        AddHandler DSET1.tbl_ykdetail.ColumnChanging, AddressOf ColumChange_YK_Detail

        '//모든컨트롤의 cTrl_enter 를 추가합니다
        BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection))

        '//콤보컨트롤 바인딩
        Binding_Zone()


        Me.bs.Filter = "code <> '0'"
        If Me.Parameter <> "" Then Me.bs.Filter &= " and 면형태 ='" + Me.Parameter + "'"
        ' Me.lb_grpname.Text = Get_CName("1088", Me.Parameter)

        Try
            Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
        Catch ex As Exception
            Me.bs.MoveFirst()
        End Try

        refresh_Image()
        Me.init = True

        'Try '//열전도갱신

        Me.cmb_열전도율.Items.Clear()
        Dim 재료명 As String = ""
        If Me.bs_detail.Count > 0 Then  '//현재선택된 개체의 열전도율을 가져온다.
            Dim Drv As DataRowView = Me.bs_detail.Current
            재료명 = Drv("설명").ToString
        Else
            If Me.cmb_재료.Items.Count > 0 AndAlso Me.cmb_재료.SelectedIndex >= 0 Then 재료명 = CType(Me.cmb_재료.Items(Me.cmb_재료.SelectedIndex), DataRowView)("name").ToString
        End If
        Dim Filter = "gubun='1089' and name='" & 재료명 & "'"
        Dim Drow() As DS.tbl_commonRow = DSET1.tbl_common.Select(Filter)
        Try
            If Drow.GetUpperBound(0) <> -1 Then Me.cmb_열전도율.Items.Add(Drow(0).valn1)
        Catch ex As Exception

        End Try



        'Me.cmb_열전도율.Items.Clear()
        'Dim Fil As String = "gubun='1089' and name='" & Me.cmb_재료.Text & "'"
        'Try
        '    If Me.cmb_재료.Text <> "" Then
        '        Dim Dr As DS.tbl_commonRow = DSET1.tbl_common.Select(Fil)(0)
        '        'Dim Dr As DS.tbl_commonRow = DSET1.tbl_common.Select("gubun='1089' and name='" & Me.cmb_재료.Text & "'")(0)
        '        If Me.cmb_재료.Text.IndexOf("공기층") = -1 Then
        '            Me.cmb_열전도율.Items.Add(Dr.valn1)
        '        End If
        '    End If
        'Catch ex As Exception
        '    'MsgBox("1. " & ex.Message.ToString)
        'End Try

        AddDebug("▲ Form Load")

    End Sub
#Region "Control_Enter"
    Private Sub BindProperty(ByVal Ctl As Control.ControlCollection)
        For Each C As Control In Ctl
            If C.Controls.Count > 1 Then
                BindProperty(C.Controls)
            Else
                If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then
                    AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown
                ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then
                    AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown
                End If
            End If
        Next
    End Sub

    Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
        If e.KeyCode = Keys.Enter AndAlso e.Control Then
            Try
                Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField)
                For Each Dr As DataRow In DT.Select(Me.bs.Filter, "")
                    Dr(Field) = CType(sender, MyTb).Text
                Next
                Work_msg_timer("모든값이 변경되었습니다", 25)
            Catch ex As Exception

            End Try

        End If
    End Sub
    Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
        If e.KeyCode = Keys.Enter AndAlso e.Control Then
            Try
                Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField)
                For Each Dr As DataRow In DT.Select(Me.bs.Filter, "")
                    Dr(Field) = CType(sender, MyCmb).SelectedValue
                Next
                Work_msg_timer("모든값이 변경되었습니다", 25)
            Catch ex As Exception

            End Try
        End If
    End Sub
#End Region

#Region "기본"
    Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True)
    End Sub
    Private Function GetMaxCode(ByVal dt As DataTable) As String

        Dim Drow() As DataRow = dt.Select("", "code desc")
        If Drow.GetUpperBound(0) = -1 Then Return "0001" '//데이터가 없을경위 최소 0001으로 반환 2011-05-06(a)

        '//데이터가있을경우 해당 데이터+1로 반환
        Return Format(CInt(Drow(0)("code")) + 1, "0000")

        'Try
        '    Dim Dr As DataRow = dt.Select("", "code desc")(0)
        '    Dim Dr_ykdetail As DataRow = dt_ykdetail.Select("", "code desc")(0)
        '    If Dr("code") >= Dr_ykdetail("code") Then

        '    Else
        '        Return Format(CInt(Dr_ykdetail("code")) + 1, "0000")
        '    End If

        'Catch ex As Exception
        '    MsgBox(ex.Message.ToString)
        '    Return "0001"
        'End Try
    End Function
    Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
        If e.KeyCode = Keys.Delete Then
            CType(sender, ComboBox).SelectedValue = ""
        End If
    End Sub
    Private Sub addNewDataRow_YK(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
        e.Row.Item("code") = GetMaxCode(DSET1.tbl_yk)
        e.Row.Item("설명") = "신규데이터"
    End Sub
    Private Sub AddNewDataRow_YK_Detail(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)

        Dim NewCode As String
        Try
            Dim Dr As DataRow = DSET1.tbl_ykdetail.Select("pcode = '" & Me.pcode & "'", "code desc")(0)
            NewCode = Format(CInt(Dr("code")) + 1, "0000")
        Catch ex As Exception
            NewCode = ("0001")
        End Try

        Try
            e.Row.Item("pcode") = Me.pcode ' CType(bs.Current, DataRowView)("code")
            e.Row.Item("code") = NewCode
            ' bs_detail.Position = bs_detail.Count
            'MsgBox(e.Row.Item("code").ToString)

        Catch ex As Exception
            MsgBox("부모코드없음 선택다시")
        End Try

    End Sub

    Private Sub bt_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click
        If Not EndEdit(Me.bs) Then Return
        Me.bs.AddNew()
        Me.bs.EndEdit()
        INitRow(Me.Controls)
        'ToolStripButton1.PerformClick() '//2011.04.20 열관류율 생성시 세부 레이어를 기본적으로 추가
    End Sub


    Private Sub bt_Del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click
        'Dbbase.DelCrow(Me.bs, True)
        Del_YKdetail(True)
    End Sub

    Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click
        If Not EndEdit(Me.bs) Then Return
        Data_Cancel(DSET1.tbl_profile, Nothing)
    End Sub

    Private Sub Binding_Zone()

        Dim bs_형태 As New BindingSource(DSET1, "tbl_common")
        bs_형태.Filter = "gubun='1088'"
        bs_형태.Sort = "code"
        Me.cmb_형태.DataSource = bs_형태
        cmb_형태.DisplayMember = "name"
        cmb_형태.ValueMember = "code"
        Me.cmb_형태.DataBindings.Add("selectedvalue", Me.bs, "면형태")
        AddHandler cmb_형태.KeyDown, AddressOf Cmb_DeleteVal

        'Me.bS_재료.DataSource = DSET1.tbl_common
        bS_재료.Filter = "gubun='1089'"
        bS_재료.Sort = "code"

        Me.cmb_재료.DataSource = bS_재료
        cmb_재료.DisplayMember = "name"
        cmb_재료.ValueMember = "name"
        Me.cmb_재료.DataBindings.Add("text", Me.bs_detail, "설명")
        AddHandler cmb_재료.KeyDown, AddressOf Cmb_DeleteVal
        'Me.cmb_재료.Text = ""

        'Me.bs_gubun.DataSource = DSET1.tbl_common
        bs_gubun.Filter = "gubun='1090'"
        bs_gubun.Sort = "code"

    End Sub
    Private Sub Frm_V20091231_Zone_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
        If e.Delta < 0 Then
            If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1
        Else
            If Me.bs.Position > 0 Then Me.bs.Position -= 1
        End If
        Me.Validate()
        My.Application.DoEvents()
    End Sub
#End Region

    Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then
                Dim dR() As DataRow = DSET1.tbl_yk.Select(Me.bs.Filter, "")
                For i As Integer = dR.GetUpperBound(0) To 0 Step -1
                    dR(i).Delete()
                Next
                DSET1.tbl_yk.AcceptChanges()
            End If
        End If
    End Sub

    Private Sub dv_DataError(sender As Object, e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dv.DataError

    End Sub


    Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp
        If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then  '//2011.03.08 추가
            If e.Button = Windows.Forms.MouseButtons.Right Then
                Dim Frm_FilterA As New Frm_Filter
                Frm_FilterA.ColumTitle = getColCaption(Me.DT)
                Frm_FilterA.ColumList = getColName(Me.DT)
                Frm_FilterA.Colorlist = ""
                Frm_FilterA.Default_Filter = "code <> '0'"
                Frm_FilterA.Numfield = ""    '//20100618  Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망)
                If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요.
                Dim Filter As String = Frm_FilterA.tb_filter.Text   '//값은 아까 그 텍박에 잇구요.
                Try
                    Me.bs.Filter = Filter

                    '//바꾸기값이 있으면 변경 20100618
                    If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _
                    Frm_FilterA.tb_valuec.Text <> "" Then
                        Dim Drow() As DataRow = Me.DT.Select(Filter)
                        For Each Dr As DataRow In Drow
                            Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text
                        Next
                        MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인")
                    End If

                Catch ex As Exception
                    Me.bs.Filter = ""
                    'MsgBox("2. " & ex.Message.ToString)
                End Try
            End If
        End If

    End Sub

    Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown
        '//여기보시면   alt+d 누르면  한줄을 경고없이(falsE)삭제하도록 햇어요.
        If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then  '//2011.03.08 추가
            Select Case e.KeyCode
                Case Keys.D
                    If e.Alt Then
                        'Dbbase.DelCrow(Me.bs, False)
                        Del_YKdetail(False)

                    End If
                Case Keys.C
                    If e.Control Then
                        Me.SrcDrv = Me.bs.Current
                        If Me.SrcDrv Is Nothing Then
                            MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인")
                            Return
                        End If
                        ' My.Computer.Clipboard.SetData("ZDATA", Drv)
                    End If
                Case Keys.V
                    If e.Control Then
                        If Me.SrcDrv Is Nothing Then Return
                        Me.bt_add.PerformClick()  '//신규추가
                        Dim NewDrv As DataRowView = Me.bs.Current

                        For Each C As DataColumn In Me.DT.Columns
                            If C.ColumnName.ToUpper = "CODE" Then
                            ElseIf C.ColumnName.ToUpper = "설명" Then
                                NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1"
                            Else
                                NewDrv(C.ColumnName) = SrcDrv(C.ColumnName)
                            End If
                        Next

                        '//하위데이터복제
                        Dim src_pcode As String = SrcDrv("code").ToString
                        Dim new_pcode As String = NewDrv("code").ToString


                        For Each Drow2 As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("pcode='" & src_pcode & "'")
                            Dim Newrow As DS.tbl_ykdetailRow = DSET1.tbl_ykdetail.Newtbl_ykdetailRow
                            For Each C As DataColumn In DSET1.tbl_ykdetail.Columns
                                Newrow(C.ColumnName) = Drow2(C.ColumnName)
                            Next
                            Newrow.pcode = new_pcode
                            DSET1.tbl_ykdetail.Addtbl_ykdetailRow(Newrow)
                        Next

                        Me.bs.EndEdit()
                        Me.bs_detail.EndEdit()
                        Me.refresh_Image()

                        bs.MoveLast()
                    End If
            End Select
        End If
    End Sub

    Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged
        Try
            pcode = CType(bs.Current, DataRowView)("code").ToString
            Me.bs_detail.Filter = "pcode='" & pcode & "'"
            DSET1.tbl_ykdetail.AcceptChanges()
            Me.refresh_Image()

            Me.lb_code.Text = "[" + pcode + "]"

            My.Application.DoEvents()

            '//해당데이터의 열관류율이상여부를 체크한다.
            For Each dr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select(Me.bs_detail.Filter)
                Dim CUrvalue As String = dr.열전도율
                If CUrvalue <> "" Then
                    Dim Drs() As DS.tbl_commonRow = DSET1.tbl_common.Select("gubun='1089' and name='" & dr.설명 & "' and valn1='" & CUrvalue.Trim & "'")
                    If Drs.GetUpperBound(0) = -1 Then    '//일치하는것이 없다면
                        dr.커스텀 = "Y"
                    Else
                        dr.커스텀 = "N"
                    End If
                End If
            Next
            DS.tbl_ykdetail.AcceptChanges()
            My.Application.DoEvents()

        Catch ex As Exception
            'MsgBox("3. " & ex.Message.ToString)
        End Try
        Me.bs.EndEdit()
    End Sub

    Private Sub refresh_Image()
        ' MsgBox(Me.UserControl11.Vertical)

        Dim width As Decimal = 0   '//뭘고치던 여기 함수가 실행되므로 이곳에서 뭔가 작업하시는게 좋을것 같구요..어떤것을들 더하시려구요?
        Dim R_value As Decimal = 0

        For Each Dr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select(Me.bs_detail.Filter, "")    '//세부내역중 두께를 합치는 루틴입니다.
            'Try
            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 TOSG(Me.NTb_창호열관류율.Text) = 0.0F OrElse TOSG(Me.tb_발코니열관류율.Text) = 0.0F Then
        '        Me.열관류율NTb.Text = ""
        '        Me.tb_투과율.Text = ""
        '    Else
        '        If cmb_형태.Text = "외부창" OrElse cmb_형태.Text = "내부창" Then
        '            If Me.chk_발코니여부.Checked Then
        '                Me.열관류율NTb.Text = Math.Round((1 / ((1 / TOSG(Me.NTb_창호열관류율.Text)) + (1 / TOSG(Me.tb_발코니열관류율.Text)) * 0.5)), 3)
        '                Me.tb_투과율.Text = Math.Round(TOSG(tb_발코니투과율.Text) * TOSG(NTb_일사에너지투과율.Text), 3)
        '            Else
        '                Me.열관류율NTb.Text = Me.NTb_창호열관류율.Text
        '                Me.tb_투과율.Text = NTb_일사에너지투과율.Text
        '            End If
        '        Else
        '            Me.열관류율NTb.Text = CSng(Math.Round(1 / R_value, 3)).ToString
        '            Me.tb_투과율.Text = ""
        '        End If
        '    End If
        'Catch ex As Exception
        '    Me.열관류율NTb.Text = ""
        '    Me.tb_투과율.Text = ""
        'End Try

        Try

            If cmb_형태.Text = "외부창" OrElse cmb_형태.Text = "내부창" Then
                If Me.chk_발코니여부.Checked Then
                    Me.열관류율NTb.Text = Math.Round((1 / ((1 / TOSG(Me.NTb_창호열관류율.Text)) + (1 / TOSG(Me.tb_발코니열관류율.Text)) * 0.5)), 3)
                    Me.tb_투과율.Text = Math.Round(TOSG(tb_발코니투과율.Text) * TOSG(NTb_일사에너지투과율.Text), 3)
                Else
                    Me.열관류율NTb.Text = Me.NTb_창호열관류율.Text
                    Me.tb_투과율.Text = 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)

        ' Me.Label1.Text = Me.UserControl11.Width

        '//  0.51 : me.wid = x : ?

        '  Me.UserControl11.Vertical = True
        Dim FT(Me.arindv1.RowCount - 1) As YkCtl.SM
        For i As Integer = 0 To Me.arindv1.RowCount - 1
            '//아까 열표시해서 검정색 선택해보니 검정은 값이 0 이 나오더라구요
            '//실재로 0값이 근데 표시가안됫어요 그러므로

            Try
                FT(i).BColor = Color.FromArgb(Me.arindv1.Rows(i).Cells("후경색").Value)

            Catch ex As Exception
                FT(i).BColor = Color.FromName("white")
                'MsgBox("5. " & ex.Message.ToString)
            End Try
            'Try
            '    If Me.arindv1.Rows(i).Cells("전경색").Value = "0" Then
            '        FT(i).FColor = Color.Black
            '    Else
            '        FT(i).FColor = Color.FromArgb(Me.arindv1.Rows(i).Cells("전경색").Value)
            '    End If

            'Catch ex As Exception
            '    FT(i).FColor = Color.FromName("black")
            '    'MsgBox("6. " & ex.Message.ToString)
            'End Try
            ' FT(i).Style=            
            Try
                FT(i).Style = Val(Me.arindv1.Rows(i).Cells("구분").Value)
            Catch ex As Exception
                FT(i).Style = Drawing2D.HatchStyle.Cross
                'MsgBox("7. " & ex.Message.ToString)
            End Try



            Try
                If Me.arindv1.Rows(i).Cells("두께").Value <> "" Then
                    FT(i).Width = Me.arindv1.Rows(i).Cells("두께").Value
                End If
            Catch ex As Exception
                'MsgBox("8. " & ex.Message.ToString)
            End Try


        Next
        Me.UserControl11.M1FillType = FT

    End Sub

   

    Private Sub arindv1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles arindv1.CellFormatting
        Try
            Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.FromArgb(Me.arindv1.Rows(e.RowIndex).Cells("후경색").Value)
            ' Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromName(Me.arindv1.Rows(e.RowIndex).Cells("전경색").Value)
        Catch ex As Exception
            Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White
            'MsgBox("9. " & ex.Message.ToString)
        End Try

        Try
            If Me.arindv1.Rows(e.RowIndex).Cells("커스텀").Value = "Y" Then
                Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Magenta
            Else
                Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Black
            End If
        Catch ex As Exception
            Me.arindv1.Rows(e.RowIndex).Cells("커스텀").Value = "N"
        End Try

        Me.bs_detail.EndEdit()

    End Sub


    Private Sub Arindv1_CellValidated(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles arindv1.CellValidated
        refresh_Image()
    End Sub

    Private Sub Arindv1_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs)

    End Sub

    Private Sub Arindv1_RowValidated(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)
        refresh_Image()
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btj_add.Click

        '//재료쪽 추가

        Dim newdr As DS.tbl_ykdetailRow = DSET1.tbl_ykdetail.Newtbl_ykdetailRow
        DSET1.tbl_ykdetail.Addtbl_ykdetailRow(newdr)
        EndEdit(bs_detail)
        bs_detail.Position = bs_detail.Count - 1

        arindv1.Rows(bs_detail.Count - 1).Cells(2).Selected = True



        'Try
        'Me.bs_detail.AddNew()
        'Me.bs_detail.EndEdit()
        'refresh_Image()
        'Catch ex As Exception
        '    MsgBox(ex.Message.ToString)

        '    MsgBox("상위코드 선택하세요", MsgBoxStyle.Critical, "확인")
        'End Try

    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btj_del.Click
        If Me.bs_detail.Count > 0 Then
            Me.bs_detail.RemoveCurrent()
            Me.bs_detail.EndEdit()
        End If
    End Sub

    Private Sub arindv1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles arindv1.CellContentClick
        Select Case e.ColumnIndex
            Case 8  '//전경
                Dim Cd As New ColorDialog
                Cd.Color = Color.FromName(Me.arindv1.Rows(e.RowIndex).Cells("전경색").Value)
                If Cd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
                Me.arindv1.Rows(e.RowIndex).Cells("전경색").Value = Cd.Color.ToArgb
                Me.btn_전경색.BackColor = Cd.Color
                Me.bs_detail.EndEdit()
                refresh_Image()
            Case 9  '//배경
                Dim Cd As New ColorDialog
                Cd.Color = Color.FromName(Me.arindv1.Rows(e.RowIndex).Cells("후경색").Value)
                If Cd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
                Me.arindv1.Rows(e.RowIndex).Cells("후경색").Value = Cd.Color.ToArgb
                Me.btn_후경색.BackColor = Cd.Color
                Me.bs_detail.EndEdit()
                refresh_Image()
        End Select
    End Sub

    Private Sub arindv1_DataError1(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles arindv1.DataError

    End Sub

    Private Sub cmb_형태_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_형태.SelectedIndexChanged, MyCmb1.SelectedIndexChanged
        If cmb_형태.Text = "외벽(지붕)" OrElse cmb_형태.Text = "외벽(바닥)" OrElse cmb_형태.Text = "내벽(지붕)" OrElse cmb_형태.Text = "내벽(바닥)" Then
            Me.UserControl11.Vertical = False
        Else
            Me.UserControl11.Vertical = True
        End If
        Me.refresh_Image()

        If cmb_형태.Text = "외부창" OrElse cmb_형태.Text = "내부창" Then
            Me.NTb_창호열관류율.Visible = True
            Me.NTb_일사에너지투과율.Visible = True
            Me.NTb_창호세부설명.Visible = True
            Me.lbl_창호열관류율.Enabled = True
            Me.lbl_일사에너지투과율.Enabled = True
            Me.lbl_창호세부설명.Enabled = True
            Me.chk_발코니여부.Enabled = True
            Me.tb_투과율.Enabled = True
            Me.Label4.Enabled = True
            Me.tb_발코니투과율.Visible = True
            Me.tb_발코니열관류율.Visible = True

        Else
            Me.NTb_창호열관류율.Visible = False
            Me.NTb_일사에너지투과율.Visible = False
            Me.NTb_창호세부설명.Visible = False
            Me.lbl_창호열관류율.Enabled = False
            Me.lbl_일사에너지투과율.Enabled = False
            Me.lbl_창호세부설명.Enabled = False
            Me.chk_발코니여부.Enabled = False
            Me.tb_투과율.Enabled = False
            Me.Label4.Enabled = False
            Me.tb_발코니투과율.Visible = False
            Me.tb_발코니열관류율.Visible = False
        End If

    End Sub

    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btj_showimg.Click
        Dim Drv As DataRowView = Me.bs_detail.Current
        Dim 전경 As String = ""
        Dim 후경 As String = ""
        Try
            전경 = Drv("전경색").ToString
        Catch ex As Exception

        End Try

        Try
            후경 = Drv("후경색").ToString
        Catch ex As Exception

        End Try
        Dim A As New Frm_DisplayGubun(전경, 후경)
        A.Show()
    End Sub

    Private Sub btn_전경색_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_전경색.Click
        Try
            Dim Cd As New ColorDialog
            If Cd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
            Me.btn_전경색.BackColor = Cd.Color

            Dim Drv As DataRowView = Me.bs_detail.Current
            Drv("전경색") = Cd.Color.ToArgb

        Catch ex As Exception
            Me.btn_전경색.BackColor = Color.White
            'MsgBox("14. " & ex.Message.ToString)
        End Try
        Me.bs_detail.EndEdit()
        Me.refresh_Image()

    End Sub

    Private Sub cmb_재료_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_재료.SelectedIndexChanged

        cmb_재료_Changed()

    End Sub

    Private Sub btn_후경색_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_후경색.Click

        Try
            Dim Cd As New ColorDialog

            If Cd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
            Me.btn_후경색.BackColor = Cd.Color

            Dim Drv As DataRowView = Me.bs_detail.Current
            Drv("후경색") = Cd.Color.ToArgb

        Catch ex As Exception
            Me.btn_후경색.BackColor = Color.White
            'MsgBox("18. " & ex.Message.ToString)
        End Try
        Me.bs_detail.EndEdit()
        Me.refresh_Image()

    End Sub

    Private Sub cmb_열전도율_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_열전도율.SelectedIndexChanged
        If Not init Then Return
        Dim Drv As DataRowView = Me.bs_detail.Current
        If Drv Is Nothing Then Return
        Drv("커스텀") = "N"
        Drv("열전도율") = Me.cmb_열전도율.Items(Me.cmb_열전도율.SelectedIndex)
        Me.bs_detail.EndEdit()
        Me.refresh_Image()
    End Sub

    'Private Sub cmb_열전도율_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_열전도율.TextChanged
    '    Me.bs_detail.EndEdit()
    '    Me.refresh_Image()

    '    'Try
    '    '    If Me.cmb_열전도율.SelectedIndex = -1 Then
    '    '        Me.arindv1.CurrentRow.DefaultCellStyle.ForeColor = Color.FromArgb(Color.Red.ToArgb)
    '    '    Else
    '    '        Me.arindv1.CurrentRow.DefaultCellStyle.ForeColor = Color.FromArgb(Color.Black.ToArgb)
    '    '    End If
    '    'Catch ex As Exception
    '    '    MsgBox(ex.Message.ToString)
    '    'End Try

    'End Sub

    Private Sub cmb_재료_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_재료.SelectionChangeCommitted
        If Not init Then Return
        Me.UserCommin = True
    End Sub

    Private Sub NTb_창호열관류율_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NTb_창호열관류율.TextChanged
        If Not init Then Return
        If cmb_형태.Text = "외부창" OrElse cmb_형태.Text = "내부창" Then
            Me.열관류율NTb.Text = Me.NTb_창호열관류율.Text
        End If
    End Sub

    Private Sub Del_YKdetail(ByVal prompt As Boolean)
        If prompt Then
            If MsgBox("선택된 줄을 삭제하시겠습니까?", MsgBoxStyle.OkCancel Or MsgBoxStyle.Information, "삭제확인") <> MsgBoxResult.Ok Then Return
        End If
        Dim Drv As DataRowView = CType(bs.Current, DataRowView)
        If Drv Is Nothing Then Return

        '//버그수정 140417 제거 부모코드가 삭제되어야하는데.. 자식코드매칭 오류 ( code -> pcode 로변경)
        Dim DR() As DataRow = DSET1.tbl_ykdetail.Select("code <> '0' and pcode='" & Drv("code").ToString & "'")
        If DR.GetUpperBound(0) <> -1 Then
            For i As Integer = DR.GetUpperBound(0) To 0 Step -1
                DR(i).Delete()
            Next
        End If
        Me.bs.RemoveCurrent()

    End Sub

    Private Sub cmb_열전도율_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_열전도율.KeyUp
        Me.keyUp1 = True
        If Not init Then Return
        'If e.KeyCode = Keys.Enter Then
        Me.bs_detail.EndEdit()
        Dim CUrvalue As String = Me.cmb_열전도율.Text
        Dim Find As Boolean = False
        For i As Integer = 0 To Me.cmb_열전도율.Items.Count - 1
            If Me.cmb_열전도율.Items(i).ToString = CUrvalue Then Find = True
        Next
        Dim Drv As DataRowView = Me.bs_detail.Current
        If Drv Is Nothing Then Return
        If Find = False Then  '//찾지못하였다면
            Drv("커스텀") = "Y"
        Else
            Drv("커스텀") = "N"
        End If
        Me.refresh_Image()
        Me.keyUp1 = False
        'End If
    End Sub

    Private Sub bs_detail_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs_detail.CurrentChanged
        If Not init Then Return
        Dim Drv As DataRowView = CType(Me.bs_detail.Current, DataRowView)
        If Drv Is Nothing Then Return '//선택된아이템이없으면 빠져나감
        Try
            Me.btn_전경색.BackColor = Color.FromArgb(Drv("전경색").ToString)
            Me.btn_후경색.BackColor = Color.FromArgb(Drv("후경색").ToString)
        Catch ex As Exception
            Me.btn_전경색.BackColor = Color.White
            Me.btn_후경색.BackColor = Color.White
            'MsgBox("12. " & ex.Message.ToString)
        End Try


        '//열전도율목록을 갱신
        Me.cmb_열전도율.Items.Clear()
        If Me.cmb_재료.Text <> "" Then
            Dim Fil As String = "gubun='1089' and name='" & Me.cmb_재료.Text & "'"
            Dim Drow() As DS.tbl_commonRow = DSET1.tbl_common.Select(Fil)
            Try
                If Drow.GetUpperBound(0) = 0 Then Me.cmb_열전도율.Items.Add(Drow(0).valn1)
            Catch ex As Exception

            End Try
        End If

        '//현재선택된 열전도율이 비정상(*?) 체크
        Dim CUrvalue As String = Drv("열전도율").ToString
        If CUrvalue <> "" Then
            Dim Dr() As DS.tbl_commonRow = DSET1.tbl_common.Select("gubun='1089' and name='" & Me.cmb_재료.Text & "' and valn1='" & CUrvalue.Trim & "'")
            If Dr.GetUpperBound(0) = -1 Then    '//일치하는것이 없다면
                Drv("커스텀") = "Y"
            Else
                Drv("커스텀") = "N"
            End If
        End If


        Me.bs_detail.EndEdit()
        Me.arindv1.Refresh()
        Me.refresh_Image()
    End Sub


    Private Sub cmb_재료_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_재료.TextChanged
        cmb_재료_Changed()
    End Sub

    Private Sub cmb_재료_Changed()
        If Not init Then Return
        If Me.bs_detail.Count < 1 Then Return '// ep데이터가없을경우 무시
        If Me.cmb_재료.SelectedIndex < 0 Then Return

        Dim 재료코드 As String = ""

        '//선택된재료명
        Dim 재료명 As String = CType(Me.cmb_재료.Items(Me.cmb_재료.SelectedIndex), DataRowView)("name")

        If UserCommin = False Then
            'UserCommin = True
            Return
        End If

        '//해당열전도율가져오기
        Try
            Dim Dr As DS.tbl_commonRow = DSET1.tbl_common.Select(bS_재료.Filter & " and name='" & 재료명 & "'")(0)
            재료코드 = Dr.code
            Me.cmb_열전도율.Items.Clear()
            Try '// 20110210 Try문 추가 (열전달저항 관련 Null 값에 의한 재료코드에러수정)
                Me.cmb_열전도율.Items.Add(Dr.valn1)
                Me.cmb_열전도율.Text = Dr.valn1
            Catch ex As Exception
                Dim Drv As DataRowView = CType(Me.bs_detail.Current, DataRowView)
                Drv("커스텀") = "N"
            End Try

            'Me.tb_열전도.Text = Dr.valn1
            ' MsgBox(Dr.valn1)

        Catch ex As Exception
            'MsgBox(ex.Message.ToString)
            'MsgBox("15. " & ex.Message.ToString)
        End Try

        '//색및 패턴명 가져오기
        Dim DetailDrv As DataRowView = Me.bs_detail.Current
        DetailDrv("설명") = 재료명
        Dim Er As Boolean = False

        Dim Dr2() As DS.tbl_commonRow = DSET1.tbl_common.Select("gubun='1090' and code='" & 재료코드 & "'")
        If Dr2.GetUpperBound(0) = -1 Then
            DetailDrv("전경색") = Color.Blue.ToArgb
            DetailDrv("후경색") = Color.White.ToArgb '//디비에 해당설ㅈㅇ이 없을경우 행하는 코드들
            DetailDrv("구분") = "5"
            Me.btn_전경색.BackColor = Color.FromArgb(DetailDrv("전경색"))
            Me.btn_후경색.BackColor = Color.FromArgb(DetailDrv("후경색"))
        Else  '//디비에 있을경우
            Try
                DetailDrv("전경색") = Dr2(0)("name").ToString.Split(",")(0)
            Catch ex As Exception
                DetailDrv("전경색") = Color.Black.ToArgb
                'MsgBox("16. " & ex.Message.ToString)
            End Try
            Try
                DetailDrv("후경색") = Dr2(0)("name").ToString.Split(",")(1)
            Catch ex As Exception
                DetailDrv("후경색") = Color.White.ToArgb
                ' MsgBox("17. " & ex.Message.ToString)
            End Try

            DetailDrv("구분") = CInt(Dr2(0)("valn1"))
            Me.btn_후경색.BackColor = Color.FromArgb(DetailDrv("후경색"))
            Me.btn_전경색.BackColor = Color.FromArgb(DetailDrv("전경색"))
        End If

        Me.bs_detail.EndEdit()
        Me.refresh_Image()
        UserCommin = False

    End Sub

    Private Sub bs_detail_CurrentItemChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles bs_detail.CurrentItemChanged
        '//2011 06 18 : 아이템이동시 열전도율의 콤보박스가 생성되지않는현상 제거

        If Not Me.init OrElse Me.keyUp1 Then Return
        If Me.cmb_재료.Text.Trim = "" Then Return
        If Me.cmb_열전도율.Items.Count = 0 Then Return

        '//해당열전도율가져오기
        Dim Drow() As DS.tbl_commonRow = DSET1.tbl_common.Select(bS_재료.Filter & " and name='" & Me.cmb_재료.Text & "'")

        Dim temp_item As String
        Try
            temp_item = Me.cmb_열전도율.Items(0)
        Catch ex As Exception
            temp_item = ""
        End Try

        If Drow.GetUpperBound(0) = 0 AndAlso Drow(0).valn1.ToString <> temp_item Then
            Me.cmb_열전도율.Items.Clear()
            Me.cmb_열전도율.Items.Add(Drow(0).valn1)
        End If

    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 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

    Private Sub NTb_일사에너지투과율_TextChanged(sender As System.Object, e As System.EventArgs) Handles NTb_일사에너지투과율.TextChanged
        refresh_Image()
    End Sub

    Private Sub Frm_YK_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        Select Case e.KeyCode
            Case Keys.F12
                ShowHistory()
        End Select

    End Sub
    Private Sub ShowHistory()
        Dim drv As DataRowView = Me.bs.Current
        Dim f As New Frm_History("tbl_yk", drv("code").ToString)
        If f.ShowDialog = DialogResult.OK Then
            drv(f.colname) = f.val
            Me.Validate()
            Me.bs.EndEdit()
            My.Application.DoEvents()
            MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인")
        End If
    End Sub
End Class