jj 25.10.

app/DD-Record-Organizer/ClassRecordCommands.vb

@@ -1,4 +1,34 @@
-Public Class ClassRecordCommands
+Imports System.Data.SqlClient
+
+Public Class ClassRecordCommands
+    Public Shared Function CreateRecordProcedure(formId As Integer)
+        Try
+            Dim connection As New SqlConnection
+
+            connection.ConnectionString = MyConnectionString
+
+            Using cmd As New SqlCommand("PRPMO_CREATE_RECORD", connection)
+
+                cmd.CommandType = CommandType.StoredProcedure
+                cmd.Parameters.AddWithValue("@pFORM_ID", formId)
+                cmd.Parameters.AddWithValue("@pADDED_WHO", Environment.UserName)
+                cmd.Parameters.Add("@pRESULT", SqlDbType.Int)
+                cmd.Parameters("@pRESULT").Direction = ParameterDirection.Output
+
+                connection.Open()
+                cmd.ExecuteNonQuery()
+                connection.Close()
+
+                Dim GUID As Integer = cmd.Parameters("@pRESULT").Value
+
+                Return GUID
+            End Using
+        Catch ex As Exception
+            ClassHelper.MSGBOX_Handler("ERROR", "Error", "Error in CreateRecordProcedure: ", ex.Message)
+            Return 0
+        End Try
+    End Function
+
     Public Shared Function CreateRecord(EntityID)
         Dim SQL = "INSERT INTO TBPMO_RECORD(ADDED_WHO, FORM_ID,RECORD_ENTITY_ID) VALUES ('" & USER_USERNAME & "', " & EntityID & ",4711)"
         Return ClassDatabase.Execute_non_Query(SQL) = True