General information
Title:
Problems with Transactions
In a compiled exe, out in the real world, being used by real users. This error randomly appears!
------------------------------------------------------------------
Visual FoxPro Reference
END TRANSACTION command cannot be issued without a corresponding BEGIN TRANSACTION command (Error 1591)
Contain transaction code between matched BEGIN TRANSACTION and END TRANSACTION pairs.
-----------------------------------------------------------------------------
The offending code from my program is below:
SELECT INVOICE
BEGIN TRANSACTION
DO CASE
CASE lnanswer = 6
REPLACE INVOICE.status WITH "P"
REPLACE INVOICE.oktoprn WITH .F.
CASE lnanswer = 7
REPLACE INVOICE.status WITH "?"
REPLACE INVOICE.oktoprn WITH .F.
ENDCASE
Thisform.pageframe1.page3.stat1.refresh
lmsuccess = TABLEUPDATE(0,.F.,'INVOICE')
IF lmsuccess
END TRANSACTION
ELSE
=MESSAGEBOX("Invoice Status failed to update successfully",16,"Transaction Error")
ROLLBACK
ENDIF
----------------------------------------------------------------------
Any suggestions would be gratefully appreciated.
Thanks
S Ramsey
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only