BEGER; Begin IF DM_FRM.Adoconn.InTransaction Then DM_FRM.Adoconn.rollbackTrans; Result: = DM_FRM.Adoconn.Begintrans;
Procedure committrans; begin dm_frm.adoconn.committrans;
Procedure rollbacktrans; begin dm_frm.adoconn.rollbacktrans;
