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

MS_0908

Browse Source
This commit is contained in:
SchreiberM
2016-08-09 10:27:22 +02:00
parent b604f991a2
commit b5719d5ee3
1 changed files with 22 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -3038,7 +3038,6 @@ Public Class frmConstructor_Main
Return PARENT_RECORD1 Return PARENT_RECORD1
End If End If
Case 3 Case 3
Dim Parent_EntityID = ENTITY_ROW.Item("PARENT_ID") 'ClassDatabase.Execute_Scalar(sqlp, True) Dim Parent_EntityID = ENTITY_ROW.Item("PARENT_ID") 'ClassDatabase.Execute_Scalar(sqlp, True)
Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = (SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE " & _ Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = (SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE " & _
"T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}) and T1.FORM_ID = {2}", RECORDID, Parent_EntityID, ENTITY_ID) "T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}) and T1.FORM_ID = {2}", RECORDID, Parent_EntityID, ENTITY_ID)
@@ -3057,14 +3056,11 @@ Public Class frmConstructor_Main
Return PARENT_RECORD2 Return PARENT_RECORD2
End If End If
End Select End Select
Catch ex As Exception Catch ex As Exception
MsgBox("Error in GET_LINKED_RECORD: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in GET_LINKED_RECORD: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return 0 Return 0
End Try End Try
End Function End Function
Private Function LoadGrid_Selection() Private Function LoadGrid_Selection()
Try Try
If GRID_TYPE = GridType.Tiles Then If GRID_TYPE = GridType.Tiles Then
@@ -3095,9 +3091,29 @@ Public Class frmConstructor_Main
'Grid leeren 'Grid leeren
Clear_Grid_View() Clear_Grid_View()
'Databinding Neu 'Databinding Neu
Dim tblReady1 As DataTable = DT_SELECTION.Clone()
For Each col As String In listdate
Dim colDate As DataColumn = tblReady1.Columns(col)
colDate.DataType = GetType(Date)
Next
Try
tblReady1.Load(DT_SELECTION.CreateDataReader)
DT_SELECTION = tblReady1
Catch ex As Exception
ClassLogger.Add(">> Attention: 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
DT_SELECTION = DTEntity
End Try
BindingSource_Entity.DataSource = DT_SELECTION BindingSource_Entity.DataSource = DT_SELECTION
GridControlMain.DataSource = BindingSource_Entity GridControlMain.DataSource = BindingSource_Entity
' Den Editor Initialisieren und Optionen setzen ' Den Editor Initialisieren und Optionen setzen
Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit() Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
CheckBoxEditorForDisplay.ValueChecked = 1 CheckBoxEditorForDisplay.ValueChecked = 1
@@ -3113,10 +3129,9 @@ Public Class frmConstructor_Main
Next Next
' Alle Date Spalten durchgehen ' Alle Date Spalten durchgehen
For Each col As String In listdate For Each col As String In listdate
Dim colDate = grvwGrid.Columns(col) Dim colDate = grvwGrid.Columns(col)
colDate.DisplayFormat.FormatType = FormatType.DateTime colDate.DisplayFormat.FormatType = FormatType.DateTime
colDate.DisplayFormat.FormatString = "D" colDate.DisplayFormat.FormatString = USER_DATE_FORMAT
Next Next
Try Try
grvwGrid.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay) grvwGrid.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
@@ -4268,7 +4283,7 @@ Public Class frmConstructor_Main
Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit() Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
CheckBoxEditorForDisplay.ValueChecked = "True" CheckBoxEditorForDisplay.ValueChecked = "True"
CheckBoxEditorForDisplay.ValueUnchecked = "False" CheckBoxEditorForDisplay.ValueUnchecked = "False"
' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen 'Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen
For Each col As String In listcheck For Each col As String In listcheck
GridViewDoc_Search.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay) GridViewDoc_Search.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
If Not IsNothing(GridViewDoc_Search.Columns(col)) Then If Not IsNothing(GridViewDoc_Search.Columns(col)) Then