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-12-13 10:28:24 +01:00
parent 290871b3dc
commit 673895755d
23 changed files with 744 additions and 1380 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
app/DD-Record-Organizer/ClassRecordCommands.vb
View File

@@ -23,14 +23,16 @@ Public Class ClassRecordCommands
Dim GUID As Integer = cmd.Parameters("@pRESULT").Value
If GUID > 0 And clsDatabase.DB_PROXY_INITIALIZED = True Then
If ClassProxy.PRPROXY_RECORD_UPD_INS(formId, GUID) = True Then
ClassProxy.PRPROXY_CONTROL_VALUE_RENEW(GUID)
ClassProxy.PRPROXY_CONTROL_VALUE_RENEW(GUID)
End If
End If
Return GUID
End Using
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Error", "Error in CreateRecordProcedure: ", ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in CreateRecordProcedure: ")
ClassLogger.Add("Error in CreateRecordProcedure: " & ex.Message, True)
ClassHelper.InsertEssential_Log(formId, "ENTITY-ID", "ENTITY-ID: " & formId & ": " & ex.Message)
Return 0
End Try
End Function
@@ -50,7 +52,7 @@ Public Class ClassRecordCommands
Return ClassDatabase.Execute_non_Query(SQL)
End Function
Public Shared Function CHECK_RECORD_FINAL(RecordId As Integer, IsInsert As Boolean)
Dim SQL = String.Format("EXEC PRPMO_RECORD_CHECK_INTEGRITY {0},{1},{2}", RecordId, Environment.UserName, IsInsert)
Dim SQL = String.Format("EXEC PRPMO_RECORD_CHECK_INTEGRITY {0},'{1}',{2}", RecordId, Environment.UserName, IsInsert)
Return ClassDatabase.Execute_non_Query(SQL)
End Function