DECLARE CONSTANT OBJ_POOL_MARKET_LIST				AS QUANTITY 17

DECLARE CONSTANT CMB_Markets 					AS QUANTITY 105
DECLARE CONSTANT TXT_RecordCount				AS QUANTITY 106
DECLARE CONSTANT BTN_Filter						AS QUANTITY 107

#################################################################################
PROCEDURE InitializeFilterCtrl DO
{
	DECLARE VARIABLE nCount AS QUANTITY
	DECLARE VARIABLE nIndex AS QUANTITY
	DECLARE VARIABLE sMarketType 			AS TEXT		100 

	RemoveListEntry2(CMB_Markets, "");
	[nCount] := GetObjPoolItemCount(OBJ_POOL_MARKET_LIST);	
	[nIndex] := 0;
	[sMarketType] := "";
	
	SetFieldValue1(CMB_Markets, " ");
	
	WHILE ( [nIndex] < [nCount] ) DO
	{		
		[sMarketType] := GetObjPoolItemKey( OBJ_POOL_MARKET_LIST, [nIndex] );
		AddListEntry1(CMB_Markets, [sMarketType],"");
		
		[nIndex] := ( [nIndex] + 1 );	
	}	
}

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


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