AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS Änderungen dokumnetart Konfiguration

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2019-01-11 15:29:01 +01:00
parent a56087cab3
commit f5eae6a1d8
7 changed files with 76 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
app/DD-Record-Organizer/frmMain.vb
View File

@@ -120,6 +120,7 @@ Public Class frmMain
Catch ex As Exception
MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
If LogErrorsOnly = False Then ClassLogger.Add(">> FormLoad finished!", False)
Proxy_Server_Controls()
CONN_Manager
@@ -151,14 +152,19 @@ Public Class frmMain
End Try
End Sub
Sub Proxy_Server_Controls()
If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED = True Then
'itemRefreshProxy.Visibility = BarItemVisibility.Always
LabelProxyServer.Visibility = BarItemVisibility.Always
ClassLogger.Add(">> PROXY-SERVER is being used", False)
Else
'itemRefreshProxy.Visibility = BarItemVisibility.Never
LabelProxyServer.Visibility = BarItemVisibility.Never
End If
Try
If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED = True Then
'itemRefreshProxy.Visibility = BarItemVisibility.Always
LabelProxyServer.Visibility = BarItemVisibility.Always
ClassLogger.Add(">> PROXY-SERVER is being used", False)
Else
'itemRefreshProxy.Visibility = BarItemVisibility.Never
LabelProxyServer.Visibility = BarItemVisibility.Never
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Sub Proxy_Server_Controls():" & ex.Message, True)
End Try
End Sub
Public Sub RUN_TIMER()
Try
@@ -574,12 +580,19 @@ Public Class frmMain
Try
If ClassUpdate.Init = True And Not IsNothing(ClassUpdate.DT_UPDATE_ITEMS) Then
'MsgBox("532")
If Not IsNothing(ClassUpdate.DT_UPDATE) And Not IsNothing(ClassUpdate.DT_UPDATE_ITEMS) Then
If Not IsNothing(ClassUpdate.DT_UPDATE) Then
If ClassUpdate.DT_UPDATE_ITEMS.Rows.Count > 0 Then
If ClassUpdate.InitUser = False Then
Me.Cursor = Cursors.Default
Exit Sub
Else
If ClassUpdate.DT_USER_DATA.Rows.Count = 1 Or ClassUpdate.ALL_USERS = True Then
If ClassUpdate.InitInstallPath() = False Then
Exit Sub
End If
End If
ClassUpdate.RUN_UPDATE()
If ClassUpdate.UPDATE_ERROR = True Then
Dim msg = String.Format("Während des Updatevorgangs für Version '{0}' haben sich unerwartet Fehler ereignet!" & vbNewLine & "Wollen Sie die Logdatei anzeigen?", ClassUpdate.VERSION_SERVER)