//#####################################

IF VerificaConexao( ) = True

User is string = "adriano"
DataHora is string = DateSys() + TimeSys()

HTransactionStart("C:\Temp\Transaction_"+User+"_"+DataHora+".trs", "clientes , estoque , financeiro , contabil , fiscal")

IF fFileExist("C:\Temp\Transaction_"+User+"_"+DataHora+".trs") = True

WHEN EXCEPTION IN

ok1 is boolean = HModify(clientes)
ok2 is boolean = HModify(estoque)
ok3 is boolean = HAdd(financeiro)
ok4 is boolean = HAdd(contabil)
ok5 is boolean = HAdd(fiscal)

IF ok1 = True AND ok2 = True AND ok3 = True AND ok4 = True AND ok5 = True
gbTransacao = True
ELSE
gbTransacao = False
END

IF gbTransacao = True
HTransactionEnd()
ELSE
HTransactionCancel()
END

DO

HTransactionCancel()

END

ELSE
Info("Não foi possivel criar o arquivo de transação no temp, avise o seu desenvolvedor de sistemas")
END//fileexist

ELSE
Info("Sem conexao, tente mais tarde!!!")
END//verifica conexao

//#####################################