Hi,
I am using buffering and transaction for sales module. Once a sales transaction completed, record will be added to sales table, lineitems table and also deduct stock qty from stock_status table.

Here is my code:

*-- Insert record to sales table
*-- Insert lineitems records to lineitem table
*-- Replace stock_status.qty with stock_Status - qtysold for each items
*-- Increase auto number

BEGIN TRANSACTION

IF NOT llRollBack AND NOT TABLEUPDATE(.T., .F., "Sales")
   llRollBack = .T.
ENDIF

IF NOT llRollBack AND NOT TABLEUPDATE(.T., .F., "lineitems")
   llRollBack = .T.
ENDIF

IF NOT llRollBack AND NOT TABLEUPDATE(.T., .F., "Stock_status")
   llRollBack = .T.
ENDIF

IF NOT llRollBack AND NOT TABLEUPDATE(.T., .F., "AutoNo")
   llRollBack = .T.
ENDIF

IF llRollBack
   AERROR(laError)

   ROLLBACK
   TABLEREVERT(.T., "sales")
   TABLEREVERT(.T., "lineitems")
   TABLEREVERT(.T., "stock_status")
   TABLEREVERT(.T., "autono")

   RETURN laError[2]
ELSE
   END TRANSACTION
   RETURN "OK-"
ENDIF

I faced problem that, if there are any unexpected disaster occured such as power failure and system hang the "TRANSACTION" is not work correctly.
It sometime save the records partially which meant, the stock qty is deducted, autono is increased but sales and lineitems is not committed.

Any ideas?

Thank you