//superPurse -> ESuperPurse objekt ktory mam z kolekcie
 
if (!superPurse->GetPurse(0))// nesmie nastat vzdy tam bude aspon jeden objekt
	return error;
 
EAbstractPurse 	*tmpData = superPurse->GetPurseByType(TYPE_EMTEST_PURSE);
 
if (tmpData != NULL)
{
	//emtest stara vetva !!!!!! POZOR !!!!!! ak potrebujete pristupovat na zavod, cislo operacie treba pretypovat na EPurseDataEx
	//EPurseDataEx interfacovo je totozny s EPurseData povodnou triedou ale mmaju roznych potomkov
 
	// ak potrebujete len hodnotu staci vam EAbstractPurse vid. help nizsie
}
else
{
	tmpData = data->GetDataByType(TYPE_IDS_PURSE);
	if (tmpData)
	{
		//osetrenie IDOL / IDS penazenky 
		// ak potrebujete len hodnotu staci vam EAbstractPurse vid. help nizsie
		//inak pretypovat
		EIDSPurse	*idsPurse = (EIDSPurse*)tmpData;
	}
	// ak sa nenajde ziadny objekt z definovanych typov => ina karta doteraz neimplementovana
	if (tmpData == NULL)
		return error;
}