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

MS

Browse Source
This commit is contained in:
SchreiberM
2023-01-23 16:21:42 +01:00
parent 01b066e4e3
commit 60c739833f
57 changed files with 77259 additions and 198787 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
app/DD-Record-Organizer/frmMain.vb
View File

@@ -306,9 +306,9 @@ Public Class frmMain
Public Sub LoadMenuItems2()
Try
Dim SQL2 As String = String.Format("SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'CONSTR_MENUE' + CONVERT(VARCHAR(5), GUID), {1}) AS FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO," &
"CHANGED_WHEN, MENU_IMG, SHORT_TITLE, LANGUAGE, " &
"'CONSTR_MENUE' + CONVERT(VARCHAR(5), GUID) as OBECTNAME FROM TBPMO_FORM_CONSTRUCTOR where GUID in (SELECT CONSTRUCT_ID FROM TBPMO_CONSTRUCTOR_USER WHERE HOME_MENUE = 0 AND USER_ID = {2}) ORDER BY SEQUENCE_MENU", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
Dim SQL2 As String = String.Format("SELECT A.GUID as CONSTRUCT_ID,A.NODE_NAVIGATION,B.FORM_ID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'CONSTR_MENUE' + CONVERT(VARCHAR(5), A.GUID), {1}) AS FORM_TITLE, A.SEQUENCE_MENU, A.ADDED_WHO, A.ADDED_WHEN, A.CHANGED_WHO," &
"A.CHANGED_WHEN, A.MENU_IMG, A.SHORT_TITLE, A.LANGUAGE, " &
"'CONSTR_MENUE' + CONVERT(VARCHAR(5), A.GUID) as OBECTNAME FROM TBPMO_FORM_CONSTRUCTOR A INNER JOIN TBPMO_FORM_CONSTRUCTOR_DETAIL B ON A.GUID = B.CONSTRUCT_ID where A.GUID in (SELECT CONSTRUCT_ID FROM TBPMO_CONSTRUCTOR_USER WHERE HOME_MENUE = 0 AND USER_ID = {2}) ORDER BY A.SEQUENCE_MENU", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL2)
If dt.Rows.Count <> 0 Then
@@ -337,7 +337,7 @@ Public Class frmMain
Dim index As Integer = row.Item("SEQUENCE_MENU")
Dim tag As Integer = row.Item("GUID")
Dim tag As String = row.Item("CONSTRUCT_ID") & "#" & row.Item("NODE_NAVIGATION") & "#" & row.Item("FORM_ID")
Dim item As New BarButtonItem(ribbonMain.Manager, title)
item.RibbonStyle = RibbonItemStyles.Large
item.Caption = title
@@ -359,9 +359,9 @@ Public Class frmMain
End Sub
Public Sub LoadQuickStartItems()
Try
Dim SQL2 As String = String.Format("SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'CONSTR_MENUE' + CONVERT(VARCHAR(5), GUID), {1}) AS FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO," &
"CHANGED_WHEN, MENU_IMG, SHORT_TITLE, LANGUAGE, " &
"'CONSTR_MENUE' + CONVERT(VARCHAR(5), GUID) as OBECTNAME FROM TBPMO_FORM_CONSTRUCTOR where GUID in (SELECT CONSTRUCT_ID FROM TBPMO_CONSTRUCTOR_USER WHERE HOME_MENUE = 1 AND USER_ID = {2}) ORDER BY SEQUENCE_MENU", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
Dim SQL2 As String = String.Format("SELECT A.GUID as CONSTRUCT_ID, B.FORM_ID, A.NODE_NAVIGATION,dbo.FNPMO_GETOBJECTCAPTION('{0}', 'CONSTR_MENUE' + CONVERT(VARCHAR(5), A.GUID), {1}) AS FORM_TITLE, A.SEQUENCE_MENU, A.ADDED_WHO, A.ADDED_WHEN, A.CHANGED_WHO," &
"A.CHANGED_WHEN, A.MENU_IMG, A.SHORT_TITLE, A.LANGUAGE, " &
"'CONSTR_MENUE' + CONVERT(VARCHAR(5), A.GUID) as OBECTNAME FROM TBPMO_FORM_CONSTRUCTOR A INNER JOIN TBPMO_FORM_CONSTRUCTOR_DETAIL B On A.GUID = B.CONSTRUCT_ID where A.GUID in (SELECT CONSTRUCT_ID FROM TBPMO_CONSTRUCTOR_USER WHERE HOME_MENUE = 1 AND USER_ID = {2}) ORDER BY A.SEQUENCE_MENU", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL2)
Dim image2 As Bitmap = LoadNoImage()
@@ -397,7 +397,7 @@ Public Class frmMain
Dim index As Integer = row.Item("SEQUENCE_MENU")
Dim tag As Integer = row.Item("GUID")
Dim tag As String = row.Item("CONSTRUCT_ID") & "#" & row.Item("NODE_NAVIGATION") & "#" & row.Item("FORM_ID")
Dim item As New BarButtonItem(ribbonMain.Manager, title)
item.RibbonStyle = RibbonItemStyles.Large
item.Caption = title
@@ -428,19 +428,23 @@ Public Class frmMain
End Try
End Sub
Private Function Get_FormKonfig(ByVal oStr As String) As List(Of String)
Return New List(Of String)(oStr.Split("#").ToArray())
End Function
Private Sub ToolbarButtonItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs)
Cursor = Cursors.WaitCursor
Dim formId As Integer = Integer.Parse(e.Item.Tag)
OpenFormConstructor(formId)
Dim oArr As List(Of String) = Get_FormKonfig(e.Item.Tag)
Dim formId As Integer = Integer.Parse(oArr(0))
OpenFormConstructor(formId, oArr(1), oArr(2))
Cursor = Cursors.Default
End Sub
Private Sub NavbarItem_Click(sender As Object, e As NavBarLinkEventArgs)
Dim formID As Integer = Integer.Parse(e.Link.Item.Tag)
Cursor = Cursors.WaitCursor
OpenFormConstructor(formID)
Dim oArr As List(Of String) = Get_FormKonfig(e.Link.Item.Tag)
Dim formId As Integer = Integer.Parse(oArr(0))
OpenFormConstructor(formId, oArr(1), oArr(2))
Cursor = Cursors.Default
End Sub
@@ -454,17 +458,19 @@ Public Class frmMain
'End Sub
Private Sub MenuItem2Click(sender As Object, e As EventArgs)
Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
Dim formId As Integer = Integer.Parse(item.Tag)
Cursor = Cursors.WaitCursor
OpenFormConstructor(formId)
Dim oArr As List(Of String) = Get_FormKonfig(item.Tag)
Dim formId As Integer = Integer.Parse(oArr(0))
OpenFormConstructor(formId, oArr(1), oArr(2))
Cursor = Cursors.Default
End Sub
Private Shared Sub QuickAccessClick(sender As Object, e As EventArgs)
Private Sub QuickAccessClick(sender As Object, e As EventArgs)
Dim btn As ToolStripButton = CType(sender, ToolStripButton)
Dim formId As Integer
formId = Integer.Parse(sender.tag)
OpenFormConstructor(formId)
Dim oArr As List(Of String) = Get_FormKonfig(sender.Tag)
Dim formId As Integer = Integer.Parse(oArr(0))
OpenFormConstructor(formId, oArr(1), oArr(2))
End Sub
Private Sub SetBackground()
@@ -530,9 +536,7 @@ Public Class frmMain
Me.Close()
End Sub
Private Sub FormateProduktionenToolStripMenuItem_Click(sender As Object, e As EventArgs)
OpenFormConstructor(1)
End Sub
Private Sub WorkflowTaskmanagementToolStripMenuItem_Click(sender As Object, e As EventArgs)
OpenTaskmanagement()
@@ -569,7 +573,7 @@ Public Class frmMain
If Sett_ConstructorStart <> 0 Then
Cursor = Cursors.WaitCursor
OpenFormConstructor(Sett_ConstructorStart)
OpenFormConstructor(Sett_ConstructorStart, False, 99)
Cursor = Cursors.Default
End If