**I am sending just the table name (paid_tob) *** in the default value of the field (paid_id) *** the call is GETKEY('paid_tob') FUNCTION GetKey LPARAMETERS tcTable LOCAL lnArea, llOpened, liRetVal * Save current work area lnArea = SELECT() llOpened = .F. IF !USED("data\Keys") USE data\Keys IN 0 SHARED llOpened = .T. ENDIF SELECT Keys SET ORDER TO TAG Table * FLOCK seems to work a bit better than RLOCK. * I've never had a problem with it. DO WHILE !FLOCK() ENDDO SEEK UPPER(tcTable) IF FOUND() liRetVal = NextId REPLACE NextId WITH NextId + 1 ELSE INSERT INTO Keys (Table, NextId) VALUES (tcTable, 2) liRetVal = 1 ENDIF FLUSH UNLOCK IF llOpened USE IN Keys ENDIF SELECT (lnArea) RETURN liRetValThis part works fine in generating the key.
select paid_tob set order to paid_id go bottom APPEND BLANK REPLACE ENTEREDBY WITH ALLTRIM(SYS(0)) +' '+ALLTRIM(GETENV('USER')) ; ENTERDATE WITH DATETIME() THISFORM.REFRESH()I think the problem could be in my add button. I have an add button but not a save button.