파일 열기 메뉴 펑션으로 분리
데이터 정정 작업을 펑션으로 분리하고, import 기능에서도 추가 호출 가져오기시 메뉴 자동 업데이트 되도록 함
This commit is contained in:
chi
@@ -711,6 +711,222 @@ Public Class MdiMain
|
|||||||
Frm_Work.Label1.Text = "데이터를 확인하고 있습니다"
|
Frm_Work.Label1.Text = "데이터를 확인하고 있습니다"
|
||||||
Frm_Work.Show()
|
Frm_Work.Show()
|
||||||
|
|
||||||
|
FixData(isNew) '//221218 chi import 기능과 공유하기 위해 데이터 보정기능을 분리
|
||||||
|
|
||||||
|
Frm_Work.Close()
|
||||||
|
|
||||||
|
'//weather
|
||||||
|
Read_WeatherFile()
|
||||||
|
|
||||||
|
Calc = New Calculator(Prj.LGVersino, DSET1, DSETR1, Result1, False) '//계삭식클래스 초기화
|
||||||
|
Me.bt_filesave.Enabled = True
|
||||||
|
'Me.bt_newsave.Enabled = True
|
||||||
|
Refresh_info() '//화면하단의 정보창표시
|
||||||
|
|
||||||
|
'If Prj.UserId.ToLower() <> "guest" AndAlso SyncServer Then '//공용및 기상데이터 자동싱크
|
||||||
|
' pLog.Add("SyncServer ON")
|
||||||
|
' Read_CommonCode()
|
||||||
|
' Read_WeatherData()
|
||||||
|
' Read_ProfileData()
|
||||||
|
'End If
|
||||||
|
|
||||||
|
'//접수일,인증데인터확인 / 13-12-05 / arin
|
||||||
|
Dim Drdesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
|
||||||
|
If Drdesc.injungdate.Trim = "" Then Drdesc.injungdate = Now.ToString("yyyy-MM-dd")
|
||||||
|
If Drdesc.jubsudate.Trim = "" Then Drdesc.jubsudate = Now.ToString("yyyy-MM-dd")
|
||||||
|
If Drdesc.용도수수료입금일 = "" Then Drdesc.용도수수료입금일 = Now.ToString("yyyy-MM-dd")
|
||||||
|
If Drdesc.reqdate = "" Then Drdesc.reqdate = Now.ToString("yyyy-MM-dd")
|
||||||
|
If Drdesc.existdate = "" Then Drdesc.existdate = Now.ToString("yyyy-MM-dd")
|
||||||
|
If Drdesc.공공 = "" Then Drdesc.공공 = "1"
|
||||||
|
|
||||||
|
DSET1.tbl_Desc.AcceptChanges()
|
||||||
|
|
||||||
|
'//160327 ui버젼체크
|
||||||
|
If checkVersion Then
|
||||||
|
If Prj.UIVersion <> CurrentUIVersion() Then
|
||||||
|
|
||||||
|
If CInt(Prj.UIVersion.Substring(0, 4)) >= 2016 Then
|
||||||
|
MsgBox("해당 파일은 현재 프로그램과 동일한 버젼에서 생성된 파일이 아닙니다" + vbCrLf + vbCrLf + _
|
||||||
|
"파일 Version : " + Prj.UIVersion + vbCrLf + _
|
||||||
|
"현재 Version : " + CurrentUIVersion() + vbCrLf + vbCrLf + _
|
||||||
|
"파일을 생성한 버젼과 결과 혹은 화면이 일치하지 않을 수 있습니다", MsgBoxStyle.Information, "버전확인")
|
||||||
|
Else
|
||||||
|
MsgBox("해당 파일은 현재 프로그램과 동일한 버젼에서 생성된 파일이 아닙니다" + vbCrLf + vbCrLf + _
|
||||||
|
"파일 Version : " + vbCrLf + _
|
||||||
|
"현재 Version : " + CurrentUIVersion() + vbCrLf + vbCrLf + _
|
||||||
|
"파일을 생성한 버젼과 결과 혹은 화면이 일치하지 않을 수 있습니다", MsgBoxStyle.Information, "버전확인")
|
||||||
|
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
'//현재 연 파일명을 기록해준다.
|
||||||
|
Me.Save_FilHistory(Prj.FileName)
|
||||||
|
Me.Read_FilHistory()
|
||||||
|
|
||||||
|
Calc.validation() '//null보정
|
||||||
|
|
||||||
|
'//팡리명이 너무길면안되니 경로를 뺴고 딱 파일명만 보여줍니다.
|
||||||
|
Me.lbl_filename.Text = Prj.FileName.Substring(Prj.FileName.LastIndexOf("\") + 1)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If Prj.UserId.ToLower() <> "guest" AndAlso Not Prj.UserId.ToLower().StartsWith("user") Then '//191020
|
||||||
|
|
||||||
|
'//Version 정보를 확인
|
||||||
|
Dim MyVersion As String = ""
|
||||||
|
Dim VersionInfo As ArinLogin.ArinLOgin.sVersionInfo = Nothing
|
||||||
|
|
||||||
|
Work_msg("데이터 버젼확인중")
|
||||||
|
'= Format(My.Application.Info.Version.Minor, "0000") & Format(My.Application.Info.Version.Build, "0000")
|
||||||
|
Dim L As New ArinLogin.ArinLOgin
|
||||||
|
|
||||||
|
'/공용코드버젼확인
|
||||||
|
Try
|
||||||
|
MyVersion = DSET1.tbl_Desc.Rows(0)("versionc").ToString
|
||||||
|
If MyVersion = "" Then MyVersion = "20100101"
|
||||||
|
Catch ex As Exception
|
||||||
|
MyVersion = "20100101"
|
||||||
|
End Try
|
||||||
|
|
||||||
|
pLog.Add(String.Format("공용코드버젼 = {0}", MyVersion))
|
||||||
|
|
||||||
|
Try
|
||||||
|
|
||||||
|
VersionInfo = L.Get_LastVersion("C2") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
|
||||||
|
If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다.
|
||||||
|
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
|
||||||
|
Dim Msg As New System.Text.StringBuilder
|
||||||
|
Msg.AppendLine("새로운 버젼이 확인되었습니다" & vbCrLf)
|
||||||
|
Msg.AppendLine("현재버젼:" & MyVersion & " 신규버젼:" & VersionInfo.Ver)
|
||||||
|
Msg.AppendLine("----------------------------------")
|
||||||
|
Msg.AppendLine(VersionInfo.Desc)
|
||||||
|
Msg.AppendLine("----------------------------------")
|
||||||
|
If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://홈페이지주소"
|
||||||
|
' Msg.AppendLine("신규버젼을 확인하기위한 페이지를 여시겠습니까?")
|
||||||
|
If MsgBox(Msg.ToString, MsgBoxStyle.Information, "버젼확인") = MsgBoxResult.Ok Then
|
||||||
|
'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
|
||||||
|
' End
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox("공용코드 에러" & ex.Message.ToString)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
'/표준프로파일버젼확인 '//2010.12.06 추가
|
||||||
|
Try
|
||||||
|
MyVersion = DSET1.tbl_Desc.Rows(0)("versionp").ToString
|
||||||
|
If MyVersion = "" Then MyVersion = "20100101"
|
||||||
|
Catch ex As Exception
|
||||||
|
MyVersion = "20100101"
|
||||||
|
End Try
|
||||||
|
|
||||||
|
pLog.Add(String.Format("표준프로파일버젼 = {0}", MyVersion))
|
||||||
|
|
||||||
|
Try
|
||||||
|
VersionInfo = L.Get_LastVersion("P2") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
|
||||||
|
If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다.
|
||||||
|
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
|
||||||
|
Dim Msg As New System.Text.StringBuilder
|
||||||
|
Msg.AppendLine("새로운 버젼이 확인되었습니다" & vbCrLf)
|
||||||
|
Msg.AppendLine("현재버젼:" & MyVersion & " 신규버젼:" & VersionInfo.Ver)
|
||||||
|
Msg.AppendLine("----------------------------------")
|
||||||
|
Msg.AppendLine(VersionInfo.Desc)
|
||||||
|
Msg.AppendLine("----------------------------------")
|
||||||
|
If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://홈페이지주소"
|
||||||
|
' Msg.AppendLine("신규버젼을 확인하기위한 페이지를 여시겠습니까?")
|
||||||
|
If MsgBox(Msg.ToString, MsgBoxStyle.Information, "버젼확인") = MsgBoxResult.Ok Then
|
||||||
|
'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
|
||||||
|
' End
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox("표준프로파일 에러" & ex.Message.ToString)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
Read_WeatherFile()
|
||||||
|
|
||||||
|
Menu_건물개요()
|
||||||
|
|
||||||
|
'/기상데이터버젼확인
|
||||||
|
'Try
|
||||||
|
' MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
|
||||||
|
' If MyVersion = "" Then MyVersion = "20100101"
|
||||||
|
'Catch ex As Exception
|
||||||
|
' MyVersion = "20100101"
|
||||||
|
'End Try
|
||||||
|
|
||||||
|
'pLog.Add(String.Format("기상데이터버젼 = {0}", MyVersion))
|
||||||
|
'If Prj.UserId.ToLower() <> "guest" AndAlso Not Prj.UserId.ToLower().StartsWith("user") Then '//191020
|
||||||
|
' Try
|
||||||
|
' 'MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
|
||||||
|
' VersionInfo = L.Get_LastVersion("W2") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
|
||||||
|
' If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다.
|
||||||
|
' If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
|
||||||
|
' Dim Msg As New System.Text.StringBuilder
|
||||||
|
' Msg.AppendLine("새로운 버젼이 확인되었습니다" & vbCrLf)
|
||||||
|
' Msg.AppendLine("현재버젼:" & MyVersion & " 신규버젼:" & VersionInfo.Ver)
|
||||||
|
' Msg.AppendLine("----------------------------------")
|
||||||
|
' Msg.AppendLine(VersionInfo.Desc)
|
||||||
|
' Msg.AppendLine("----------------------------------")
|
||||||
|
' If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://홈페이지주소"
|
||||||
|
' ' Msg.AppendLine("신규버젼을 확인하기위한 페이지를 여시겠습니까?")
|
||||||
|
' If MsgBox(Msg.ToString, MsgBoxStyle.Information, "버젼확인") = MsgBoxResult.Ok Then
|
||||||
|
' 'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
|
||||||
|
' ' End
|
||||||
|
' End If
|
||||||
|
' End If
|
||||||
|
' End If
|
||||||
|
' Catch ex As Exception
|
||||||
|
|
||||||
|
' End Try
|
||||||
|
'End If
|
||||||
|
|
||||||
|
PrjChanged = False
|
||||||
|
|
||||||
|
Me.RefreshMenuList("")
|
||||||
|
Work_msg("")
|
||||||
|
pLog.Add("FileOpened")
|
||||||
|
|
||||||
|
'//백업기능을 넣는다 160509
|
||||||
|
If Not FileName.ToLower.StartsWith("open_") Then
|
||||||
|
Dim bakdi As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Backup")
|
||||||
|
If bakdi.Exists = False Then bakdi.Create()
|
||||||
|
Dim oldfi As New System.IO.FileInfo(FileName)
|
||||||
|
Dim newfi As New System.IO.FileInfo(bakdi.FullName + "\open_" + oldfi.Name)
|
||||||
|
Try
|
||||||
|
oldfi.CopyTo(newfi.FullName)
|
||||||
|
Catch ex As Exception
|
||||||
|
pLog.Add("backup 실패 old=" + oldfi.FullName + ",new=" + newfi.FullName)
|
||||||
|
End Try
|
||||||
|
End If
|
||||||
|
|
||||||
|
Else
|
||||||
|
pLog.Add("Open File Error", True)
|
||||||
|
|
||||||
|
'//파일불러오기 실패로인해서 다음처리를 하지않는다.
|
||||||
|
Dim bakdi As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Backup")
|
||||||
|
Dim oldfi As New System.IO.FileInfo(FileName)
|
||||||
|
Dim newfi As New System.IO.FileInfo(bakdi.FullName + "\open_" + oldfi.Name)
|
||||||
|
If newfi.Exists Then
|
||||||
|
If MsgBox("백업된 파일이 존재합니다." + vbCrLf + vbCrLf + _
|
||||||
|
"백업일자 : " + newfi.CreationTime.ToShortDateString + " " + newfi.CreationTime.ToShortTimeString + vbCrLf + "백업된 파일을 불러오시겠습니까?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, "확인") = MsgBoxResult.Yes Then
|
||||||
|
Open_File(newfi.FullName)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
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_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_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_kongjo.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_kongjo.Rows.Add(New String() {"0", "(없음)"})
|
||||||
@@ -861,220 +1077,6 @@ Public Class MdiMain
|
|||||||
DSET2.tbl_myoun.AcceptChanges()
|
DSET2.tbl_myoun.AcceptChanges()
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Frm_Work.Close()
|
|
||||||
|
|
||||||
'//weather
|
|
||||||
Read_WeatherFile()
|
|
||||||
|
|
||||||
Calc = New Calculator(Prj.LGVersino, DSET1, DSETR1, Result1, False) '//계삭식클래스 초기화
|
|
||||||
Me.bt_filesave.Enabled = True
|
|
||||||
'Me.bt_newsave.Enabled = True
|
|
||||||
Refresh_info() '//화면하단의 정보창표시
|
|
||||||
|
|
||||||
'If Prj.UserId.ToLower() <> "guest" AndAlso SyncServer Then '//공용및 기상데이터 자동싱크
|
|
||||||
' pLog.Add("SyncServer ON")
|
|
||||||
' Read_CommonCode()
|
|
||||||
' Read_WeatherData()
|
|
||||||
' Read_ProfileData()
|
|
||||||
'End If
|
|
||||||
|
|
||||||
'//접수일,인증데인터확인 / 13-12-05 / arin
|
|
||||||
Dim Drdesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
|
|
||||||
If Drdesc.injungdate.Trim = "" Then Drdesc.injungdate = Now.ToString("yyyy-MM-dd")
|
|
||||||
If Drdesc.jubsudate.Trim = "" Then Drdesc.jubsudate = Now.ToString("yyyy-MM-dd")
|
|
||||||
If Drdesc.용도수수료입금일 = "" Then Drdesc.용도수수료입금일 = Now.ToString("yyyy-MM-dd")
|
|
||||||
If Drdesc.reqdate = "" Then Drdesc.reqdate = Now.ToString("yyyy-MM-dd")
|
|
||||||
If Drdesc.existdate = "" Then Drdesc.existdate = Now.ToString("yyyy-MM-dd")
|
|
||||||
If Drdesc.공공 = "" Then Drdesc.공공 = "1"
|
|
||||||
|
|
||||||
DSET1.tbl_Desc.AcceptChanges()
|
|
||||||
|
|
||||||
'//160327 ui버젼체크
|
|
||||||
If checkVersion Then
|
|
||||||
If Prj.UIVersion <> CurrentUIVersion() Then
|
|
||||||
|
|
||||||
If CInt(Prj.UIVersion.Substring(0, 4)) >= 2016 Then
|
|
||||||
MsgBox("해당 파일은 현재 프로그램과 동일한 버젼에서 생성된 파일이 아닙니다" + vbCrLf + vbCrLf + _
|
|
||||||
"파일 Version : " + Prj.UIVersion + vbCrLf + _
|
|
||||||
"현재 Version : " + CurrentUIVersion() + vbCrLf + vbCrLf + _
|
|
||||||
"파일을 생성한 버젼과 결과 혹은 화면이 일치하지 않을 수 있습니다", MsgBoxStyle.Information, "버전확인")
|
|
||||||
Else
|
|
||||||
MsgBox("해당 파일은 현재 프로그램과 동일한 버젼에서 생성된 파일이 아닙니다" + vbCrLf + vbCrLf + _
|
|
||||||
"파일 Version : " + vbCrLf + _
|
|
||||||
"현재 Version : " + CurrentUIVersion() + vbCrLf + vbCrLf + _
|
|
||||||
"파일을 생성한 버젼과 결과 혹은 화면이 일치하지 않을 수 있습니다", MsgBoxStyle.Information, "버전확인")
|
|
||||||
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
'//현재 연 파일명을 기록해준다.
|
|
||||||
Me.Save_FilHistory(Prj.FileName)
|
|
||||||
Me.Read_FilHistory()
|
|
||||||
|
|
||||||
Calc.validation() '//null보정
|
|
||||||
|
|
||||||
'//팡리명이 너무길면안되니 경로를 뺴고 딱 파일명만 보여줍니다.
|
|
||||||
Me.lbl_filename.Text = Prj.FileName.Substring(Prj.FileName.LastIndexOf("\") + 1)
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If Prj.UserId.ToLower() <> "guest" AndAlso Not Prj.UserId.ToLower().StartsWith("user") Then '//191020
|
|
||||||
|
|
||||||
'//Version 정보를 확인
|
|
||||||
Dim MyVersion As String = ""
|
|
||||||
Dim VersionInfo As ArinLogin.ArinLOgin.sVersionInfo = Nothing
|
|
||||||
|
|
||||||
Work_msg("데이터 버젼확인중")
|
|
||||||
'= Format(My.Application.Info.Version.Minor, "0000") & Format(My.Application.Info.Version.Build, "0000")
|
|
||||||
Dim L As New ArinLogin.ArinLOgin
|
|
||||||
|
|
||||||
'/공용코드버젼확인
|
|
||||||
Try
|
|
||||||
MyVersion = DSET1.tbl_Desc.Rows(0)("versionc").ToString
|
|
||||||
If MyVersion = "" Then MyVersion = "20100101"
|
|
||||||
Catch ex As Exception
|
|
||||||
MyVersion = "20100101"
|
|
||||||
End Try
|
|
||||||
|
|
||||||
pLog.Add(String.Format("공용코드버젼 = {0}", MyVersion))
|
|
||||||
|
|
||||||
Try
|
|
||||||
|
|
||||||
VersionInfo = L.Get_LastVersion("C2") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
|
|
||||||
If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다.
|
|
||||||
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
|
|
||||||
Dim Msg As New System.Text.StringBuilder
|
|
||||||
Msg.AppendLine("새로운 버젼이 확인되었습니다" & vbCrLf)
|
|
||||||
Msg.AppendLine("현재버젼:" & MyVersion & " 신규버젼:" & VersionInfo.Ver)
|
|
||||||
Msg.AppendLine("----------------------------------")
|
|
||||||
Msg.AppendLine(VersionInfo.Desc)
|
|
||||||
Msg.AppendLine("----------------------------------")
|
|
||||||
If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://홈페이지주소"
|
|
||||||
' Msg.AppendLine("신규버젼을 확인하기위한 페이지를 여시겠습니까?")
|
|
||||||
If MsgBox(Msg.ToString, MsgBoxStyle.Information, "버젼확인") = MsgBoxResult.Ok Then
|
|
||||||
'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
|
|
||||||
' End
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
Catch ex As Exception
|
|
||||||
MsgBox("공용코드 에러" & ex.Message.ToString)
|
|
||||||
End Try
|
|
||||||
|
|
||||||
'/표준프로파일버젼확인 '//2010.12.06 추가
|
|
||||||
Try
|
|
||||||
MyVersion = DSET1.tbl_Desc.Rows(0)("versionp").ToString
|
|
||||||
If MyVersion = "" Then MyVersion = "20100101"
|
|
||||||
Catch ex As Exception
|
|
||||||
MyVersion = "20100101"
|
|
||||||
End Try
|
|
||||||
|
|
||||||
pLog.Add(String.Format("표준프로파일버젼 = {0}", MyVersion))
|
|
||||||
|
|
||||||
Try
|
|
||||||
VersionInfo = L.Get_LastVersion("P2") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
|
|
||||||
If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다.
|
|
||||||
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
|
|
||||||
Dim Msg As New System.Text.StringBuilder
|
|
||||||
Msg.AppendLine("새로운 버젼이 확인되었습니다" & vbCrLf)
|
|
||||||
Msg.AppendLine("현재버젼:" & MyVersion & " 신규버젼:" & VersionInfo.Ver)
|
|
||||||
Msg.AppendLine("----------------------------------")
|
|
||||||
Msg.AppendLine(VersionInfo.Desc)
|
|
||||||
Msg.AppendLine("----------------------------------")
|
|
||||||
If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://홈페이지주소"
|
|
||||||
' Msg.AppendLine("신규버젼을 확인하기위한 페이지를 여시겠습니까?")
|
|
||||||
If MsgBox(Msg.ToString, MsgBoxStyle.Information, "버젼확인") = MsgBoxResult.Ok Then
|
|
||||||
'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
|
|
||||||
' End
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
Catch ex As Exception
|
|
||||||
MsgBox("표준프로파일 에러" & ex.Message.ToString)
|
|
||||||
End Try
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Read_WeatherFile()
|
|
||||||
|
|
||||||
Menu_건물개요()
|
|
||||||
|
|
||||||
'/기상데이터버젼확인
|
|
||||||
'Try
|
|
||||||
' MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
|
|
||||||
' If MyVersion = "" Then MyVersion = "20100101"
|
|
||||||
'Catch ex As Exception
|
|
||||||
' MyVersion = "20100101"
|
|
||||||
'End Try
|
|
||||||
|
|
||||||
'pLog.Add(String.Format("기상데이터버젼 = {0}", MyVersion))
|
|
||||||
'If Prj.UserId.ToLower() <> "guest" AndAlso Not Prj.UserId.ToLower().StartsWith("user") Then '//191020
|
|
||||||
' Try
|
|
||||||
' 'MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
|
|
||||||
' VersionInfo = L.Get_LastVersion("W2") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
|
|
||||||
' If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다.
|
|
||||||
' If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
|
|
||||||
' Dim Msg As New System.Text.StringBuilder
|
|
||||||
' Msg.AppendLine("새로운 버젼이 확인되었습니다" & vbCrLf)
|
|
||||||
' Msg.AppendLine("현재버젼:" & MyVersion & " 신규버젼:" & VersionInfo.Ver)
|
|
||||||
' Msg.AppendLine("----------------------------------")
|
|
||||||
' Msg.AppendLine(VersionInfo.Desc)
|
|
||||||
' Msg.AppendLine("----------------------------------")
|
|
||||||
' If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://홈페이지주소"
|
|
||||||
' ' Msg.AppendLine("신규버젼을 확인하기위한 페이지를 여시겠습니까?")
|
|
||||||
' If MsgBox(Msg.ToString, MsgBoxStyle.Information, "버젼확인") = MsgBoxResult.Ok Then
|
|
||||||
' 'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
|
|
||||||
' ' End
|
|
||||||
' End If
|
|
||||||
' End If
|
|
||||||
' End If
|
|
||||||
' Catch ex As Exception
|
|
||||||
|
|
||||||
' End Try
|
|
||||||
'End If
|
|
||||||
|
|
||||||
PrjChanged = False
|
|
||||||
|
|
||||||
Me.RefreshMenuList("")
|
|
||||||
Work_msg("")
|
|
||||||
pLog.Add("FileOpened")
|
|
||||||
|
|
||||||
'//백업기능을 넣는다 160509
|
|
||||||
If Not FileName.ToLower.StartsWith("open_") Then
|
|
||||||
Dim bakdi As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Backup")
|
|
||||||
If bakdi.Exists = False Then bakdi.Create()
|
|
||||||
Dim oldfi As New System.IO.FileInfo(FileName)
|
|
||||||
Dim newfi As New System.IO.FileInfo(bakdi.FullName + "\open_" + oldfi.Name)
|
|
||||||
Try
|
|
||||||
oldfi.CopyTo(newfi.FullName)
|
|
||||||
Catch ex As Exception
|
|
||||||
pLog.Add("backup 실패 old=" + oldfi.FullName + ",new=" + newfi.FullName)
|
|
||||||
End Try
|
|
||||||
End If
|
|
||||||
|
|
||||||
Else
|
|
||||||
pLog.Add("Open File Error", True)
|
|
||||||
|
|
||||||
'//파일불러오기 실패로인해서 다음처리를 하지않는다.
|
|
||||||
Dim bakdi As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Backup")
|
|
||||||
Dim oldfi As New System.IO.FileInfo(FileName)
|
|
||||||
Dim newfi As New System.IO.FileInfo(bakdi.FullName + "\open_" + oldfi.Name)
|
|
||||||
If newfi.Exists Then
|
|
||||||
If MsgBox("백업된 파일이 존재합니다." + vbCrLf + vbCrLf + _
|
|
||||||
"백업일자 : " + newfi.CreationTime.ToShortDateString + " " + newfi.CreationTime.ToShortTimeString + vbCrLf + "백업된 파일을 불러오시겠습니까?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, "확인") = MsgBoxResult.Yes Then
|
|
||||||
Open_File(newfi.FullName)
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
End Sub
|
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