CREATE OR REPLACE FUNCTION fn_fco_subtipo_cotizante(pch_compania   char,
                                                         pch_trabajador char)
/* definicion para */
 RETURN number is
  vti_subtipo number;
BEGIN
  begin
  SELECT 1
    INTO vti_subtipo
    FROM REL_TRAB_AGR
   WHERE compania = pch_compania
     AND trabajador = pch_trabajador
     and agrupacion = 'TIPO_COTIZ'
     AND dato = '01-1';
  exception
  when others then vti_subtipo := 0;
  end;
  RETURN nvl(vti_subtipo, 0);
END fn_fco_subtipo_cotizante;
/
