AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

DAtabase integriert

Browse Source
This commit is contained in:
SchreiberM
2023-05-22 16:55:44 +02:00
parent 2db575d944
commit c2deb54f11
114 changed files with 8526 additions and 14722 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD-Record-Organizer/Classes/ClassPosGrid.vb
View File

@@ -31,7 +31,7 @@ Public Class ClassPosGrid
Dim DT As DataTable
Try
DT = ClassDatabase.Return_Datatable(sqlCommand)
DT = MYDB_ECM.GetDatatable(sqlCommand)
Catch ex As Exception
LOGGER.Warn("Error in FormatComboColumn: " & ex.Message)
Exit Sub
@@ -52,7 +52,7 @@ Public Class ClassPosGrid
End Sub
Private Shared Sub FormatTextColumn(grid As GridView, column As GridColumn, controlId As Integer)
Dim format As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & controlId)
Dim format As String = MYDB_ECM.GetScalarValue("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & controlId)
If IsNothing(format) Then
Exit Sub
@@ -69,7 +69,7 @@ Public Class ClassPosGrid
Shared Sub FormatColumns(grid As GridView, formId As Integer)
' Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_COL_NAME, CTRLTYPE_ID, CONTROL_SQLCOMMAND_1 AS CONTROL_SQL, CONTROL_STATIC_LIST, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CTRLTYPE_ID IN (3,4,10,11) AND FORM_ID = {0}", formId)
Dim Expression As String = String.Format("CTRLTYPE_ID IN (3,4,10,11) AND FORM_ID = {0}", formId)
Dim DT As DataTable = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, Expression, "") 'ClassDatabase.Return_Datatable(SQL)
Dim DT As DataTable = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, Expression, "")
Dim dateEdit As New RepositoryItemDateEdit()
Dim comboEdit As New RepositoryItemComboBox()