MS: Logging AppServer not connected

This commit is contained in:
SchreiberM 2021-09-23 10:41:36 +02:00
parent 8f42e5235c
commit 3f454c312d
4 changed files with 7 additions and 4 deletions

View File

@ -104,6 +104,8 @@ Public Class ClassInit
If _Client.Connect() Then
EDMIAppServerActive = True
LOGGER.Info($"EDMIAppServer [{oAppServer}] is active!")
Else
LOGGER.Warn($"#### !!! Could not Connect to APPServer [{oAppServer}]!!! ###")
End If
End If
Catch ex As Exception

View File

@ -578,6 +578,7 @@ Partial Class frmMain
Me.bsilastsync.ImageOptions.Image = CType(resources.GetObject("bsilastsync.ImageOptions.Image"), System.Drawing.Image)
Me.bsilastsync.ImageOptions.LargeImage = CType(resources.GetObject("bsilastsync.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bsilastsync.Name = "bsilastsync"
Me.bsilastsync.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
'
'bsiDebug
'

View File

@ -125,7 +125,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAAaQBBwGkAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CAAAAk1TRnQBSQFMAgEBAgEAAawBBwGsAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@ -1182,7 +1182,7 @@
</value>
</data>
<data name="bbtnitmGhostMode.Caption" xml:space="preserve">
<value>Ghost Mode (Beta)</value>
<value>Ghost Mode</value>
</data>
<data name="bbtnitmGhostMode.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

View File

@ -5654,7 +5654,7 @@ Public Class frmValidator
Dim oSQLGetFilename As String
oSQLGetFilename = $"DECLARE @Filename Varchar(512) " & vbNewLine &
$"EXEC dbo.PRPM_GETFILENAME_EXPORT {CURRENT_DOC_ID}, 1, @Outputfilename = @Filename OUTPUT;" & vbNewLine &
"SELECT Filename"
"SELECT @Filename"
Dim oExportFilename = Database_ECM.GetScalarValue(oSQLGetFilename)
oTargetPath = FolderBrowserDialog1.SelectedPath & "\" & oExportFilename & oExtension
@ -5669,7 +5669,7 @@ Public Class frmValidator
oFileCount += 1
oSQLGetFilename = $"DECLARE @Filename Varchar(512) " & vbNewLine &
$"EXEC dbo.PRPM_GETFILENAME_EXPORT {oDocID}, {oFileCount}, @Outputfilename = @Filename OUTPUT;" & vbNewLine &
"SELECT Filename"
"SELECT @Filename"
oExportFilename = Database_ECM.GetScalarValue(oSQLGetFilename)
oExtension = Path.GetExtension(oFromFilename)