파일 열기 메뉴 펑션으로 분리
데이터 정정 작업을 펑션으로 분리하고, import 기능에서도 추가 호출 가져오기시 메뉴 자동 업데이트 되도록 함
This commit is contained in:
chi
@@ -711,155 +711,7 @@ Public Class MdiMain
|
|||||||
Frm_Work.Label1.Text = "데이터를 확인하고 있습니다"
|
Frm_Work.Label1.Text = "데이터를 확인하고 있습니다"
|
||||||
Frm_Work.Show()
|
Frm_Work.Show()
|
||||||
|
|
||||||
If DSET1.tbl_buha.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_buha.Rows.Add(New String() {"0", "(없음)"})
|
FixData(isNew) '//221218 chi import 기능과 공유하기 위해 데이터 보정기능을 분리
|
||||||
If DSET1.tbl_bunbae.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_bunbae.Rows.Add(New String() {"0", "(없음)"})
|
|
||||||
If DSET1.tbl_kongjo.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_kongjo.Rows.Add(New String() {"0", "(없음)"})
|
|
||||||
If DSET1.tbl_kongkub.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_kongkub.Rows.Add(New String() {"0", "(없음)"})
|
|
||||||
If DSET1.tbl_myoun.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_myoun.Rows.Add(New String() {"0", "(없음)"})
|
|
||||||
If DSET1.tbl_nanbangkiki.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_nanbangkiki.Rows.Add(New String() {"0", "(없음)"})
|
|
||||||
If DSET1.tbl_nangbangkiki.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_nangbangkiki.Rows.Add(New String() {"0", "(없음)"})
|
|
||||||
If DSET1.tbl_nbunbae.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_nbunbae.Rows.Add(New String() {"0", "(없음)"})
|
|
||||||
If DSET1.tbl_new.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_new.Rows.Add(New String() {"0", "(없음)"})
|
|
||||||
If DSET1.tbl_profile.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_profile.Rows.Add(New String() {"0", "(없음)"})
|
|
||||||
If DSET1.tbl_weather.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_weather.Rows.Add(New String() {"0", "(없음)"})
|
|
||||||
If DSET1.tbl_zone.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_zone.Rows.Add(New String() {"0", "(없음)"})
|
|
||||||
If DSET1.tbl_yk.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_yk.Rows.Add(New String() {"0", "(없음)"})
|
|
||||||
If DSET1.tbl_Desc.Rows.Count < 1 Then
|
|
||||||
MsgBox("건물개요데이터가 없으므로 초기자료를 생성합니다", MsgBoxStyle.Critical, "확인")
|
|
||||||
Dim newdescdr As DS.tbl_DescRow = DSET1.tbl_Desc.NewRow
|
|
||||||
newdescdr.name = "오류"
|
|
||||||
newdescdr.buildarea = "010100"
|
|
||||||
DSET1.tbl_Desc.Addtbl_DescRow(newdescdr)
|
|
||||||
DSET1.tbl_Desc.AcceptChanges()
|
|
||||||
Else
|
|
||||||
If isNew Then '//신규작성파일이 ㄴ경우
|
|
||||||
Dim drDesc1 As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
|
|
||||||
drDesc1.buildarea = "010100" '//서울로 지정
|
|
||||||
drDesc1.EndEdit()
|
|
||||||
End If
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
'//건물용도기본값
|
|
||||||
Dim 용도 As String = DSET1.tbl_Desc.Rows(0)("isjugo").ToString
|
|
||||||
If IsNumeric(용도) = False Then
|
|
||||||
pLog.Add(String.Format("건물개요의 용도값이 숫자가아니므로 1로 설정합니다"))
|
|
||||||
DSET1.tbl_Desc.Rows(0)("isjugo") = "1"
|
|
||||||
End If
|
|
||||||
|
|
||||||
'//그룹명이없는경우 처리함(130810:arin)
|
|
||||||
For Each dr As DS.tbl_zoneRow In DSET1.tbl_zone.Select("isnull(그룹,'')=''")
|
|
||||||
pLog.Add(String.Format("그룹명이없는 경우이므로 '기본'으로 설정합니다 Zone Code={0}", dr.code))
|
|
||||||
dr.그룹 = "기본"
|
|
||||||
Next
|
|
||||||
|
|
||||||
'//월별에너지사용량데이터영역생성(130819:arin)
|
|
||||||
If DSET1.tbl_monuse.Rows.Count = 0 Then
|
|
||||||
For y As Integer = 1 To 3
|
|
||||||
Dim idx As String = y.ToString("0000")
|
|
||||||
For i As Integer = 1 To 12
|
|
||||||
DSET1.tbl_monuse.Rows.Add(New String() {y.ToString() + "차년도", i.ToString("00"), "0", "0", "0", idx}) '//년,월,도시가스,전력,지역난방,코드
|
|
||||||
Next
|
|
||||||
Next
|
|
||||||
End If
|
|
||||||
|
|
||||||
'//140808 데이터 기본값 처리
|
|
||||||
'//입력존
|
|
||||||
If Not DSET1 Is Nothing Then
|
|
||||||
For i As Integer = 1 To DSET1.tbl_zone.Rows.Count
|
|
||||||
|
|
||||||
'//순실체적 재계산 150111
|
|
||||||
'순실체적NTb.Text = TOST(TOSG(면적NTb.Text) * TOSG(천장고NTb.Text))
|
|
||||||
Dim 면적 As String = ""
|
|
||||||
Dim 천장고 As String = ""
|
|
||||||
Dim 순실체적 As String = ""
|
|
||||||
Try
|
|
||||||
면적 = DSET1.tbl_zone.Rows(i - 1)("면적").ToString
|
|
||||||
Catch ex As Exception
|
|
||||||
면적 = ""
|
|
||||||
End Try
|
|
||||||
Try
|
|
||||||
천장고 = DSET1.tbl_zone.Rows(i - 1)("천장고p").ToString
|
|
||||||
Catch ex As Exception
|
|
||||||
천장고 = ""
|
|
||||||
End Try
|
|
||||||
Try
|
|
||||||
순실체적 = DSET1.tbl_zone.Rows(i - 1)("순실체적").ToString
|
|
||||||
Catch ex As Exception
|
|
||||||
순실체적 = ""
|
|
||||||
End Try
|
|
||||||
If IsNumeric(면적) AndAlso IsNumeric(천장고) Then
|
|
||||||
If Not IsNumeric(순실체적) Then
|
|
||||||
' MsgBox("순실체적값이 없으므로 재계산 합니다", MsgBoxStyle.Information, "확인")
|
|
||||||
DSET1.tbl_zone.Rows(i - 1)("순실체적") = CSng(면적) * CSng(천장고)
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
If DSET1.tbl_zone.Rows(i - 1).RowState = DataRowState.Deleted OrElse _
|
|
||||||
DSET1.tbl_zone.Rows(i - 1).RowState = DataRowState.Detached Then
|
|
||||||
Continue For
|
|
||||||
End If
|
|
||||||
Dim StrCode As String = DSET1.tbl_zone.Rows(i - 1)("code").ToString
|
|
||||||
If StrCode.Length = 4 Then
|
|
||||||
DSET1.tbl_zone.Rows(i - 1)("code") = "0" + StrCode
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
DSET1.tbl_zone.AcceptChanges()
|
|
||||||
End If
|
|
||||||
|
|
||||||
If Not DSET2 Is Nothing Then
|
|
||||||
For i As Integer = 1 To DSET2.tbl_zone.Rows.Count
|
|
||||||
If DSET2.tbl_zone.Rows(i - 1).RowState = DataRowState.Deleted OrElse _
|
|
||||||
DSET2.tbl_zone.Rows(i - 1).RowState = DataRowState.Detached Then
|
|
||||||
Continue For
|
|
||||||
End If
|
|
||||||
Dim StrCode As String = DSET2.tbl_zone.Rows(i - 1)("code").ToString
|
|
||||||
If StrCode.Length = 4 Then
|
|
||||||
DSET2.tbl_zone.Rows(i - 1)("code") = "0" + StrCode
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
DSET2.tbl_zone.AcceptChanges()
|
|
||||||
End If
|
|
||||||
|
|
||||||
'//입력면
|
|
||||||
If Not DSET1 Is Nothing Then
|
|
||||||
For i As Integer = 1 To DSET1.tbl_myoun.Rows.Count
|
|
||||||
If DSET1.tbl_myoun.Rows(i - 1).RowState = DataRowState.Deleted OrElse _
|
|
||||||
DSET1.tbl_myoun.Rows(i - 1).RowState = DataRowState.Detached Then
|
|
||||||
Continue For
|
|
||||||
End If
|
|
||||||
Dim StrCode As String = DSET1.tbl_myoun.Rows(i - 1)("code").ToString
|
|
||||||
If StrCode.Length = 4 Then
|
|
||||||
DSET1.tbl_myoun.Rows(i - 1)("code") = "0" + StrCode
|
|
||||||
End If
|
|
||||||
|
|
||||||
Dim StrCode2 As String = DSET1.tbl_myoun.Rows(i - 1)("존분류").ToString
|
|
||||||
If StrCode2.Length = 4 Then
|
|
||||||
DSET1.tbl_myoun.Rows(i - 1)("존분류") = "0" + StrCode2
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
DSET1.tbl_myoun.AcceptChanges()
|
|
||||||
End If
|
|
||||||
|
|
||||||
If Not DSET2 Is Nothing Then
|
|
||||||
For i As Integer = 1 To DSET2.tbl_myoun.Rows.Count
|
|
||||||
If DSET2.tbl_myoun.Rows(i - 1).RowState = DataRowState.Deleted OrElse _
|
|
||||||
DSET2.tbl_myoun.Rows(i - 1).RowState = DataRowState.Detached Then
|
|
||||||
Continue For
|
|
||||||
End If
|
|
||||||
Dim StrCode As String = DSET2.tbl_myoun.Rows(i - 1)("code").ToString
|
|
||||||
If StrCode.Length = 4 Then
|
|
||||||
DSET2.tbl_myoun.Rows(i - 1)("code") = "0" + StrCode
|
|
||||||
End If
|
|
||||||
|
|
||||||
Dim StrCode2 As String = DSET2.tbl_myoun.Rows(i - 1)("존분류").ToString
|
|
||||||
If StrCode2.Length = 4 Then
|
|
||||||
DSET2.tbl_myoun.Rows(i - 1)("존분류") = "0" + StrCode2
|
|
||||||
End If
|
|
||||||
|
|
||||||
Next
|
|
||||||
DSET2.tbl_myoun.AcceptChanges()
|
|
||||||
End If
|
|
||||||
|
|
||||||
Frm_Work.Close()
|
Frm_Work.Close()
|
||||||
|
|
||||||
@@ -999,10 +851,6 @@ Public Class MdiMain
|
|||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Read_WeatherFile()
|
Read_WeatherFile()
|
||||||
|
|
||||||
Menu_건물개요()
|
Menu_건물개요()
|
||||||
@@ -1077,6 +925,160 @@ Public Class MdiMain
|
|||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Sub FixData(isNew As Boolean)
|
||||||
|
|
||||||
|
If DSET1.tbl_buha.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_buha.Rows.Add(New String() {"0", "(없음)"})
|
||||||
|
If DSET1.tbl_bunbae.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_bunbae.Rows.Add(New String() {"0", "(없음)"})
|
||||||
|
If DSET1.tbl_kongjo.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_kongjo.Rows.Add(New String() {"0", "(없음)"})
|
||||||
|
If DSET1.tbl_kongkub.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_kongkub.Rows.Add(New String() {"0", "(없음)"})
|
||||||
|
If DSET1.tbl_myoun.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_myoun.Rows.Add(New String() {"0", "(없음)"})
|
||||||
|
If DSET1.tbl_nanbangkiki.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_nanbangkiki.Rows.Add(New String() {"0", "(없음)"})
|
||||||
|
If DSET1.tbl_nangbangkiki.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_nangbangkiki.Rows.Add(New String() {"0", "(없음)"})
|
||||||
|
If DSET1.tbl_nbunbae.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_nbunbae.Rows.Add(New String() {"0", "(없음)"})
|
||||||
|
If DSET1.tbl_new.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_new.Rows.Add(New String() {"0", "(없음)"})
|
||||||
|
If DSET1.tbl_profile.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_profile.Rows.Add(New String() {"0", "(없음)"})
|
||||||
|
If DSET1.tbl_weather.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_weather.Rows.Add(New String() {"0", "(없음)"})
|
||||||
|
If DSET1.tbl_zone.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_zone.Rows.Add(New String() {"0", "(없음)"})
|
||||||
|
If DSET1.tbl_yk.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_yk.Rows.Add(New String() {"0", "(없음)"})
|
||||||
|
If DSET1.tbl_Desc.Rows.Count < 1 Then
|
||||||
|
MsgBox("건물개요데이터가 없으므로 초기자료를 생성합니다", MsgBoxStyle.Critical, "확인")
|
||||||
|
Dim newdescdr As DS.tbl_DescRow = DSET1.tbl_Desc.NewRow
|
||||||
|
newdescdr.name = "오류"
|
||||||
|
newdescdr.buildarea = "010100"
|
||||||
|
DSET1.tbl_Desc.Addtbl_DescRow(newdescdr)
|
||||||
|
DSET1.tbl_Desc.AcceptChanges()
|
||||||
|
Else
|
||||||
|
If isNew Then '//신규작성파일이 ㄴ경우
|
||||||
|
Dim drDesc1 As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
|
||||||
|
drDesc1.buildarea = "010100" '//서울로 지정
|
||||||
|
drDesc1.EndEdit()
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
'//건물용도기본값
|
||||||
|
Dim 용도 As String = DSET1.tbl_Desc.Rows(0)("isjugo").ToString
|
||||||
|
If IsNumeric(용도) = False Then
|
||||||
|
pLog.Add(String.Format("건물개요의 용도값이 숫자가아니므로 1로 설정합니다"))
|
||||||
|
DSET1.tbl_Desc.Rows(0)("isjugo") = "1"
|
||||||
|
End If
|
||||||
|
|
||||||
|
'//그룹명이없는경우 처리함(130810:arin)
|
||||||
|
For Each dr As DS.tbl_zoneRow In DSET1.tbl_zone.Select("isnull(그룹,'')=''")
|
||||||
|
pLog.Add(String.Format("그룹명이없는 경우이므로 '기본'으로 설정합니다 Zone Code={0}", dr.code))
|
||||||
|
dr.그룹 = "기본"
|
||||||
|
Next
|
||||||
|
|
||||||
|
'//월별에너지사용량데이터영역생성(130819:arin)
|
||||||
|
If DSET1.tbl_monuse.Rows.Count = 0 Then
|
||||||
|
For y As Integer = 1 To 3
|
||||||
|
Dim idx As String = y.ToString("0000")
|
||||||
|
For i As Integer = 1 To 12
|
||||||
|
DSET1.tbl_monuse.Rows.Add(New String() {y.ToString() + "차년도", i.ToString("00"), "0", "0", "0", idx}) '//년,월,도시가스,전력,지역난방,코드
|
||||||
|
Next
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
|
||||||
|
'//140808 데이터 기본값 처리
|
||||||
|
'//입력존
|
||||||
|
If Not DSET1 Is Nothing Then
|
||||||
|
For i As Integer = 1 To DSET1.tbl_zone.Rows.Count
|
||||||
|
|
||||||
|
'//순실체적 재계산 150111
|
||||||
|
'순실체적NTb.Text = TOST(TOSG(면적NTb.Text) * TOSG(천장고NTb.Text))
|
||||||
|
Dim 면적 As String = ""
|
||||||
|
Dim 천장고 As String = ""
|
||||||
|
Dim 순실체적 As String = ""
|
||||||
|
Try
|
||||||
|
면적 = DSET1.tbl_zone.Rows(i - 1)("면적").ToString
|
||||||
|
Catch ex As Exception
|
||||||
|
면적 = ""
|
||||||
|
End Try
|
||||||
|
Try
|
||||||
|
천장고 = DSET1.tbl_zone.Rows(i - 1)("천장고p").ToString
|
||||||
|
Catch ex As Exception
|
||||||
|
천장고 = ""
|
||||||
|
End Try
|
||||||
|
Try
|
||||||
|
순실체적 = DSET1.tbl_zone.Rows(i - 1)("순실체적").ToString
|
||||||
|
Catch ex As Exception
|
||||||
|
순실체적 = ""
|
||||||
|
End Try
|
||||||
|
If IsNumeric(면적) AndAlso IsNumeric(천장고) Then
|
||||||
|
If Not IsNumeric(순실체적) Then
|
||||||
|
' MsgBox("순실체적값이 없으므로 재계산 합니다", MsgBoxStyle.Information, "확인")
|
||||||
|
DSET1.tbl_zone.Rows(i - 1)("순실체적") = CSng(면적) * CSng(천장고)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If DSET1.tbl_zone.Rows(i - 1).RowState = DataRowState.Deleted OrElse _
|
||||||
|
DSET1.tbl_zone.Rows(i - 1).RowState = DataRowState.Detached Then
|
||||||
|
Continue For
|
||||||
|
End If
|
||||||
|
Dim StrCode As String = DSET1.tbl_zone.Rows(i - 1)("code").ToString
|
||||||
|
If StrCode.Length = 4 Then
|
||||||
|
DSET1.tbl_zone.Rows(i - 1)("code") = "0" + StrCode
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
DSET1.tbl_zone.AcceptChanges()
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Not DSET2 Is Nothing Then
|
||||||
|
For i As Integer = 1 To DSET2.tbl_zone.Rows.Count
|
||||||
|
If DSET2.tbl_zone.Rows(i - 1).RowState = DataRowState.Deleted OrElse _
|
||||||
|
DSET2.tbl_zone.Rows(i - 1).RowState = DataRowState.Detached Then
|
||||||
|
Continue For
|
||||||
|
End If
|
||||||
|
Dim StrCode As String = DSET2.tbl_zone.Rows(i - 1)("code").ToString
|
||||||
|
If StrCode.Length = 4 Then
|
||||||
|
DSET2.tbl_zone.Rows(i - 1)("code") = "0" + StrCode
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
DSET2.tbl_zone.AcceptChanges()
|
||||||
|
End If
|
||||||
|
|
||||||
|
'//입력면
|
||||||
|
If Not DSET1 Is Nothing Then
|
||||||
|
For i As Integer = 1 To DSET1.tbl_myoun.Rows.Count
|
||||||
|
If DSET1.tbl_myoun.Rows(i - 1).RowState = DataRowState.Deleted OrElse _
|
||||||
|
DSET1.tbl_myoun.Rows(i - 1).RowState = DataRowState.Detached Then
|
||||||
|
Continue For
|
||||||
|
End If
|
||||||
|
Dim StrCode As String = DSET1.tbl_myoun.Rows(i - 1)("code").ToString
|
||||||
|
If StrCode.Length = 4 Then
|
||||||
|
DSET1.tbl_myoun.Rows(i - 1)("code") = "0" + StrCode
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim StrCode2 As String = DSET1.tbl_myoun.Rows(i - 1)("존분류").ToString
|
||||||
|
If StrCode2.Length = 4 Then
|
||||||
|
DSET1.tbl_myoun.Rows(i - 1)("존분류") = "0" + StrCode2
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
DSET1.tbl_myoun.AcceptChanges()
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Not DSET2 Is Nothing Then
|
||||||
|
For i As Integer = 1 To DSET2.tbl_myoun.Rows.Count
|
||||||
|
If DSET2.tbl_myoun.Rows(i - 1).RowState = DataRowState.Deleted OrElse _
|
||||||
|
DSET2.tbl_myoun.Rows(i - 1).RowState = DataRowState.Detached Then
|
||||||
|
Continue For
|
||||||
|
End If
|
||||||
|
Dim StrCode As String = DSET2.tbl_myoun.Rows(i - 1)("code").ToString
|
||||||
|
If StrCode.Length = 4 Then
|
||||||
|
DSET2.tbl_myoun.Rows(i - 1)("code") = "0" + StrCode
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim StrCode2 As String = DSET2.tbl_myoun.Rows(i - 1)("존분류").ToString
|
||||||
|
If StrCode2.Length = 4 Then
|
||||||
|
DSET2.tbl_myoun.Rows(i - 1)("존분류") = "0" + StrCode2
|
||||||
|
End If
|
||||||
|
|
||||||
|
Next
|
||||||
|
DSET2.tbl_myoun.AcceptChanges()
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
Public Sub Open_File_Only_weather(ByVal FileName As String, Optional ByVal SyncServer As Boolean = False, Optional checkVersion As Boolean = True, Optional silent As Boolean = False, Optional isNew As Boolean = False)
|
Public Sub Open_File_Only_weather(ByVal FileName As String, Optional ByVal SyncServer As Boolean = False, Optional checkVersion As Boolean = True, Optional silent As Boolean = False, Optional isNew As Boolean = False)
|
||||||
|
|
||||||
|
|
||||||
@@ -2484,6 +2486,10 @@ ENDSTAT: '//
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub 열기ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles btOpen.Click
|
Private Sub 열기ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles btOpen.Click
|
||||||
|
OpenFile()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub OpenFile()
|
||||||
If Prj.LoginTime = "" Then
|
If Prj.LoginTime = "" Then
|
||||||
MsgBox("먼저 로그인을 하세요", MsgBoxStyle.Information, "확인")
|
MsgBox("먼저 로그인을 하세요", MsgBoxStyle.Information, "확인")
|
||||||
Frm_Intro.Activate()
|
Frm_Intro.Activate()
|
||||||
@@ -2800,7 +2806,7 @@ ENDSTAT: '//
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub ToolStripButton2_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton2.Click
|
Private Sub ToolStripButton2_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton2.Click
|
||||||
btOpen.PerformClick()
|
OpenFile()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
@@ -3392,6 +3398,12 @@ ENDSTAT: '//
|
|||||||
Pub.DSET1.AcceptChanges()
|
Pub.DSET1.AcceptChanges()
|
||||||
Dim xr As XmlReadMode = Pub.DSET1.ReadXml(od.FileName)
|
Dim xr As XmlReadMode = Pub.DSET1.ReadXml(od.FileName)
|
||||||
Pub.DSET1.AcceptChanges()
|
Pub.DSET1.AcceptChanges()
|
||||||
|
|
||||||
|
FixData(False) '//데이터보정
|
||||||
|
Calc.validation() '//null보정
|
||||||
|
Menu_건물개요()
|
||||||
|
Me.RefreshMenuList("")
|
||||||
|
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
MsgboxE("외부파일 가져오기 실패\n" + ex.Message)
|
MsgboxE("외부파일 가져오기 실패\n" + ex.Message)
|
||||||
End Try
|
End Try
|
||||||
|
|||||||
Reference in New Issue
Block a user