/* CabinetContracts - CurrentUserView */

select :Bind_IdWebUser as ID_WEB_USER
, case
  when exists
(
select 'x'
from contract_sources_ cs
     , source_financing_ sf
     , division_ d
     , organizations_ o
     , contracts_ c
     , employees_ e
     , web_user_wp wu
where cs.id_source = sf.id_source
      and sf.id_d = d.id_d
      and d.id_contractor = o.id_contractor(+)
      and (d.id_contractor is null or o.id_organization = p_environment_.get_ve_us_text(555))
      and cs.id_contract = c.id_contract
      and c.id_with_whom = e.id_contractor
      and e.id_e = wu.id_e_kis
      and wu.id_web_user = :Bind_IdWebUser
)
  then 1
  else 0
end as SHOW_WRONG_PAY_WARNING
from dual