********* the code ********* * the Temp_curs is a cursor of about 50 records * the Invhed is a table of a bout 250000 records * there INVHED table has an index on CODE field Begin Transaction m_sys=SYS2015() SELECT temp_curs Go Top Scan M_ CODE= temp_curs.Code Update INVHED Set ; katpel= m_sys WHERE INVHED.Code=M_CODE Endscan If ! Tableupdate(1, .T., "INVHED") =Messagebox(" Problem in updating: INVHED ", 16, oApp.Title) Rollback Return ENDIF End Trans