>*-------------------------------------------------------------------------- >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 >*-------------------------------------------------------------------------------------------- >>