left join OD_FACES FI on FI.SELF_ID=Q.INVESTOR and FI.LAST_FLAG= 1 
            left join OD_FACES FC on FC.SELF_ID=Q.contragent and FI.LAST_FLAG= 1 
            left outer join OD_SYS_TABS OP on OP.CODE='OPERATION' and OP.NUM=Q.OPERATION
            left outer join OD_DOCS P on P.ID=Q.INV_PORT
            left join OD_DOLS L__ on L__.DOC=D__.ID
            left outer join D_B_TDBS_DOL SD on SD.DOL=L__.ID and SD.PLAN_TYPE>= 2 
            inner join OD_VALUES V on V.ID=SD.SHARE
            --left outer join OD_VALUES V1 on V1.ID=SD.VAL
            left join pr_get_rate(SD.val,SD.f_date,null,null) PGR on ( 1 = 1 )
            WHERE C__.WALK>= 878  and C__.WALK< 881  and f_SetMult(C__.PROFILE,  262208 )<> 0  and C__.IS_TERM='T' and V.id is not NULL
            and FI.id = :investorid and V.id = :valuesid and p.id = :portfolioid and FC.id = :contragentid
            and sd.f_date>=:DATESTART and sd.f_date<:DATEEND
            order by  sd.f_date
            into :operationid, :amount, :price
            do begin
                if (amount_old>= 0 ) then
                begin
                   if (operationid =  1 ) then    -- РїРѕРєСѓРїРєР°
                   begin
                            if ((amount_old + amount) =  0 ) then  price_old =  0 ;
                            else price_old = ((price_old*amount_old)+(price*amount))/(amount_old + amount);
                            amount_old = amount_old + amount;
                   end
                   else if (operationid =  2 ) then      -- РїСЂРѕРТвЂ^

SET TERM ; ^

GRANT EXECUTE ON PROCEDURE PR_B_PORTFOLIO TO PROCEDURE P_DOP_DOHOD;

GRANT EXECUTE ON PROCEDURE P_DOP_DOHOD TO PUBLIC;
GRANT EXECUTE ON PROCEDURE P_DOP_DOHOD TO SYSDBA;