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

MSKW37

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-09-19 12:52:35 +02:00
parent 96c08ada63
commit 3a175d04e5
19 changed files with 3463 additions and 3039 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
app/DD-Record-Organizer/frmRecordView.vb
View File

@@ -76,6 +76,7 @@ Public Class frmRecordView
End Try
RUN_WDSEARCH_GRID()
ClassWorkflow.Refresh_Workflows_Entity()
Load_Task_Data()
End Sub
@@ -90,10 +91,14 @@ Public Class frmRecordView
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, value, USER_USERNAME)
ClassDatabase.Execute_non_Query(Sql, False)
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, RECORD_ID, configId, value, user)
If ClassDatabase.Execute_non_Query(Sql, False) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
MsgBox("Error:" & vbNewLine & ex.Message)
MsgBox("Error:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
'Perform your actions
End Sub
@@ -108,10 +113,14 @@ Public Class frmRecordView
Dim user As String = USER_USERNAME
Dim dateString = value.ToString("yyyy-MM-dd") 'hh:mm:ss.fff
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, dateString, user)
ClassDatabase.Execute_non_Query(Sql, False)
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, RECORD_ID, configId, dateString, user)
If ClassDatabase.Execute_non_Query(Sql, False) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
MsgBox("Error in OnDateSelectedValueChanged:" & vbNewLine & ex.Message)
MsgBox("Error in OnDateSelectedValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
@@ -124,10 +133,14 @@ Public Class frmRecordView
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, value, user)
ClassDatabase.Execute_non_Query(Sql, False)
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, RECORD_ID, configId, value, user)
If ClassDatabase.Execute_non_Query(Sql, False) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
MsgBox("Error in OnTextSelectedValueChanged:" & vbNewLine & ex.Message)
MsgBox("Error in OnTextSelectedValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub