jj 25.10.
This commit is contained in:
Jonathan Jenne
@@ -1745,48 +1745,50 @@ Public Class frmConstructor_Main
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
' Try
|
||||
If TCDetails.SelectedTabPage.Text.StartsWith("Pos") = False Then
|
||||
SELECTED_RECORD_ID = 0
|
||||
Lock_RecordControls(False)
|
||||
tsButtonCancel.Visible = True
|
||||
SELECTED_RECORD_ID = 0
|
||||
Lock_RecordControls(False)
|
||||
tsButtonCancel.Visible = True
|
||||
|
||||
CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID
|
||||
' Den Record anlegen, damit wir eine RECORD_ID bekommen
|
||||
If ClassRecordCommands.CreateRecord(ENTITY_ID) = True Then
|
||||
CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID
|
||||
' Den Record anlegen, damit wir eine RECORD_ID bekommen
|
||||
|
||||
Dim recordId = ClassRecordCommands.CreateRecordProcedure(ENTITY_ID)
|
||||
|
||||
If recordId > 0 Then
|
||||
' Die RECORD_ID auslesen und setzen
|
||||
NEW_RECORD_ID = ClassRecordCommands.GetLastRecord()
|
||||
NEW_RECORD_ID = recordId
|
||||
CURRENT_RECORD_ID = NEW_RECORD_ID
|
||||
RECORD_ID = NEW_RECORD_ID
|
||||
SELECTED_RECORD_ID = NEW_RECORD_ID
|
||||
ClassProxy.PRPROXY_RECORD_UPD_INS(ENTITY_ID, SELECTED_RECORD_ID)
|
||||
If PARENT_ENTITYID > 0 And PARENT_RECORDID > 0 Then
|
||||
If ClassRecordCommands.ConnectRecord(PARENT_RECORDID, CURRENT_RECORD_ID, "INSERT RECORD") = False Then
|
||||
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "In Connecting Record - Check the log!")
|
||||
Else
|
||||
ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, CURRENT_RECORD_ID)
|
||||
End If
|
||||
RECORD_ID = NEW_RECORD_ID
|
||||
SELECTED_RECORD_ID = NEW_RECORD_ID
|
||||
ClassProxy.PRPROXY_RECORD_UPD_INS(ENTITY_ID, SELECTED_RECORD_ID)
|
||||
If PARENT_ENTITYID > 0 And PARENT_RECORDID > 0 Then
|
||||
If ClassRecordCommands.ConnectRecord(PARENT_RECORDID, CURRENT_RECORD_ID, "INSERT RECORD") = False Then
|
||||
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "In Connecting Record - Check the log!")
|
||||
Else
|
||||
ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, CURRENT_RECORD_ID)
|
||||
End If
|
||||
|
||||
ClassControlValues.LoadDefaultValues(ENTITY_ID, SELECTED_RECORD_ID, pnlDetails.Controls, CURRENT_PARENT_ENTITY_ID, ENTITY_ID)
|
||||
ClassControlValues.Enable_Depending_Controls(ENTITY_ID, RECORD_ID, PARENT_RECORDID, CtrlBuilder.AllControls, ENTITY_ID)
|
||||
' Das StatusLabel aktualisieren
|
||||
Update_Record_Label(NEW_RECORD_ID)
|
||||
Doc_ReadOnlyHandler(True)
|
||||
RUN_WDSEARCH_GRID()
|
||||
' Im gegensatz zu EnableEditMode muss hier nur der save button enabled werden
|
||||
tsButtonSave.Enabled = True
|
||||
' Muss aktiviert werden, sonst funktionieren die Combobox Abhängigkeits Events nicht
|
||||
CURRENT_RECORD_ENABLED = True
|
||||
' EDIT_STATE muss hier (immer?) Update sein, sonst wird beim Speichern noch ein Datensatz angelegt
|
||||
EDIT_STATE = EditState.Update
|
||||
RECORD_CHANGED = True
|
||||
'tsslblRecord.Text = "Adding record ......"
|
||||
RIGHT_RECORD_AND_FILE_READ_ONLY = False
|
||||
tslblLocked.Visible = False
|
||||
tslblFileslocked.Visible = False
|
||||
tsButtonAdd.Enabled = False
|
||||
End If
|
||||
|
||||
ClassControlValues.LoadDefaultValues(ENTITY_ID, SELECTED_RECORD_ID, pnlDetails.Controls, CURRENT_PARENT_ENTITY_ID, ENTITY_ID)
|
||||
ClassControlValues.Enable_Depending_Controls(ENTITY_ID, RECORD_ID, PARENT_RECORDID, CtrlBuilder.AllControls, ENTITY_ID)
|
||||
' Das StatusLabel aktualisieren
|
||||
Update_Record_Label(NEW_RECORD_ID)
|
||||
Doc_ReadOnlyHandler(True)
|
||||
RUN_WDSEARCH_GRID()
|
||||
' Im gegensatz zu EnableEditMode muss hier nur der save button enabled werden
|
||||
tsButtonSave.Enabled = True
|
||||
' Muss aktiviert werden, sonst funktionieren die Combobox Abhängigkeits Events nicht
|
||||
CURRENT_RECORD_ENABLED = True
|
||||
' EDIT_STATE muss hier (immer?) Update sein, sonst wird beim Speichern noch ein Datensatz angelegt
|
||||
EDIT_STATE = EditState.Update
|
||||
RECORD_CHANGED = True
|
||||
'tsslblRecord.Text = "Adding record ......"
|
||||
RIGHT_RECORD_AND_FILE_READ_ONLY = False
|
||||
tslblLocked.Visible = False
|
||||
tslblFileslocked.Visible = False
|
||||
tsButtonAdd.Enabled = False
|
||||
End If
|
||||
End If
|
||||
' Catch ex As Exception
|
||||
'ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error tsButtonAdd", ex.Message, ex.StackTrace)
|
||||
' Finally
|
||||
@@ -2860,8 +2862,11 @@ Public Class frmConstructor_Main
|
||||
Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}", PARENT_RECORD_ID, ENTITY_ID)
|
||||
Dim GRP_SINGLE_REC = ClassDatabase.Execute_Scalar(sql, True)
|
||||
If IsNothing(GRP_SINGLE_REC) Then
|
||||
If ClassRecordCommands.CreateRecord(ENTITY_ID) = True Then
|
||||
GRP_SINGLE_REC = ClassRecordCommands.GetLastRecord
|
||||
|
||||
Dim recordId = ClassRecordCommands.CreateRecordProcedure(ENTITY_ID)
|
||||
|
||||
If recordId > 0 Then
|
||||
GRP_SINGLE_REC = recordId
|
||||
If Not IsNothing(GRP_SINGLE_REC) Then
|
||||
'Die neue Record-ID setzen
|
||||
RECORD_ID = GRP_SINGLE_REC
|
||||
@@ -4786,18 +4791,17 @@ Public Class frmConstructor_Main
|
||||
sql = String.Format("SELECT CONTROL_ID FROM VWPMO_VALUES WHERE CONTROL_ID = {0} AND FORM_ID = {1} AND CONTROL_COLUMN = '{2}' AND RECORD_ID = {3}", controlid, POS_ENTITY, column, POS_RECORD_ID)
|
||||
Dim cId As Integer = ClassDatabase.Execute_Scalar(sql, True)
|
||||
If IsNothing(POS_RECORD_ID) Or IsDBNull(POS_RECORD_ID) Then
|
||||
If ClassRecordCommands.CreateRecord(POS_ENTITY) = True Then
|
||||
Dim recid = ClassRecordCommands.GetLastRecord
|
||||
If Not IsNothing(recid) Then
|
||||
'Die neue Record-ID setzen
|
||||
POS_RECORD_ID = recid
|
||||
ClassProxy.PRPROXY_RECORD_UPD_INS(POS_ENTITY, POS_RECORD_ID)
|
||||
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)
|
||||
End If
|
||||
Else
|
||||
MsgBox("Unexpected Error in Creating POS", MsgBoxStyle.Exclamation)
|
||||
Dim recordId = ClassRecordCommands.CreateRecordProcedure(POS_ENTITY)
|
||||
|
||||
If recordId > 0 Then
|
||||
'Die neue Record-ID setzen
|
||||
POS_RECORD_ID = recordId
|
||||
ClassProxy.PRPROXY_RECORD_UPD_INS(POS_ENTITY, POS_RECORD_ID)
|
||||
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)
|
||||
End If
|
||||
Else
|
||||
MsgBox("Unexpected Error in Creating POS", MsgBoxStyle.Exclamation)
|
||||
End If
|
||||
End If
|
||||
' Wenn cId = 0, existiert noch kein wert für diese controlId/FormId Kombination
|
||||
@@ -4815,9 +4819,6 @@ Public Class frmConstructor_Main
|
||||
Catch ex As Exception
|
||||
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in grvwGridPos_CellValueChanged: ", ex.Message)
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub grvwGridPos_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles grvwGridPos.FocusedRowChanged
|
||||
@@ -6398,13 +6399,15 @@ Public Class frmConstructor_Main
|
||||
|
||||
Dim NEWRECORD As Integer
|
||||
If RECORD_CREATE = True Then
|
||||
ClassRecordCommands.CreateRecord(ENTITY_ID)
|
||||
Try
|
||||
NEWRECORD = ClassRecordCommands.GetLastRecord()
|
||||
Catch ex As Exception
|
||||
Dim SQL = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND ADDED_WHO = '" & USER_USERNAME & "'"
|
||||
NEWRECORD = ClassDatabase.Execute_Scalar(SQL)
|
||||
End Try
|
||||
Dim recordId = ClassRecordCommands.CreateRecordProcedure(ENTITY_ID)
|
||||
|
||||
If recordId = 0 Then
|
||||
ClassLogger.Add("Error in ADD_NODE: Could not create Record", True)
|
||||
ClassHelper.MSGBOX_Handler("ERROR", "Error in ADD_NODE", "Could not create Record")
|
||||
Exit Sub
|
||||
Else
|
||||
NEWRECORD = recordId
|
||||
End If
|
||||
End If
|
||||
|
||||
'Dim NEWRECORD As Integer = ClassControlCommandsUI.GetLastRecord(ENTITY_ID)
|
||||
|
||||
Reference in New Issue
Block a user