MSKW43

app/DD-Record-Organizer/ClassRecordCommands.vb

@@ -1,4 +1,5 @@
 Imports System.Data.SqlClient
+Imports DD_LIB_Standards
 
 Public Class ClassRecordCommands
     Public Shared Function CreateRecordProcedure(formId As Integer)
@@ -20,7 +21,9 @@ Public Class ClassRecordCommands
                 connection.Close()
 
                 Dim GUID As Integer = cmd.Parameters("@pRESULT").Value
-
+                If GUID > 0 And clsDatabase.DB_PROXY_INITIALIZED = True Then
+                    ClassProxy.PRPROXY_CONTROL_VALUE_RENEW(GUID)
+                End If
                 Return GUID
             End Using
         Catch ex As Exception