create or replace procedure sp_fco_CurPI_pens(p_TrabCur  in out pkg_fco_gral.TrabCurTyp,
                                              p_orden    in number,
                                              p_compania in char,
                                              p_sucursal in char,
                                              p_periodo  in char) is
  v_sentencia varchar2(4000);

begin

  case p_orden
    when 1 then
      v_sentencia := pkg_fco_gral.sent_pens || pkg_fco_gral.ord1_pens;
    when 3 then
      v_sentencia := pkg_fco_gral.sent_pens || pkg_fco_gral.ord3_pens;
    else
      v_sentencia := pkg_fco_gral.sent_pens || pkg_fco_gral.ordx_pens;
  end case;

  open p_TrabCur for v_sentencia
    using p_compania, p_periodo, p_periodo, p_sucursal, p_sucursal;

end sp_fco_CurPI_pens;
/
