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

MS GridFocus Datasource

Browse Source
This commit is contained in:
SchreiberM 2022-01-19 15:34:27 +01:00
parent 71ea8dc2a1
commit 0c0ed0b3a2
3 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
app/DD_PM_WINDREAM/ClassControlCreator.vb
View File

@ -527,12 +527,15 @@ Public Class ClassControlCreator
Try Try
Dim oComboboxDataTable As DataTable = Nothing Dim oComboboxDataTable As DataTable = Nothing
Dim oColumnName As String = oRow.Item("SPALTENNAME") Dim oColumnName As String = oRow.Item("SPALTENNAME")
Logger.Debug("Working on SQL for Column[{0}]...", oColumnName)
If Not clsPatterns.HasComplexPatterns(oSqlCommand) Then If Not clsPatterns.HasComplexPatterns(oSqlCommand) Then
Logger.Debug("SQL has no complex patterns!")
'oComboboxDataTable = ClassDatabase.Return_Datatable_ConId(oSqlCommand, oConnectionId) 'oComboboxDataTable = ClassDatabase.Return_Datatable_ConId(oSqlCommand, oConnectionId)
oComboboxDataTable = Database.GetDatatable(New GetDatatableOptions(oSqlCommand, DatabaseType.ECM) With { oComboboxDataTable = Database.GetDatatable(New GetDatatableOptions(oSqlCommand, DatabaseType.ECM) With {
.ConnectionId = oConnectionId .ConnectionId = oConnectionId
}) })
Else
Logger.Debug("...has complex patterns!!")
End If End If
Dim oRepositoryItem = GridTables_GetRepositoryItemForColumn(oColumnName, oComboboxDataTable, oRow.Item("ADVANCED_LOOKUP")) Dim oRepositoryItem = GridTables_GetRepositoryItemForColumn(oColumnName, oComboboxDataTable, oRow.Item("ADVANCED_LOOKUP"))

2
app/DD_PM_WINDREAM/frmFormDesigner.vb
View File

@ -36,7 +36,7 @@ Public Class frmFormDesigner
Private Sub frmFormDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmFormDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load
Try Try
ClassControlCreator.Logger = LOGCONFIG.GetLoggerFor("ControlCreator")
BarButtonItem3.Caption = "Designer locked" BarButtonItem3.Caption = "Designer locked"
BarButtonItem3.ItemAppearance.Normal.BackColor = Color.Red BarButtonItem3.ItemAppearance.Normal.BackColor = Color.Red
Designer_Locked = True Designer_Locked = True

16
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -563,11 +563,11 @@ Public Class frmValidator
LOGGER.Error(ex) LOGGER.Error(ex)
End Try End Try
Else Else
LOGGER.Info("Not loading AdditionalSearches 1...!") LOGGER.Debug("Not loading AdditionalSearches 1...!")
bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Never bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If End If
Else Else
LOGGER.Info("Not loading AdditionalSearches 2...!") LOGGER.Debug("Not loading AdditionalSearches 2...!")
bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Never bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If End If
Catch ex As Exception Catch ex As Exception
@ -601,7 +601,7 @@ Public Class frmValidator
'End If 'End If
If oReadOnly = True Then If oReadOnly = True Then
LOGGER.Info("Control for Index [{0}] is read-only. Continuing.") LOGGER.Debug("Control for Index [{0}] is read-only. Continuing.")
Continue For Continue For
End If End If
@ -750,13 +750,12 @@ Public Class frmValidator
}) })
oSQL = $"SELECT T.* from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T1.CONTROL_ACTIVE = 1 AND T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY T.SEQUENCE" oSQL = $"SELECT T.* from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T1.CONTROL_ACTIVE = 1 AND T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY T.SEQUENCE"
'DT_COLUMNS_GRID = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBPM_PROFILE_CONTROLS_LANGUAGE", $"PROFIL_ID = {CURRENT_ProfilGUID}", "SEQUENCE") DT_COLUMNS_GRID = Database.GetDatatable("TBPM_CONTROL_TABLE", New GetDatatableOptions(oSQL, DatabaseType.ECM) With {
DT_COLUMNS_GRID = Database.GetDatatable("TBPM_PROFILE_CONTROLS_LANGUAGE", New GetDatatableOptions(oSQL, DatabaseType.ECM) With {
.FilterExpression = $"PROFIL_ID = {CURRENT_ProfilGUID}", .FilterExpression = $"PROFIL_ID = {CURRENT_ProfilGUID}",
.SortByColumn = "SEQUENCE" .SortByColumn = "SEQUENCE"
}) })
oSQL = "SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.CONNECTION_ID, T.SQL_COMMAND, T.SPALTENNAME,T.FORMATTYPE,T.FORMATSTRING from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T1.CONTROL_ACTIVE = 1 AND T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = " & CURRENT_ProfilGUID & " AND LEN(T.SQL_COMMAND) > 0 ORDER BY T.SEQUENCE" oSQL = "SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.CONNECTION_ID, T.SQL_COMMAND, T.SPALTENNAME,T.FORMATTYPE,T.FORMATSTRING, T.ADVANCED_LOOKUP from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T1.CONTROL_ACTIVE = 1 AND T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = " & CURRENT_ProfilGUID & " AND LEN(T.SQL_COMMAND) > 0 ORDER BY T.SEQUENCE"
'DT_COLUMNS_GRID_WITH_SQL = DataASorDB.GetDatatable("DD_ECM", oSQL, "DTGRID_SQL_DEFINITION", $"PROFIL_ID = {CURRENT_ProfilGUID}", "SEQUENCE") 'DT_COLUMNS_GRID_WITH_SQL = DataASorDB.GetDatatable("DD_ECM", oSQL, "DTGRID_SQL_DEFINITION", $"PROFIL_ID = {CURRENT_ProfilGUID}", "SEQUENCE")
DT_COLUMNS_GRID_WITH_SQL = Database.GetDatatable("DTGRID_SQL_DEFINITION", New GetDatatableOptions(oSQL, DatabaseType.ECM) With { DT_COLUMNS_GRID_WITH_SQL = Database.GetDatatable("DTGRID_SQL_DEFINITION", New GetDatatableOptions(oSQL, DatabaseType.ECM) With {
.FilterExpression = $"PROFIL_ID = {CURRENT_ProfilGUID}", .FilterExpression = $"PROFIL_ID = {CURRENT_ProfilGUID}",
@ -4276,10 +4275,9 @@ Public Class frmValidator
Dim oIsRequired As Boolean = CBool(oControlRow.Item("VALIDATION")) Dim oIsRequired As Boolean = CBool(oControlRow.Item("VALIDATION"))
Dim oSQLCheckCommand As String = IIf(IsDBNull(oControlRow.Item("SQL_UEBERPRUEFUNG")), "", oControlRow.Item("SQL_UEBERPRUEFUNG")) Dim oSQLCheckCommand As String = IIf(IsDBNull(oControlRow.Item("SQL_UEBERPRUEFUNG")), "", oControlRow.Item("SQL_UEBERPRUEFUNG"))
Dim oIsReadOnly As Boolean = CBool(oControlRow.Item("READ_ONLY")) Dim oIsReadOnly As Boolean = CBool(oControlRow.Item("READ_ONLY"))
If oDBControlName = "txtString00" And oControl.Name = "txtString00" Then
MsgBox("txtString00")
End If
If oIsReadOnly = True Then If oIsReadOnly = True Then
Continue For Continue For
End If End If
Dim oControlType As String = oControlRow.Item("CTRL_TYPE") Dim oControlType As String = oControlRow.Item("CTRL_TYPE")