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

Positionsanpassung update/insert

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-04-25 12:47:29 +02:00
parent 7e14b60c8d
commit 29692430d8
8 changed files with 6970 additions and 7288 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD-Record-Organizer/ClassControlBuilder.vb
View File

@@ -375,7 +375,7 @@ Public Class ClassControlBuilder
If (Not value.Contains(";")) Then If (Not value.Contains(";")) Then
If Not IsNothing(ctrlvalID) Then If Not IsNothing(ctrlvalID) Then
If ClassControlCommandsUI.UpdateControlValue(CONTROL_ID, CURRENT_RECORD_ID, value.ToString) = False Then If ClassControlCommandsUI.UpdateControlValue(CONTROL_ID, CURRENT_RECORD_ID, value.ToString, CURRENT_ENTITY_ID) = False Then
ClassLogger.Add(" >> Check Update depending control (XX) value as Update was not successful'", False) ClassLogger.Add(" >> Check Update depending control (XX) value as Update was not successful'", False)
Else Else
' & upd & "'") ' & upd & "'")
@@ -387,7 +387,7 @@ Public Class ClassControlBuilder
'End If 'End If
Else Else
If CURRENT_RECORD_ID <> 0 Then If CURRENT_RECORD_ID <> 0 Then
If ClassControlCommandsUI.InsertControlValue(CONTROL_ID, CURRENT_RECORD_ID, value) = False Then If ClassControlCommandsUI.InsertControlValue(CONTROL_ID, CURRENT_RECORD_ID, value, CURRENT_ENTITY_ID) = False Then
ClassLogger.Add(" >> Check Insert depending control (XXX) value as it was nothing and Insert was not successful", False) ClassLogger.Add(" >> Check Insert depending control (XXX) value as it was nothing and Insert was not successful", False)
End If End If
End If End If
@@ -433,14 +433,14 @@ Public Class ClassControlBuilder
If Not IsNothing(id) Then If Not IsNothing(id) Then
'Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}' WHERE GUID = {2}", dateValue, USER_USERNAME, id) 'Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}' WHERE GUID = {2}", dateValue, USER_USERNAME, id)
If ClassControlCommandsUI.UpdateControlValue(dependingControlId, CURRENT_RECORD_ID, dateValue) = True Then If ClassControlCommandsUI.UpdateControlValue(dependingControlId, CURRENT_RECORD_ID, dateValue, CURRENT_ENTITY_ID) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue'", False) '" & upd) If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue'", False) '" & upd)
Else Else
ClassLogger.Add(" >> Check Update depending control (DateEdit) value as it was nothing and Update was not successful - Update-Command '", False) ' & upd & "'") ClassLogger.Add(" >> Check Update depending control (DateEdit) value as it was nothing and Update was not successful - Update-Command '", False) ' & upd & "'")
End If End If
Else Else
If ClassControlCommandsUI.InsertControlValue(dependingControlId, CURRENT_RECORD_ID, dateValue) = True Then If ClassControlCommandsUI.InsertControlValue(dependingControlId, CURRENT_RECORD_ID, dateValue, CURRENT_ENTITY_ID) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue (DateEdit)!", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue (DateEdit)!", False)
Else Else
ClassLogger.Add(" >> Check Insert depending control (DateEdit)value as it was nothing and Insert was not successful", False) ClassLogger.Add(" >> Check Insert depending control (DateEdit)value as it was nothing and Insert was not successful", False)
@@ -496,7 +496,7 @@ Public Class ClassControlBuilder
Dim id = ClassDatabase.Execute_Scalar(sqltextbox, True) Dim id = ClassDatabase.Execute_Scalar(sqltextbox, True)
If Not IsNothing(id) Then If Not IsNothing(id) Then
If ClassControlCommandsUI.UpdateControlValue(dependingControlId, CURRENT_RECORD_ID, value1) = True Then If ClassControlCommandsUI.UpdateControlValue(dependingControlId, CURRENT_RECORD_ID, value1, CURRENT_ENTITY_ID) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue'", False) '" & upd) If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue'", False) '" & upd)
Else Else
ClassLogger.Add(" >> Check Update depending control (TextBox) value as it was nothing and Update was not successful - Update-Command '", False) ' & upd & "'") ClassLogger.Add(" >> Check Update depending control (TextBox) value as it was nothing and Update was not successful - Update-Command '", False) ' & upd & "'")
@@ -509,7 +509,7 @@ Public Class ClassControlBuilder
'End If 'End If
Else Else
If ClassControlCommandsUI.InsertControlValue(dependingControlId, CURRENT_RECORD_ID, value1) = True Then If ClassControlCommandsUI.InsertControlValue(dependingControlId, CURRENT_RECORD_ID, value1, CURRENT_ENTITY_ID) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue (TextBox)!", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue (TextBox)!", False)
Else Else
ClassLogger.Add(" >> Check Insert depending control (TextBox) value as it was nothing and Insert was not successful", False) ClassLogger.Add(" >> Check Insert depending control (TextBox) value as it was nothing and Insert was not successful", False)

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

@@ -368,7 +368,7 @@ Public Class ClassControlCommandsUI
InsertAllControls(FormID, RecordID, DirectCast(ctrl, GroupBox).Controls) InsertAllControls(FormID, RecordID, DirectCast(ctrl, GroupBox).Controls)
End If End If
Else Else
InsertControlValue(CONTROL_ID, RecordID, CONTROL_VALUE) InsertControlValue(CONTROL_ID, RecordID, CONTROL_VALUE, CURRENT_ENTITY_ID)
End If End If
Next Next
End Sub End Sub
@@ -538,13 +538,13 @@ Public Class ClassControlCommandsUI
Continue For Continue For
End If End If
If CONTROL_VALUE <> "" Then If CONTROL_VALUE <> "" Then
InsertControlValue(CONTROL_ID, RecordID, CONTROL_VALUE) InsertControlValue(CONTROL_ID, RecordID, CONTROL_VALUE, CURRENT_ENTITY_ID)
End If End If
End If End If
Else ' Update Control Else ' Update Control
If Not IsNothing(CONTROL_VALUE) Then If Not IsNothing(CONTROL_VALUE) Then
Dim sw2 As New SW("UpdateControlValue") Dim sw2 As New SW("UpdateControlValue")
UpdateControlValue(CONTROL_ID, RecordID, CONTROL_VALUE) UpdateControlValue(CONTROL_ID, RecordID, CONTROL_VALUE, CURRENT_ENTITY_ID)
sw2.Done() sw2.Done()
End If End If
End If End If
@@ -817,13 +817,13 @@ Public Class ClassControlCommandsUI
Return Nothing Return Nothing
End Try End Try
End Function End Function
Public Shared Function InsertControlValue(ControlID As Integer, RecordID As Integer, Value As String) Public Shared Function InsertControlValue(ControlID As Integer, RecordID As Integer, Value As String, ENTITY_ID As Integer)
Try Try
Dim AddedWho = USER_USERNAME Dim AddedWho = USER_USERNAME
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(CURRENT_ENTITY_ID, ControlID, RecordID, converted_value) ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value)
Return ClassDatabase.Execute_non_Query(ins) Return ClassDatabase.Execute_non_Query(ins)
Else Else
Return False Return False
@@ -835,16 +835,16 @@ Public Class ClassControlCommandsUI
End Try End Try
End Function End Function
Public Shared Function UpdateControlValue(ControlID As Integer, RecordID As Integer, Value As String) Public Shared Function UpdateControlValue(ControlID As Integer, RecordID As Integer, Value As String, ENTITY_ID As Integer)
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(CURRENT_ENTITY_ID, ControlID, RecordID, converted_value) ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value)
Return ClassDatabase.Execute_non_Query(upd) Return ClassDatabase.Execute_non_Query(upd)
Catch ex As Exception Catch ex As Exception

120
app/DD-Record-Organizer/ClassControlValues.vb
View File

@@ -4,67 +4,71 @@ Imports System.Text.RegularExpressions
Public Class ClassControlValues Public Class ClassControlValues
Public Shared Function ControlHasValue(control As Control) As Boolean Public Shared Function ControlHasValue(control As Control) As Boolean
Try
Select Case control.GetType()
Case GetType(TextBox)
Dim textbox As TextBox = DirectCast(control, TextBox)
If textbox.Text.Trim() = String.Empty Then
Return False
Else
Return True
End If
Select Case control.GetType() Case GetType(CustomComboBox)
Case GetType(TextBox) Dim combobox As CustomComboBox = DirectCast(control, CustomComboBox)
Dim textbox As TextBox = DirectCast(control, TextBox) If combobox.Text.Trim() = String.Empty Then
If textbox.Text.Trim() = String.Empty Then Return False
Return False Else
Else Return True
End If
Case GetType(CheckBox)
Dim checkbox As CheckBox = DirectCast(control, CheckBox)
Return checkbox.Checked
Case GetType(RadioButton)
Dim radiobutton As RadioButton = DirectCast(control, RadioButton)
Return radiobutton.Checked
Case GetType(DevExpress.XtraEditors.DateEdit)
Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit)
If IsDBNull(datepicker.EditValue) Or datepicker.EditValue = DateTime.MinValue Then
Return False
Else
Return True
End If
Case GetType(DevExpress.XtraEditors.ListBoxControl)
Dim listbox As DevExpress.XtraEditors.ListBoxControl = DirectCast(control, DevExpress.XtraEditors.ListBoxControl)
If listbox.SelectedIndex = -1 Then
Return False
Else
Return True
End If
Case GetType(DevExpress.XtraEditors.CheckedListBoxControl)
Dim checkedlistbox = DirectCast(control, DevExpress.XtraEditors.CheckedListBoxControl)
If checkedlistbox.CheckedItemsCount = 0 Then
Return False
Else
Return True
End If
Case GetType(PictureBox)
Dim picturebox = DirectCast(control, PictureBox)
If IsNothing(picturebox.BackgroundImage) Then
Return False
Else
Return True
End If
Case Else
Return True Return True
End If End Select
Catch ex As Exception
Return False
End Try
Case GetType(CustomComboBox)
Dim combobox As CustomComboBox = DirectCast(control, CustomComboBox)
If combobox.Text.Trim() = String.Empty Then
Return False
Else
Return True
End If
Case GetType(CheckBox)
Dim checkbox As CheckBox = DirectCast(control, CheckBox)
Return checkbox.Checked
Case GetType(RadioButton)
Dim radiobutton As RadioButton = DirectCast(control, RadioButton)
Return radiobutton.Checked
Case GetType(DevExpress.XtraEditors.DateEdit)
Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit)
If IsDBNull(datepicker.EditValue) Or datepicker.EditValue = DateTime.MinValue Then
Return False
Else
Return True
End If
Case GetType(DevExpress.XtraEditors.ListBoxControl)
Dim listbox As DevExpress.XtraEditors.ListBoxControl = DirectCast(control, DevExpress.XtraEditors.ListBoxControl)
If listbox.SelectedIndex = -1 Then
Return False
Else
Return True
End If
Case GetType(DevExpress.XtraEditors.CheckedListBoxControl)
Dim checkedlistbox = DirectCast(control, DevExpress.XtraEditors.CheckedListBoxControl)
If checkedlistbox.CheckedItemsCount = 0 Then
Return False
Else
Return True
End If
Case GetType(PictureBox)
Dim picturebox = DirectCast(control, PictureBox)
If IsNothing(picturebox.BackgroundImage) Then
Return False
Else
Return True
End If
Case Else
Return True
End Select
End Function End Function

16
app/DD-Record-Organizer/frmConstructorDesigner.Designer.vb generated
View File

@@ -47,8 +47,8 @@ Partial Class frmConstructorDesigner
Dim Label19 As System.Windows.Forms.Label Dim Label19 As System.Windows.Forms.Label
Dim SQL_RIGHT_READ_AND_VIEW_ONLYLabel As System.Windows.Forms.Label Dim SQL_RIGHT_READ_AND_VIEW_ONLYLabel As System.Windows.Forms.Label
Dim SQL_RIGHT_WINDREAM_VIEWLabel As System.Windows.Forms.Label Dim SQL_RIGHT_WINDREAM_VIEWLabel As System.Windows.Forms.Label
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin()
Me.TBPMO_FORM_CONSTRUCTORBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPMO_FORM_CONSTRUCTORBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPMO_FORM_CONSTRUCTORTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter() Me.TBPMO_FORM_CONSTRUCTORTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter()
@@ -429,9 +429,11 @@ Partial Class frmConstructorDesigner
' '
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter = Nothing Me.TableAdapterManager.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Me.TBPMO_FORM_CONSTRUCTORTableAdapter Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Me.TBPMO_FORM_CONSTRUCTORTableAdapter
Me.TableAdapterManager.TBPMO_LOG_ESSENTIALSTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_SAP_FUBATableAdapter = Nothing Me.TableAdapterManager.TBPMO_SAP_FUBATableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
' '
@@ -1239,8 +1241,8 @@ Partial Class frmConstructorDesigner
' '
Me.dgvResult.AllowUserToAddRows = False Me.dgvResult.AllowUserToAddRows = False
Me.dgvResult.AllowUserToDeleteRows = False Me.dgvResult.AllowUserToDeleteRows = False
DataGridViewCellStyle7.BackColor = System.Drawing.Color.Cyan DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan
Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
resources.ApplyResources(Me.dgvResult, "dgvResult") resources.ApplyResources(Me.dgvResult, "dgvResult")
Me.dgvResult.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvResult.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvResult.Name = "dgvResult" Me.dgvResult.Name = "dgvResult"
@@ -1250,8 +1252,8 @@ Partial Class frmConstructorDesigner
' '
Me.dgvPlaceholders.AllowUserToAddRows = False Me.dgvPlaceholders.AllowUserToAddRows = False
Me.dgvPlaceholders.AllowUserToDeleteRows = False Me.dgvPlaceholders.AllowUserToDeleteRows = False
DataGridViewCellStyle8.BackColor = System.Drawing.Color.Cyan DataGridViewCellStyle2.BackColor = System.Drawing.Color.Cyan
Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace}) Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace})
resources.ApplyResources(Me.dgvPlaceholders, "dgvPlaceholders") resources.ApplyResources(Me.dgvPlaceholders, "dgvPlaceholders")
@@ -1449,9 +1451,11 @@ Partial Class frmConstructorDesigner
' '
Me.TableAdapterManager1.BackupDataSetBeforeUpdate = False Me.TableAdapterManager1.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager1.TBDD_CONNECTIONTableAdapter = Nothing Me.TableAdapterManager1.TBDD_CONNECTIONTableAdapter = Nothing
Me.TableAdapterManager1.TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter = Nothing
Me.TableAdapterManager1.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter = Nothing Me.TableAdapterManager1.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter = Nothing
Me.TableAdapterManager1.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager1.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing
Me.TableAdapterManager1.TBPMO_FORM_CONSTRUCTORTableAdapter = Me.TBPMO_FORM_CONSTRUCTORTableAdapter1 Me.TableAdapterManager1.TBPMO_FORM_CONSTRUCTORTableAdapter = Me.TBPMO_FORM_CONSTRUCTORTableAdapter1
Me.TableAdapterManager1.TBPMO_LOG_ESSENTIALSTableAdapter = Nothing
Me.TableAdapterManager1.TBPMO_SAP_FUBATableAdapter = Nothing Me.TableAdapterManager1.TBPMO_SAP_FUBATableAdapter = Nothing
Me.TableAdapterManager1.UpdateOrder = DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete Me.TableAdapterManager1.UpdateOrder = DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
' '

12528
app/DD-Record-Organizer/frmConstructorDesigner.resx
View File

File diff suppressed because it is too large Load Diff

18
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 GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode4 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode5 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode6 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")
GridLevelNode1.LevelTemplate = Me.grvwGrid GridLevelNode4.LevelTemplate = Me.grvwGrid
GridLevelNode1.RelationName = "Level1" GridLevelNode4.RelationName = "Level1"
GridLevelNode2.LevelTemplate = Me.grvwCarousel GridLevelNode5.LevelTemplate = Me.grvwCarousel
GridLevelNode2.RelationName = "Level2" GridLevelNode5.RelationName = "Level2"
GridLevelNode3.RelationName = "Level3" GridLevelNode6.RelationName = "Level3"
Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2, GridLevelNode3}) Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4, GridLevelNode5, GridLevelNode6})
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

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

File diff suppressed because it is too large Load Diff

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

@@ -3988,10 +3988,10 @@ Public Class frmConstructor_Main
Exit Sub Exit Sub
End If End If
If USER_PERSONIFIED_TEST = True Then If USER_PERSONIFIED_TEST = True Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using ADDi in personified mode! Adding files is not allowed!") ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using ADDI in personified mode! Adding files is not allowed!")
Exit Sub Exit Sub
End If End If
If clsWindream.SESSION_CREATED = False Then If clsWindream.Create_Session = False Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart ADDI afterwards.", "Could not create a windream session!") ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart ADDI afterwards.", "Could not create a windream session!")
Exit Sub Exit Sub
End If End If
@@ -4250,7 +4250,7 @@ Public Class frmConstructor_Main
If ENTITY_LOADED = False = False Then If ENTITY_LOADED = False = False Then
Exit Sub Exit Sub
End If End If
If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DATE_CTRL_ID, RECORD_ID, dtpFollowUp.Value) = True Then If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DATE_CTRL_ID, RECORD_ID, dtpFollowUp.Value, CURRENT_ENTITY_ID) = True Then
lblFollowUp_save.Text = "Follow Up saved - " & Now.ToString lblFollowUp_save.Text = "Follow Up saved - " & Now.ToString
lblFollowUp_save.Visible = True lblFollowUp_save.Visible = True
'UpdRECORD_NEEDS_REFRESH(True) 'UpdRECORD_NEEDS_REFRESH(True)
@@ -4264,7 +4264,7 @@ Public Class frmConstructor_Main
If ENTITY_LOADED = False Then If ENTITY_LOADED = False Then
Exit Sub Exit Sub
End If End If
If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DONE_CTRL_ID, RECORD_ID, chkFollowUp.Checked.ToString) = True Then If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DONE_CTRL_ID, RECORD_ID, chkFollowUp.Checked.ToString, CURRENT_ENTITY_ID) = True Then
lblFollowUp_save.Text = "Follow Up saved - " & Now.ToString lblFollowUp_save.Text = "Follow Up saved - " & Now.ToString
lblFollowUp_save.Visible = True lblFollowUp_save.Visible = True
' UpdRECORD_NEEDS_REFRESH(True) ' UpdRECORD_NEEDS_REFRESH(True)
@@ -4659,15 +4659,16 @@ Public Class frmConstructor_Main
End If End If
' Wenn cId = 0, existiert noch kein wert für diese controlId/FormId Kombination ' Wenn cId = 0, existiert noch kein wert für diese controlId/FormId Kombination
If cId = 0 Then If cId = 0 Then
ClassControlCommandsUI.InsertControlValue(controlid, POS_RECORD_ID, e.Value) ClassControlCommandsUI.InsertControlValue(controlid, POS_RECORD_ID, e.Value, POS_ENTITY)
Update_Status_Label(True, "Record was added!", EditState.Insert) Update_Status_Label(True, "Record was added!", EditState.Insert)
Else Else
ClassControlCommandsUI.UpdateControlValue(controlid, POS_RECORD_ID, e.Value) ClassControlCommandsUI.UpdateControlValue(controlid, POS_RECORD_ID, e.Value, POS_ENTITY)
Update_Status_Label(True, "Record was updated!", EditState.Update) Update_Status_Label(True, "Record was updated!", EditState.Update)
End If End If
Else Else
Update_Status_Label(False) Update_Status_Label(False)
End If End If
Load_Pos_Data()
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in grvwGridPos_CellValueChanged: ", ex.Message) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in grvwGridPos_CellValueChanged: ", ex.Message)
End Try End Try
@@ -5722,7 +5723,7 @@ Public Class frmConstructor_Main
End If End If
sql = String.Format("SELECT [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & sql = String.Format("SELECT [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " &
"FROM VWPMO_CONSTRUCTOR_FORMS WHERE FORM_ID = {2}", USER_LANGUAGE, CURRENT_SCREEN_ID, node_tag.ToString) "FROM VWPMO_CONSTRUCTOR_FORMS WHERE FORM_ID = {2}", USER_LANGUAGE, CURRENT_SCREEN_ID, node_tag.ToString)
ENTITY_STRING = ClassDatabase.Execute_Scalar(sql) ENTITY_STRING = ClassDatabase.Execute_Scalar(sql, True)
sql = String.Format("select count(guid) from TBPMO_CONTROL_ENTITY_LINK where ORIGIN_CTRL_ID in (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {0}) " & sql = String.Format("select count(guid) from TBPMO_CONTROL_ENTITY_LINK where ORIGIN_CTRL_ID in (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {0}) " &
"AND LINKED_CTRL_ID IN (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {1})", ENTITY_ID, node_tag) "AND LINKED_CTRL_ID IN (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {1})", ENTITY_ID, node_tag)
Dim count = ClassDatabase.Execute_Scalar(sql, True) Dim count = ClassDatabase.Execute_Scalar(sql, True)
@@ -5743,10 +5744,15 @@ Public Class frmConstructor_Main
Save_Grid_Layout() Save_Grid_Layout()
For Each _RECORD As String In e.Data.GetData(GetType(String())) For Each _RECORD As String In e.Data.GetData(GetType(String()))
ClassLogger.Add(String.Format("Relinking entity of record '{0}' to entity '{1}'?", _RECORD, ENTITY_STRING.ToString), False)
Dim upd = String.Format("UPDATE TBPMO_RECORD SET FORM_ID = {0} where GUID = {1}", node_tag, _RECORD) Dim upd = String.Format("UPDATE TBPMO_RECORD SET FORM_ID = {0} where GUID = {1}", node_tag, _RECORD)
If ClassDatabase.Execute_non_Query(upd) = True Then If ClassDatabase.Execute_non_Query(upd) = True Then
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED = True Then If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED = True Then
ClassDatabase.Execute_non_Query(upd, True) ClassDatabase.Execute_non_Query(upd, True)
Dim del = String.Format("DELETE FROM TBPMO_ENTITY_TABLE{1} WHERE [Record-ID] = {0}", _RECORD, ENTITY_ID)
ClassDatabase.Execute_non_Query(del, True)
End If End If
msg = String.Format("ENTITY WAS CHANGED TO {0}-{1} by User: {2}", ENTITY_STRING, node_tag, USER_USERNAME) msg = String.Format("ENTITY WAS CHANGED TO {0}-{1} by User: {2}", ENTITY_STRING, node_tag, USER_USERNAME)
ClassHelper.InsertEssential_Log(_RECORD, "RECORD-ID", msg) ClassHelper.InsertEssential_Log(_RECORD, "RECORD-ID", msg)
@@ -5774,6 +5780,13 @@ Public Class frmConstructor_Main
msg = String.Format("The record was successfully relinked with entity {0}", ENTITY_STRING.ToString) msg = String.Format("The record was successfully relinked with entity {0}", ENTITY_STRING.ToString)
End If End If
MsgBox(msg, MsgBoxStyle.Information) MsgBox(msg, MsgBoxStyle.Information)
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED = True Then
msg = "Sie benutzen einen Proxyserver. Die Daten des neu verlinkten Datensatzes werden Sie erst nach vollständiger Proxysynchronisation einsehen können!"
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("You are using a proxy-Server. The new linked record in entity '{0}' will only be displayed after a full synchronisation!", ENTITY_STRING)
End If
MsgBox(msg, MessageBoxIcon.Information)
End If
Load_Datafor_Entity() Load_Datafor_Entity()
End If End If
End If End If