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

MS 2.3.0.4

Browse Source
This commit is contained in:
SchreiberM
2022-03-16 15:48:18 +01:00
parent 6c4fac05e8
commit 3ea6171c4f
28 changed files with 445 additions and 366 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
app/DD_PM_WINDREAM/frmAdmin2.vb
View File

@@ -101,7 +101,7 @@ Public Class frmAdmin2
'wenn Speichern ja
If result = MsgBoxResult.Yes Then
Dim oSQL = $"Delete from TBDD_EMAIL_TEMPLATE where guid = {GUIDTextEdit.Text}"
If Database_ECM.ExecuteNonQuery(oSQL) = True Then
If DatabaseFallback.ExecuteNonQueryECM(oSQL) = True Then
Load_Email_template()
Status_Changed("Vorlage gelöscht!")
End If
@@ -140,12 +140,12 @@ Public Class frmAdmin2
Me.Cursor = Cursors.WaitCursor
Try
Dim oSQL = "SELECT * FROM TBPM_FURTHER_KONFIG_VIEW"
DT_FURTHER_KONFIG_VIEW = Database_ECM.GetDatatable(oSQL) ', "Monitor-Load_Grid_Data1")
DT_FURTHER_KONFIG_VIEW = DatabaseFallback.GetDatatableECM(oSQL) ', "Monitor-Load_Grid_Data1")
If Not IsNothing(DT_FURTHER_KONFIG_VIEW) Then
If DT_FURTHER_KONFIG_VIEW.Rows.Count >= 1 Then
oSQL = DT_FURTHER_KONFIG_VIEW.Rows(0).Item("GRID_SQL")
GridViewWK1.Columns.Clear()
Dim oDTGRID1 As DataTable = Database_ECM.GetDatatable(oSQL) ', "FurtherConfig-Load_Grid_Data1")
Dim oDTGRID1 As DataTable = DatabaseFallback.GetDatatableECM(oSQL) ', "FurtherConfig-Load_Grid_Data1")
GridControlWK1.DataSource = oDTGRID1
GRID1_TITLE = DT_FURTHER_KONFIG_VIEW.Rows(0).Item("GRID_TITLE")
GridViewWK1.Tag = GRID1_TITLE
@@ -167,7 +167,7 @@ Public Class frmAdmin2
GridViewWK2.Tag = GRID2_TITLE
GridViewWK2.Columns.Clear()
Dim oDTGRID2 As DataTable = Database_ECM.GetDatatable(GRID2_SQL) ', "FurtherConfig-Load_Grid_Data2")
Dim oDTGRID2 As DataTable = DatabaseFallback.GetDatatableECM(GRID2_SQL) ', "FurtherConfig-Load_Grid_Data2")
GridControlWK2.DataSource = oDTGRID2
SET_GRID_DESCRIPTION(GridViewWK2, oDTGRID2)
Select Case DT_FURTHER_KONFIG_VIEW.Rows.Count
@@ -178,7 +178,7 @@ Public Class frmAdmin2
GridViewWK3.Tag = GRID3_TITLE
GridViewWK3.Columns.Clear()
Dim oDTGRID3 As DataTable = Database_ECM.GetDatatable(GRID3_SQL) ', "FurtherConfig-Load_Grid_Data3")
Dim oDTGRID3 As DataTable = DatabaseFallback.GetDatatableECM(GRID3_SQL) ', "FurtherConfig-Load_Grid_Data3")
GridControlWK3.DataSource = oDTGRID3
SET_GRID_DESCRIPTION(GridViewWK3, oDTGRID3)
Case 4
@@ -186,14 +186,14 @@ Public Class frmAdmin2
GRID3_SQL = DT_FURTHER_KONFIG_VIEW.Rows(2).Item("GRID_SQL")
GridViewWK3.Tag = GRID3_TITLE
GridViewWK3.Columns.Clear()
Dim oDTGRID3 As DataTable = Database_ECM.GetDatatable(GRID3_SQL) ', "FurtherConfig-Load_Grid_Data3")
Dim oDTGRID3 As DataTable = DatabaseFallback.GetDatatableECM(GRID3_SQL) ', "FurtherConfig-Load_Grid_Data3")
GridControlWK3.DataSource = oDTGRID3
SET_GRID_DESCRIPTION(GridViewWK3, oDTGRID3)
GRID4_TITLE = DT_FURTHER_KONFIG_VIEW.Rows(3).Item("GRID_TITLE")
GRID4_SQL = DT_FURTHER_KONFIG_VIEW.Rows(3).Item("GRID_SQL")
GridViewWK4.Tag = GRID4_TITLE
GridViewWK4.Columns.Clear()
Dim oDTGRID4 As DataTable = Database_ECM.GetDatatable(GRID4_SQL) ', "FurtherConfig-Load_Grid_Data4")
Dim oDTGRID4 As DataTable = DatabaseFallback.GetDatatableECM(GRID4_SQL) ', "FurtherConfig-Load_Grid_Data4")
GridControlWK4.DataSource = oDTGRID4
SET_GRID_DESCRIPTION(GridViewWK4, oDTGRID4)
End Select