> >lcTeiBewegID = "EIN_0S911KT8F" >LOCAL loDS1 As Session, ; > loDS2 As Session, ; > laError[1] > >loDS1 = CREATEOBJECT("Session") >SET DATASESSION TO loDS1.DataSessionID >OPEN DATABASE ERP_VIEWS >VP_AusTeiBewegID = lcTeiBewegID >SET EXCLUSIVE OFF >USE "lv_teiausbaubybeweg" IN 0 SHARED >CURSORSETPROP("Buffering", 3) > >loDS2 = CREATEOBJECT("Session") >SET DATASESSION TO loDS2.DataSessionID >SET EXCLUSIVE OFF >OPEN DATABASE ERP_VIEWS >VP_AusTeiBewegID = lcTeiBewegID >USE lv_teiausbaubybeweg IN 0 SHARED >CURSORSETPROP("Buffering", 3) > >*-- Reproduce 500 Times >FOR lnLv = 1 TO 500 > > *-- DS 2 > SET DATASESSION TO loDS2.DataSessionID > IF REQUERY("lv_teiausbaubybeweg") != 1 > ASSERT .F. MESSAGE "Requery Error" > EXIT > ENDIF > > *-- Do any replace > REPLACE lv_teiausbaubybeweg.mschtxt_d WITH SYS(2015) > REPLACE lv_teiausbaubybeweg.mschtxt_e WITH SYS(2015) > *-- Tableupdate > IF !TABLEUPDATE(.T., .F., "lv_teiausbaubybeweg") > AERROR(laError) > ASSERT .F. MESSAGE "Update failed with " + TRANSFORM(laError[1]) + ": " + laError[2] > ENDIF > > *-- And DS 1 > SET DATASESSION TO loDS1.DataSessionID > IF REQUERY("lv_teiausbaubybeweg") != 1 > ASSERT .F. MESSAGE "Requery Error" > EXIT > ENDIF > > *-- Do any replace > REPLACE lv_teiausbaubybeweg.mschtxt_d WITH SYS(2015) > *-- Tableupdate > IF !TABLEUPDATE(.T., .F., "lv_teiausbaubybeweg") > AERROR(laError) > ASSERT .F. MESSAGE "Update failed with " + TRANSFORM(laError[1]) + ": " + laError[2] > ENDIF >ENDFOR > >SET DATASESSION TO loDS1.DataSessionID >CLOSE DATABASES ALL > >SET DATASESSION TO loDS2.DataSessionID >CLOSE DATABASES ALL > >*-- I never get an error, trying to reproduce this >MESSAGEBOX("Everything went OK!") >CLOSE ALL > > > >