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

jj 14.12 ClassGridFormatter

Browse Source
This commit is contained in:
JenneJ
2016-12-14 12:09:46 +01:00
parent df67c1ecc1
commit 29b3857635
8 changed files with 3560 additions and 4951 deletions
Download Patch File Download Diff File Expand all files Collapse all files

84
app/DD-Record-Organiser/ClassHelper.vb
View File

@@ -172,90 +172,6 @@ Public Class ClassHelper
Shared Function Convert_Date_2_Form_Format(p1 As Date) As Date
Throw New NotImplementedException
End Function
Public Shared Function Return_listcheck(ENTITY_ID As Integer)
Try
Dim listcheck As New List(Of String)
' Alle Checkboxen für aktuelle Ansicht heraussuchen
Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID in (10,11) AND SHOW_COLUMN = 1 AND FORM_ID = " & ENTITY_ID
Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
'Liste von allen Spaltentiteln mit Checkbox erstellen
If dtcheck.Rows.Count > 0 Then
For Each row As DataRow In dtcheck.Rows
listcheck.Add(row.Item(0))
Next
End If
Return listcheck
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Return_listcheck: " & ex.Message, True)
Return Nothing
End Try
End Function
Public Shared Function Return_listdate(ENTITY_ID As Integer)
Try
Dim listdate As New List(Of String)
' Alle Checkboxen für aktuelle Ansicht heraussuchen
Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 4 AND SHOW_COLUMN = 1 AND FORM_ID = " & ENTITY_ID
Dim dtdate As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
'Liste von allen Spaltentiteln mit Checkbox erstellen
If dtdate.Rows.Count > 0 Then
For Each row As DataRow In dtdate.Rows
listdate.Add(row.Item(0))
Next
End If
Return listdate
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Return_listdate: " & ex.Message, True)
Return Nothing
End Try
End Function
Public Shared Function Format_GridColumns(Primary_DT As DataTable, _ENTITYSQL As String, listcheck As List(Of String), listdate As List(Of String))
Try
Dim tbltemp As DataTable = Primary_DT.Clone()
' Nicht benötigt? Datumsspalten werden im Grid formatiert
For Each col As String In listdate
Dim colDate As DataColumn = tbltemp.Columns(col)
If Not IsNothing(colDate) Then
Try
colDate.DataType = GetType(Date)
Catch ex As Exception
MsgBox("Error in Format_GridColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
Next
For Each col1 As String In listcheck
Dim collist As DataColumn = tbltemp.Columns(col1)
If Not IsNothing(collist) Then
collist.DataType = GetType(Boolean)
End If
Next
Try
Dim collist As DataColumn = tbltemp.Columns("files?")
If Not IsNothing(collist) Then
collist.DataType = GetType(Boolean)
End If
Catch ex As Exception
End Try
Try
tbltemp.Load(Primary_DT.CreateDataReader)
Return tbltemp
Catch ex As Exception
ClassLogger.Add(">> Attention: Format_GridColumns - Could not load converted datatable: " & ex.Message, False)
'Tabelle wird ohne Datekonvertierung geladen
Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, "Load_Entity_Data_Only")
Dim primaryKey(1) As DataColumn
primaryKey(0) = DTEntity.Columns("Record-ID")
DTEntity.PrimaryKey = primaryKey
Return DTEntity
End Try
Catch ex As Exception
MsgBox("Unexpected Error in Format_GridColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Error in Format_GridColumns: " & ex.Message, True)
Return Nothing
End Try
End Function
Public Shared Function InsertEssential_Log(REFERENCE_KEY As Integer, REFERENCE_STRING As String, COMMENT As String)
Try
Dim insert = String.Format("INSERT INTO TBPMO_LOG_ESSENTIALS (REFERENCE_KEY,REFERENCE_STRING,COMMENT,ADDED_WHO) VALUES ({0},'{1}','{2}','{3}')", REFERENCE_KEY, REFERENCE_STRING, COMMENT, USER_USERNAME)