Remove ClassDatabase, ClassDataASorDB, replace with DatabaseWithFallback
This commit is contained in:
@@ -14,6 +14,8 @@ Imports DigitalData.Controls.LookupGrid
|
||||
Imports DigitalData.Modules.Language.Utils
|
||||
Imports DigitalData.GUIs.Common
|
||||
Imports DigitalData.Modules.Logging
|
||||
Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback
|
||||
Imports DigitalData.Modules.EDMI.API.Constants
|
||||
|
||||
Public Class ClassControlCreator
|
||||
|
||||
@@ -516,7 +518,10 @@ Public Class ClassControlCreator
|
||||
Dim oColumnName As String = oRow.Item("SPALTENNAME")
|
||||
|
||||
If Not clsPatterns.HasComplexPatterns(oSqlCommand) Then
|
||||
oComboboxDataTable = ClassDatabase.Return_Datatable_ConId(oSqlCommand, oConnectionId)
|
||||
'oComboboxDataTable = ClassDatabase.Return_Datatable_ConId(oSqlCommand, oConnectionId)
|
||||
oComboboxDataTable = Database.GetDatatable(New GetDatatableOptions(oSqlCommand, DatabaseType.ECM) With {
|
||||
.ConnectionId = oConnectionId
|
||||
})
|
||||
End If
|
||||
|
||||
Dim oRepositoryItem = GridTables_GetRepositoryItemForColumn(oColumnName, oComboboxDataTable, oRow.Item("ADVANCED_LOOKUP"))
|
||||
@@ -844,7 +849,10 @@ Public Class ClassControlCreator
|
||||
|
||||
Public Shared Sub GridTables_CacheDatatableForColumn(pControlId As Object, pColumnName As Object, pSqlStatement As Object, pConnectionId As Integer, pAdvancedLookup As Boolean)
|
||||
Try
|
||||
Dim oTable As DataTable = ClassDatabase.Return_Datatable_ConId(pSqlStatement, pConnectionId)
|
||||
'Dim oTable As DataTable = ClassDatabase.Return_Datatable_ConId(pSqlStatement, pConnectionId)
|
||||
Dim oTable As DataTable = Database.GetDatatable(New GetDatatableOptions(pSqlStatement, DatabaseType.ECM) With {
|
||||
.ConnectionId = pConnectionId
|
||||
})
|
||||
|
||||
' If no columns for this control have been added, create an empty dict now
|
||||
If Not GridTables.ContainsKey(pControlId) Then
|
||||
|
||||
Reference in New Issue
Block a user