BEGIN TRANSACTION
DELETE from  TEME  WHERE postid == lp1
luspjeh2 = TABLEUPDATE(1, .T., 'Teme')

IF luspjeh2
	DELETE from  ODGOVORI  WHERE postid == lp1
	luspjeh2 = TABLEUPDATE(1, .T., 'Odgovori')
ELSE
	=TABLEREVERT( .T., 'Teme')
ENDIF

if luspjeh2
	END TRANSACTION
else
	=TABLEREVERT( .T., 'Odgovori')
	ROLLBACK
endif
<pre>
>This code works but I am sure it could be improved.Any sugestions wellcome.
><PRE>
>*--------------------------------------------------------------------------
>PROCEDURE brisiPREDMET( lp1 )
>IF PARAMETERS() < 1
>   RETURN .F.
>ENDIF
>*
>luspjeh2 = .F.
>ulaz = 0
>ulaz = lp1
>*
>SET MULTILOCKS ON
>USE ODGOVORI in 0
>=CURSORSETPROP("Buffering",5)
>USE TEME in 0
>SELECT TEME
>=CURSORSETPROP("Buffering",5)
>*
>BEGIN TRANSACTION
>      *
>      DELETE from  TEME  WHERE postid == lp1
>      *
>      SELECT ODGOVORI
>      DELETE from  ODGOVORI  WHERE postid == lp1
>      *
>      luspjeh2 = TABLEUPDATE(1, .T., 'Odgovori')
>      luspjeh2 = TABLEUPDATE(1, .T., 'Teme')
>      *
>      if luspjeh2
>         END TRANSACTION
>      else
>         ROLLBACK
>         =TABLEREVERT( .T., 'Teme')
>         =TABLEREVERT( .T., 'Odgovori')
>      endif
>      *
>UNLOCK ALL
>CLOSE  ALL
>ENDPROC
>*--------------------------------------------------------------------------------------------
>