SQL.BeginTransaction
Try
ret = DBM.SQLInsertTrans(SQL, "INSERT INTO tExecutor(OTID, exCode, exDescription, exExTypID, exStatus, exOTCreationTag, exOTLastModifiedLoginID) VALUES(?, ?, ?, ?, ?, ?, ?)", Variables) 'GENTODOC
Variables.Clear
Variables.add(authCurrentMasterID)
Variables.Add(ret)
' generate barcode
Variables.Add(ABMShared.GenerateBarCode(SQL, authCurrentMasterID, "Executor0001BCPrefix"))
Variables.Add(ABMShared.STATUS_OK)
Variables.Add("INSERT_EXECUTORS1_1") 'GENTODOC
Variables.Add(page.ws.Session.GetAttribute("authLoginID2020"))
ret = DBM.SQLInsertTrans(SQL, "INSERT INTO tIdentification2(OTID, idenExID, idenCode ,idenStatus, idenOTCreationTag, idenOTLastModifiedLoginID) VALUES(?, ?, ?, ?, ?, ?)", Variables) ' <--- non-existing table tIdentification.
SQL.TransactionSuccessful
Catch
SQL.Rollback ' <----------- Error
DBM.CloseSQL(SQL)
myToastId = myToastId + 1
page.ShowToast("toast" & myToastId, "toastred", page.XTR("1034","There was an error inserting the record"), 5000)
Return
End Try