110 lines
		
	
	
		
			5.9 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			110 lines
		
	
	
		
			5.9 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
| compile insert EVERRORS
 | |
| *----------------------------------------------------------------------------
 | |
| * 
 | |
| *
 | |
| * OpenInsight Event Error codes for Set_EventStatus and Get_EventStatus
 | |
| *
 | |
| * December 14, 1993
 | |
| *
 | |
| *
 | |
| * EventErrors format:
 | |
| *    <ErrorList>  =  <error1> : @fm : <error2> : @fm : ...   
 | |
| *    <error>      =  <code> : @vm : <arg1> : @vm : <arg2> : @vm : ...
 | |
| *
 | |
| *----------------------------------------------------------------------------
 | |
| /*
 | |
|    Comments
 | |
|    ========
 | |
|    
 | |
|       EV_RETVAL$ is a bit of a hack.  Basically we tend to use some events as
 | |
|       though they were methods, and there's nothing we can really do about that
 | |
|       now, but the problem with that is there isn't any way to return a value 
 | |
|       from Send_Event to the calling routine.
 | |
|       
 | |
|       So... what we've done is defined EV999 as a code you can use to denote
 | |
|       that the values following it are just data and are _NOT_ an error. As 
 | |
|       you're limited to an @vm-delimited array you should really be passing
 | |
|       back lots of complex data.  Internally @vm's are stored as @tm's on the
 | |
|       event stack when pushed there via Set_EventStatus so you should really
 | |
|       avoid returning anything containing system delimiters.
 | |
|       
 | |
|       What we really need is Get/Set_Property and Exec_Method to work against 
 | |
|       a registered type or instance specific "commuter" module, and then we 
 | |
|       can really implement custom properties and methods, but that's a story 
 | |
|       for another day methinks...
 | |
|    
 | |
|    
 | |
|    Amended   Date        Reason
 | |
|    ======    ====        ======
 | |
|    Mr C      01 Dec 23   Added EV_QEHANDLED$
 | |
|    Mr C      01 Feb 21   Added EV_RESETSKERR$
 | |
|    Mr C      14 Sep 16   Added EV_PROPVALERR$
 | |
|    Mr C      29 Dec 14   Added EV_ERRVAL$
 | |
|    Mr C      27 Dec 14   Added EV_DSNTESTRUNERROR$ 
 | |
|    Mr C      19 Sep 14   Added EV_FDSBUILDERROR$
 | |
|    Mr C      04 Sep 14   Added EV_FDSPARSEERROR$
 | |
|                          Added EV_RETVAL$
 | |
|    Mr C      25 Feb 14   Added EV_DSNCREATERROR$
 | |
|                          Added EV_TPLCREATERROR$
 | |
|                          Added EV_INVALIDDSNPROP$
 | |
|    Mr C      12 Nov 13   Added EV_NULLWINNAME$
 | |
|    Mr C      29 Jul 13   Added EV_NULLPROCNAME$
 | |
|    Mr C      21 Feb 06   Added EV_WINMSGVAL$ for returning a value to PS
 | |
|                          during WINMSG processing.  Note this uses the same
 | |
|                          field in the event stack as event status error codes
 | |
|                          so PS will not get a return value if Set_EventStatus
 | |
|                          is used to return an error.
 | |
| */
 | |
| ///////////////////////////////////////////////////////////////////////////////
 | |
| ///////////////////////////////////////////////////////////////////////////////
 | |
| #ifndef _EVERRORS_
 | |
| #define _EVERRORS_
 | |
| ///////////////////////////////////////////////////////////////////////////////
 | |
| ///////////////////////////////////////////////////////////////////////////////
 | |
| 
 | |
|    equ EV_CODE$                  to 1
 | |
|    equ EV_ARGS$                  to 2
 | |
|    equ EV_PREFIX$                to "EV"
 | |
|     
 | |
|    equ EV_UNKNOWNERR$            to "EV100"    ; // Unknown Event Handler error
 | |
|    equ EV_REQUIREERR$            to "EV101"    ; // Required Error
 | |
|    equ EV_VALIDERR$              to "EV102"    ; // Validation Error
 | |
|    equ EV_FORMREADERR$           to "EV103"    ; // Form Read Error
 | |
|    equ EV_FORMREADSUBERR$        to "EV104"    ; // Form Read Sub Error
 | |
|    equ EV_NULLKEYERR$            to "EV105"    ; // Null Key Error
 | |
|    equ EV_NOLOCKERR$             to "EV106"    ; // Locking Error
 | |
|    equ EV_USERCANCEL$            to "EV107"    ; // User Cancel
 | |
|    equ EV_NULLPROCNAME$          to "EV108"    ; // Null procedure name
 | |
|    equ EV_INVALIDPROCNAME$       to "EV109"    ; // %1% is not a valid stored procedure name
 | |
|    equ EV_PARAMNOTALLOWED$       to "EV110"    ; // The %1% stored procedure does not accept parameters
 | |
|    equ EV_NULLWINNAME$           to "EV111"    ; // Null window name
 | |
|    equ EV_DSNCREATERROR$         to "EV112"    ; // DSN (IDE Designer) Create Error [%1%]
 | |
|    equ EV_TPLCREATERROR$         to "EV113"    ; // TPL (IDE ToolPanel) Create Error [%1%]
 | |
|    equ EV_INVALIDDSNPROP$        to "EV114"    ; // DSN (IDE Designer) PROPCHANGED validation error
 | |
|    equ EV_FDSPARSEERROR$         to "EV115"    ; // FDS (IDE FormDes) Parser Error [%1%]
 | |
|    equ EV_FDSBUILDERROR$         to "EV116"    ; // FDS (IDE FormDes) Builder Error [%1%]
 | |
|    equ EV_DSNWRITEERROR$         to "EV117"    ; // DSN (IDE Designer) Write error [%1%]
 | |
|    equ EV_DSNTESTRUNERROR$       to "EV118"    ; // DSN (IDE Designer) Test-Run error [%1%]
 | |
|    equ EV_PROPVALERR$            to "EV119"    ; // Invalid Property Value [%1%] 
 | |
|    equ EV_QBFPARSEERR$           to "EV130"    ; // QBF Parser Error [%1%]
 | |
|    equ EV_QBFINITOFF$            to "EV132"    ; // Query By Form is not active
 | |
|    equ EV_QBFACTIVATELIST$       to "EV133"    ; // QBF saved list activation error [%1%]
 | |
|    equ EV_QBFINVALIDINDEX$       to "EV134"    ; // "%1%" is not a valid position in the QBF result list
 | |
|    equ EV_QBFINVALIDID$          to "EV135"    ; // "%1%" is not a valid ID in the QBF result list
 | |
|    equ EV_RESETSKERR$            to "EV136"    ; // Error resetting sequential key counter [%1%]
 | |
|    
 | |
|    equ EV_WINMSGVAL$             to "EV200"    ; // Return WINMSG value to PS
 | |
|    
 | |
|    equ EV_QEHANDLED$             to "EV300"    ; // Handled in QE (Not an error) 
 | |
|    
 | |
|    equ EV_ERRVAL$                to "EV998"    ; // Returned error data to the calling proc (usually contains SSP error details)
 | |
|    equ EV_RETVAL$                to "EV999"    ; // Return data to the calling proc - NOT an error!!!
 | |
|    
 | |
| ///////////////////////////////////////////////////////////////////////////////
 | |
| ///////////////////////////////////////////////////////////////////////////////
 | |
| #endif
 | |
| ///////////////////////////////////////////////////////////////////////////////
 | |
| ///////////////////////////////////////////////////////////////////////////////
 | |
|    
 | |
| 
 |