From 260b81f0c47db1f889def35cc9646afa8210ffec Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Fri, 22 Sep 2023 14:22:20 +0200 Subject: [PATCH] Smol fixes --- Connectors.Common/Modules/slt/sltSync.vb | 4 ++-- Connectors.Form/frmMain.vb | 15 +++++---------- 2 files changed, 7 insertions(+), 12 deletions(-) diff --git a/Connectors.Common/Modules/slt/sltSync.vb b/Connectors.Common/Modules/slt/sltSync.vb index 14bc1d1..c0021a6 100644 --- a/Connectors.Common/Modules/slt/sltSync.vb +++ b/Connectors.Common/Modules/slt/sltSync.vb @@ -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, "") diff --git a/Connectors.Form/frmMain.vb b/Connectors.Form/frmMain.vb index b40c75b..26f3fc2 100644 --- a/Connectors.Form/frmMain.vb +++ b/Connectors.Form/frmMain.vb @@ -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 + AddInfoEntry("Starting timer..") + btnStopSync.Enabled = True + btnSyncStart.Enabled = False + SyncTimer.Enabled = True End Sub Private Sub StopTimer()