DECLARE CONSTANT Datapool_InstTypes				AS QUANTITY 18

DECLARE CONSTANT CMB_InstTypes 					AS QUANTITY 105
DECLARE CONSTANT TXT_RecordCount				AS QUANTITY 106
DECLARE CONSTANT BTN_Filter						AS QUANTITY 106

#################################################################################
PROCEDURE SetInstrumentTypes	DO
{
	DECLARE VARIABLE nCount AS QUANTITY
	DECLARE VARIABLE nIndex AS QUANTITY
	DECLARE VARIABLE sInstType 			AS TEXT		100 

	RemoveListEntry2(CMB_InstTypes, "");
	[nCount] := GetObjPoolItemCount(Datapool_InstTypes);	
	[nIndex] := 0;
	[sInstType] := "";
	
	SetFieldValue1(CMB_InstTypes, " ");
	
	WHILE ( [nIndex] < [nCount] ) DO
	{		
		[sInstType] := GetObjPoolItemKey( Datapool_InstTypes, [nIndex] );
		AddListEntry1(CMB_InstTypes, [sInstType],"");
				
		IF ( [nIndex] = 0) DO
		{
			SetFieldValue1(CMB_InstTypes, [sInstType]);	
	#		NotifyControl(CMB_InstTypes, [sInstType]);
		}
		
		[nIndex] := ( [nIndex] + 1 );	
	}	

	#SetFieldValue1(TXT_RecordCount, "5");

	#CALL OnPress BTN_Filter, "" ;	
	

}


###############################################################################
PROCEDURE InitializeFilterCtrl DO
{
	CALL SetInstrumentTypes ;
}

PROCEDURE SetDefaults
	DECLARE PARAMETER sDefaultRecordCount as TEXT 
	DECLARE PARAMETER sInstType 	  as TEXT DO
{
	SetFieldValue1(TXT_RecordCount, [sDefaultRecordCount]);
	SetFieldValue1(CMB_InstTypes, [sInstType]);	
}


PROCEDURE OnPress
        DECLARE PARAMETER nButtonID as QUANTITY
        DECLARE PARAMETER sButtonName as TEXT DO
{
	
}
