FIX: Default Value Not Evaluated Properly Using Stored Procs

MORE INFORMATION

Steps to Reproduce Problem

1. Place the following two functions into a program file called Bug.sp:

      FUNCTION spIncr
         PARAMETER cAliasName, cFname
         PRIVATE iNewVal
         lOldDel = SET ("DELETED")
         SET DELETED OFF
         SELECT MAX(&cFname) FROM (cAliasName) INTO ARRAY tmparr
         SET DELETED &lOldDel
         IF (_TALLY = 0)
           RETURN 1
         ENDIF
         iNewVal = tmparr(1) + 1
         RETURN iNewVal
      ENDFUNC
   
      FUNCTION spDefVal
         PARAMETER cAliasName, cFname, aDefRetVal
         PRIVATE aNewVal
         aNewVal = .NULL.
         ON Error *
         aNewVal = aDefRetVal
         aNewVal = &cAliasName..&cFname
         ON Error
         RETURN aNewVal
      ENDFUNC
   						

2. Execute the following code from a second .prg file:

      SET SAFETY OFF
      CLOSE DATABASE ALL
      CREATE DATABASE 'bugreport.DBC'
      APPEND PROCEDURES FROM 'bug.sp'
      COMPILE DATABASE bugreport.DBC
      CREATE TABLE 'bug' (NR1 I NOT NULL Default spIncr("bug","nr1"), ;
                         NR2 I NOT NULL Default spDefVal("anytable", ;
                         "anyfield",0))
      ALTER TABLE 'bug' ADD PRIMARY KEY NR1 Tag NR1
      INDEX ON NR2 Tag NR2
   
      USE bug
      BROWSE NOWAIT
      FOR idat = 1 TO 200
         KEYBOARD "{CTRL+Y}" && Append blank
      NEXT