AppCustom/sltSync
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Smol fixes

Browse Source
This commit is contained in:
Jonathan Jenne 2023-09-22 14:22:20 +02:00
parent 74a9dbc486
commit 260b81f0c4
2 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Connectors.Common/Modules/slt/sltSync.vb
View File

@ -244,8 +244,8 @@ Namespace slt
Logger.Debug("Fetching document details with ExtDocId [{0}]", pDocument.ExtDocId) Logger.Debug("Fetching document details with ExtDocId [{0}]", pDocument.ExtDocId)
Dim oSQL = $"SELECT DOCORIGINALNAME Dim oSQL = $"SELECT DOCORIGINALNAME
FROM {Config.sltConfiguration.sltDatabase} FROM {Config.sltConfiguration.sltDatabase}.[EXTDOCS]
WHERE EXT_DOC_ID = {pDocument.ExtDocId}" WHERE EXTDOCID = '{pDocument.ExtDocId}'"
Dim oResult As Object = Await Database.GetScalarValueAsync(oSQL) Dim oResult As Object = Await Database.GetScalarValueAsync(oSQL)
Dim oFileNameOriginal As String = ObjectEx.NotNull(Of String)(oResult.ToString, "") Dim oFileNameOriginal As String = ObjectEx.NotNull(Of String)(oResult.ToString, "")

15
Connectors.Form/frmMain.vb
View File

@ -71,7 +71,7 @@ Partial Public Class frmMain
Exit Sub Exit Sub
End If End If
If Sync.TestConfigIsComplete() Then If Sync.TestConfigIsComplete() = False Then
AddWarnEntry("Configuration is incomplete, check your configuration!") AddWarnEntry("Configuration is incomplete, check your configuration!")
Exit Sub Exit Sub
End If End If
@ -154,15 +154,10 @@ Partial Public Class frmMain
End Function End Function
Private Sub StartTimer() Private Sub StartTimer()
If Sync.TestConfigIsComplete() = False Then AddInfoEntry("Starting timer..")
AddInfoEntry("Configuration is incomplete. Stopping.") btnStopSync.Enabled = True
AddDivider() btnSyncStart.Enabled = False
Else SyncTimer.Enabled = True
AddInfoEntry("Starting timer..")
btnStopSync.Enabled = True
btnSyncStart.Enabled = False
SyncTimer.Enabled = True
End If
End Sub End Sub
Private Sub StopTimer() Private Sub StopTimer()