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