PARAMETERS mOdeType, pk_find *LOCAL m.pk_find m.pk_find = .F. IF !USED('KEYTABLE') USE (oVar.SysPath) + 'KEYTABLE.dbf' IN 0 SHARED ENDIF SELE KEYTABLE GO TOP *!* SET MULTILOCKS ON =CURSORSETPROP("BUFFERING",5) DO WHILE m.pk_find = .F. oVar.KeyId = SYS(3) SELE KEY_ID FROM KEYTABLE ; WHERE ALLT(KEYTABLE.KEY_ID) == ALLT(oVar.KeyId) ; INTO CURSOR PkIdFound SELE PkIdFound IF RECCOUNT() > 0 && PK ID FOR THIS PARTICULAR TABLE EXIST....LOOP m.pk_find = .F. LOOP ELSE m.pk_find = .T. DO CASE CASE ALLT(UPPER(mOdeType)) == 'UPDATE VTRANS' INSERT INTO KEYTABLE (KEY_ID, HTC_PROC) VALUE (oVar.KeyId, 'VTRANS UPDATE') CASE ALLT(UPPER(mOdeType)) == 'PRINT REPORTS' INSERT INTO KEYTABLE (KEY_ID, HTC_PROC) VALUE (oVar.KeyId, 'PRINT REPORTS') ENDCASE SELE KEYTABLE =TABLEUPDATE(.T.) ENDIF ENDDO RETURN