Otimizar a query

select distinct(e.codigo) as codcor, b.codprod, a.codigo as codped, a.nomecli, a.endcli, a.baicli, 
 a.cidcli, a.fone, a.codvendedor, c.unidade, a.vlrfrete, a.vlrembalagem, a.vlroutros, a.vlrseguro,
 a.dtemissao, a.vlrttr, a.vlrttrf as ttfolh, b.precounitr, b.qtide,
 b.vlrttr, b.precounitrf, b.vlrttrf, c.descricao, e.descricao as descrCor
from tpedcab a, tpeddet b, tproduto c, tprodcor d, tcores e
where b.codped = :paramPed and
           b.codped = a.codigo and
           b.codprod = c.codigo and
           c.codigo = d.codprod and
           d.codcor = b.codcor and
           d.codcor = e.codigo
order by b.codprod