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

MS_02062016_2

Browse Source
This commit is contained in:
SchreiberM
2016-06-02 15:42:01 +02:00
parent f60d30572c
commit 5c1b1dbc67
10 changed files with 53 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD-Record-Organiser/frmChooseParentRecord.vb
View File

@@ -23,7 +23,7 @@ Public Class frmChooseParentRecord
End Sub
Sub HideColumns()
Try
Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & CURRENT_PARENT_ID
Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & CURRENT_PARENT_ENTITY_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = GridView.Columns
@@ -103,7 +103,7 @@ Public Class frmChooseParentRecord
End Sub
Sub Save_GridLayout()
Try
Dim Filename As String = String.Format("PARENT_GRID_{0}-UserLayout.xml", CURRENT_PARENT_ID.ToString)
Dim Filename As String = String.Format("PARENT_GRID_{0}-UserLayout.xml", CURRENT_PARENT_ENTITY_ID.ToString)
Dim XMLPATH = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
GridView.SaveLayoutToXml(XMLPATH)
Catch ex As Exception
@@ -113,7 +113,7 @@ Public Class frmChooseParentRecord
End Sub
Sub Load_GridLayout()
Try
Dim Filename As String = String.Format("PARENT_GRID_{0}-UserLayout.xml", CURRENT_PARENT_ID.ToString)
Dim Filename As String = String.Format("PARENT_GRID_{0}-UserLayout.xml", CURRENT_PARENT_ENTITY_ID.ToString)
Dim XMLPATH = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
If File.Exists(XMLPATH) Then
GridView.RestoreLayoutFromXml(XMLPATH)