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

MS

Browse Source
This commit is contained in:
SchreiberM
2023-04-06 16:50:34 +02:00
parent 9a9fe72b4f
commit aa7c68a4ce
34 changed files with 21393 additions and 804 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,15 +1,12 @@
Imports DevExpress.XtraNavBar
Imports DevExpress.XtraBars
Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.XtraBars.Ribbon.Helpers
Imports DevExpress.XtraBars.Ribbon.ViewInfo
Imports System.ComponentModel
Imports System.Threading
Imports System.Globalization
Imports System.Globalization
Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Imports DD_LIB_Standards
Imports DevExpress.LookAndFeel
Imports DevExpress.XtraBars
Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.XtraBars.Ribbon.ViewInfo
Imports DevExpress.XtraNavBar
Public Class frmMain
Dim strIPAddress As String
@@ -313,20 +310,20 @@ Public Class frmMain
If dt.Rows.Count <> 0 Then
pageForms.Visible = True
For Each row As DataRow In dt.Rows
For Each oEntityRow As DataRow In dt.Rows
Dim image As Bitmap = Nothing
If IsDBNull(row.Item("MENU_IMG")) Then
If IsDBNull(oEntityRow.Item("MENU_IMG")) Then
image = My.Resources.ResourceManager.GetObject("changechartlegendalignment_32x32")
Else
Dim bimg() As Byte = row.Item("MENU_IMG")
Dim bimg() As Byte = oEntityRow.Item("MENU_IMG")
Dim bitmap As Bitmap = ByteArrayToBitmap(bimg)
image = bitmap
End If
Dim title = row.Item("FORM_TITLE")
Dim title = oEntityRow.Item("FORM_TITLE")
If title = "CAPTION (OBJ) NOT TRANSLATED" Then
Dim objectname = row.Item("OBECTNAME")
Dim objectname = oEntityRow.Item("OBECTNAME")
Dim objectname_temp = String.Format("Object {0} not translated", objectname)
Dim ins = String.Format("INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES " &
"('{0}',{1},'{2}', '{3}')", USER_LANGUAGE, CURRENT_SCREEN_ID, objectname, objectname_temp)
@@ -336,8 +333,8 @@ Public Class frmMain
End If
Dim index As Integer = row.Item("SEQUENCE_MENU")
Dim tag As String = row.Item("CONSTRUCT_ID") & "#" & row.Item("NODE_NAVIGATION") & "#" & row.Item("FORM_ID")
Dim index As Integer = oEntityRow.Item("SEQUENCE_MENU")
Dim tag As String = oEntityRow.Item("CONSTRUCT_ID") & "#" & oEntityRow.Item("NODE_NAVIGATION") & "#" & oEntityRow.Item("FORM_ID")
Dim item As New BarButtonItem(ribbonMain.Manager, title)
item.RibbonStyle = RibbonItemStyles.Large
item.Caption = title
@@ -345,7 +342,7 @@ Public Class frmMain
item.Glyph = image
item.LargeGlyph = image
AddHandler item.ItemClick, AddressOf ToolbarButtonItemClick
AddHandler item.ItemClick, AddressOf tbiOpenEntityFormClick
groupQuickAccessForm2.ItemLinks.Add(item)
Next
@@ -404,7 +401,7 @@ Public Class frmMain
item.Tag = tag
item.Glyph = image2
AddHandler item.ItemClick, AddressOf ToolbarButtonItemClick
AddHandler item.ItemClick, AddressOf tbiOpenEntityFormClick
groupQuickAccessForm.ItemLinks.Add(item)
image2 = Nothing
@@ -431,7 +428,7 @@ Public Class frmMain
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)
Private Sub tbiOpenEntityFormClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs)
Cursor = Cursors.WaitCursor
Dim oArr As List(Of String) = Get_FormKonfig(e.Item.Tag)
Dim formId As Integer = Integer.Parse(oArr(0))