GETNEXTMODIFIED returns 2
By the way, I can make it work if I do the following:
Option # 1 - enter a TABLEUPDATE after each REPLACE prior to the SKIP
Option # 2 - enter a USE followed by another USE "ds!v_postaropen...
Both ways allow the =CURSORSETPROP("Buffering",3,"v_postaropeninvoices")
without an error.
Rick
clear
gccompno='01'
SELECT 0
USE "ds!v_postaropeninvoices" alias v_postaropeninvoices
=CURSORSETPROP("Buffering",5,"v_postaropeninvoices")
DO WHILE NOT EOF()
REPLACE rio_aracct WITH 'TEST'
SKIP
ENDDO
SELECT v_postaropeninvoices
llgo=TABLEUPDATE(1,.T.)
llrecno=GETNEXTMODIFIED(0)
=messagebox(str(llrecno))
if llgo
=messagebox('ok')
else
=messagebox('bad')
endif
SELECT v_postaropeninvoices
=CURSORSETPROP("Buffering",3,"v_postaropeninvoices")
>Before you issue the second call to CURSORSETPROP() use GETNEXTMODIFIED(0) to return the row that has pending changes.
>
>-Mike
Richard DeZeeuw
DeZeeuw Software Inc.