---

cursor c_obj is
				select  a1.id
				from Z#PRODUCT a2, Z#RES_PORT a1
				where a1.id=a2.id
				  and ((a2.C_NUM_DOG in ('POS _sp','POS_vehicles','POS_vehicles_w/o_coll','POT_factoring') and (a2.C_DATE_CLOSE is NULL or a2.C_DATE_CLOSE > P_DATE)) or (a2.C_NUM_DOG in ('POS_MFAS_0','POS_MFAS_30','POS_MFAR_0','POS_MFAR_30','POS_MFZS_0','POS_MFZS_30','POS_MFZR_0','POS_MFZR_30','POS_KFAS_0','POS_KFAS_30','POS_KFZS_0','POS_KFZS_30','POS_KFBZ_0','POS_MFABZ_0','POT_MFS_0_47427','POT_MFS_30_47427','POT_MFR_0_47427','POT_MFR_30_47427','POT_KFS_0_47427','POT_KFS_30_47427') and a2.C_DATE_BEGIN <= P_DATE and (a2.C_DATE_CLOSE is NULL or a2.C_DATE_CLOSE > P_DATE) and  exists (
					select  b1.ID as A$1
					from Z#USER_TYPE b2, Z#USER_TYPE_REF b1
					where b1.COLLECTION_ID=a2.C_USER_TYPE and b1.C_VALUE=b2.id
					  and (b2.C_CODE = 'AFB_INCLUDE')
				)));