Como converto esse HQL em Criteria?
select distinct construcao
from CadConstrucao as construcao, ProdutoPlano as plano
where construcao.id.codConstrucao = plano.id.codConstrucao
and plano.id.codProduto = :codProduto
and plano.id.codVersao = :codVersao
and plano.id.codPlano = :codPlano