I think END TRANSACTION cannot be in IF...ENDIF block.
Try this:
SELECT INVOICE
BEGIN TRANSACTION
DO CASE
CASE lnanswer = 6
REPLACE status WITH "P",;
oktoprn WITH .F.
CASE lnanswer = 7
REPLACE status WITH "?",;
oktoprn WITH .F.
ENDCASE
Thisform.pageframe1.page3.stat1.refresh
IF .NOT. TABLEUPDATE(0,.F.,'INVOICE')
=MESSAGEBOX("Invoice Status failed to update successfully",16,"Transaction Error")
ROLLBACK
ENDIF
END TRANSACTION
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
