I'll just comment.
use transactions shared in 0
* this causes an error if this method is called from within a transaction
cursorsetprop('buffering',3)
&& You can set table buffering in design mode of your DE. But in this case I would either use transactions or some kind of buffering, I don't think you need both.
append blank
replace transactions.sequence with GetSequence()
replace transactions.function with 32
replace transactions.status with 'A'
&& I would use an INSERT INTO here.
* need to force changes to disk now that we are bufferred
select transactions
tableupdate()
&& You don't need to reselect the cursor. At this point your insert should be written to disk.
counter=0
* force a re-read of values from disk before we check status
select transactions
tablerevert()
do while transactions.status='A' and counter<10
wait window "Waiting for Transaction Processor" timeout 3
counter = counter + 1
* force a re-read of values from disk before we check status again
select transactions
tablerevert()
enddo
Also, if you are doing all this in the middle of a transaction I don't know what the result will be.
Eric Kleeman - EDS Consulting Services
MCP Visual FoxPro
MCSD C#.NET
Hua Hin Thailand
Los Angeles California