select a1.ID
into FACT
from Z#HOZ_OP_ACC b1, Z#PRODUCT a1
where a1.C_ARRAY_DOG_ACC = b1.COLLECTION_ID and a1.C_DATE_CLOSE is NULL and a1.CLASS_ID in ('AGR_FACTOR') and b1.C_ACCOUNT_DOG#1#2 = P#ACC and b1.C_NAME_ACCOUNT in (18858857) and exists (
select c1.ID as A$1
from Z#PRODUCT e2, Z#RES_PORT e1, Z#HOZ_OP_ACC d1, Z#RES_ACC_VAL c1
where e1.id=e2.id
and (c1.C_RES_ACC = d1.C_ACCOUNT_DOG#1#2 and d1.COLLECTION_ID = b1.COLLECTION_ID and e1.C_ACCRS = c1.COLLECTION_ID and c1.C_DATE_END is NULL and (e2.C_DATE_CLOSE is NULL or e2.C_DATE_CLOSE >= ONDATE) and (e2.C_COM_STATUS is NULL or e2.C_COM_STATUS != 2047865) and (e2.C_NUM_DOG in ('POS_MFAR_0','POS_MFZR_0','POS_MFAR_0_45812','POS_MFZR_0_45812')))
)
fetch first 1 rows only ;