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

jj_02_12

Browse Source
This commit is contained in:
JenneJ
2015-12-02 13:00:30 +01:00
parent 6a353192b0
commit 161f8c9c2e
2 changed files with 16 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD-Record-Organiser/ClassControlCommandsUI.vb
View File

@@ -330,7 +330,7 @@ Public Class ClassControlCommandsUI
InsertAllControls(FormID, RecordID, DirectCast(ctrl, GroupBox).Controls) InsertAllControls(FormID, RecordID, DirectCast(ctrl, GroupBox).Controls)
End If End If
Else Else
InsertControlValue(ctrl.Name, RecordID, CONTROL_VALUE) InsertControlValue(CONTROL_ID, RecordID, CONTROL_VALUE)
End If End If
Next Next
End Sub End Sub
@@ -574,7 +574,7 @@ Public Class ClassControlCommandsUI
End Select End Select
End Function End Function
Public Shared Function InsertControlValue(ControlID As String, RecordID As Integer, Value As String) Public Shared Function InsertControlValue(ControlID As Integer, RecordID As Integer, Value As String)
Try Try
Dim AddedWho = Environment.UserName Dim AddedWho = Environment.UserName
Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & ControlID) Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & ControlID)

10
app/DD-Record-Organiser/frmForm_Constructor_Main_2.vb
View File

@@ -425,7 +425,7 @@ Public Class frmForm_Constructor_Main_2
Return grvwGridPos.GetFocusedRowCellValue(grvwGrid.Columns(columnName)) Return grvwGridPos.GetFocusedRowCellValue(grvwGrid.Columns(columnName))
End Function End Function
Private Sub grvwGrid_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles grvwGrid.FocusedColumnChanged Private Sub grvwGrid_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles grvwGrid.FocusedColumnChanged
Column_Row_Handler Column_Row_Handler()
End Sub End Sub
Private Sub GridView_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles grvwGrid.FocusedRowChanged, grvwTiles.FocusedRowChanged, grvwCarousel.FocusedRowChanged Private Sub GridView_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles grvwGrid.FocusedRowChanged, grvwTiles.FocusedRowChanged, grvwCarousel.FocusedRowChanged
Column_Row_Handler() Column_Row_Handler()
@@ -858,7 +858,11 @@ Public Class frmForm_Constructor_Main_2
EBENE1_RECID = recid EBENE1_RECID = recid
For Each row As DataRow In DT_SELECTION.Rows For Each row As DataRow In DT_SELECTION.Rows
If row.Item("Record-ID") = SELECTED_RECORD_ID Then If row.Item("Record-ID") = SELECTED_RECORD_ID Then
EBENE1_GRID_RESULT = row.Item(EBENE1_COLUMNNAME) If EBENE1_COLUMNNAME = "" Then
EBENE1_GRID_RESULT = "No Column configured"
Else
EBENE1_GRID_RESULT = row.Item(EBENE1_COLUMNNAME)
End If
End If End If
Next Next
Case 2 Case 2
@@ -1254,7 +1258,7 @@ Public Class frmForm_Constructor_Main_2
Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID") Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID")
If Not IsNothing(Grid_RecordID) Then If Not IsNothing(Grid_RecordID) Then
Select ACT_EBENE Select Case ACT_EBENE
Case 1 Case 1
PARENT_RECORDID = Grid_RecordID PARENT_RECORDID = Grid_RecordID
CURRENT_PARENTID = PARENT_RECORDID CURRENT_PARENTID = PARENT_RECORDID