We are currently running OI 3.4.1 and we have a DELETE button on a window that is bound to one of our data tables.

If we put a quick event on this button it works as you would expect it to. We then put the following code on the DELETE event of the window;

Declare FUNCTION MSG, Get_EventStatus, Set_EventStatus

   void=Set_EventStatus( 0)

   Call FORWARD_EVENT()

   error=Get_EventStatus( err_code)

   If NOT(error) Then

        void=MSG('Unable to delete: ':err_code)

   End

RETURN 0

This, I would have thought, does the same thing as what the quick event does. However, when you are asked if you want to delete this entry and you select "Cancel" instead of "Ok" error is set to "1" and err_code is set to "EV107".

What does this mean????

Is there somewhere in OI where I can lookup a list of error messages and what they mean???

Thanks,

Michael

Michael,

Usually you detect an error with:

<code>
if Get_EventStatus(Error) then
  * error handling
end else
  * success
end

</code>

You seem to have it reversed:

<code>
error=Get_EventStatus( err_code)
If NOT(error) Then
void=MSG('Unable to delete: ':err_code)
End

</code>

Cameron Purdy

info@revelation.com

Errors can be found in a few places. The INSERTS from SYSPROG has a good chunck of them. FSERRORS_x00 and anything with errors in the key is a good place to start. It couldn't hurt to look at all of them, since you never know what goodies you'll find in there.

There is also the REVERROR.DAT file at DOS which has almost all the error codes in one handy-dandy little spot.

apk@sprezzatura.com

Sprezzatura, Inc.

The way in which I check for an error is irrevelant.

The function GET_EVENTSTATUS returns a 1, which means an error has occured!!!

Michael,

The way in which I check for an error is irrevelant. The function GET_EVENTSTATUS returns a 1, which means an error has occured!!!

My question was, if it returns a 1, why are you checking:

<code>
error=Get_EventStatus( err_code)
If NOT(error) Then

</code>

You are checking for a 0 in the above code, not for a 1. In the code you posted, a successful result would put up an error message, and an error result would do nothing.

Cameron Purdy

info@revelation.com

Sorry, I put the wrong code in my query. It should be

error=Get_EventStatus(err_code)

If error Then

…..

As you suggested. This however is not the problem. The problem is that error returns 1 and err_code returns EV107, which I can not find any explanation of anywhere, if I select "Cancel" when I get the warning message "Ok to delete entry".

Thanks,

Michael

Whilst my copy of EVERRORS in SYSPROCS only goes up to EV06 I think it's a safe bet that a 07 is "User abort from cancel" which as far as a DELETE event is concerned is a failure so needs to be reported on. Kinda like an FS100 on a read - you KNOW the record doesn't exist but it is still an error for a read.

If the record isn't deleted I'd be 99.9% confident this was correct.

Andrew P McAuley

Some hotel room in Holland Without His Standard Sig

Michael,

The problem is that error returns 1 and err_code returns EV107, which I can not find any explanation of anywhere, if I select "Cancel" when I get the warning message "Ok to delete entry".

My apologies, the insert is out of date. Here is the updated source. I will request that it be added in the 3.6 release.

<code>
compile insert EVERRORS
*----------------------------------------------------------------------------
* 
*
* OpenInsight Event Error codes for Set_EventStatus and Get_EventStatus
*
* December 14, 1993
*
*
* EventErrors format:
*     =  : @fm :  : @fm : ...   
*         = 
<code>
 : @vm :  : @vm :  : @vm : ...
*
*----------------------------------------------------------------------------
EQU EV_CODE$                   TO 1
EQU EV_ARGS$                   TO 2
EQU EV_PREFIX$                 TO 'EV'

EQU EV_UNKNOWNERR$            TO 'EV100'    ;* 
EQU EV_REQUIREERR$            TO 'EV101'    ;* 
EQU EV_VALIDERR$              TO 'EV102'    ;* 
EQU EV_FORMREADERR$           TO 'EV103'    ;* 
EQU EV_FORMREADSUBERR$        TO 'EV104'    ;* 
EQU EV_NULLKEYERR$            TO 'EV105'    ;* 
EQU EV_NOLOCKERR$             TO 'EV106'    ;* 
EQU EV_USERCANCEL$            TO 'EV107'    ;* 
* Source Date: 08:41:06  11 JUL 1994  Build ID: OI*3.0.17  Level: 3.0

</code>

Cameron Purdy

info@revelation.com

Thanks Guys!!!!

View this thread on the forum...