Thanks Hilmar!!!
I did have an add button that will double as a save button. So the Code looks like this:

DO CASE
       CASE ALLTRIM(UPPER(This.Command5.CAPTION)) = 'Add'
		SELECT PAID_TOB
		SET ORDER TO PAID_ID
		APPEND BLANK
		THISFORM.REFRESH()
		THIS.COMMAND5.CAPTION = 'Save'
       CASE ALLTRIM(UPPER(THIS.COMMAND5.CAPTION)) = 'SAVE'
	        BEGIN TRANSACTION
	        REPLACE ENTEREDBY WITH ALLTRIM(SYS(0)) +' '+ALLTRIM(GETENV('USER')) ;
	   	        ENTERDATE WITH DATETIME()
	        REPLACE PAID_ID WITH GETKEY('PAID_TOB')
	        IF TABLEUPDATE()
	              END TRANSACTION
	        ELSE
	              ROLLBACK
	              MESSAGEBOX('This Record could not be added',64,'Error Adding Record')
	        ENDIF		
	        THIS.COMMAND5.CAPTION = 'Add'	
ENDCASE

also in the GETKEY() function, I changed the if Found() to IF SEEK(alltrim(upper(tcTable))
For Some odd reason the Found would not go into the if statement, but the Seek() would.
Go figure :-)

Now I will try to do this on multiple sessions and see if it works
Thanks Again