Function PE_CREATE(CtrlEntId,CtrlClassId,CreateParam)
/*	-------------------------------------------------------------------------------------------------------------------------
	Author	: Automated Promoted Event Generator
	Date	: 28/10/2020 
	Purpose : Auto Generated Promoted event code for CREATE
	  
	Modification Info: 
	-------------------------------------------------------------------------------------------------------------------------
	Date		Who		Notes
	-------------------------------------------------------------------------------------------------------------------------
		
	Parameters:
	-------------------------------------------------------------------------------------------------------------------------
	CtrlEntId	- The name of the control to process 
	Event		- The Event To process
	Param1 ~ Param6 - Extra data depending On the control And event called.

	Returns:
	-------------------------------------------------------------------------------------------------------------------------
	ReturnVal   - True  = processing successful
				- False = processing failed
	-------------------------------------------------------------------------------------------------------------------------*/
	
Declare Function Get_Property, Set_Property, Get_EventStatus
Declare Subroutine Forward_Event
	
$Insert Logical
	
Window 		= CtrlEntId[1,'.']
Ctrl		= CtrlEntId[-1,'.']	
ReturnVal 	= 1


Gosub PreEvent
Gosub SystemEvent
Gosub PostEvent

Return ReturnVal

*********************************************
* Internal Subroutines
*********************************************

*----------
PreEvent:
*----------
	/* Pre Event Processing
	Code added here will be performed before the system event */
   
Return

*----------
SystemEvent:
*----------
	/* System Event Processing
	Control is now passed on to the system default processing. */
	
	Forward_Event(CreateParam)
	
Return
	
*----------
PostEvent:
*----------
	/* Post Event Processing
	Code added here will be performed after the system event */
	
	* Check the event status after the system event processing
	If Get_EventStatus(EventCode) Then
		* An error occured in the system event processing
		
	End	Else
		* No error, continue post processing
		
	End	
Return		
End		
