SELECT INVOICE
BEGIN TRANSACTION
DEBUGOUT TXNLEVEL()
DO CASE
   CASE lnanswer = 6
     REPLACE status WITH "P"
         ,  oktoprn WITH .F.
    CASE lnanswer = 7
      REPLACE INVOICE.status WITH "?"
      REPLACE INVOICE.oktoprn WITH .F.
ENDCASE
* NEXT LINE position IS STRANGE
Thisform.pageframe1.page3.stat1.refresh
DEBUGOUT  TXNLEVEL( )
* you mix buffer with transaction !
IF TABLEUPDATE(0,.F.,'INVOICE')
   DEBUGOUT  TXNLEVEL( )
   END TRANSACTION
ELSE
   ROLLBACK
  =MESSAGEBOX("Invoice Status failed to update successfully",16,"Transaction Error")
ENDIF
* expected position is here
* Thisform.pageframe1.page3.stat1.refresh