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

MS Verwaltung Doctype

Browse Source
This commit is contained in:
SchreiberM
2022-03-04 14:18:23 +01:00
parent 35d129b2ce
commit 87619c9d9a
11 changed files with 250 additions and 206 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
GUIs.ZooFlow/Administration/ClassDetailForm.vb
View File

@@ -70,7 +70,13 @@ Public Class ClassDetailForm
.[Module] = MODULE_IDB,
.Entity = PAGE_IDB_DOCTYPE
}},
{PAGE_USERS_USERLIST, New DetailSettings With {
{PAGE_IDB_DOCTYPE_BE, New DetailSettings With {
.GridTitle = "Doctype BE Relations",
.NewRecordTitle = "New Relation",
.[Module] = MODULE_IDB,
.Entity = PAGE_IDB_DOCTYPE_BE
}},
{PAGE_USERS_USERLIST, New DetailSettings With {
.GridTitle = "Benutzer Übersicht",
.NewRecordTitle = "Neuer Benutzer",
.[Module] = MODULE_USERS,
@@ -96,7 +102,7 @@ Public Class ClassDetailForm
Public Function LoadData() As Boolean
Try
Dim oTable As DataTable = My.DatabaseECM.GetDatatable("SELECT * FROM TBZF_ADMIN_SOURCE_SQL WHERE SCOPE = 'OVERVIEW'")
Dim oTable As DataTable = My.DatabaseECM.GetDatatable("SELECT * FROM TBZF_ADMIN_SOURCE_SQL WHERE SCOPE = 'OVERVIEW' ORDER BY GUID")
DetailDataList.Clear()
For Each oRow As DataRow In oTable.Rows
@@ -176,6 +182,10 @@ Public Class ClassDetailForm
Dim oForm As New frmAdmin_Doctype(0)
oForm.ShowDialog()
Return True
Case PAGE_IDB_DOCTYPE_BE
Dim oForm As New frmAdmin_Doctype(0)
oForm.ShowDialog()
Return True
Case PAGE_USERS_USERLIST
Load_User(PrimaryKey, IsInsert)