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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-11-16 09:43:16 +01:00
parent 1702ab2461
commit 3e6f1c8db8
16 changed files with 1780 additions and 196 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD-Record-Organiser/frmNewVariant.vb
View File

@@ -21,7 +21,7 @@ Public Class frmNewVariant
Dim ins = String.Format("INSERT INTO TBPMO_RECORD_VARIANT (RECORD_ID,REASON_CODE,COMMENT,ADDED_WHO) VALUES ({0},'{1}','{2}','{3}')", CURRENT_RECORD_ID, cmbReason.SelectedText, txtComment.Text, Environment.UserName)
If ClassDatabase.Execute_non_Query(ins) = True Then
Upd = String.Format("UPDATE TBPMO_RECORD SET RECORD_ENTITY_ID = (SELECT RECORD_ENTITY_ID FROM TBPMO_RECORD WHERE GUID = {0}),CHANGED_WHO = '{1}' WHERE GUID = {2}", CURRENT_RECORD_ID, Environment.UserName, REC_ID)
If ClassDatabase.Execute_non_Query(ins) = True Then
If ClassDatabase.Execute_non_Query(Upd) = True Then
CURRENT_RECORD_ID = REC_ID
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()