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)
Dim oSQL = $"SELECT DOCORIGINALNAME
FROM {Config.sltConfiguration.sltDatabase}
WHERE EXT_DOC_ID = {pDocument.ExtDocId}"
FROM {Config.sltConfiguration.sltDatabase}.[EXTDOCS]
WHERE EXTDOCID = '{pDocument.ExtDocId}'"
Dim oResult As Object = Await Database.GetScalarValueAsync(oSQL)
Dim oFileNameOriginal As String = ObjectEx.NotNull(Of String)(oResult.ToString, "")

7
Connectors.Form/frmMain.vb
View File

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