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

MS

Browse Source
This commit is contained in:
SchreiberM 2020-03-18 08:39:53 +01:00
parent c841381729
commit 9216c3fd92
2 changed files with 31 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@ -954,8 +954,12 @@ Public Class frmAdministration
Dim oResult = oForm.ShowDialog() Dim oResult = oForm.ShowDialog()
If oResult = DialogResult.OK Then If oResult = DialogResult.OK Then
ClassDatabase.Execute_non_Query(String.Format("UPDATE TBPM_KONFIGURATION SET SQL_PROFILE_MAIN_VIEW = '{0}' WHERE GUID = 1", oForm.SQLCommand.Replace("'", "''"))) If oSQL <> oForm.SQLCommand Then
BASEDATA_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") = oForm.SQLCommand ClassDatabase.Execute_non_Query(String.Format("UPDATE TBPM_KONFIGURATION SET SQL_PROFILE_MAIN_VIEW = '{0}' WHERE GUID = 1", oForm.SQLCommand.Replace("'", "''")))
BASEDATA_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") = oForm.SQLCommand
BASEDATA_DT_CONFIG.AcceptChanges()
End If
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Saving SQL Overview: " & vbNewLine & vbNewLine & ex.Message) MsgBox("Error in Saving SQL Overview: " & vbNewLine & vbNewLine & ex.Message)

40
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -2367,6 +2367,7 @@ Public Class frmValidator
Next Next
Else Else
If omytype = "System.String" Then If omytype = "System.String" Then
MsgBox("IDB Fill Grid with String")
oColValuesfromSource = Split(oValueFromSource.ToString, PMDelimiter) oColValuesfromSource = Split(oValueFromSource.ToString, PMDelimiter)
Select Case oColValuesfromSource.Length Select Case oColValuesfromSource.Length
Case 2 Case 2
@ -2377,23 +2378,32 @@ Public Class frmValidator
oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3)}) oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3)})
End Select End Select
ElseIf omytype = "System.Data.DataTable" Then ElseIf omytype = "System.Data.DataTable" Then
Dim oMyDatatable As DataTable = oValueFromSource
For Each oRow As DataRow In oMyDatatable.Rows
LOGGER.Debug($"IDB ROW Vector {oRow.Item(0).ToString}...")
oColValuesfromSource = Split(oRow.Item(0).ToString, PMDelimiter)
Select Case oColValuesfromSource.Length Try
Case 1 Dim oMyDatatable As DataTable = oValueFromSource
oDataSource.Rows.Add(New String() {oColValuesfromSource(0)}) MsgBox($"IDB Fill Grid with Datatable - Rows: " & oMyDatatable.Rows.Count)
Case 2 For Each oRow As DataRow In oMyDatatable.Rows
oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1)}) LOGGER.Debug($"IDB-Wert Mehrfachfeld: {oRow.Item(0).ToString}...")
Case 3 oColValuesfromSource = Split(oRow.Item(0).ToString, PMDelimiter)
oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2)}) MsgBox($"Item is: {oRow.Item(0).ToString}" & vbNewLine & $"oColValuesfromSource.Length: {oColValuesfromSource.Length}")
Case 4 Select Case oColValuesfromSource.Length
oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3)}) Case 1
End Select oDataSource.Rows.Add(New String() {oColValuesfromSource(0)})
Case 2
oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1)})
Case 3
oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2)})
Case 4
oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3)})
End Select
Next
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE)
LOGGER.Error(ex)
End Try
Next Else
LOGGER.Debug($"omytype is invalid... {omytype}...")
End If End If
End If End If