COMPILE FUNCTION Notes(EntID,Event,Parm1,Parm2,Parm3,Parm4,Parm5)

/*
	Commuter module for Notes (Message) dialog window
	
	02/25/2010 - John C. Henry, J.C. Henry & Co., Inc.
*/

DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, Center_Window, Post_Event, RList
DECLARE SUBROUTINE ErrMsg, Send_Message, Set_Property, Send_Event, Btree.Extract, obj_AppWindow
DECLARE SUBROUTINE obj_Notes, Security_Err_Msg, End_Window, Forward_Event, Start_Window, Create_Note

DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Popup, Collect.Ixvals, Admin_User, Printer_Select
DECLARE FUNCTION Send_Message, Msg, Security_Check, obj_React_Run_CI, MemberOf, Get_Printer, obj_Install,Set_Printer

$INSERT MSG_EQUATES
$INSERT APPCOLORS
$INSERT LSL_USERS_EQU
$INSERT SECURITY_RIGHTS_EQU
$INSERT POPUP_EQUATES
$INSERT LOGICAL
$INSERT OIPRINT_EQUATES

EQU COL$CL_NO			TO 1


ErrTitle = 'Error in Notes routine'
ErrorMsg = ''

Result = ''


BEGIN CASE
	CASE EntID = @WINDOW
		BEGIN CASE
			CASE Event = 'CREATE' 			; GOSUB Create
			CASE Event = 'CLOSE'			; GOSUB Close
			
		END CASE
	
	*CASE EntID = @WINDOW:'.PRINT_EQUIP_LIST' AND Event = 'CLICK'	;* GOSUB PrintEquipment
	*CASE EntID = @WINDOW:'.PRINT_NIST_LIST' AND Event = 'CLICK'	;* GOSUB PrintNIST
	
	*CASE EntID = @WINDOW:'.EQUIPMENT' AND Event = 'DBLCLK'			;* GOSUB EquipDC
	*CASE EntID = @WINDOW:'.NIST' AND Event = 'DBLCLK'				;* GOSUB NISTDC
	
	CASE 1
		ErrorMsg = 'Unknown Parameters ':EntID:' - ':Event:' passed to commuter'
		ErrMsg(ErrorMsg)
		
END CASE

IF ErrorMsg NE '' THEN
	ErrMsg(ErrTitle:@SVM:ErrorMsg)
END

RETURN Result



* * * * * * *
Create:
* * * * * * *


obj_Appwindow('Create',@WINDOW)

DEBUG


RETURN




RETURN 1

GOSUB Refresh

RETURN


* * * * * * *
Close:
* * * * * * *


End_Dialog(@WINDOW,'')

RETURN


* * * * * * *
Refresh:
* * * * * * *



RETURN

