PRB: ON ERROR Not Called When Trigger Fails in Browse or Grid

MORE INFORMATION

Steps to Reproduce Behavior

1. Execute the following code to create a DBC that contains a table with a delete trigger and to set up an ON ERROR routine:

      CLOSE ALL
      CREATE DATABASE dbTEST
      CREATE TABLE Test1 (Fld N(3), Fld2 C(3))
      CREATE TRIGGER ON Test1 FOR DELETE AS .F.
      ON ERROR WAIT WINDOW 'Delete Trigger Failed'
   						

2. Open the dbTEST database, then open the table Test1 with the USE command, and use the BROWSE command to browse the table. Then issue the following two commands from the Command window:

      APPEND BLANK
      DELETE NEXT 1
   						

   When the Trigger fails, the Wait window is displayed. Everything is as expected.
3. Browse the table again, and use the mouse to delete a record. This time when the Trigger fails, no Wait window is displayed. Instead the default system message "Trigger Failed" is displayed.

Steps to Implement Workaround

1. Change the CREATE TRIGGER statement to read:

      CREATE TRIGGER ON Test1 FOR DELETE AS MyDelTrig()
   						

2. Remove the ON ERROR WAIT WINDOW 'Delete Trigger Failed' line from the ' code.
3. Add the following Procedure to the "Stored Procedures":

      PROCEDURE MyDelTrig
      IF Fld >= 10
         RETURN .T.
      ELSE
         =MESSAGEBOX("Test1 must be greater than '10' to be deleted ;
         "+CHR(13)+"Record Number: "+STR(RECNO())+" Was NOT deleted!")
            IF CURSORGETPROP('BUFFERING') > 1
               =TABLEREVERT(.F.) &&Buffering enabled Revert record.
            ELSE
               RECALL NEXT 1 &&Buffering NOT enabled Revert record.
            ENDIF
      ENDIF