Hi,

=SQLSETPROP(m.con,"Transaction",2 ) && DB_TRANSMANUAL - see to help

TEXT TO mqry noshow
SELECT * FROM stop1 WITH (tablockx)
ENDTEXT
=SQLExec(m.con,mqry)

TEXT TO m.cmd NOSHOW
INSERT INTO cash_sumt(vou_no,date) values (?thisform.text1.value, ?Thisform.text3.value)
ENDTEXT

If SQLExec(m.con,cmd)<0
   =Aerror(laerror)
   =SQLROLLBACK(m.con)
   Messagebox(laerror[1,2])
ELSE
   =SQLCOMMIT(m.con)
   Messagebox("Invoice Saved",0+64,"System",3000)
Endif

MartinaJ

>Dear Experts,
>
>I am using these codes, which are working fine
>
>

>TEXT TO mqry noshow
>	BEGIN TRANSACTION
>	SELECT * FROM stop1 WITH (tablockx)
>ENDTEXT
>	SQLExec(m.con,mqry)
>
>Error_found=.f. && variable to detect error
>
>TEXT TO m.cmd NOSHOW
>
>INSERT INTO cash_sumt(vou_no,date) values(?thisform.text1.value,
>?Thisform.text3.value)
>		ENDTEXT
>
>		If SQLExec(m.con,cmd)<0
>			Aerror(laerror)
>			Messagebox(laerror[1,2])
>			Error_found =.T.
>		Endif
>
>
>		If Error_found =.F.	&& No error found
>
>			TEXT TO mqry noshow
>			commit transaction
>			ENDTEXT
>			SQLExec(m.con,mqry)
>			Messagebox("Invoice Saved",0+64,"System",3000)
>
>               Else
>                      && how to use rollback here if error found
>
>		Endif
>
>

>
>Please help me how to use Rollback if any error comes.