MS

2016-11-23 10:24:21 +01:00
parent a1d1b2a88e
commit fc9f391307
79 changed files with 7388 additions and 4524 deletions
--- a/app/DD-Record-Organiser/ClassRecordState.vb
+++ b/app/DD-Record-Organiser/ClassRecordState.vb
@@ -2,7 +2,7 @@

    Public Shared Sub LockRecord(RecordId As Integer)
        Try
-            Dim Username As String = Environment.UserName
+            Dim Username As String = USER_USERNAME
            Dim SQL As String = String.Format("UPDATE TBPMO_RECORD SET IN_WORK = 1, IN_WORK_WHO = '{0}' WHERE GUID = {1}", Username, RecordId)

            ClassDatabase.Execute_non_Query(SQL)