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}")