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

ms

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-04-18 10:18:19 +02:00
parent 292b241fd1
commit aa9ac2bf1b
2 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -21,7 +21,7 @@ Public Class frmNewVariant
If result = MsgBoxResult.Yes Then
RelinkFiles = 1
End If
Dim SQL = String.Format("PRPMO_CREATE_VARIANT {0},'{1}','{2}','{3}','{4}'", CURRENT_RECORD_ID, USER_USERNAME, cmbReason.Text, txtComment.Text, RelinkFiles)
Dim SQL = String.Format("EXEC PRPMO_CREATE_VARIANT {0},'{1}','{2}','{3}','{4}'", CURRENT_RECORD_ID, USER_USERNAME, cmbReason.Text, txtComment.Text, RelinkFiles)
If ClassDatabase.Execute_non_Query_withConn(SQL, 1) = True Then
Dim sel = String.Format("SELECT MAX(GUID) FROM TBPMO_RECORD WHERE UPPER(ADDED_WHO) = '{0}'", USER_USERNAME.ToUpper)
CURRENT_RECORD_ID = ClassDatabase.Execute_Scalar(sel)