HTransactionStart(conn_mysql) //Aqui Iniciamos a transaction (BEGIN)
//Abrimos EXEPTION Para Evitar Erro Fatal
WHEN EXCEPTION IN //Vamos fazer a tentativa de Salvar o Registro
HSave(MINHA_TABELA)//Salvamos
HTransactionEnd(conn_mysql)//Fechamos a transaction (COMMIT)
RESULT True //Como este trecho de código está em uma função retorna verdadeiro(true) ou Falso (false)
DO //Algo Fallou na Base de Dados
s_msj_erro is string //Variavel para Capturar o Erro
s_msj_erro = “Oops Ocorreu um Erro na Base de Dados” + CR + HErrorInfo() //Capturamos o Erro
HTransactionCancel(conn_mysql)//E ai finalmente podemos cancelar a transaction (ROLLBACK)
RESULT False //Retorno False
END