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

MS - Updateverhalten PRoxyserver

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-04-25 16:48:42 +02:00
parent 5a00b63de1
commit 1d18370ec0
6 changed files with 659 additions and 920 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
app/DD-Record-Organizer/ClassControlCommands.vb
View File

@@ -196,9 +196,9 @@
End Function End Function
Public Shared Function UpdateControl(control As Control, properties As Object) Public Shared Function UpdateControl(control As Control, properties As Object)
Try ' Try
' Nach Typ den Update Befehl anpassen ' Nach Typ den Update Befehl anpassen
Dim type As String = control.GetType.Name Dim type As String = control.GetType.Name
Dim SQL As String Dim SQL As String
Dim NAME As String Dim NAME As String
@@ -355,11 +355,11 @@
Else Else
Throw New Exception() Throw New Exception()
End If End If
Catch ex As Exception 'Catch ex As Exception
ClassLogger.Add("Unexpected Error in UpdateControl: " & ex.Message, True) ' ClassLogger.Add("Unexpected Error in UpdateControl: " & ex.Message, True)
MsgBox("Unexpected Error in UpdateControl:" + vbNewLine + ex.Message, MsgBoxStyle.Critical) ' MsgBox("Unexpected Error in UpdateControl:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False ' Return False
End Try 'End Try
End Function End Function
Public Shared Function UpdateControlScreen(control As Control, properties As Object) Public Shared Function UpdateControlScreen(control As Control, properties As Object)

28
app/DD-Record-Organizer/ClassControlCommandsUI.vb
View File

@@ -1,6 +1,6 @@
Imports DD_Record_Organizer.ClassDatabase Imports DD_Record_Organizer.ClassDatabase
Imports DD_Record_Organizer.ClassControlBuilder Imports DD_Record_Organizer.ClassControlBuilder
Imports DD_LIB_Standards
Public Class ClassControlCommandsUI Public Class ClassControlCommandsUI
@@ -823,8 +823,15 @@ Public Class ClassControlCommandsUI
Dim converted_value = Check_and_Format_Value(ControlID, RecordID, Value) Dim converted_value = Check_and_Format_Value(ControlID, RecordID, Value)
If Not IsNothing(converted_value) Then If Not IsNothing(converted_value) Then
Dim ins As String = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0}, {1}, '{2}', '{3}')", ControlID, RecordID, converted_value, AddedWho) Dim ins As String = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0}, {1}, '{2}', '{3}')", ControlID, RecordID, converted_value, AddedWho)
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value) If LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then
Return ClassDatabase.Execute_non_Query(ins) If ClassDatabase.Execute_non_Query(ins) = True Then
Return ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value)
Else
Return False
End If
Else
Return ClassDatabase.Execute_non_Query(ins)
End If
Else Else
Return False Return False
End If End If
@@ -839,13 +846,20 @@ Public Class ClassControlCommandsUI
Try Try
Dim CHANGED_WHO = USER_USERNAME Dim CHANGED_WHO = USER_USERNAME
Dim converted_value = Check_and_Format_Value(ControlID, RecordID, Value) Dim converted_value = Check_and_Format_Value(ControlID, RecordID, Value)
Dim def = "SELECT FORMAT_TYPE,CONTROL_TYPE_ID FROM TBPMO_CONTROL WHERE GUID = " & ControlID Dim def = "SELECT FORMAT_TYPE,CONTROL_TYPE_ID FROM TBPMO_CONTROL WHERE GUID = " & ControlID
Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}', CHANGE_STEP = {2} WHERE CONTROL_ID = {3} AND RECORD_ID = {4}", Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}', CHANGE_STEP = {2} WHERE CONTROL_ID = {3} AND RECORD_ID = {4}",
converted_value, CHANGED_WHO, CURRENT_CHANGE_STEP, ControlID, RecordID) converted_value, CHANGED_WHO, CURRENT_CHANGE_STEP, ControlID, RecordID)
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value) If LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then
Return ClassDatabase.Execute_non_Query(upd) If ClassDatabase.Execute_non_Query(upd) = True Then
Return ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value)
Else
Return False
End If
Else
Return ClassDatabase.Execute_non_Query(upd)
End If
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unerwarteter Fehler in UpdateControlValue: " & ex.Message, True) ClassLogger.Add("Unerwarteter Fehler in UpdateControlValue: " & ex.Message, True)

20
app/DD-Record-Organizer/frmConstructor_Main.Designer.vb generated
View File

@@ -24,9 +24,9 @@ Partial Class frmConstructor_Main
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main))
Dim GridLevelNode4 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode5 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode6 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl()
Me.TreeViewMain = New System.Windows.Forms.TreeView() Me.TreeViewMain = New System.Windows.Forms.TreeView()
@@ -414,12 +414,12 @@ Partial Class frmConstructor_Main
Me.GridControlMain.AllowDrop = True Me.GridControlMain.AllowDrop = True
Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid
resources.ApplyResources(Me.GridControlMain, "GridControlMain") resources.ApplyResources(Me.GridControlMain, "GridControlMain")
GridLevelNode4.LevelTemplate = Me.grvwGrid GridLevelNode1.LevelTemplate = Me.grvwGrid
GridLevelNode4.RelationName = "Level1" GridLevelNode1.RelationName = "Level1"
GridLevelNode5.LevelTemplate = Me.grvwCarousel GridLevelNode2.LevelTemplate = Me.grvwCarousel
GridLevelNode5.RelationName = "Level2" GridLevelNode2.RelationName = "Level2"
GridLevelNode6.RelationName = "Level3" GridLevelNode3.RelationName = "Level3"
Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4, GridLevelNode5, GridLevelNode6}) Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2, GridLevelNode3})
Me.GridControlMain.MainView = Me.grvwTiles Me.GridControlMain.MainView = Me.grvwTiles
Me.GridControlMain.Name = "GridControlMain" Me.GridControlMain.Name = "GridControlMain"
Me.GridControlMain.TabStop = False Me.GridControlMain.TabStop = False
@@ -830,6 +830,8 @@ Partial Class frmConstructor_Main
' '
Me.grvwGridPos.Appearance.EvenRow.BackColor = CType(resources.GetObject("grvwGridPos.Appearance.EvenRow.BackColor"), System.Drawing.Color) Me.grvwGridPos.Appearance.EvenRow.BackColor = CType(resources.GetObject("grvwGridPos.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.grvwGridPos.Appearance.EvenRow.Options.UseBackColor = True Me.grvwGridPos.Appearance.EvenRow.Options.UseBackColor = True
Me.grvwGridPos.Appearance.FilterPanel.BackColor = CType(resources.GetObject("grvwGridPos.Appearance.FilterPanel.BackColor"), System.Drawing.Color)
Me.grvwGridPos.Appearance.FilterPanel.Options.UseBackColor = True
Me.grvwGridPos.GridControl = Me.GridControlPos Me.grvwGridPos.GridControl = Me.GridControlPos
Me.grvwGridPos.Name = "grvwGridPos" Me.grvwGridPos.Name = "grvwGridPos"
Me.grvwGridPos.OptionsView.EnableAppearanceEvenRow = True Me.grvwGridPos.OptionsView.EnableAppearanceEvenRow = True

1498
app/DD-Record-Organizer/frmConstructor_Main.resx
View File

File diff suppressed because it is too large Load Diff

10
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@@ -1734,6 +1734,9 @@ Public Class frmConstructor_Main
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
Return False Return False
Else Else
If RECORD_CHANGED = True Then
RECORD_CHANGED = False
End If
If CtrlCommandUI.IsInsert Then If CtrlCommandUI.IsInsert Then
ActivateAllTabs() ActivateAllTabs()
DisableEditMode() DisableEditMode()
@@ -4651,7 +4654,6 @@ Public Class frmConstructor_Main
If ClassRecordCommands.ConnectRecord(PARENT_RECORDID, POS_RECORD_ID, "POS_LINK for Entity " & POS_ENTITY.ToString) = True Then If ClassRecordCommands.ConnectRecord(PARENT_RECORDID, POS_RECORD_ID, "POS_LINK for Entity " & POS_ENTITY.ToString) = True Then
ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, POS_RECORD_ID) ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, POS_RECORD_ID)
End If End If
Load_Pos_Data()
Else Else
MsgBox("Unexpected Error in Creating POS", MsgBoxStyle.Exclamation) MsgBox("Unexpected Error in Creating POS", MsgBoxStyle.Exclamation)
End If End If
@@ -4701,11 +4703,15 @@ Public Class frmConstructor_Main
End Sub End Sub
Private Sub grvwGridPos_RowStyle(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles grvwGridPos.RowStyle Private Sub grvwGridPos_RowStyle(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles grvwGridPos.RowStyle
If e.RowHandle = -1 Then
Exit Sub
End If
If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
e.Appearance.BackColor = Color.Orange 'LemonChiffon e.Appearance.BackColor = Color.Orange 'LemonChiffon
End If End If
End Sub End Sub
Private Sub grvwGrid_RowStyle(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles grvwGrid.RowStyle Private Sub grvwGrid_RowStyle(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles grvwGrid.RowStyle
If e.RowHandle = -1 Then If e.RowHandle = -1 Then
Exit Sub Exit Sub
@@ -6547,4 +6553,6 @@ Public Class frmConstructor_Main
Save_Record() Save_Record()
End If End If
End Sub End Sub
End Class End Class

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

@@ -150,8 +150,11 @@ Public Class frmMain
Else Else
itemRefreshProxy.Visibility = BarItemVisibility.Never itemRefreshProxy.Visibility = BarItemVisibility.Never
End If End If
Dim msg = "Anzahl Angemeldete User: " & USERS_LOGGED_IN.ToString()
LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & USERS_LOGGED_IN.ToString() If USER_LANGUAGE <> "de-DE" Then
msg = "#User logged in: " & USERS_LOGGED_IN.ToString()
End If
LabelLoggedIn.Caption = msg
'LoadMenuItems() 'LoadMenuItems()
LoadMenuItems2() LoadMenuItems2()