[[https://www.revelation.com/|Sign up on the Revelation Software website to have access to the most current content, and to be able to ask questions and get answers from the Revelation community]]


==== ENG0040 Error Promoted Events (OpenInsight 32-bit Specific) ====
=== At 31 MAY 2005 07:48:39PM Mark Ford wrote: ===
 
{{tag>"OpenInsight 32-bit Specific"}}
 
<QUOTE>
I am using a Promoted event for my Save (F9) routine. The system correctly activates the main promoted event program, passes control to the menu (Menu$) program and then returns control back to the main Promoted_Event program. The Menu$ Save logic works the problem arises when control is passed back to the main Promoted_Event program. The system crashes each time the Return 1 command is executed from the Promoted_Event program. The error message is "ENG0040 Run_Event, Line 1 The label common variable has been freed and is no longer valid".

If I change the Return 1 to Return 0 then the system crashes with a RTP27 Source code not available error.



Help to debug this problem would be appreciated.



Sample of the Promoted_Event program code is as follows:

 

Begin case

  case event= 1  ; gosub GotFocus$ 

  case event= 2  ; gosub LostFocus$

  case event= 3  ; gosub Click$

  case event= 4  ; gosub Menus$

  end case



return 1 

*

GotFocus$:

	call surveyit_GotFocus(CtrlEntId,CtrlClassId,Parm1,Parm2,Parm3,Parm4,Parm5,Parm6,Parm7,Parm8)    

	

	RETURN 

*

LostFocus$:

	 call surveyit_LostFocus(CtrlEntId,CtrlClassId,Parm1,Parm2,Parm3,Parm4,Parm5,Parm6,Parm7,Parm8)

	 RETURN 

*

Click$:

	 call surveyit_Click(CtrlEntId,CtrlClassId,Parm1,Parm2,Parm3,Parm4,Parm5,Parm6,Parm7,Parm8)   

	 RETURN  

*

Menus$:

	 call surveyit_Menus(CtrlEntId,CtrlClassId,Parm1,Parm2,Parm3,Parm4,Parm5,Parm6,Parm7,Parm8)    

     RETURN  

*

RightClick$:

	 call surveyit_RightClickFocus(CtrlEntId,CtrlClassId,Parm1,Parm2,Parm3,Parm4,Parm5,Parm6,Parm7,Parm8)    

     RETURN  

*

Create$:

	  call surveyit_Create(CtrlEntId,CtrlClassId,Parm1,Parm2,Parm3,Parm4,Parm5,Parm6,Parm7,Parm8) 

     RETURN 




</QUOTE>
----

=== At 01 JUN 2005 12:21AM Barry Stevens wrote:  ===

<QUOTE>You havent closed the window during one of these process have you.

</QUOTE>

----

=== At 01 JUN 2005 03:29PM Mark Ford wrote:  ===

<QUOTE>You are quit correct it is the closing of the window that is causing the error.

In my save Promoted_Event Menu save (F9) return the record is saved and window closed. Control is passed back to the calling window but the Run_Event error is generated.

 

Case parm1=SAVE'	

  	status=send_event(CtrlEntId, "WRITE");*record is written 

       =end_window(@window)  ;* Stop execution of running window

	return 0		

What command should I be using to give focus to the calling window 'ST_MAIN_FRAME'?

</QUOTE>

----

=== At 01 JUN 2005 03:45PM support@sprezzatura.com wrote:  ===

<QUOTE>You should POST_EVENT "CLOSE" to allow your program to finish execution before closing the window.



support@sprezzatura.com

The Sprezzatura Group Web Site

[i]World Leaders in all things RevSoft[/i]

[img]http://www.sprezzatura.com/zz.gif[/img]

</QUOTE>

----

=== At 01 JUN 2005 10:00PM Barry Stevens wrote:  ===

<QUOTE>You should actually test the event status of the write, in case there is a "required field" error.

</QUOTE>


[[https://www.revelation.com/revweb/oecgi4p.php/O4W_HANDOFF?DESTN=O4W_RUN_FORM&INQID=NONWORKS_READ&SUMMARY=1&KEY=278CC3BED049DD85852570120082CC3C|View this thread on the  forum...]]