AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS .0.8

Browse Source
This commit is contained in:
SchreiberM
2020-03-05 10:27:23 +01:00
parent f636abc2fc
commit 61a3e9b6d3
34 changed files with 6056 additions and 2576 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
app/DD_PM_WINDREAM/frmFormDesigner.vb
View File

@@ -52,11 +52,12 @@ Public Class frmFormDesigner
'Windream Abfragen, sollten einmal beim Start des Formulars geladen werden
Dim unsortedIndicies
Dim sortedIndicies
Dim sortedIndicies As List(Of String)
If IDB_ACTIVE = False Then
unsortedIndicies = clsWD_GET.GetIndicesByObjecttype(CURRENT_OBJECTTYPE).ToList()
sortedIndicies = unsortedIndicies '.OrderBy(Function(index As String) index).ToList()
sortedIndicies = sortedIndicies.OrderBy(Function(index As String) index).ToList
Else
sortedIndicies = IDBData.GetIndicesByBE(CURRENT_OBJECTTYPE).ToList()
End If
@@ -1027,7 +1028,9 @@ Public Class frmFormDesigner
CurrentControl.ForeColor = color
Case "SQLCommand"
UpdateSingleValue("SQL_UEBERPRUEFUNG", newValue)
UpdateSingleValue("CONNECTION_ID", CURRENT_CONN_ID)
UpdateSingleValue("CHOICE_LIST", "")
Case "Enable_SQL"
UpdateSingleValue("SQL_ENABLE", newValue)
Case "Override_SQL"
@@ -1037,6 +1040,7 @@ Public Class frmFormDesigner
Case "ChoiceList"
UpdateSingleValue("CHOICE_LIST", newValue)
UpdateSingleValue("SQL_UEBERPRUEFUNG", "")
UpdateSingleValue("CONNECTION_ID", "NULL")
Case "MultiSelect"
UpdateSingleValue("MULTISELECT", IIf(newValue = True, 1, 0))
@@ -1082,9 +1086,9 @@ Public Class frmFormDesigner
Catch ex As Exception
LOGGER.Error(ex)
Dim msg = $"UpdateImage - Error while saving Control (Id: {CURRENT_CONTROL_ID}): {vbCrLf}{ex.Message}"
MsgBox(msg)
LOGGER.Info(msg)
Dim oMsg = $"UpdateImage - Error while saving Control (Id: {CURRENT_CONTROL_ID}): {vbCrLf}{ex.Message}"
MsgBox(oMsg)
LOGGER.Info(oMsg)
Return False
End Try
End Function
@@ -1115,9 +1119,9 @@ Public Class frmFormDesigner
Catch ex As Exception
LOGGER.Error(ex)
Dim msg = $"UpdateSingleValue - Fehler beim Speichern von Control (Id: {guid}, column: {columnName}): {vbCrLf}{ex.Message}"
MsgBox(msg)
LOGGER.Info(msg)
Dim oMsg = $"UpdateSingleValue - Fehler beim Speichern von Control (Id: {guid}, column: {columnName}): {vbCrLf}{ex.Message}"
MsgBox(oMsg)
LOGGER.Info(oMsg)
Return False
End Try
End Function
@@ -1134,8 +1138,8 @@ Public Class frmFormDesigner
LoadControls()
End If
Catch ex As Exception
Dim msg = $"MenuItemAddColumn_Click - Fehler beim Hinzufügen von einer neuen Spalte: {vbCrLf}{ex.Message}"
MsgBox(msg)
Dim oMsg = $"MenuItemAddColumn_Click - Fehler beim Hinzufügen von einer neuen Spalte: {vbCrLf}{ex.Message}"
MsgBox(oMsg)
LOGGER.Error(ex)
End Try
End Sub