diff --git a/app/DD_PM_WINDREAM/App.config b/app/DD_PM_WINDREAM/App.config
index 57cf1a1..99138c5 100644
--- a/app/DD_PM_WINDREAM/App.config
+++ b/app/DD_PM_WINDREAM/App.config
@@ -15,7 +15,7 @@
False
- TEST
+ PROD
diff --git a/app/DD_PM_WINDREAM/My Project/Settings.Designer.vb b/app/DD_PM_WINDREAM/My Project/Settings.Designer.vb
index 5c31dd8..e691abb 100644
--- a/app/DD_PM_WINDREAM/My Project/Settings.Designer.vb
+++ b/app/DD_PM_WINDREAM/My Project/Settings.Designer.vb
@@ -300,7 +300,7 @@ Namespace My
_
+ Global.System.Configuration.DefaultSettingValueAttribute("PROD")> _
Public ReadOnly Property UserConfig_Prefix() As String
Get
Return CType(Me("UserConfig_Prefix"),String)
diff --git a/app/DD_PM_WINDREAM/My Project/Settings.settings b/app/DD_PM_WINDREAM/My Project/Settings.settings
index a5efc69..0407786 100644
--- a/app/DD_PM_WINDREAM/My Project/Settings.settings
+++ b/app/DD_PM_WINDREAM/My Project/Settings.settings
@@ -68,7 +68,7 @@
False
- TEST
+ PROD
\ No newline at end of file
diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx
index f97c102..62c206d 100644
--- a/app/DD_PM_WINDREAM/frmAdministration.resx
+++ b/app/DD_PM_WINDREAM/frmAdministration.resx
@@ -1843,7 +1843,7 @@
246
- 630, 299
+ 630, 385
93
@@ -1870,7 +1870,7 @@
630, 0
- 323, 299
+ 323, 385
91
@@ -1891,7 +1891,7 @@
3, 23
- 953, 299
+ 953, 385
94
@@ -1948,7 +1948,7 @@
3, 3, 3, 3
- 962, 313
+ 962, 399
0
@@ -2164,7 +2164,7 @@
3, 3
- 970, 342
+ 970, 428
92
@@ -2188,7 +2188,7 @@
3, 3, 3, 3
- 976, 348
+ 976, 434
1
@@ -2212,7 +2212,7 @@
6, 62
- 984, 377
+ 984, 463
6
@@ -2263,7 +2263,7 @@
3, 3, 3, 3
- 1082, 439
+ 1082, 525
0
@@ -3552,7 +3552,7 @@ Top Kreditoren:
276, 0
- 1090, 468
+ 1090, 554
3
@@ -3591,7 +3591,7 @@ Top Kreditoren:
129
- 276, 468
+ 276, 554
84
@@ -3627,7 +3627,7 @@ Top Kreditoren:
False
- 0, 614
+ 0, 700
1366, 22
@@ -3666,7 +3666,7 @@ Top Kreditoren:
0, 146
- 1366, 468
+ 1366, 554
4
@@ -4575,7 +4575,7 @@ Top Kreditoren:
1366, 146
- 0, 636
+ 0, 722
1366, 21
@@ -4617,7 +4617,7 @@ Top Kreditoren:
7, 16
- 1366, 657
+ 1366, 743
Tahoma, 9.75pt
diff --git a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb
index fe53404..79004c7 100644
--- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb
+++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb
@@ -50,9 +50,13 @@ Public Class frmSQL_DESIGNER
End If
If (CURRENT_DESIGN_TYPE = "INPUT_INDEX") Or CURRENT_DESIGN_TYPE = "FINAL_INDEX" Or CURRENT_DESIGN_TYPE = "SQL_BTNFINISH" Or CURRENT_DESIGN_TYPE = "SQL_SOURCE_TABLE_COLUMN" Then
- If CURRENT_DT_SQL_CONFIG_TABLE.Rows.Count = 1 Then
- cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID")
- cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING"))
+ If Not IsNothing(CURRENT_DT_SQL_CONFIG_TABLE) Then
+ If CURRENT_DT_SQL_CONFIG_TABLE.Rows.Count = 1 Then
+ cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID")
+ cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING"))
+ End If
+
+
End If
If CURRENT_DESIGN_TYPE <> "SQL_SOURCE_TABLE_COLUMN" Then
Dim oSQL = String.Format("SELECT NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND CTRL_TYPE <> 'LBL' ORDER BY NAME", CURRENT_ProfilGUID)
diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb
index e3ed4ee..16586a0 100644
--- a/app/DD_PM_WINDREAM/frmValidator.vb
+++ b/app/DD_PM_WINDREAM/frmValidator.vb
@@ -450,7 +450,9 @@ Public Class frmValidator
End Try
End If
Try
+ DocumentViewerValidator.CloseDocument()
DocumentViewerValidator.Done()
+
Catch ex As Exception
LOGGER.Warn($"Unexpected error in DocumentViewerValidator.Done: {ex.Message}")
End Try
@@ -5212,6 +5214,7 @@ Public Class frmValidator
result = MessageBox.Show("Sind Sie sicher dass Sie dieses Dokument unwiderruflich löschen wollen?" & vbNewLine & "Danach wird die nächste Datei angezeigt!", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
+ DocumentViewerValidator.CloseDocument()
DocumentViewerValidator.Done()
Catch ex As Exception
LOGGER.Warn($"Unexpected error in delete_active_File DocumentViewerValidator.Done: {ex.Message}")