<?

/* * *
 * LOG HTML
 */
$logPath = sfConfig::get('sf_log_dir') . '/html_dev.log';
$custom_logger = new sfFileLogger(new sfEventDispatcher(), array('file' => $logPath));

/**
 * $tag_ibc_dif,identifica 1 si salen los valores con ibc asi sean iguales el tipo A o C - 20200310
 */
$tag_ibc_dif = 1;

/**
 * Version nueva de planilla de autoliquidacion resolucion 2388 de 2016 - 20170303
 */
//En linux 
$salto_linea = "\n"; //variable global para manejo del salto de linea
//En windows 
$salto_linea = "\r\n"; //variable global para manejo del salto de linea


/*
 * Variables globales del proyecto
 */
//se deja global la letra de la planilla de aportes - 20140905
$letraPlanillaAportes = sfConfig::get('app_letraPlanillaAportes');
//se deja global codigo de la planilla de aportes - 20200814
$codigoPlanillaAportes = sfConfig::get('app_codigoPlanillaAportes');
//SGC-1, ANM-2, SGR-3, CYC-4, COL-5, INCI-6, LOCAL-7 - 20151026
$entidad_cliente = sfConfig::get('app_entidad_cliente');

$scarpeta = "uploads"; //carpeta donde guardar el archivo.

$sfile = $scarpeta . "/archivos_banco/PlanillaAutoliquidacionCorrecionResol2388_" . date("d") . date("m") . date("Y") . ".txt"; //ruta del archivo a generar
$fp = fopen($sfile, "w");

$shtml = "";
$shtmlAuto = "";

$consul = Doctrine_Manager::getInstance()->connection();

//ARCHIVO R1DATGEN Datos Generales

$archivo = fopen("uploads/archivos_banco/r1datgen.csv", "w"); //generacion del nuevo documento txt.
//$shtml = "R101\tR102\tR103\tR104\tR105\tR106\tR107A\tR107B\tR107C\tR107\tR108\tR109\tR110\tR111\tR112\tR113\tR114\tR115\tR116\tR120A\tR117\t\n";
//$shtml .="01\t00001\tAGENCIA NACIONAL DE MINERIA\tNI\t900500018\t2\tE\t0000000000\t\tU\t\t\t14-25\t$vig_ini-$per_ini\t$vig_fin-$per_fin\t\t\t00180\t000517709000\t1\t00\t\n";

/**
 * Se cambia el valor de la planilla, en cuanto a que se pone todo el valor de ibc y no solo el aumento - 20150915
 * case when (sum(total.IBC_c) - sum(total.IBC_a) > 0) then sum(total.IBC_c) - sum(total.IBC_a) else 0 end as total_neg,
 * Campo c8 se pone blanco en vez de 0, segun la $entidad_cliente - 20151026
 * Se agragan consultas de IGE, LMA, VAC para registros por dias de novedad, Redondeo es hacia arriba - 20170303
 */
$sql = "
select 
'01' AS C1,
'00001' AS C2,
RPAD( translate(tab0.nombre_empresa,'áéíóúÁÉÍÓÚ','aeiouAEIOU') ,200,' ') AS C3,
'NI' AS C4,
rPAD(tab0.nit,16,' ') AS C5,
digito_verificacion(tab0.nit) AS C6,
'N' AS C7,
lpad($num_planilla,10,' ') AS C8,
rPAD('$fecha_pago',10,' ') AS C9,
'$letraPlanillaAportes' AS C10,
rPAD('$codigoPlanillaAportes',10,' ') as c11,
rPAD(' ',40,' ') AS C12,
rpad(riesgo.codigo, 6, ' ') as c13,
'$vig_fin-' || lpad($per_fin,2,0) as c14,
'$vig_ini-' || lpad($per_ini,2,0)  AS C15,
rPAD('0',10,'0') AS C16,
rPAD(' ',10,' ') AS C17,
lpad(tab.cant_c - nvl(salud1.cant_ka,0),5,0) as c18,
--lpad(368,5,0) as c18,
lpad(icbf1.total,12,0) as c19,
lpad(1,2,0) as c20,
lpad(0,2,0) as c21

from datos_compania tab0

left join 
(
    select 
        sum(cant_a) as cant_a, 
        sum(cant_c) as cant_c,
        count(total.num_doc) as cant, 
        sum(total.total_a) as total_a, 
        sum(total.total_c) as total_c, 
        sum(total.total_c) - sum(total.total_a) as total, 
        sum(total.total_c) + sum(total.total_a) as total_sum 
        from (
          select 
          tab0.tipo_planilla,
          tab0.num_doc as num_doc, 
          case when tab0.tipo_planilla = 'A' then sum(tab0.aporte_func) else 0 end as total_a, 
          case when tab0.tipo_planilla = 'C' then sum(tab0.aporte_func) else 0 end as total_c, 
          case when tab0.tipo_planilla = 'A' then 1 else 0 end as cant_a, 
          case when tab0.tipo_planilla = 'C' then 1 else 0 end as cant_c
          from no_liquida_aporte tab0
          where tab0.id_periodo = $id_periodo
          group by  tab0.tipo_planilla, tab0.num_doc 
       )total   
)tab ON 1 = 1

/*
Trae el maximo codigo de riesgo de las afiliaciones - 20130820
Trae el maximo codigo de riesgo de las liquida aportes - 20150724
*/
left join 
(
    select distinct nvl(codfon.codigo,' ') as codigo 
    from no_mae_fondos maefon
    left join no_cod_fondo codfon
    on maefon.num_doc = codfon.nitocc
    where maefon.id_mae_fondos = (
        select id_mae_fondos from(
            select 
            aut.id_mae_fondos,
            ROW_NUMBER() OVER (
               --partition by aut.id_mae_fondos
                ORDER BY aut.cant desc
            ) AS rn
            from(
                select 
                id_mae_fondos, count(id_mae_fondos) as cant
                from no_liquida_aporte 
                where id_clase_fondo = 3
                and id_periodo = $id_periodo 
                and TIPO_PLANILLA = 'A'
                group by
                id_mae_fondos
            )aut
            where 
            aut.cant > 0
        )
        where rn = 1
    )
)riesgo ON 1 = 1

/*
Se toman valores unicamente si el valor de los registros de A es menor a C - 20140507
*/
left join 
(
    select 
   -- tab.cant, 
    sum(tab.total_neg) as total
    from (
    
        select  
        total.num_doc,
        count(total.tipo_planilla) as cant, 
        sum(total.aporte_ibc) as total1, 
        sum(total.IBC) as total2, 
        sum(total.IBC_a) as total_a, 
        sum(total.IBC_c) as total_c, 
        sum(total.IBC_c) - sum(total.IBC_a) as total,
        case when (sum(total.IBC_c) - sum(total.IBC_a) > 0) then sum(total.IBC_c) else 0 end as total_neg,
        sum(total.IBC_c) + sum(total.IBC_a) as total_sum 
        
        from (
                select tab0.tipo_planilla,
                tab0.num_doc, sum(nvl(tab0.valor_base,0)) as aporte_IBC, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, 
                MAX(nvl(tab0.valor_base,0)) AS IBC,
                max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/, 
              case when tab0.tipo_planilla = 'A' and max(tab0.num_dias) != 0 then max(nvl(tab0.valor_base,0)) else 0 end as ibc_a, 
              case when tab0.tipo_planilla = 'C' and max(tab0.num_dias) != 0 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC_c
                from no_liquida_aporte tab0
                --se filtra id4-CAJA DE COMPENSACION FAMILIAR en vez de id5 - 20130802
                where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 4
                /*
                Este usuario se deja quemado para que no salga - 20131022
                */
                and (
                  case when 
                  tab0.num_doc = '52992037' and
                  (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo) = '201301'
                  then 1
                  else 0
                  end  
                ) =  0
                group by tab0.tipo_planilla,tab0.num_doc
                
         )total  
         group by
        total.num_doc    
   )tab   
  -- group by   
   --tab.cant
      
)icbf1 ON 1 = 1


left join
(
    select 
    count(total.num_doc) as cant_ka, 
    sum(total.CANTIDAD) as total1_ka, 
    sum(total.CANTIDAD) as total_ka 
    from (
      select tab0.num_doc, count(tab0.id_novedad_kardex) as CANTIDAD
      from no_novedad_kardex tab0
      left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
      where tab1.afecta_antigu = 1 and tab0.estado = 1 and tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
      group by tab0.num_doc
    )total
)kardex1 ON 1 = 1


left join
(
    select 
    sum( round( nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0))  ,-3) ) as valor
    from no_estado_func_v tab0    
    
    --left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
    left join (
      SELECT
       aut.*,
       ROW_NUMBER() OVER (
        partition by aut.num_doc
        ORDER BY aut.estado DESC
       ) AS rn
      from no_nombramiento aut
    )tab5
    on tab5.id_tipo_doc = tab0.id_tipo_doc 
    and tab5.num_doc = tab0.num_doc
    and tab5.rn = 1
    
    left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp

    left join
    (
    select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD, max(tab1.suspension) as max_marca
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
        where tab1.afecta_antigu = 1 and tab0.estado = 1 
         /*   
        and (
          tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
          or
          tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
          or 
          tab0.id_periodo = $id_periodo
        )*/
        and
        (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
        and (
          to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
          or
          trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
          or 
          tab0.id_periodo = $id_periodo
        )
        group by tab0.num_doc
    )kardex1 ON kardex1.num_doc = tab0.num_doc
    
    /*
    Se cambia de id-4 por atributo en  la tabla no_tip_nov_ka de afecta_riesgo, para validar cuales afectan en los dias de ARP-ARL - 20130919
    */
    left join
    (
        select tab0.num_doc, case when sum(tab0.num_dias) > 30 then 30 else sum(tab0.num_dias) end  as CANTIDAD
        from no_novedad_kardex tab0
        left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
        where tab1.afecta_riesgo = 1 and tab0.estado = 1 and tab0.fecha_inc between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        group by tab0.num_doc
    )kardex4 ON kardex4.num_doc = tab0.num_doc

    left join 
    (
        select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
        max(tab0.porcentaje_patrono)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
        from no_liquida_aporte tab0
        where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 2
        group by tab0.num_doc
    )salud1 ON salud1.num_doc = tab0.num_doc


    WHERE tab0.periodo = $id_periodo 
    and (tab0.actual = 1 or
      ( tab0.actual = 0 
        /*
        Se cambia fecha de termina(ultimo dia de trabajo) por fecha de retiro, 
        para tener encuenta si trabajo en el periodo al menos 1 dia - 20130828                    
        */
        and tab5.fecha_retiro != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and tab5.fecha_termina
      between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))
      )
    )
    and kardex1.cantidad > 0    
)kardex4 on 1 = 1


left join 
(
  select 
    count(total.num_doc) as cant_ka
    from (
      select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
      max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
      from no_liquida_aporte tab0
      where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 2
      group by tab0.num_doc
    )total
    where total.dias = 0
)salud1 ON 1 = 1
   
";

//                 echo $sql;



$st = $consul->execute($sql);
$detalle = $st->fetchAll();

/*
 * recorrer arreglo de datos y convertir en csv
 */
$i = 0;
$j = 0;
$sep = ""; //variable global para manejo del separador
foreach ($detalle as $rec) {
//        $shtml.='"';
    foreach ($rec as $key => $value) {
        if ($j != 0) {
//            if ($value != '/') {
            $shtml .= $sep;
//            }
        }
//        $value = str_replace('Ñ', '#', $value);
//        $value = str_replace('ñ', '#', $value);
//        $value = str_replace('[\n|\r|\n\r]', ' ', $value);
        $shtml .= $value;
        $j++;
    }
//        $shtml.='"';
//        $this->logMessage("Linea: " . $i++);
    //salto de linea para separar totales
    $shtml .= $salto_linea;
    $j = 0;
}

fwrite($archivo, $shtml);
fclose($archivo);

$shtmlAuto .= $shtml;
$shtml = "";

//ARCHIVO R2LIQDAP Detalle     
$archivo = fopen("uploads/archivos_banco/r2liqdap.csv", "w"); //generacion del nuevo documento txt.
//$shtml = "R201\tR202\tR203\tR204\tR206\tR206A\tR206B\tR206C\tR206D\tR206E\tR207\tR208\tR209\tR210\tR211\tR212\tR213\tR214\tR215\tR216\tR217\tR218\tR219\tR220\tR221\tR222\tR223\tR224\tR225\tR226\tR227\tR228\tR229\tR230\tR231\tR232\tR233\tR234\tR239A\tR235\tR241A\tR236\tR237\tR238\tR239\tR241\tR242\tR243\tR244\tR245\tR246\tR246A\tR247\tR248\tR249\tR250\tR251\tR252\tR253\tR254\tR255\tR256\tR257\tR258\tR259\tR260\tR261\tR262\tR263\tR264\tR265\tR266\tR267\t\n";
//$shtml .= "";

/**
 * Se agregan filas para licencias que afectan antiguedad - 20150724
 * Registro 1.  El  registro original de dias laborados con la letra (A)
 * Registro 2.  El registro con la corrección para los días laborados (C)
 * Registro 3. El registro de la Licencia no remunerada como se reporto originalmente (A)
 * Registro 4. Nuevamente el registro de la Licencia no remunerada tal como se presento originalmente con los mismos valores (C)
 * Por favor actualizar  el archivo de Planilla de autoliquidación para quie en la posición 506  tenga "N" - 20141120 
 * Se agrega validacion para que los registros de licencia no remuneradas, tenga almenos dias de salud y caja de compensacion (and ( nvl(ccf1.dias,0) + nvl(salud1.dias,0) ) > 0) - 20150915
 * Incidente #8798, coloca campos C28 y C48 - 20190425
 * Tabla no_suptipo_cotizante_v para el tipo de pensionado - 20190508
 * Se completa campo 78 con el numero de riesgo - 20200526
 * Campo 41 posición 201 = F, Actualización Resolución 454 de 2020, ticket 17985 SGC F= Salario fijo - 20200709
 * Campo 41 para los registros de UPC no va la F - 20200824
 * Campo 78 se cambia por riesgo1.no_riesgo que es por tipo aporte - 20211123
 */
$sql = "
select 
tab.c1,
lpad(rownum,5,0) as c2,
tab.c3,
case when tab.c0 = 0 then tab.c4 else tab.c4a end c4,
tab.c5,
tab.c6,
tab.c7,
tab.c8,
tab.c9,
tab.c10,
case when tab.c0 = 0 then translate(tab.c11,'áéíóúÁÉÍÓÚñÑ','aeiouAEIOUnN') else translate(tab.c11a,'áéíóúÁÉÍÓÚñÑ','aeiouAEIOUnN') end c11,
translate(tab.c12,'áéíóúÁÉÍÓÚñÑ','aeiouAEIOUnN') as c12,
translate(tab.c13,'áéíóúÁÉÍÓÚñÑ','aeiouAEIOUnN') as c13,
translate(tab.c14,'áéíóúÁÉÍÓÚñÑ','aeiouAEIOUnN') as c14,
tab.c15,
tab.c16,
tab.c17,
tab.c18,
tab.c19,
tab.c20,
tab.c21,
tab.c22,
tab.c23,
tab.c24,
tab.c25,
tab.c26,
tab.c27,
tab.c28,
tab.c29,
tab.c30,
tab.c31,
tab.c32,
tab.c33,
tab.c34,
tab.c35,
case when tab.id_pension_func is not null then '00' else tab.c36 end c36,
tab.c37,
tab.c38,
tab.c39,
tab.c40,
case when c41 != 'UPC' then 'F'  else ' ' end as c41,
case when tab.id_pension_func is not null then '000000000' else tab.c42 end c42,
tab.c43,
tab.c44,
tab.c45,
tab.c46,
tab.c47,
tab.c48,
tab.c49,
tab.c50,
tab.c51,
tab.c52,
tab.c53,
tab.c54,
tab.c55,
tab.c56,
tab.c57,
tab.c58,
tab.c59,
tab.c60,
tab.c61,
tab.c62,
--tab.c63,
case when to_number(tab.c38) = 0 then LPAD(0,9,0) else tab.c63 end c63,
tab.c64,
tab.c65,
tab.c66,
tab.c67,
tab.c68,
tab.c69,
tab.c70,
tab.c71,
tab.c72,
tab.c73,
tab.c74,
tab.c75,
RPAD(to_char('N'),1,' ') AS C76,
tab.c77,
tab.c78,
tab.c79 AS C79,--campo nuevo de tipo aporte pension - 20160407
tab.c80 AS C80,--ING
tab.c81 AS C81,--RET
tab.c82 AS C82,--VSP
tab.c83 AS C83,--SLN
tab.c84 AS C84,--SLN
tab.c85 AS C85,--IGE
tab.c86 AS C86,--IGE
tab.c87 AS C87,--LMA
tab.c88 AS C88,--LMA
tab.c89 AS C89,--VAC-LR
tab.c90 AS C90,--VAC-LR
tab.c91 AS C91,--VCT
tab.c92 AS C92,--VCT
tab.c93 AS C93,--IRL
tab.c94 AS C94,--IRL
tab.c95 AS C95,--IBC parafiscales
tab.c96 AS C96,--HORAS EXTRAS
tab.c97 AS C97,--Rad exterior
tab.c98 AS C98--Actividad Economica Longitud: 7 Posición: 687-693 Resolución 2012 de 2022 - 20221205/20230919::LAVILA

from(

select taborder.* from (

/*
* Registro 2 - Funcionarios con reporte de fondos
* Incidente #4890 <-> 3.Marcación de novedad de retiro para pensionados. 
* 4.Marcación de novedades de ingreso a Caja de Compensación para pensionados e independientes. - 20170222
*/

/*
*Registro 2 - Funcionarios con reporte de fondos, tipo A
*/

select 
penfun.id_pension_func,
1 as c00,--order de mensual luego licencia
0 as c0,
'02' AS C1,
LPAD(rownum,5,0) AS C2,
lpad( (REPLACE(tdoc.abreviacion,'.','')), 2,' ') AS C3,
RPAD(to_char(tab0.num_doc),16,' ') AS C4,
rpad(to_char(tab0.num_doc),16,' ') as c4a,
'01' AS C5,
case when penfun.id_pension_func is not null then penfun.codigo_suptipo else '00' end AS C6,--suptipo de pensionado
' ' AS C7,
' ' AS C8,
RPAD(nvl(tab2.coddepto,' '),2,' ') AS C9,
RPAD(nvl(substr(tab3.codmun_text,3),' '),3,' ') AS C10,
RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11,
RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11a,
RPAD(nvl(tab4.segundo_apellido,' '),30,' ') AS C12,
RPAD(nvl( replace( tab4.primer_nombre,'','') ,' '),20,' ') AS C13,
RPAD(nvl( replace( tab4.segundo_nombre,'',''),' '),30,' ') AS C14,
case when tab5.fecha_ingreso
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then 'X' else ' ' end AS C15,
case when tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then 'X' else ' ' end AS C16,

/*Incidente #40643, GA:SEGUN RESOLUCIÓN 467 DE 2025. SE RETIRAN LAS MARCAS DE CAMBIO DE FONDO - 20250909*/
case when salud.fecha_ingreso   between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then ' ' else ' ' end AS C17,
case when salud.fecha_retiro   between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then ' ' else ' ' end AS C18,
case when pension.fecha_ingreso   between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then ' ' else ' ' end AS C19,
case when pension.fecha_retiro   between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then ' ' else ' ' end AS C20,

case when ascenso.cantidad>0 then 'X' else ' 'end AS C21,
'A' AS C22,
-- debe tener marca para las novedades de kardex que afecten antiguedad - 20130802
case when encargo.cantidad>0 or vaca.cantidad>0 or kardexlr.cantidad>0 or kardex2.cantidad>0 or kardex3.cantidad>0 then 'X' else ' 'end AS C23,
case when kardex1.cantidad>0 then ' ' else ' 'end AS C24,
case when kardex2.cantidad>0 then ' ' else ' 'end AS C25,--inc temp enfermedad
case when kardex3.cantidad>0 then ' ' else ' 'end AS C26,--lic maternidad
case when vaca.cantidad>0 then ' ' when kardexlr.cantidad>0 then ' ' else ' 'end AS C27,
' ' AS C28,
' ' AS C29,
LPAD(to_char(nvl(kardex4.cantidad,0)),2,0) AS C30,--inc por accidente de trabajo
rpad(nvl(pension.codigo,' '),6,' ') as c31,

case when pension.fecha_retiro   between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then rPAD( nvl( (select distinct no_cod_fondo.CODIGO from no_mae_fondos join no_cod_fondo on no_cod_fondo.nitocc = no_mae_fondos.num_doc  
  where no_mae_fondos.id_mae_fondos = pension.id_tap AND ( no_cod_fondo.tipo != 'EPS' or no_cod_fondo.tipo != 'CCF' ) ),' ') ,6,' ') 
  else rPAD(' ',6,' ') end AS C32,
--rPAD(' ',6,' ') AS C32,

rPAD(nvl(salud.codigo,' '),6,' ') AS C33,

case when salud.fecha_retiro   between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then rPAD( nvl( (select distinct no_cod_fondo.CODIGO from no_mae_fondos join no_cod_fondo on no_cod_fondo.nitocc = no_mae_fondos.num_doc  
  where no_mae_fondos.id_mae_fondos = salud.id_tae  AND no_cod_fondo.tipo = 'EPS' ),' ') ,6,' ') 
  else rPAD(' ',6,' ') end AS C34,
--rpad(' ',6,' ') as c34,

rPAD(nvl(ccf.codigo,' '),6,' ') AS C35,

-- debe tener en dias 30 para las novedades de kardex que afecten antiguedad - 20130802
-- Tomar dias de la tabla - 20140724
--case when nvl(kardex1.cantidad,0)>0 then '30' else LPAD(nvl(pension1.dias,0),2,0) end AS C36,
--case when nvl(kardex1.cantidad,0)>0 then '30' else LPAD(nvl(salud1.dias,0),2,0) end AS C37,
--LPAD(nvl(pension1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardex2.num_dias_novkar,0)-nvl(kardex3.num_dias_novlicmat,0)-nvl(kardex4.cantidad,0),0),2,0) AS C36,
--LPAD(nvl(salud1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardex2.num_dias_novkar,0)-nvl(kardex3.num_dias_novlicmat,0)-nvl(kardex4.cantidad,0),0),2,0) AS C37,
LPAD(nvl(pension1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardex2.num_dias_novkar,0)-nvl(kardex3.num_dias_novlicmat,0)-nvl(kardex4.cantidad,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0),2,0) AS C36,
LPAD(nvl(salud1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardex2.num_dias_novkar,0)-nvl(kardex3.num_dias_novlicmat,0)-nvl(kardex4.cantidad,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0),2,0) AS C37,

--LPAD(nvl(salud1.dias-nvl(kardex4.cantidad,0),0),2,0) AS C38,
--LPAD(nvl(riesgo1.dias-nvl(kardex4.cantidad,0),0),2,0) AS C38,
--LPAD(nvl(riesgo1.dias,0),2,0) AS C38,
/*
Toma los dias del riesgo y resta los dias de kardex4 si supera los 30 dias, sino toma los de riesgos
*/
--LPAD( case when nvl(riesgo1.dias,0) + nvl(kardex4.cantidad,0) > 30 
--then 30 - nvl(kardex4.cantidad,0) else nvl(riesgo1.dias,0) end ,2,0) AS C38,
--LPAD(nvl(salud1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardex2.num_dias_novkar,0)-nvl(kardex3.num_dias_novlicmat,0)-nvl(kardex4.cantidad,0) ,0),2,0)  as C38,
LPAD(nvl(salud1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardex2.num_dias_novkar,0)-nvl(kardex3.num_dias_novlicmat,0)-nvl(kardex4.cantidad,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0),2,0)  as C38,

--lpad(nvl(ccf1.dias-nvl(vaca.num_dias_vac,0)  -nvl(kardex3.num_dias_novlicmat,0)-nvl(kardex4.cantidad,0) ,0),2,0)
LPAD(nvl(salud1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardex2.num_dias_novkar,0)-nvl(kardex3.num_dias_novlicmat,0)-nvl(kardex4.cantidad,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0),2,0) as c39,
--Se quita la novedad de kardex - 20130725
--case when nvl(kardex1.cantidad,0)>0 then '30' else LPAD( case when nvl(ccf1.dias,0) + nvl(kardex4.cantidad,0) > 30 
--then 30 - nvl(kardex4.cantidad,0) else nvl(ccf1.dias,0) end ,2,0) end AS C39,

LPAD(nvl(tab6.asignacion_basica,0),9,0) AS C40,
' ' AS C41,
LPAD( case 
when nvl(vaca.num_dias_vac,0) != 0 then nvl(riesgo1.ibc,0)
when nvl(kardex2.num_dias_novkar,0) != 0  then nvl(riesgo1.ibc,0) 
when nvl(kardex3.num_dias_novlicmat,0) != 0  then nvl(riesgo1.ibc,0) 
when nvl(kardex4.cantidad,0) != 0  then nvl(riesgo1.ibc,0) 
when nvl(kardexlr.num_dias_novlicrem,0) != 0  then nvl(riesgo1.ibc,0) 
else nvl(pension1.ibc,0) end ,9,0) AS C42,
LPAD( case 
when nvl(vaca.num_dias_vac,0) != 0 then nvl(riesgo1.ibc,0)
when nvl(kardex2.num_dias_novkar,0) != 0  then nvl(riesgo1.ibc,0)
when nvl(kardex3.num_dias_novlicmat,0) != 0  then nvl(riesgo1.ibc,0) 
when nvl(kardex4.cantidad,0) != 0  then nvl(riesgo1.ibc,0) 
when nvl(kardexlr.num_dias_novlicrem,0) != 0  then nvl(riesgo1.ibc,0) 
else nvl(salud1.ibc,0) end ,9,0) AS C43,
LPAD(nvl(riesgo1.ibc,0),9,0) AS C44,

/* 
ACTUALIZAR CAMPO C95
Se verifica que toma segun planilla los dias calculados y no siempre 30, se valida que tenga dias diferente de 0 - 20210423 
Se deja que solo reste dias de vac y licrem, no otras - 20210521
Se cambia que tomen dias de ccf1.dias en vez de salud1.dias - 20210624
*/
LPAD( case 
when ccf1.dias != 0 and (nvl(nvl(vaca.num_dias_vac,0),0) != 0 or nvl(kardexlr.num_dias_novlicrem,0) != 0) then ceil( ( nvl(ccf1.ibc,0) / ccf1.dias * nvl(ccf1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0) )-0.5 )
when nvl(nvl(vaca.num_dias_vac,0),0) != 0 and nvl(kardexlr.num_dias_novlicrem,0) != 0  then ceil( nvl(ccf1.ibc,0) / 30 * nvl(30-nvl(vaca.num_dias_vac,0)-nvl(kardexlr.num_dias_novlicrem,0),0) )
when nvl(nvl(vaca.num_dias_vac,0),0) != 0  then ceil( nvl(ccf1.ibc,0) / 30 * nvl(30-nvl(vaca.num_dias_vac,0),0) )
when nvl(kardexlr.num_dias_novlicrem,0) != 0  then nvl(riesgo1.ibc,0)  
else nvl(ccf1.ibc,0) end ,9,0) AS C45,


rpad( case when nvl(pension2.tarifa,0) = 0 then '0.0' when nvl(pension2.tarifa,0) < 1 then '0' else '' end || + nvl(pension2.tarifa,0) ,7,0) as C46,
--lPAD( ceil( ((nvl(pension2.aporte,0) + nvl(pension2.aporte_patrono,0)) - (ceil((nvl(pension2.aporte,0) + nvl(pension2.aporte_patrono,0))/30*nvl(nvl(vaca.num_dias_vac,0),0)/100)*100) - (ceil((nvl(pension2.aporte,0) + nvl(pension2.aporte_patrono,0))/30*nvl(nvl(kardex2.num_dias_novkar,0),0)/100)*100) )/100)*100 ,9,0) AS C47,
LPAD( ceil( case 
when nvl(vaca.num_dias_vac,0) != 0 then nvl(riesgo1.ibc,0) * nvl(pension2.tarifa,0)
when nvl(kardex2.num_dias_novkar,0) != 0  then nvl(riesgo1.ibc,0) * nvl(pension2.tarifa,0)
when nvl(pension1.dias-nvl(kardex3.num_dias_novlicmat,0),0) != 30  then nvl(riesgo1.ibc,0) * nvl(pension2.tarifa,0)
when nvl(kardex4.cantidad,0) != 0  then nvl(riesgo1.ibc,0) * nvl(pension2.tarifa,0)
when nvl(kardexlr.num_dias_novlicrem,0) != 0  then nvl(riesgo1.ibc,0) * nvl(pension2.tarifa,0)
else nvl(pension2.aporte,0) + nvl(pension2.aporte_patrono,0) end /100)*100 ,9,0) as C47,
lPAD(0,9,0) AS C48,
lpad(0,9,0) as C49,
LPAD( ceil( case 
when nvl(pension1.dias-nvl(vaca.num_dias_vac,0),0) != 30 then nvl(riesgo1.ibc,0) * nvl(pension2.tarifa,0)
when nvl(pension1.dias-nvl(kardex2.num_dias_novkar,0),0) != 30  then nvl(riesgo1.ibc,0) * nvl(pension2.tarifa,0)
when nvl(pension1.dias-nvl(kardex3.num_dias_novlicmat,0),0) != 30  then nvl(riesgo1.ibc,0) * nvl(pension2.tarifa,0)
when nvl(kardex4.cantidad,0) != 0  then nvl(riesgo1.ibc,0) * nvl(pension2.tarifa,0)
when nvl(kardexlr.num_dias_novlicrem,0) != 0  then nvl(riesgo1.ibc,0) * nvl(pension2.tarifa,0)
else nvl(pension2.aporte,0) + nvl(pension2.aporte_patrono,0) end /100)*100 ,9,0) as C50,

--lpad(nvl(pension3.aporte_fsp,0),9,0) as c51,
LPAD( case 
when nvl(vaca.num_dias_vac,0) != 0 and nvl(pension3.aporte_fsp,0) != 0 then ceil( (nvl(riesgo1.ibc,0) * 0.005) / 100)*100
when nvl(kardex2.num_dias_novkar,0) != 0 and nvl(pension3.aporte_fsp,0) != 0 then ceil( (nvl(riesgo1.ibc,0) * 0.005) / 100)*100
when nvl(kardex3.num_dias_novlicmat,0) != 0 and nvl(pension3.aporte_fsp,0) != 0 then ceil( (nvl(riesgo1.ibc,0) * 0.005) / 100)*100
when nvl(kardex4.cantidad,0) != 0 and nvl(pension3.aporte_fsp,0) != 0 then ceil( (nvl(riesgo1.ibc,0) * 0.005) / 100)*100
when nvl(kardexlr.num_dias_novlicrem,0) != 0 and nvl(pension3.aporte_fsp,0) != 0 then ceil( (nvl(riesgo1.ibc,0) * 0.005) / 100)*100
else nvl(pension3.aporte_fsp,0) end ,9,0) as C51,
--lpad(nvl(pension3.aporte,0) - nvl(pension3.aporte_fsp,0) ,9,0) as c52,
LPAD( case 
when nvl(vaca.num_dias_vac,0) != 0 and nvl(pension3.aporte_fsp,0) != 0  then (ceil( (nvl(riesgo1.ibc,0) * ( nvl(pension3.tarifa,0) - 0.005 ) ) / 100)*100) 
when nvl(kardex2.num_dias_novkar,0) != 0 and nvl(pension3.aporte_fsp,0) != 0   then (ceil( (nvl(riesgo1.ibc,0) * ( nvl(pension3.tarifa,0) - 0.005 ) ) / 100)*100) 
when nvl(kardex3.num_dias_novlicmat,0) != 0 and nvl(pension3.aporte_fsp,0) != 0   then (ceil( (nvl(riesgo1.ibc,0) * ( nvl(pension3.tarifa,0) - 0.005 ) ) / 100)*100) 
when nvl(kardex4.cantidad,0) != 0 and nvl(pension3.aporte_fsp,0) != 0   then (ceil( (nvl(riesgo1.ibc,0) * ( nvl(pension3.tarifa,0) - 0.005 ) ) / 100)*100) 
when nvl(kardexlr.num_dias_novlicrem,0) != 0 and nvl(pension3.aporte_fsp,0) != 0   then (ceil( (nvl(riesgo1.ibc,0) * ( nvl(pension3.tarifa,0) - 0.005 ) ) / 100)*100) 
else nvl(pension3.aporte,0) - nvl(pension3.aporte_fsp,0) end ,9,0) as C52,
rpad(0,9,0) as c53,

rpad( case when nvl(salud1.tarifa,0) = 0 then '0.0' when nvl(salud1.tarifa,0) < 1 then '0' else '' end || + nvl(salud1.tarifa,0) ,7,0) as c54,
--lPAD( ceil( ((nvl(salud1.aporte,0) + nvl(salud1.aporte_patrono,0)) - (ceil((nvl(salud1.aporte,0) + nvl(salud1.aporte_patrono,0))/30*nvl(nvl(vaca.num_dias_vac,0),0)/100)*100) - (ceil((nvl(salud1.aporte,0) + nvl(salud1.aporte_patrono,0))/30*nvl(nvl(kardex2.num_dias_novkar,0),0)/100)*100) )/100)*100 ,9,0) AS c55,
LPAD( ceil( case 
when nvl(vaca.num_dias_vac,0) != 0 then nvl(riesgo1.ibc,0) * salud1.tarifa
when nvl(kardex2.num_dias_novkar,0) != 0  then nvl(riesgo1.ibc,0) * salud1.tarifa
when nvl(kardex3.num_dias_novlicmat,0) != 0  then nvl(riesgo1.ibc,0) * salud1.tarifa
when nvl(kardex4.cantidad,0) != 0  then nvl(riesgo1.ibc,0) * salud1.tarifa
when nvl(kardexlr.num_dias_novlicrem,0) != 0  then nvl(riesgo1.ibc,0) * salud1.tarifa
else nvl(salud1.aporte,0) + nvl(salud1.aporte_patrono,0) end /100)*100 ,9,0) as C55,

lpad( case when '01' = '40' then 0 else 0 end ,9,0) as c56,
rpad(' ',15,' ') as c57,
rpad(0,9,0) as C58,
rpad(' ',15,' ') as C59,
rpad(0,9,0) as c60,
rpad( case when nvl(riesgo1.tarifa,0) = 0 then '0.0' when nvl(riesgo1.tarifa,0) < 1 then '0' else '' end || + nvl(riesgo1.tarifa,0) ,9,0) as C61,
lpad(nvl(riesgo.centro_trabajo,0),9,0) as C62,
lpad( nvl(riesgo1.aporte_patrono,0) ,9,0) as c63,
--lpad( ceil( ( nvl(riesgo1.aporte_patrono,0)/30*(nvl(riesgo1.dias,0)) )/100)*100 ,9,0) as c63,
rpad( case when nvl(ccf1.tarifa,0) = 0 then '0.0' when nvl(ccf1.tarifa,0) < 1 then '0' else '' end || + nvl(ccf1.tarifa,0) ,7,0) AS C64,
--lpad( nvl(ccf1.aporte_patrono,0) ,9,0) as c65,
lpad( (case when nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) != 0 and ccf1.dias != 0 then ceil( ( (ccf1.ibc/ccf1.dias*(nvl(ccf1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0)))*nvl(ccf1.tarifa,0)  ) /100)*100 else nvl(ccf1.aporte_patrono,0) end) ,9,0) as c65,
rpad( case when nvl(sena1.tarifa,0) = 0 then '0.0' when nvl(sena1.tarifa,0) < 1 then '0' else '' end || + nvl(sena1.tarifa,0) ,7,0) as C66,
--lpad( nvl(sena1.aporte_patrono,0) ,9,0) as c67,
lpad( (case when nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) != 0 and ccf1.dias != 0 then ceil( ( (sena1.ibc/ccf1.dias*(nvl(ccf1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0)))*nvl(sena1.tarifa,0)  ) /100)*100 else nvl(sena1.aporte_patrono,0) end) ,9,0) as c67,
rpad( case when nvl(icbf1.tarifa,0) = 0 then '0.0' when nvl(icbf1.tarifa,0) < 1 then '0' else '' end || + nvl(icbf1.tarifa,0) ,7,0) as C68,
--lpad( nvl(icbf1.aporte_patrono,0) ,9,0) as c69,
lpad( (case when nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) != 0 and ccf1.dias != 0 then ceil( ( (icbf1.ibc/ccf1.dias*(nvl(ccf1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0)))*nvl(icbf1.tarifa,0)  ) /100)*100 else nvl(icbf1.aporte_patrono,0) end) ,9,0) as c69,
rpad( case when nvl(esap1.tarifa,0) = 0 then '0.0' when nvl(esap1.tarifa,0) < 1 then '0' else '' end || + nvl(esap1.tarifa,0) ,7,0) as C70,
--lpad( nvl(esap1.aporte_patrono,0) ,9,0) as c71,
lpad( (case when nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) != 0 and ccf1.dias != 0 then ceil( ( (nvl(esap1.ibc,0)/ccf1.dias*(nvl(ccf1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0)))*nvl(esap1.tarifa,0)  ) /100)*100 else nvl(esap1.aporte_patrono,0) end) ,9,0) as c71,
rpad( case when nvl(men1.tarifa,0) = 0 then '0.0' when nvl(men1.tarifa,0) < 1 then '0' else '' end || + nvl(men1.tarifa,0) ,7,0) as C72,
--lpad( nvl(men1.aporte_patrono,0) ,9,0) as c73,
lpad( (case when nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) != 0 and ccf1.dias != 0 then ceil( ( (nvl(men1.ibc,0)/ccf1.dias*(nvl(ccf1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0)))*nvl(men1.tarifa,0)  ) /100)*100 else nvl(men1.aporte_patrono,0) end) ,9,0) as c73,
'  ' AS C74,
RPAD(to_char(' '),16,' ') AS C75,
RPAD(to_char('N'),1,' ') AS C76,
RPAD(riesgo.codigo,6,' ') AS C77,
nvl(RPAD( nvl(riesgo1.no_riesgo,riesgo.riesgo),1,' '),' ') AS C78,
case when pension.id_tipo_aporte != 1 then '1' else ' ' end  AS C79,

case 
when tab5.fecha_ingreso_correc is not null then to_char(tab5.fecha_ingreso_correc,'yyyy-mm-dd')
when tab5.fecha_ingreso
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(tab5.fecha_ingreso,'yyyy-mm-dd')
  else RPAD(to_char(' '),10,' ') end AS C80,--ING
case when novretiro.num_doc is not null and tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(tab5.fecha_termina,'yyyy-mm-dd')
  else RPAD(to_char(' '),10,' ') end AS C81,--RET
  
case when ascenso.fecha_inicial
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(ascenso.fecha_inicial,'yyyy-mm-dd')
  else RPAD(to_char(' '),10,' ') end AS C82,--VSP
  
RPAD(to_char(' '),10,' ') AS C83,--SLN
RPAD(to_char(' '),10,' ') AS C84,--SLN

RPAD(to_char(' '),10,' ') AS C85,--IGE
RPAD(to_char(' '),10,' ') AS C86,--IGE

RPAD(to_char(' '),10,' ') AS C87,--LMA
RPAD(to_char(' '),10,' ') AS C88,--LMA

RPAD(to_char(' '),10,' ') AS C89,--VAC-LR
RPAD(to_char(' '),10,' ') AS C90,--VAC-LR
  
RPAD(to_char(' '),10,' ') AS C91,--VCT
RPAD(to_char(' '),10,' ') AS C92,--VCT

RPAD(to_char(' '),10,' ') AS C93,--IRL
RPAD(to_char(' '),10,' ') AS C94,--IRL

LPAD( case 
when ccf1.dias != 0 and (nvl(nvl(vaca.num_dias_vac,0),0) != 0 or nvl(kardexlr.num_dias_novlicrem,0) != 0) then ceil( ( nvl(ccf1.ibc,0) / ccf1.dias * nvl(ccf1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0) )-0.5 )
when nvl(nvl(vaca.num_dias_vac,0),0) != 0 and nvl(kardexlr.num_dias_novlicrem,0) != 0  then ceil( nvl(ccf1.ibc,0) / 30 * nvl(30-nvl(vaca.num_dias_vac,0)-nvl(kardexlr.num_dias_novlicrem,0),0) )
when nvl(nvl(vaca.num_dias_vac,0),0) != 0  then ceil( nvl(icbf1.ibc,0) / 30 * nvl(30-nvl(vaca.num_dias_vac,0),0) ) 
when nvl(kardexlr.num_dias_novlicrem,0) != 0  then nvl(riesgo1.ibc,0)  
else nvl(icbf1.ibc,0) end ,9,0) AS C95,--IBC parafiscales
LPAD(  case when  nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0) < 300 then  nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0) else 300 end  ,3,0) AS C96,--HORAS EXTRAS
RPAD(to_char(' '),10,' ') AS C97,--Rad exterior
case when tab0.id_anhos || lpad(tab0.id_meses, 2, '0') >= 202211 then RPAD(to_char(riesgo.cod_riesgo|| riesgo.cod_ciiu || riesgo.cod_ncp),7,' ') else '' end AS C98

from no_estado_func_v tab0

left join tipo_documento tdoc
on tdoc.id_tipo_doc = tab0.id_tipo_doc

left join centro_operacion tab1 ON tab1.id_cen_op = tab0.id_cen_op
left join departamento tab2 ON tab2.id_depto = tab1.id_depto
left join municipios tab3 ON tab3.codmun = tab1.codmun
left join no_datos_funcionario_v tab4 ON tab4.id_tipo_doc = tab0.id_tipo_doc and tab4.num_doc = tab0.num_doc

left join (
    select pen.*, sub.descripcion as suptipo_cotizante, sub.codigo as codigo_suptipo
    from no_pension_func pen
    left join no_suptipo_cotizante_v sub
    on pen.id_suptipo_cotizante = sub.id_suptipo_cotizante
    where
    pen.estado = 1
)penfun
on penfun.id_tipo_doc = tab0.id_tipo_doc 
and penfun.num_doc = tab0.num_doc

/*
left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
correcion de fecha segun tabla - 20210329
*/
left join (
  SELECT
  nomcor.fecha_ingreso as fecha_ingreso_correc,
   aut.*,
   ROW_NUMBER() OVER (
    partition by aut.num_doc
    ORDER BY aut.estado DESC, aut.fecha_ingreso DESC, aut.fecha_nombra DESC, aut.id_nombramiento DESC
   ) AS rn
  from no_nombramiento aut
  
  left join no_periodo_v per
  on per.id_periodo = aut.id_periodo
  
  left join no_nombra_correc nomcor 
  on nomcor.id_tipo_doc = aut.id_tipo_doc
  and nomcor.num_doc = aut.num_doc
  and nomcor.id_periodo = $id_periodo
  
  where 
  per.anho_mes <= ( SELECT anho_mes FROM no_periodo_v where id_periodo = $id_periodo )
)tab5
on tab5.id_tipo_doc = tab0.id_tipo_doc 
and tab5.num_doc = tab0.num_doc
and tab5.rn = 1

--left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp
left join(
    
    select * from(
            select 
            concep.id_tipo_doc,
            concep.num_doc,
            concep.valor as asignacion_basica ,
            
             ROW_NUMBER() OVER (
              PARTITION BY concep.num_doc
              order by concep.fecha_hasta desc
             ) as rn
           
            from no_concepto_periodo concep
            where concep.id_concep_nomina = (select id_concep_basica from no_param_concep) 
            and concep.periodo in ( select distinct id_periodo from no_periodo where id_tipo_periodo in (1,2) and (id_anhos, id_meses) in (SELECT ID_ANHOS, id_meses FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo ))
    )where rn = 1
    
)tab6 ON tab6.id_tipo_doc = tab0.id_tipo_doc and tab6.num_doc = tab0.num_doc
and tab6.rn = 1

left join
(
  /* se cambia filtro por estado activo y id_tipo_novedad = 1 - 20150422 */
  select 
  tab0.num_doc,count(tab0.id_novedad_personal) as cantidad,
  max(tab0.fecha_inicial) as fecha_inicial
  from no_novedad_personal tab0
  left join no_novedades nov on tab0.id_novedad = nov.id_novedad
  where 
  tab0.estado = 1 and nov.id_tipo_novedad = 1
  and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  group by tab0.num_doc
) ascenso ON ascenso.num_doc = tab0.num_doc

left join
(
  /* se cambia filtro por estado activo y id_tipo_novedad = 2 - 20210329 */
  select 
  tab0.num_doc,count(tab0.id_novedad_personal) as cantidad,
  max(tab0.fecha_inicial) as fecha_inicial
  from no_novedad_personal tab0
  left join no_novedades nov on tab0.id_novedad = nov.id_novedad
  where 
  tab0.estado = 1 and nov.id_tipo_novedad = 2
  and(
    tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
  or
    tab0.id_periodo = $id_periodo
  )
  group by tab0.num_doc
) novretiro ON novretiro.num_doc = tab0.num_doc

/*
Variacion de salario
*/
left join
(
    select num_doc, sum(cantidad) AS CANTIDAD
    from(
    
        select tab0.num_doc,count(tab0.id_novedad_personal) AS CANTIDAD
        from no_novedad_personal tab0
        where tab0.id_novedad= 3 
        and( 
          tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          or
          tab0.fecha_terminacion  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        or
          to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_inicial and tab0.fecha_terminacion
          or
          trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_inicial and tab0.fecha_terminacion
        )
        group by tab0.num_doc
        
        union 
        
        select tab0.num_doc,count(tab0.id_bonifica_servicios) AS CANTIDAD
        from no_bonifica_servicios tab0
        where tab0.estado=0 and tab0.fecha_bonifica between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        group by tab0.num_doc
        
        union 
        
        select tab0.num_doc,count(tab0.id_hr_extra) AS CANTIDAD
        from no_hr_extra tab0
        left join no_lote_hr_extra tab1 ON tab1.id_lote_hr_extra = tab0.id_lote_hr_extra
        where tab1.estado=0 and tab1.id_periodo = $id_periodo
        group by tab0.num_doc
        
        union 
        
        --OJO:Id en el codigo para marca concep 1003 y 1011 - 20130802
        --Urgente cambiar por parametrizar agrupacion por conceptos - 20130826
        --Se cambia por agrupacion 105-CONCEPTOS DE VARIACIÓN TRANSITORIA PARA LA PLANILLA - 20130902
        --Se cambia por filtro de periodo para los tipos de periodo 1,2,5 y del periodo de retroactivo - 20140507
        select tab0.num_doc,count(tab0.id_liquida_nomina) as cantidad
        from no_liquida_nomina tab0
        where tab0.id_periodo in ( 
        select distinct id_periodo from no_periodo where id_tipo_periodo in (1,2,5) and (id_anhos, id_meses) in (SELECT ID_ANHOS, id_meses FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo )
        union
        select distinct id_periodo from no_periodo where id_tipo_periodo in (5, 6, 7) and (id_anhos) in (SELECT ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo )                   
        )
        --(select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = tab0.id_periodo) = (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) 
        and id_concep_nomina in (    
            /*
            tab0.id_concep_nomina = 3 
            or
            tab0.id_concep_nomina = 21 
            or
            tab0.id_concep_nomina = 23 
            or
            tab0.id_concep_nomina = 401 
            */
            (select distinct id_concep_nomina from no_agrup_deta where id_agrup_concepto = 105) 
        )
        group by tab0.num_doc
        
        union
         
        
        --OJO: Se dejo quemado para '52717971', '79783764' en el mes de '201305' , '201304' la marca transitoria de salario - 20130805
        
        select distinct
        liq.num_doc,
        1 as cantidad
        from no_liquida_nomina liq
        where 
        liq.id_periodo = $id_periodo
        and liq.num_doc in ( '52717971', '79783764' )
        and (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = liq.id_periodo) in ( '201305' , '201304')
    
    )GROUP BY num_doc

) encargo ON encargo.num_doc = tab0.num_doc

left join
(
        select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD
        from no_novedad_kardex tab0
        left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
        where tab1.afecta_antigu = 1 and tab0.estado = 1 

        /* Debe tomar la novedad sin inportar cuando se registre - 20130805
        and tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        */
        and
        (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
        and (
          to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
          or
          trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
          or 
          tab0.id_periodo = $id_periodo
        )
                
        group by tab0.num_doc
)kardex1 ON kardex1.num_doc = tab0.num_doc

left join
( 
    /*Se cambia validacion para tener encuenta dias realmente de la novedad segun prorroga - 20150223*/
    select tab0.num_doc, count(tab0.id_novedad_kardex) CANT, 
    min(tab0.fecha_ini) as fecha_ini2, 
    case when min(tab0.fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else min(fecha_ini) end as fecha_ini,
    max(tab0.fecha_fin) as fecha_fin2,
    case when max(tab0.fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin,
    
    sum( case when tab0.num_dias > 0 and tab0.prorroga = 1 then 1 when tab0.num_dias > (tab1.dias_patrono) and tab0.prorroga = 0 then 1 else 0 end) as CANTIDAD,
    /*nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novkar*/
    case 
    when max((select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo)) < (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
        then nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0)
    when nvl(sum( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin ) ),0) > 30
    then 30 else nvl(sum( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin ) ),0) end as num_dias_novkar_ant,
    /*Toma dias correctos de mes actual y fechas anteriores, calcula cada uno por independiente, al final valida si supera 30 dias - 20190610*/
    /*Incidente 14326, Se suspende sumar dia 31 por conflicto con incapacidades - 20190926*/ 
    /*Toma maximo hasta fecha del mes actual - 20191023*/ 
    case 
    when nvl(sum( 
    
        case 
        when (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) < (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo_actual)
        then        
        nvl( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ,0)        
        else 
        --nvl( tab0.fecha_fin - (tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end) ) + 1 ,0)
        --nvl( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin ) ,0) 
        nvl( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),
        
        (case when (tab0.fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  
        then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  
        else (tab0.fecha_fin) end)
        
        ) ,0) 
        end
        
        -
        
        /*Restar dias 29 y 30 si aplica apra febrero - 20230413/20230914::LAVILA*/
        (
            case when EXTRACT(MONTH FROM tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end)) <= 2 and EXTRACT(MONTH FROM (tab0.fecha_fin) ) >= 3
            then 30 - EXTRACT( DAY FROM last_day( TO_DATE('01/02/'||(select id_anhos from no_periodo where id_periodo = $id_periodo),'dd/mm/yyyy') ) )
            else 0 end            
        )
        
    ),0) > 30
    then 30
    else nvl(sum( 
    
        case 
        when (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) < (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
        then        
        nvl( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ,0)        
        else 
        --nvl( tab0.fecha_fin - (tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end) ) + 1 ,0)
        --nvl( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin ) ,0) 
        nvl( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),
        
        (case when (tab0.fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  
        then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  
        else (tab0.fecha_fin) end)
        
        ) ,0) 
        end
        
        -
        
        /*Restar dias 29 y 30 si aplica apra febrero - 20230413/20230914::LAVILA*/
        (
            case when EXTRACT(MONTH FROM tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end)) <= 2 and EXTRACT(MONTH FROM (tab0.fecha_fin) ) >= 3
            then 30 - EXTRACT( DAY FROM last_day( TO_DATE('01/02/'||(select id_anhos from no_periodo where id_periodo = $id_periodo),'dd/mm/yyyy') ) )
            else 0 end            
        )
        
    ),0) end as num_dias_novkar
    
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    /*
    Se cambia id_tip_nov_ka = 2 por 1 INCI
    Se deja quemado id 9 para novedad por ajuste de conceptos de reintegro ANM - 20140522
    Se cambia por id en tabla no_param_concep - 20140916
    Toma todos los periodos del mes segun filtro - 20191106
    */
    where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_enfcom from no_param_concep),9) and tab0.estado = 1 
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo in ( select perd.id_periodo from no_periodo perd where perd.id_anhos = (select id_anhos from no_periodo where id_periodo = $id_periodo) and perd.id_meses = (select id_meses from no_periodo where id_periodo = $id_periodo) ) 
    )
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    
    /*
    and (
      to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
      or
      trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
      and 
      (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    )
    */
    group by tab0.num_doc
)kardex2 ON kardex2.num_doc = tab0.num_doc

left join
(
    select 
    sum(liq.valor_liquidado) as valor_liquidado,
    tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD, 
    max(tab0.fecha_ini) as fecha_ini2, 
    case when max(tab0.fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else min(tab0.fecha_ini) end as fecha_ini,
    max(fecha_fin) as fecha_fin2,
    case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(tab0.fecha_fin) end as fecha_fin,
    nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novlicmat
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    
    left join no_liquida_nomina liq on tab0.num_doc = liq.num_doc and tab0.id_tipo_doc = liq.id_tipo_doc
    and liq.id_periodo = $id_periodo and liq.id_concep_nomina in (         
         select ka.id_concep_nomina from no_concep_ka ka where ka.id_tip_nov_ka in (select distinct id_nov_ka_licmat from no_param_concep)    
    )
    
    where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_licmat from no_param_concep)) and tab0.estado = 1 
    and (
      to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
      or
      TRUNC(LAST_DAY( TO_DATE('01/'|| (select LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS from NO_PERIODO where ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) between TAB0.FECHA_INI and TAB0.FECHA_FIN
      or 
      tab0.id_periodo = $id_periodo
    )
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    group by tab0.num_doc
)kardex3 ON kardex3.num_doc = tab0.num_doc

/*
Se cambia de id-4 por atributo en  la tabla no_tip_nov_ka de afecta_riesgo, para validar cuales afectan en los dias de ARP-ARL - 20130919
Toma todos los dias de meses anteriores hasta el mes actual - 20191105/20211126
Incidente #39574, se valida que si es prorroga no descuente el dia de patrono - 20250312::LAVILA
*/
left join
(
    select tab0.num_doc, 
    case when sum(tab0.num_dias) > 30 then 30 else sum(tab0.num_dias) end  as CANTIDAD2,
    case when nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini+(case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) > 30 then 30 
      else nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini+(case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) end  as CANTIDAD
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.afecta_riesgo = 1 and tab0.estado = 1 
     and ( 
        tab0.fecha_inc between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        /*
        Validacion para que tome el registro en el periodo de la novedad - 20130820
        */
        or tab0.id_periodo = $id_periodo
    )
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    group by tab0.num_doc
)kardex4 ON kardex4.num_doc = tab0.num_doc

/*Licencia remunerada id-10 -- 20170222*/
/*Licencia remunerada descuenta dias para calculo -- 20190414*/
/*Licencia remunerada descuenta todos los días de meses anteriores - 20190905*/
left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) as CANTIDAD,  
    min(tab0.fecha_ini) as fecha_ini2, 
    case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
    max(tab0.fecha_fin) as fecha_fin2,
    case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin,
    
    nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novlicrem_ant,
    nvl(sum( fecha_rango_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin ) ),0) as num_dias_novlicrem
    
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.id_tip_nov_ka in (select id_tip_nov_ka from no_tip_nov_ka where tiempo_remunerado = 1) and tab0.estado = 1 
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo = $id_periodo
    )
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    
    group by tab0.num_doc
)kardexlr ON kardexlr.num_doc = tab0.num_doc

left join
(
    select 

       tab.id_tipo_doc,                  
       tab.num_doc,
        case when max(nvl(dialiq.dias_vac,0)) != 0 then  max(dialiq.dias_vac) else sum( nvl(tab.CANTIDAD_vaciones,0) ) end as CANTIDAD,
        case when max(nvl(dialiq.dias_vac,0)) != 0 then  max(dialiq.dias_vac) else sum(tab.dias_vaciones) end as num_dias_vac_ant,
        case when max(nvl(dialiq.dias_vac,0)) != 0 then  max(dialiq.dias_vac) else sum(tab.dias_vaciones) - sum(tab.dias_feb) end as num_dias_vac,
        sum(tab.dias_feb) as dias_feb,
        max(tab.fecha_ini) as fecha_ini2, 
        case when max(tab.fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(tab.fecha_ini) end as fecha_ini,
        max(tab.fecha_fin) as fecha_fin2,
        case when max(tab.fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(tab.fecha_fin) end as fecha_fin

       from( 

           select
       
       case  when tipnov.operador  = 1 
                 then nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) 
                 else nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) * (-1)
                 end as dias_vaciones,
       --Para el mes de febrero se restan dias 2 o 1 segun año, ya que estos dias se pagan como laborados - 20170314                 
       (case 
          when (select id_meses from no_periodo where id_periodo = $id_periodo) = 2 and max(tab0.fecha_ini) < (select fecha_fin from no_periodo where id_periodo = $id_periodo) and max(tab0.fecha_fin) > (select fecha_fin from no_periodo where id_periodo = $id_periodo) 
          then case when to_number((select to_char(fecha_fin,'dd') from no_periodo where id_periodo = $id_periodo)) = 28 then 2 else 1 end
          else 0 end) * (case  when tipnov.operador  = 1 then 1 else (-1) end) as dias_feb,   
          
            max(tab0.fecha_ini) as fecha_ini, max(tab0.fecha_fin) as fecha_fin,
           tab0.id_tipo_doc, tab0.num_doc, count(tab0.id_novedad_vac) CANTIDAD,
            tipnov.operador,

            case  when tipnov.operador  = 1 
            /*then 1
            else (-1)*/
            then tab0.num_dias_vac
            else (-1 * tab0.num_dias_vac)
            --else nvl(sum( tab0.fecha_fin - tab0.fecha_ini + 1),0) * (-1)
            end as CANTIDAD_vaciones

           from no_novedad_vac tab0
           left join NO_TIPO_NOV_VAC TIPNOV on TIPNOV.ID_TIPO_NOV_VAC = tab0.ID_TIPO_NOV_VAC
           where 
           tipnov.tiempo_liqui = 1 and
           (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) and
           /*
           tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
           and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
           */
           /*Marca de vacaciones para todo el tiempo de duracion - 20130917*/
          ( 
              tab0.fecha_ini  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
            or
              to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
              or
              trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
            )
            /* Valida que no sea un dia 31, ya que no se cuenta para liquidacion, que posea dias de vac en el periodo liquidado - 20141031 */        
            --and to_char(tab0.fecha_ini,'dd') != 31
            and DIAS_RANGO_MES_SIN_TREINTAYUNO(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo = $id_periodo)) > 0
            
            group by tab0.id_tipo_doc, tab0.num_doc,
           tipnov.operador, tab0.num_dias_vac

       )tab 
   
        left join no_dias_mes_liquidacion dialiq
        on dialiq.id_tipo_doc = tab.id_tipo_doc
        and dialiq.num_doc = tab.num_doc
        and dialiq.id_concep_nomina = 0
        and dialiq.id_periodo = $id_periodo

       group by tab.id_tipo_doc, tab.num_doc
)vaca ON vaca.num_doc = tab0.num_doc


LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo, afi.fecha_ingreso, afi.fecha_retiro, afilia.id_tap, afi.id_tipo_aporte
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
    left join no_afilia_fondo afi on afi.id_tipo_doc = afilia.id_tipo_doc and afi.num_doc = afilia.num_doc and afi.id_clase_fondo = afilia.id_clase_fondo and afi.id_mae_fondos = afilia.id_mae_fondos
    where afilia.id_clase_fondo = 1 
    
    and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
    between afi.fecha_ingreso and nvl( afi.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
    --and afilia.estado = 1
   
    AND ( codigo.tipo != 'EPS' or codigo.tipo != 'CCF' )
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'   
)pension ON pension.num_doc = tab0.num_doc

LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo, afi.fecha_ingreso, afi.fecha_retiro, afilia.id_tae
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo ON codigo.nitocc = fondo.num_doc
    left join no_afilia_fondo afi on afi.id_tipo_doc = afilia.id_tipo_doc and afi.num_doc = afilia.num_doc and afi.id_clase_fondo = afilia.id_clase_fondo and afi.id_mae_fondos = afilia.id_mae_fondos
    where afilia.id_clase_fondo = 2  
    
    and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
    between afi.fecha_ingreso and nvl( afi.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
    --and afilia.estado = 1
    
    AND codigo.tipo = 'EPS'
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'   
)salud ON salud.num_doc = tab0.num_doc

LEFT JOIN 
(
    select distinct 
    CODFON.CODIGO,
    afilia.num_doc, afilia.centro_trabajo as id_centro_trabajo, centra.codigo as centro_trabajo, apo.no_riesgo, centra.cod_ciiu, centra.cod_ncp, apo.no_riesgo as cod_riesgo,
    afilia.fecha_ingreso,
    afilia.riesgo,
   ROW_NUMBER() OVER (
    partition by afilia.num_doc
    ORDER BY afilia.estado DESC, afilia.fecha_ingreso DESC,afilia.id_afilia_fondo DESC
   ) AS rn
   
    from no_afilia_fondo afilia
    
    left join no_tipo_aporte apo
    on apo.id_tipo_aporte = afilia.id_tipo_aporte
    
    left join no_centro_trabajo centra
    on centra.id_centro_trabajo = afilia.centro_trabajo
    
    left join no_mae_fondos maefon
    on MAEFON.ID_MAE_FONDOS = afilia.ID_MAE_FONDOS
    
    left join no_cod_fondo codfon
    on maefon.num_doc = codfon.nitocc
    
    where afilia.id_clase_fondo = 3 --and afilia.estado = 1
    and to_char(afilia.fecha_ingreso,'yyyymm') <= ( select anho_mes from no_periodo_v where id_periodo = $id_periodo )
)riesgo ON riesgo.num_doc = tab0.num_doc
and riesgo.rn = 1

LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
    where afilia.id_clase_fondo = 4 
    --and afilia.estado = 1 
    AND codigo.tipo = 'CCF'
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'   
)ccf ON ccf.num_doc = tab0.num_doc


left join 
(
    select 
    
    tab0.num_doc, 
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_func) else 0 end as aporte, 
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.num_dias) else 0 end as dias,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.tarifa)/100 else 0 end as tarifa,
    sum(tab0.aporte_patrono) as aporte_patrono_a,      
    sum(tab1.aporte_patrono) as aporte_patrono_c
    
    from no_liquida_aporte tab0
    
    left join no_liquida_aporte tab1
    on tab1.id_periodo = tab0.id_periodo
    and tab1.id_tipo_doc = tab0.id_tipo_doc
    and tab1.num_doc = tab0.num_doc
    and tab1.id_mae_fondos = tab0.id_mae_fondos
    and tab1.id_concep_nomina = tab0.id_concep_nomina
    and tab1.id_clase_fondo = 1
    and tab1.tipo_planilla = 'C'
    
    where tab0.id_periodo = $id_periodo 
    and tab0.id_clase_fondo = 1 and tab0.porcentaje_patrono > 0
    and tab0.tipo_planilla = 'A'   
    
    group by tab0.num_doc
)pension1 ON pension1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.tarifa/100) as TARIFA--, tab0.aporte_func AS APORTE
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1 and tab0.porcentaje_patrono > 0 -- and  ( tab0.tarifa = 16 or tab0.tarifa = 26 )
    and tab0.tipo_planilla = 'A'   
    group by tab0.num_doc
)pension2 ON pension2.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, sum(tab0.valor_base_fsp) as aporte_fsp, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1 and tab0.porcentaje_patrono = 0
    and tab0.tipo_planilla = 'A'       
    group by tab0.num_doc
)pension3 ON pension3.num_doc = tab0.num_doc

left join 
(
    select 
    
    tab0.num_doc, 
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_func) else 0 end as aporte, 
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.num_dias) else 0 end as dias,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.tarifa)/100 else 0 end as tarifa,
    sum(tab0.aporte_patrono) as aporte_patrono_a,      
    sum(tab1.aporte_patrono) as aporte_patrono_c
    
    from no_liquida_aporte tab0
    
    left join no_liquida_aporte tab1
    on tab1.id_periodo = tab0.id_periodo
    and tab1.id_tipo_doc = tab0.id_tipo_doc
    and tab1.num_doc = tab0.num_doc
    and tab1.id_mae_fondos = tab0.id_mae_fondos
    and tab1.id_concep_nomina = tab0.id_concep_nomina
    and tab1.id_clase_fondo = 2
    and tab1.tipo_planilla = 'C'
    
    where tab0.id_periodo = $id_periodo 
    and tab0.id_clase_fondo = 2
    and tab0.tipo_planilla = 'A'   
    
    group by tab0.num_doc
)salud1 ON salud1.num_doc = tab0.num_doc

/*
Poner los valores de ARL  de 60267402, asi sean los mismos antes y despues. != por <= - 20150727
Se vuelve a dejar para que deje solo diferentes - 20150827
*/
left join 
(
    select 
    
    tab0.num_doc, 
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 then sum(tab0.aporte_func) else 0 end as aporte, 
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 then max(tab0.num_dias) else 0 end as dias,
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 then max(tab0.tarifa)/100 else 0 end as tarifa,
    --case when 1 != 0 then max(tab0.tarifa)/100 else 0 end as tarifa,
    sum(tab0.aporte_patrono) as aporte_patrono_a,      
    sum(tab1.aporte_patrono) as aporte_patrono_c,
    min(tipapo.no_riesgo) as no_riesgo
    
    from no_liquida_aporte tab0
    
    left join no_tipo_aporte tipapo
    on tipapo.id_tipo_aporte = tab0.id_tipo_aporte
    
    left join no_liquida_aporte tab1
    on tab1.id_periodo = tab0.id_periodo
    and tab1.id_tipo_doc = tab0.id_tipo_doc
    and tab1.num_doc = tab0.num_doc
    and tab1.id_mae_fondos = tab0.id_mae_fondos
    and tab1.id_concep_nomina = tab0.id_concep_nomina
    and tab1.id_clase_fondo = 3
    and tab1.tipo_planilla = 'C'
    
    where tab0.id_periodo = $id_periodo 
    and tab0.id_clase_fondo = 3
    and tab0.tipo_planilla = 'A'   
    
    group by tab0.num_doc
)riesgo1 ON riesgo1.num_doc = tab0.num_doc

/*
Se toman valores unicamente si el valor de los registros de A es menor a C - 20140507
*/
left join 
(
   select 
    
    tab0.num_doc, 
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_func) else 0 end as aporte, 
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.num_dias) else 0 end as dias,
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.tarifa)/100 else 0 end as tarifa,
    sum(tab0.aporte_patrono) as aporte_patrono_a,      
    sum(tab1.aporte_patrono) as aporte_patrono_c
    
    from no_liquida_aporte tab0
    
    left join no_liquida_aporte tab1
    on tab1.id_periodo = tab0.id_periodo
    and tab1.id_tipo_doc = tab0.id_tipo_doc
    and tab1.num_doc = tab0.num_doc
    and tab1.id_mae_fondos = tab0.id_mae_fondos
    and tab1.id_concep_nomina = tab0.id_concep_nomina
    and tab1.id_clase_fondo = 4
    and tab1.tipo_planilla = 'C'
    
    where tab0.id_periodo = $id_periodo 
    and tab0.id_clase_fondo = 4
    and tab0.tipo_planilla = 'A'   
    
    group by tab0.num_doc
)ccf1 ON ccf1.num_doc = tab0.num_doc

/*
Se toman valores unicamente si el valor de los registros de A es menor a C - 20140507
*/
left join 
(
   select 
    
    tab0.num_doc, 
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_func) else 0 end as aporte, 
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.num_dias) else 0 end as dias,
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.tarifa)/100 else 0 end as tarifa,
    sum(tab0.aporte_patrono) as aporte_patrono_a,      
    sum(tab1.aporte_patrono) as aporte_patrono_c
    
    from no_liquida_aporte tab0
    
    left join no_liquida_aporte tab1
    on tab1.id_periodo = tab0.id_periodo
    and tab1.id_tipo_doc = tab0.id_tipo_doc
    and tab1.num_doc = tab0.num_doc
    and tab1.id_mae_fondos = tab0.id_mae_fondos
    and tab1.id_concep_nomina = tab0.id_concep_nomina
    and tab1.id_clase_fondo = 5
    and tab1.tipo_planilla = 'C'
    
    where tab0.id_periodo = $id_periodo 
    and tab0.id_clase_fondo = 5
    and tab0.tipo_planilla = 'A'   
    
    group by tab0.num_doc
)icbf1 ON icbf1.num_doc = tab0.num_doc

/*
Se toman valores unicamente si el valor de los registros de A es menor a C - 20140507
*/
left join 
(
   select 
    
    tab0.num_doc, 
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_func) else 0 end as aporte, 
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.num_dias) else 0 end as dias,
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.tarifa)/100 else 0 end as tarifa,
    sum(tab0.aporte_patrono) as aporte_patrono_a,      
    sum(tab1.aporte_patrono) as aporte_patrono_c
    
    from no_liquida_aporte tab0
    
    left join no_liquida_aporte tab1
    on tab1.id_periodo = tab0.id_periodo
    and tab1.id_tipo_doc = tab0.id_tipo_doc
    and tab1.num_doc = tab0.num_doc
    and tab1.id_mae_fondos = tab0.id_mae_fondos
    and tab1.id_concep_nomina = tab0.id_concep_nomina
    and tab1.id_clase_fondo = 6
    and tab1.tipo_planilla = 'C'
    
    where tab0.id_periodo = $id_periodo 
    and tab0.id_clase_fondo = 6
    and tab0.tipo_planilla = 'A'   
    
    group by tab0.num_doc
)sena1 ON sena1.num_doc = tab0.num_doc

left join 
(
   select 
    
    tab0.num_doc, 
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_func) else 0 end as aporte, 
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.num_dias) else 0 end as dias,
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.tarifa)/100 else 0 end as tarifa,
    sum(tab0.aporte_patrono) as aporte_patrono_a,      
    sum(tab1.aporte_patrono) as aporte_patrono_c
    
    from no_liquida_aporte tab0
    
    left join no_liquida_aporte tab1
    on tab1.id_periodo = tab0.id_periodo
    and tab1.id_tipo_doc = tab0.id_tipo_doc
    and tab1.num_doc = tab0.num_doc
    and tab1.id_mae_fondos = tab0.id_mae_fondos
    and tab1.id_concep_nomina = tab0.id_concep_nomina
    and tab1.id_clase_fondo = 7
    and tab1.tipo_planilla = 'C'
    
    where tab0.id_periodo = $id_periodo 
    and tab0.id_clase_fondo = 7
    and tab0.tipo_planilla = 'A'   
    
    group by tab0.num_doc
)esap1 ON esap1.num_doc = tab0.num_doc

left join 
(
   select 
    
    tab0.num_doc, 
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_func) else 0 end as aporte, 
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.num_dias) else 0 end as dias,
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
    case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.tarifa)/100 else 0 end as tarifa,
    sum(tab0.aporte_patrono) as aporte_patrono_a,      
    sum(tab1.aporte_patrono) as aporte_patrono_c
    
    from no_liquida_aporte tab0
    
    left join no_liquida_aporte tab1
    on tab1.id_periodo = tab0.id_periodo
    and tab1.id_tipo_doc = tab0.id_tipo_doc
    and tab1.num_doc = tab0.num_doc
    and tab1.id_mae_fondos = tab0.id_mae_fondos
    and tab1.id_concep_nomina = tab0.id_concep_nomina
    and tab1.id_clase_fondo = 8
    and tab1.tipo_planilla = 'C'
    
    where tab0.id_periodo = $id_periodo 
    and tab0.id_clase_fondo = 8
    and tab0.tipo_planilla = 'A'   
    
    group by tab0.num_doc
)men1 ON men1.num_doc = tab0.num_doc

left join 
(
    select
    id_periodo, num_doc, 
    --id_concep_nomina, 
    sum(cantidad) as cantidad
    from (
        select
        lotehr.total_horas,
        lotehr.id_periodo,
        hrext.id_tipo_doc,
        hrext.num_doc,
        hrext.cantidad,
        tiphr.id_concep_nomina

        from no_lote_hr_extra lotehr

        left join no_hr_extra hrext
        on lotehr.id_lote_hr_extra = hrext.id_lote_hr_extra

        left join no_tipo_hr_extra tiphr
        on tiphr.id_tipo_hr_extra = hrext.id_tipo_hr_extra

        where lotehr.id_periodo = $id_periodo
        and lotehr.estado = 0
    )

    group by
    id_periodo, num_doc--, id_concep_nomina
)hrextra
ON hrextra.num_doc = tab0.num_doc


WHERE tab0.periodo = $id_periodo 
and (tab0.actual = 1 or
  ( tab0.actual = 0 
    and tab5.fecha_retiro != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo_actual) ,'dd/mm/yyyy') ))
  )
)
and ( nvl(ccf1.dias,0) + nvl(salud1.dias,0) ) > 0

/* Omitir terceros que no tiene cambios en CCF - 20231002::LAVILA*/
and tab0.num_doc not in (

    select 
    tab.num_doc
    from (
        
            select  
            total.num_doc,
            count(total.tipo_planilla) as cant, 
            sum(total.aporte_ibc) as total1, 
            sum(total.IBC) as total2, 
            sum(total.IBC_a) as total_a, 
            sum(total.IBC_c) as total_c, 
            sum(total.IBC_c) - sum(total.IBC_a) as total,
            case when (sum(total.IBC_c) - sum(total.IBC_a) > 0) then sum(total.IBC_c) else 0 end as total_neg,
            sum(total.IBC_c) + sum(total.IBC_a) as total_sum 
            
            from (
                    select tab0.tipo_planilla,
                    tab0.num_doc, sum(nvl(tab0.valor_base,0)) as aporte_IBC, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, 
                    MAX(nvl(tab0.valor_base,0)) AS IBC,
                    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/, 
                  case when tab0.tipo_planilla = 'A' and max(tab0.num_dias) != 0 then max(nvl(tab0.valor_base,0)) else 0 end as ibc_a, 
                  case when tab0.tipo_planilla = 'C' and max(tab0.num_dias) != 0 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC_c
                    from no_liquida_aporte tab0
                    --se filtra id4-CAJA DE COMPENSACION FAMILIAR en vez de id5 - 20130802
                    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 4
                    
                    group by tab0.tipo_planilla,tab0.num_doc
                    
             )total  
             group by
            total.num_doc    
       
    )tab   
    where
    tab.total_neg <= 0
    and tab.total <= 0
    and tab.total_a > 0
    and tab.total_c > 0
    
)

union


        /*
        * Correccion Registros para afiliaciones familiares, tipo C
        */
        select 
        penfun.id_pension_func,
        1 as c00,--order de mensual luego licencia
        0 as c0,
        '02' AS C1,
        LPAD(rownum,5,0) AS C2,
        lpad( (REPLACE(tdoc.abreviacion,'.','')), 2,' ') AS C3,
        RPAD(to_char(tab0.num_doc),16,' ') AS C4,
        rpad(to_char(tab0.num_doc),16,' ') as c4a,
        '01' AS C5,
        case when penfun.id_pension_func is not null then penfun.codigo_suptipo else '00' end AS C6,--suptipo de pensionado
        ' ' AS C7,
        ' ' AS C8,
        RPAD(nvl(tab2.coddepto,' '),2,' ') AS C9,
        RPAD(nvl(substr(tab3.codmun_text,3),' '),3,' ') AS C10,
        RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11,
        RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11a,
        RPAD(nvl(tab4.segundo_apellido,' '),30,' ') AS C12,
        RPAD(nvl( replace( tab4.primer_nombre,'','') ,' '),20,' ') AS C13,
        RPAD(nvl( replace( tab4.segundo_nombre,'',''),' '),30,' ') AS C14,
        case when tab5.fecha_ingreso
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then 'X' else ' ' end AS C15,
        case when tab5.fecha_termina
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then 'X' else ' ' end AS C16,

        /*Incidente #40643, GA:SEGUN RESOLUCIÓN 467 DE 2025. SE RETIRAN LAS MARCAS DE CAMBIO DE FONDO - 20250909*/
        case when salud.fecha_ingreso   between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then ' ' else ' ' end AS C17,
        case when salud.fecha_retiro   between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then ' ' else ' ' end AS C18,
        case when pension.fecha_ingreso   between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then ' ' else ' ' end AS C19,
        case when pension.fecha_retiro   between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then ' ' else ' ' end AS C20,

        case when ascenso.cantidad>0 then 'X' else ' 'end AS C21,
        'C' AS C22,
        -- debe tener marca para las novedades de kardex que afecten antiguedad - 20130802
        case when encargo.cantidad>0 or vaca.cantidad>0 or kardexlr.cantidad>0 or kardex2.cantidad>0 or kardex3.cantidad>0 then 'X' else ' 'end AS C23,
        case when kardex1.cantidad>0 then ' ' else ' 'end AS C24,
        case when kardex2.cantidad>0 then ' ' else ' 'end AS C25,--inc temp enfermedad
        case when kardex3.cantidad>0 then ' ' else ' 'end AS C26,--lic maternidad
        case when vaca.cantidad>0 then ' ' when kardexlr.cantidad>0 then ' ' else ' 'end AS C27,
        ' ' AS C28,
        ' ' AS C29,
        LPAD(to_char(nvl(kardex4.cantidad,0)),2,0) AS C30,--inc por accidente de trabajo
        rpad(nvl(pension.codigo,' '),6,' ') as c31,
        
        case when pension.fecha_retiro   between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then rPAD( nvl( (select distinct no_cod_fondo.CODIGO from no_mae_fondos join no_cod_fondo on no_cod_fondo.nitocc = no_mae_fondos.num_doc  
          where no_mae_fondos.id_mae_fondos = pension.id_tap AND ( no_cod_fondo.tipo != 'EPS' or no_cod_fondo.tipo != 'CCF' ) ),' ') ,6,' ') 
          else rPAD(' ',6,' ') end AS C32,
        --rPAD(' ',6,' ') AS C32,

        rPAD(nvl(salud.codigo,' '),6,' ') AS C33,

        case when salud.fecha_retiro   between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then rPAD( nvl( (select distinct no_cod_fondo.CODIGO from no_mae_fondos join no_cod_fondo on no_cod_fondo.nitocc = no_mae_fondos.num_doc  
          where no_mae_fondos.id_mae_fondos = salud.id_tae  AND no_cod_fondo.tipo = 'EPS' ),' ') ,6,' ') 
          else rPAD(' ',6,' ') end AS C34,
        --rpad(' ',6,' ') as c34,

        rPAD(nvl(ccf.codigo,' '),6,' ') AS C35,

        -- debe tener en dias 30 para las novedades de kardex que afecten antiguedad - 20130802
        -- Tomar dias de la tabla - 20140724
        --case when nvl(kardex1.cantidad,0)>0 then '30' else LPAD(nvl(pension1.dias,0),2,0) end AS C36,
        --case when nvl(kardex1.cantidad,0)>0 then '30' else LPAD(nvl(salud1.dias,0),2,0) end AS C37,
        --LPAD(nvl(pension1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardex2.num_dias_novkar,0)-nvl(kardex3.num_dias_novlicmat,0)-nvl(kardex4.cantidad,0),0),2,0) AS C36,
        --LPAD(nvl(salud1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardex2.num_dias_novkar,0)-nvl(kardex3.num_dias_novlicmat,0)-nvl(kardex4.cantidad,0),0),2,0) AS C37,
        LPAD(nvl(pension1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardex2.num_dias_novkar,0)-nvl(kardex3.num_dias_novlicmat,0)-nvl(kardex4.cantidad,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0),2,0) AS C36,
        LPAD(nvl(salud1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardex2.num_dias_novkar,0)-nvl(kardex3.num_dias_novlicmat,0)-nvl(kardex4.cantidad,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0),2,0) AS C37,

        --LPAD(nvl(salud1.dias-nvl(kardex4.cantidad,0),0),2,0) AS C38,
        --LPAD(nvl(riesgo1.dias-nvl(kardex4.cantidad,0),0),2,0) AS C38,
        --LPAD(nvl(riesgo1.dias,0),2,0) AS C38,
        /*
        Toma los dias del riesgo y resta los dias de kardex4si supera los 30 dias, sino toma los de riesgos
        */
        --LPAD( case when nvl(riesgo1.dias,0) + nvl(kardex4.cantidad,0) > 30 
        --then 30 - nvl(kardex4.cantidad,0) else nvl(riesgo1.dias,0) end ,2,0) AS C38,
        --LPAD(nvl(salud1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardex2.num_dias_novkar,0)-nvl(kardex3.num_dias_novlicmat,0)-nvl(kardex4.cantidad,0) ,0),2,0)  as C38,
        LPAD(nvl(salud1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardex2.num_dias_novkar,0)-nvl(kardex3.num_dias_novlicmat,0)-nvl(kardex4.cantidad,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0),2,0)  as C38,
        
        --lpad(nvl(ccf1.dias-nvl(vaca.num_dias_vac,0)  -nvl(kardex3.num_dias_novlicmat,0)-nvl(kardex4.cantidad,0) ,0),2,0) as c39,
        LPAD(nvl(salud1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardex2.num_dias_novkar,0)-nvl(kardex3.num_dias_novlicmat,0)-nvl(kardex4.cantidad,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0),2,0) as c39,        
        --Se quita la novedad de kardex - 20130725
        --case when nvl(kardex1.cantidad,0)>0 then '30' else LPAD( case when nvl(ccf1.dias,0) + nvl(kardex4.cantidad,0) > 30 
        --then 30 - nvl(kardex4.cantidad,0) else nvl(ccf1.dias,0) end ,2,0) end AS C39,

        LPAD(nvl(tab6.asignacion_basica,0),9,0) AS C40,
        ' ' AS C41,
        LPAD( case 
        when nvl(vaca.num_dias_vac,0) != 0 then nvl(riesgo1.ibc,0)
        when nvl(kardex2.num_dias_novkar,0) != 0  then nvl(riesgo1.ibc,0) 
        when nvl(kardex3.num_dias_novlicmat,0) != 0  then nvl(riesgo1.ibc,0) 
        when nvl(kardex4.cantidad,0) != 0  then nvl(riesgo1.ibc,0) 
        when nvl(kardexlr.num_dias_novlicrem,0) != 0  then nvl(riesgo1.ibc,0) 
        else nvl(pension1.ibc,0) end ,9,0) AS C42,
        LPAD( case 
        when nvl(vaca.num_dias_vac,0) != 0 then nvl(riesgo1.ibc,0)
        when nvl(kardex2.num_dias_novkar,0) != 0  then nvl(riesgo1.ibc,0)
        when nvl(kardex3.num_dias_novlicmat,0) != 0  then nvl(riesgo1.ibc,0) 
        when nvl(kardex4.cantidad,0) != 0  then nvl(riesgo1.ibc,0) 
        when nvl(kardexlr.num_dias_novlicrem,0) != 0  then nvl(riesgo1.ibc,0) 
        else nvl(salud1.ibc,0) end ,9,0) AS C43,
        LPAD(nvl(riesgo1.ibc,0),9,0) AS C44,

        /* 
        ACTUALIZAR CAMPO C95
        Se verifica que toma segun planilla los dias calculados y no siempre 30, se valida que tenga dias diferente de 0 - 20210423 
        Se deja que solo reste dias de vac y licrem, no otras - 20210521
        Se cambia que tomen dias de ccf1.dias en vez de salud1.dias - 20210624
        */
        LPAD( case 
        when ccf1.dias != 0 and (nvl(nvl(vaca.num_dias_vac,0),0) != 0 or nvl(kardexlr.num_dias_novlicrem,0) != 0) then ceil( ( nvl(ccf1.ibc,0) / ccf1.dias * nvl(ccf1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0) )-0.5 )
        when nvl(nvl(vaca.num_dias_vac,0),0) != 0 and nvl(kardexlr.num_dias_novlicrem,0) != 0  then ceil( nvl(ccf1.ibc,0) / 30 * nvl(30-nvl(vaca.num_dias_vac,0)-nvl(kardexlr.num_dias_novlicrem,0),0) )
        when nvl(nvl(vaca.num_dias_vac,0),0) != 0  then ceil( nvl(ccf1.ibc,0) / 30 * nvl(30-nvl(vaca.num_dias_vac,0),0) ) 
        when nvl(kardexlr.num_dias_novlicrem,0) != 0  then nvl(riesgo1.ibc,0)  
        else nvl(ccf1.ibc,0) end ,9,0) AS C45,

        rpad( case when nvl(pension2.tarifa,0) = 0 then '0.0' when nvl(pension2.tarifa,0) < 1 then '0' else '' end || + nvl(pension2.tarifa,0) ,7,0) as C46,
        --lPAD( ceil( ((nvl(pension2.aporte,0) + nvl(pension2.aporte_patrono,0)) - (ceil((nvl(pension2.aporte,0) + nvl(pension2.aporte_patrono,0))/30*nvl(nvl(vaca.num_dias_vac,0),0)/100)*100) - (ceil((nvl(pension2.aporte,0) + nvl(pension2.aporte_patrono,0))/30*nvl(nvl(kardex2.num_dias_novkar,0),0)/100)*100) )/100)*100 ,9,0) AS C47,
        LPAD( ceil( case 
        when nvl(vaca.num_dias_vac,0) != 0 then nvl(riesgo1.ibc,0) * nvl(pension2.tarifa,0)
        when nvl(kardex2.num_dias_novkar,0) != 0  then nvl(riesgo1.ibc,0) * nvl(pension2.tarifa,0)
        when nvl(pension1.dias-nvl(kardex3.num_dias_novlicmat,0),0) != 30  then nvl(riesgo1.ibc,0) * nvl(pension2.tarifa,0)
        when nvl(kardex4.cantidad,0) != 0  then nvl(riesgo1.ibc,0) * nvl(pension2.tarifa,0)
        when nvl(kardexlr.num_dias_novlicrem,0) != 0  then nvl(riesgo1.ibc,0) * nvl(pension2.tarifa,0)
        else nvl(pension2.aporte,0) + nvl(pension2.aporte_patrono,0) end /100)*100 ,9,0) as C47,
        lPAD(0,9,0) AS C48,
        lpad(0,9,0) as C49,
        LPAD( ceil( case 
        when nvl(pension1.dias-nvl(vaca.num_dias_vac,0),0) != 30 then nvl(riesgo1.ibc,0) * nvl(pension2.tarifa,0)
        when nvl(pension1.dias-nvl(kardex2.num_dias_novkar,0),0) != 30  then nvl(riesgo1.ibc,0) * nvl(pension2.tarifa,0)
        when nvl(pension1.dias-nvl(kardex3.num_dias_novlicmat,0),0) != 30  then nvl(riesgo1.ibc,0) * nvl(pension2.tarifa,0)
        when nvl(kardex4.cantidad,0) != 0  then nvl(riesgo1.ibc,0) * nvl(pension2.tarifa,0)
        when nvl(kardexlr.num_dias_novlicrem,0) != 0  then nvl(riesgo1.ibc,0) * nvl(pension2.tarifa,0)
        else nvl(pension2.aporte,0) + nvl(pension2.aporte_patrono,0) end /100)*100 ,9,0) as C50,

        --lpad(nvl(pension3.aporte_fsp,0),9,0) as c51,
        LPAD( case 
        when nvl(vaca.num_dias_vac,0) != 0 and nvl(pension3.aporte_fsp,0) != 0 then ceil( (nvl(riesgo1.ibc,0) * 0.005) / 100)*100
        when nvl(kardex2.num_dias_novkar,0) != 0 and nvl(pension3.aporte_fsp,0) != 0 then ceil( (nvl(riesgo1.ibc,0) * 0.005) / 100)*100
        when nvl(kardex3.num_dias_novlicmat,0) != 0 and nvl(pension3.aporte_fsp,0) != 0 then ceil( (nvl(riesgo1.ibc,0) * 0.005) / 100)*100
        when nvl(kardex4.cantidad,0) != 0 and nvl(pension3.aporte_fsp,0) != 0 then ceil( (nvl(riesgo1.ibc,0) * 0.005) / 100)*100
        when nvl(kardexlr.num_dias_novlicrem,0) != 0 and nvl(pension3.aporte_fsp,0) != 0 then ceil( (nvl(riesgo1.ibc,0) * 0.005) / 100)*100
        else nvl(pension3.aporte_fsp,0) end ,9,0) as C51,
        --lpad(nvl(pension3.aporte,0) - nvl(pension3.aporte_fsp,0) ,9,0) as c52,
        LPAD( case 
        when nvl(vaca.num_dias_vac,0) != 0 and nvl(pension3.aporte_fsp,0) != 0  then (ceil( (nvl(riesgo1.ibc,0) * ( nvl(pension3.tarifa,0) - 0.005 ) ) / 100)*100) 
        when nvl(kardex2.num_dias_novkar,0) != 0 and nvl(pension3.aporte_fsp,0) != 0   then (ceil( (nvl(riesgo1.ibc,0) * ( nvl(pension3.tarifa,0) - 0.005 ) ) / 100)*100) 
        when nvl(kardex3.num_dias_novlicmat,0) != 0 and nvl(pension3.aporte_fsp,0) != 0   then (ceil( (nvl(riesgo1.ibc,0) * ( nvl(pension3.tarifa,0) - 0.005 ) ) / 100)*100) 
        when nvl(kardex4.cantidad,0) != 0 and nvl(pension3.aporte_fsp,0) != 0   then (ceil( (nvl(riesgo1.ibc,0) * ( nvl(pension3.tarifa,0) - 0.005 ) ) / 100)*100) 
        when nvl(kardexlr.num_dias_novlicrem,0) != 0 and nvl(pension3.aporte_fsp,0) != 0   then (ceil( (nvl(riesgo1.ibc,0) * ( nvl(pension3.tarifa,0) - 0.005 ) ) / 100)*100) 
        else nvl(pension3.aporte,0) - nvl(pension3.aporte_fsp,0) end ,9,0) as C52,
        rpad(0,9,0) as c53,

        rpad( case when nvl(salud1.tarifa,0) = 0 then '0.0' when nvl(salud1.tarifa,0) < 1 then '0' else '' end || + nvl(salud1.tarifa,0) ,7,0) as c54,
        --lPAD( ceil( ((nvl(salud1.aporte,0) + nvl(salud1.aporte_patrono,0)) - (ceil((nvl(salud1.aporte,0) + nvl(salud1.aporte_patrono,0))/30*nvl(nvl(vaca.num_dias_vac,0),0)/100)*100) - (ceil((nvl(salud1.aporte,0) + nvl(salud1.aporte_patrono,0))/30*nvl(nvl(kardex2.num_dias_novkar,0),0)/100)*100) )/100)*100 ,9,0) AS c55,
        LPAD( ceil( case 
        when nvl(vaca.num_dias_vac,0) != 0 then nvl(riesgo1.ibc,0) * salud1.tarifa
        when nvl(kardex2.num_dias_novkar,0) != 0  then nvl(riesgo1.ibc,0) * salud1.tarifa
        when nvl(kardex3.num_dias_novlicmat,0) != 0  then nvl(riesgo1.ibc,0) * salud1.tarifa
        when nvl(kardex4.cantidad,0) != 0  then nvl(riesgo1.ibc,0) * salud1.tarifa
        when nvl(kardexlr.num_dias_novlicrem,0) != 0  then nvl(riesgo1.ibc,0) * salud1.tarifa
        else nvl(salud1.aporte,0) + nvl(salud1.aporte_patrono,0) end /100)*100 ,9,0) as C55,

        lpad( case when '01' = '40' then 0 else 0 end ,9,0) as c56,
        rpad(' ',15,' ') as c57,
        rpad(0,9,0) as C58,
        rpad(' ',15,' ') as C59,
        rpad(0,9,0) as c60,
        rpad( case when nvl(riesgo1.tarifa,0) = 0 then '0.0' when nvl(riesgo1.tarifa,0) < 1 then '0' else '' end || + nvl(riesgo1.tarifa,0) ,9,0) as C61,
        lpad(nvl(riesgo.centro_trabajo,0),9,0) as C62,
        lpad( nvl(riesgo1.aporte_patrono,0) ,9,0) as c63,
        --lpad( ceil( ( nvl(riesgo1.aporte_patrono,0)/30*(nvl(riesgo1.dias,0)) )/100)*100 ,9,0) as c63,
        rpad( case when nvl(ccf1.tarifa,0) = 0 then '0.0' when nvl(ccf1.tarifa,0) < 1 then '0' else '' end || + nvl(ccf1.tarifa,0) ,7,0) AS C64,
        --lpad( nvl(ccf1.aporte_patrono,0) ,9,0) as c65,
        lpad( (case when nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) != 0 and ccf1.dias != 0 then ceil( ( (ccf1.ibc/ccf1.dias*(nvl(ccf1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0)))*nvl(ccf1.tarifa,0)  ) /100)*100 else nvl(ccf1.aporte_patrono,0) end) ,9,0) as c65,
        rpad( case when nvl(sena1.tarifa,0) = 0 then '0.0' when nvl(sena1.tarifa,0) < 1 then '0' else '' end || + nvl(sena1.tarifa,0) ,7,0) as C66,
        --lpad( nvl(sena1.aporte_patrono,0) ,9,0) as c67,
        lpad( (case when nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) != 0 and ccf1.dias != 0 then ceil( ( (sena1.ibc/ccf1.dias*(nvl(ccf1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0)))*nvl(sena1.tarifa,0)  ) /100)*100 else nvl(sena1.aporte_patrono,0) end) ,9,0) as c67,
        rpad( case when nvl(icbf1.tarifa,0) = 0 then '0.0' when nvl(icbf1.tarifa,0) < 1 then '0' else '' end || + nvl(icbf1.tarifa,0) ,7,0) as C68,
        --lpad( nvl(icbf1.aporte_patrono,0) ,9,0) as c69,
        lpad( (case when nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) != 0 and ccf1.dias != 0 then ceil( ( (icbf1.ibc/ccf1.dias*(nvl(ccf1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0)))*nvl(icbf1.tarifa,0)  ) /100)*100 else nvl(icbf1.aporte_patrono,0) end) ,9,0) as c69,
        rpad( case when nvl(esap1.tarifa,0) = 0 then '0.0' when nvl(esap1.tarifa,0) < 1 then '0' else '' end || + nvl(esap1.tarifa,0) ,7,0) as C70,
        --lpad( nvl(esap1.aporte_patrono,0) ,9,0) as c71,
        lpad( (case when nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) != 0 and ccf1.dias != 0 then ceil( ( (nvl(esap1.ibc,0)/ccf1.dias*(nvl(ccf1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0)))*nvl(esap1.tarifa,0)  ) /100)*100 else nvl(esap1.aporte_patrono,0) end) ,9,0) as c71,
        rpad( case when nvl(men1.tarifa,0) = 0 then '0.0' when nvl(men1.tarifa,0) < 1 then '0' else '' end || + nvl(men1.tarifa,0) ,7,0) as C72,
        --lpad( nvl(men1.aporte_patrono,0) ,9,0) as c73,
        lpad( (case when nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) != 0 and ccf1.dias != 0 then ceil( ( (nvl(men1.ibc,0)/ccf1.dias*(nvl(ccf1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0)))*nvl(men1.tarifa,0)  ) /100)*100 else nvl(men1.aporte_patrono,0) end) ,9,0) as c73,
        '  ' AS C74,
        RPAD(to_char(' '),16,' ') AS C75,
        RPAD(to_char('N'),1,' ') AS C76,
        RPAD(riesgo.codigo,6,' ') AS C77,
        nvl(RPAD( nvl(riesgo1.no_riesgo,riesgo.riesgo),1,' '),' ') AS C78,
        case when pension.id_tipo_aporte != 1 then '1' else ' ' end  AS C79,

        case 
        when tab5.fecha_ingreso_correc is not null then to_char(tab5.fecha_ingreso_correc,'yyyy-mm-dd')
        when tab5.fecha_ingreso
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then to_char(tab5.fecha_ingreso,'yyyy-mm-dd')
          else RPAD(to_char(' '),10,' ') end AS C80,--ING
        case when novretiro.num_doc is not null and tab5.fecha_termina
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then to_char(tab5.fecha_termina,'yyyy-mm-dd')
          else RPAD(to_char(' '),10,' ') end AS C81,--RET

        case when ascenso.fecha_inicial
        between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        then to_char(ascenso.fecha_inicial,'yyyy-mm-dd')
        else RPAD(to_char(' '),10,' ') end AS C82,--VSP
        
        RPAD(to_char(' '),10,' ') AS C83,--SLN
        RPAD(to_char(' '),10,' ') AS C84,--SLN

        RPAD(to_char(' '),10,' ') AS C85,--IGE
        RPAD(to_char(' '),10,' ') AS C86,--IGE

        RPAD(to_char(' '),10,' ') AS C87,--LMA
        RPAD(to_char(' '),10,' ') AS C88,--LMA

        RPAD(to_char(' '),10,' ') AS C89,--VAC-LR
        RPAD(to_char(' '),10,' ') AS C90,--VAC-LR

        RPAD(to_char(' '),10,' ') AS C91,--VCT
        RPAD(to_char(' '),10,' ') AS C92,--VCT

        RPAD(to_char(' '),10,' ') AS C93,--IRL
        RPAD(to_char(' '),10,' ') AS C94,--IRL

        LPAD( case 
        when ccf1.dias != 0 and (nvl(nvl(vaca.num_dias_vac,0),0) != 0 or nvl(kardexlr.num_dias_novlicrem,0) != 0) then ceil( ( nvl(ccf1.ibc,0) / ccf1.dias * nvl(ccf1.dias-nvl(vaca.num_dias_vac,0)-nvl(kardexlr.num_dias_novlicrem,0) ,0) )-0.5 )
        when nvl(nvl(vaca.num_dias_vac,0),0) != 0 and nvl(kardexlr.num_dias_novlicrem,0) != 0  then ceil( nvl(ccf1.ibc,0) / 30 * nvl(30-nvl(vaca.num_dias_vac,0)-nvl(kardexlr.num_dias_novlicrem,0),0) )
        when nvl(nvl(vaca.num_dias_vac,0),0) != 0  then ceil( nvl(icbf1.ibc,0) / 30 * nvl(30-nvl(vaca.num_dias_vac,0),0) ) 
        when nvl(kardexlr.num_dias_novlicrem,0) != 0  then nvl(riesgo1.ibc,0)  
        else nvl(icbf1.ibc,0) end ,9,0) AS C95,--IBC parafiscales
        LPAD(  case when  nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0) < 300 then  nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0) else 300 end  ,3,0) AS C96,--HORAS EXTRAS
        RPAD(to_char(' '),10,' ') AS C97,--Rad exterior
        case when tab0.id_anhos || lpad(tab0.id_meses, 2, '0') >= 202211 then RPAD(to_char(riesgo.cod_riesgo|| riesgo.cod_ciiu || riesgo.cod_ncp),7,' ') else '' end AS C98

        from no_estado_func_v tab0

        left join tipo_documento tdoc
        on tdoc.id_tipo_doc = tab0.id_tipo_doc

        left join centro_operacion tab1 ON tab1.id_cen_op = tab0.id_cen_op
        left join departamento tab2 ON tab2.id_depto = tab1.id_depto
        left join municipios tab3 ON tab3.codmun = tab1.codmun
        left join no_datos_funcionario_v tab4 ON tab4.id_tipo_doc = tab0.id_tipo_doc and tab4.num_doc = tab0.num_doc

        left join (
            select pen.*, sub.descripcion as suptipo_cotizante, sub.codigo as codigo_suptipo
            from no_pension_func pen
            left join no_suptipo_cotizante_v sub
            on pen.id_suptipo_cotizante = sub.id_suptipo_cotizante
            where
            pen.estado = 1
        )penfun
        on penfun.id_tipo_doc = tab0.id_tipo_doc 
        and penfun.num_doc = tab0.num_doc

        /*
        left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
        correcion de fecha segun tabla - 20210329
        */
        left join (
          SELECT
          nomcor.fecha_ingreso as fecha_ingreso_correc,
           aut.*,
           ROW_NUMBER() OVER (
            partition by aut.num_doc
            ORDER BY aut.estado DESC, aut.fecha_ingreso DESC, aut.fecha_nombra DESC, aut.id_nombramiento DESC
           ) AS rn
          from no_nombramiento aut

          left join no_periodo_v per
          on per.id_periodo = aut.id_periodo

          left join no_nombra_correc nomcor 
          on nomcor.id_tipo_doc = aut.id_tipo_doc
          and nomcor.num_doc = aut.num_doc
          and nomcor.id_periodo = $id_periodo

          where 
          per.anho_mes <= ( SELECT anho_mes FROM no_periodo_v where id_periodo = $id_periodo )
        )tab5
        on tab5.id_tipo_doc = tab0.id_tipo_doc 
        and tab5.num_doc = tab0.num_doc
        and tab5.rn = 1

        left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp

        left join
        (
            /* se cambia filtro por estado activo y id_tipo_novedad = 1 - 20150422 */
            select 
            tab0.num_doc,count(tab0.id_novedad_personal) as cantidad,
            max(tab0.fecha_inicial) as fecha_inicial
            from no_novedad_personal tab0
            left join no_novedades nov on tab0.id_novedad = nov.id_novedad
            where 
            tab0.estado = 1 and nov.id_tipo_novedad = 1
            and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
            group by tab0.num_doc
        ) ascenso ON ascenso.num_doc = tab0.num_doc

        left join
        (
          /* se cambia filtro por estado activo y id_tipo_novedad = 2 - 20210329 */
          select 
          tab0.num_doc,count(tab0.id_novedad_personal) as cantidad,
          max(tab0.fecha_inicial) as fecha_inicial
          from no_novedad_personal tab0
          left join no_novedades nov on tab0.id_novedad = nov.id_novedad
          where 
          tab0.estado = 1 and nov.id_tipo_novedad = 2
          and(
            tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
          or
            tab0.id_periodo = $id_periodo
          )
          group by tab0.num_doc
        ) novretiro ON novretiro.num_doc = tab0.num_doc

        /*
        Variacion de salario
        */
        left join
        (
            select num_doc, sum(cantidad) AS CANTIDAD
            from(

                select tab0.num_doc,count(tab0.id_novedad_personal) AS CANTIDAD
                from no_novedad_personal tab0
                where tab0.id_novedad in ( 3, 4, 7) 
                and( 
                  tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                  or
                  tab0.fecha_terminacion  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                or
                  to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_inicial and tab0.fecha_terminacion
                  or
                  trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_inicial and tab0.fecha_terminacion
                )                
                group by tab0.num_doc

                union 

                select tab0.num_doc,count(tab0.id_bonifica_servicios) AS CANTIDAD
                from no_bonifica_servicios tab0
                where tab0.estado=0 and tab0.fecha_bonifica between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                group by tab0.num_doc

                union 

                select tab0.num_doc,count(tab0.id_hr_extra) AS CANTIDAD
                from no_hr_extra tab0
                left join no_lote_hr_extra tab1 ON tab1.id_lote_hr_extra = tab0.id_lote_hr_extra
                where tab1.estado=0 and tab1.id_periodo = $id_periodo
                group by tab0.num_doc
        
                union 

                --OJO:Id en el codigo para marca concep 1003 y 1011 - 20130802
                --Urgente cambiar por parametrizar agrupacion por conceptos - 20130826
                --Se cambia por agrupacion 105-CONCEPTOS DE VARIACIÓN TRANSITORIA PARA LA PLANILLA - 20130902
                --Se cambia por filtro de periodo para los tipos de periodo 1,2,5 y del periodo de retroactivo - 20140507
                select tab0.num_doc,count(tab0.id_liquida_nomina) as cantidad
                from no_liquida_nomina tab0
                where tab0.id_periodo in ( 
                select distinct id_periodo from no_periodo where id_tipo_periodo in (1,2,5) and (id_anhos, id_meses) in (SELECT ID_ANHOS, id_meses FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo )
                union
                select distinct id_periodo from no_periodo where id_tipo_periodo in (5, 6, 7) and (id_anhos) in (SELECT ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo )                   
                )
                and id_concep_nomina in (    
                   /*
                   tab0.id_concep_nomina = 3 
                   or
                   tab0.id_concep_nomina = 21 
                   or
                   tab0.id_concep_nomina = 23 
                   or
                   tab0.id_concep_nomina = 401 
                   */
                   (select distinct id_concep_nomina from no_agrup_deta where id_agrup_concepto = 105) 
                )
                group by tab0.num_doc
        
                union

                --OJO: Se dejo quemado para '52717971', '79783764' en el mes de '201305' , '201304' la marca transitoria de salario - 20130805
                select distinct
                liq.num_doc,
                1 as cantidad
                from no_liquida_nomina liq
                where 
                liq.id_periodo = $id_periodo
                and liq.num_doc in ( '52717971', '79783764' )
                and (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = liq.id_periodo) in ( '201305' , '201304')

            )GROUP BY num_doc

        ) encargo ON encargo.num_doc = tab0.num_doc

        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.afecta_antigu = 1 and tab0.estado = 1 
            
            /* Debe tomar la novedad sin inportar cuando se registre - 20130805
            and tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
            */
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
            and (
              to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
              or
              trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
              or 
              tab0.id_periodo = $id_periodo
            )

            group by tab0.num_doc
        )kardex1 ON kardex1.num_doc = tab0.num_doc

        left join
        (
            /*Se cambia validacion para tener encuenta dias realmente de la novedad segun prorroga - 20150223*/
            select tab0.num_doc, count(tab0.id_novedad_kardex) CANT, 
            min(tab0.fecha_ini) as fecha_ini2, 
            case when min(tab0.fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else min(fecha_ini) end as fecha_ini,
            max(tab0.fecha_fin) as fecha_fin2,
            case when max(tab0.fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin,

            sum( case when tab0.num_dias > 0 and tab0.prorroga = 1 then 1 when tab0.num_dias > (tab1.dias_patrono) and tab0.prorroga = 0 then 1 else 0 end) as CANTIDAD,
            /*nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novkar*/
            case 
            when max((select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo)) < (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
                then nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0)
            when nvl(sum( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin ) ),0) > 30
            then 30 else nvl(sum( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin ) ),0) end as num_dias_novkar_ant,
            /*Toma dias correctos de mes actual y fechas anteriores, calcula cada uno por independiente, al final valida si supera 30 dias - 20190610*/
            /*Incidente 14326, Se suspende sumar dia 31 por conflicto con incapacidades - 20190926*/ 
            /*Toma maximo hasta fecha del mes actual - 20191023*/ 
            case 
            when nvl(sum( 

                case 
                when (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) < (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo_actual)
                then        
                nvl( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ,0)        
                else 
                --nvl( tab0.fecha_fin - (tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end) ) + 1 ,0)
                --nvl( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin ) ,0) 
                nvl( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),

                (case when (tab0.fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  
                then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  
                else (tab0.fecha_fin) end)

                ) ,0) 
                end
        
                -

                /*Restar dias 29 y 30 si aplica apra febrero - 20230413/20230914::LAVILA*/
                (
                    case when EXTRACT(MONTH FROM tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end)) <= 2 and EXTRACT(MONTH FROM (tab0.fecha_fin) ) >= 3
                    then 30 - EXTRACT( DAY FROM last_day( TO_DATE('01/02/'||(select id_anhos from no_periodo where id_periodo = $id_periodo),'dd/mm/yyyy') ) )
                    else 0 end            
                )

            ),0) > 30
            then 30
            else nvl(sum( 

                case 
                when (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) < (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
                then        
                nvl( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ,0)        
                else 
                --nvl( tab0.fecha_fin - (tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end) ) + 1 ,0)
                --nvl( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin ) ,0) 
                nvl( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),

                (case when (tab0.fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  
                then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  
                else (tab0.fecha_fin) end)

                ) ,0) 
                end
        
                -

                /*Restar dias 29 y 30 si aplica apra febrero - 20230413/20230914::LAVILA*/
                (
                    case when EXTRACT(MONTH FROM tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end)) <= 2 and EXTRACT(MONTH FROM (tab0.fecha_fin) ) >= 3
                    then 30 - EXTRACT( DAY FROM last_day( TO_DATE('01/02/'||(select id_anhos from no_periodo where id_periodo = $id_periodo),'dd/mm/yyyy') ) )
                    else 0 end            
                )

            ),0) end as num_dias_novkar

            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            /*
            Se cambia id_tip_nov_ka = 2 por 1 INCI
            Se deja quemado id 9 para novedad por ajuste de conceptos de reintegro ANM - 20140522
            Se cambia por id en tabla no_param_concep - 20140916
            Toma todos los periodos del mes segun filtro - 20191106
            */
            where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_enfcom from no_param_concep),9) and tab0.estado = 1 
            and (
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or 
              tab0.id_periodo in ( select perd.id_periodo from no_periodo perd where perd.id_anhos = (select id_anhos from no_periodo where id_periodo = $id_periodo) and perd.id_meses = (select id_meses from no_periodo where id_periodo = $id_periodo) ) 
            )
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)

            /*
            and (
              to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
              or
              trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
              and 
              (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
            )
            */
            group by tab0.num_doc
        )kardex2 ON kardex2.num_doc = tab0.num_doc

        left join
        (
            select
            sum(liq.valor_liquidado) as valor_liquidado, 
            tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD, 
            max(tab0.fecha_ini) as fecha_ini2, 
            case when max(tab0.fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else min(tab0.fecha_ini) end as fecha_ini,
            max(fecha_fin) as fecha_fin2,
            case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(tab0.fecha_fin) end as fecha_fin,
            nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novlicmat
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka

            left join no_liquida_nomina liq on tab0.num_doc = liq.num_doc and tab0.id_tipo_doc = liq.id_tipo_doc
            and liq.id_periodo = $id_periodo and liq.id_concep_nomina in (         
                 select ka.id_concep_nomina from no_concep_ka ka where ka.id_tip_nov_ka in (select distinct id_nov_ka_licmat from no_param_concep)    
            )

            /*
            Se cambia id_tip_nov_ka = 3 por 2 INCI
            Se cambia por id en tabla no_param_concep - 20140916
            */
            where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_licmat from no_param_concep)) and tab0.estado = 1 

            and (
            /*
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
            */
              to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
              or
              TRUNC(LAST_DAY( TO_DATE('01/'|| (select LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS from NO_PERIODO where ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) between TAB0.FECHA_INI and TAB0.FECHA_FIN
              or 
              tab0.id_periodo = $id_periodo
            )
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)

            /*
            and (
              to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
              or
              trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
              and 
              (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
            )
            */
            group by tab0.num_doc
        )kardex3 ON kardex3.num_doc = tab0.num_doc

        left join
        (
         /* 
            OJO:se evidencia id tipo_nov_ka (4) para incapacidad de trabajo 20130816 
        Se cambia de id-4 por atributo en  la tabla no_tip_nov_ka de afecta_riesgo, para validar cuales afectan en los dias de ARP-ARL - 20130919
        Toma todos los dias de meses anteriores hasta el mes actual - 20191105/20211126
        Incidente #39574, se valida que si es prorroga no descuente el dia de patrono - 20250312::LAVILA
        */
            select tab0.num_doc, 
            case when sum(tab0.num_dias) > 30 then 30 else sum(tab0.num_dias) end  as CANTIDAD2,
            case when nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini+(case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) > 30 then 30 
              else nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini+(case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) end  as CANTIDAD
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.afecta_riesgo = 1 and tab0.estado = 1 
            and ( 
               tab0.fecha_inc between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
               and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
               /*
               Validacion para que tome el registro en el periodo de la novedad - 20130820
               */
               or tab0.id_periodo = $id_periodo
            )
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
            group by tab0.num_doc
        )kardex4 ON kardex4.num_doc = tab0.num_doc

        /*Licencia remunerada id-10 -- 20170222*/
        /*Licencia remunerada descuenta dias para calculo -- 20190414*/
        /*Licencia remunerada descuenta todos los días de meses anteriores - 20190905*/
        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) as CANTIDAD,  
            min(tab0.fecha_ini) as fecha_ini2, 
            case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
            max(tab0.fecha_fin) as fecha_fin2,
            case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin,
                
            nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novlicrem_ant,
            nvl(sum( fecha_rango_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin ) ),0) as num_dias_novlicrem

            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.id_tip_nov_ka in (select id_tip_nov_ka from no_tip_nov_ka where tiempo_remunerado = 1) and tab0.estado = 1 
            and (
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or 
              tab0.id_periodo = $id_periodo
            )
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)

            group by tab0.num_doc
        )kardexlr ON kardexlr.num_doc = tab0.num_doc

        left join
        (
            select 

               tab.id_tipo_doc,                  
               tab.num_doc,
                case when max(nvl(dialiq.dias_vac,0)) != 0 then  max(dialiq.dias_vac) else sum( nvl(tab.CANTIDAD_vaciones,0) ) end as CANTIDAD,
                case when max(nvl(dialiq.dias_vac,0)) != 0 then  max(dialiq.dias_vac) else sum(tab.dias_vaciones) end as num_dias_vac_ant,
                case when max(nvl(dialiq.dias_vac,0)) != 0 then  max(dialiq.dias_vac) else sum(tab.dias_vaciones) - sum(tab.dias_feb) end as num_dias_vac,
                sum(tab.dias_feb) as dias_feb,
                max(tab.fecha_ini) as fecha_ini2, 
                case when max(tab.fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(tab.fecha_ini) end as fecha_ini,
                max(tab.fecha_fin) as fecha_fin2,
                case when max(tab.fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(tab.fecha_fin) end as fecha_fin

               from( 

                   select

               case  when tipnov.operador  = 1 
                         then nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) 
                         else nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) * (-1)
                         end as dias_vaciones,
               --Para el mes de febrero se restan dias 2 o 1 segun año, ya que estos dias se pagan como laborados - 20170314                 
               (case 
                  when (select id_meses from no_periodo where id_periodo = $id_periodo) = 2 and max(tab0.fecha_ini) < (select fecha_fin from no_periodo where id_periodo = $id_periodo) and max(tab0.fecha_fin) > (select fecha_fin from no_periodo where id_periodo = $id_periodo) 
                  then case when to_number((select to_char(fecha_fin,'dd') from no_periodo where id_periodo = $id_periodo)) = 28 then 2 else 1 end
                  else 0 end) * (case  when tipnov.operador  = 1 then 1 else (-1) end) as dias_feb,   

                    max(tab0.fecha_ini) as fecha_ini, max(tab0.fecha_fin) as fecha_fin,
                   tab0.id_tipo_doc, tab0.num_doc, count(tab0.id_novedad_vac) CANTIDAD,
                    tipnov.operador,

                    case  when tipnov.operador  = 1 
                    /*then 1
                    else (-1)*/
                    then tab0.num_dias_vac
                    else (-1 * tab0.num_dias_vac)
                    --else nvl(sum( tab0.fecha_fin - tab0.fecha_ini + 1),0) * (-1)
                    end as CANTIDAD_vaciones

                   from no_novedad_vac tab0
                   left join NO_TIPO_NOV_VAC TIPNOV on TIPNOV.ID_TIPO_NOV_VAC = tab0.ID_TIPO_NOV_VAC
                   where 
                   tipnov.tiempo_liqui = 1 and
                   (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) and
                   /*
                   tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                   and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
                   */
                   /*Marca de vacaciones para todo el tiempo de duracion - 20130917*/
                  ( 
                      tab0.fecha_ini  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                      and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                      or
                      tab0.fecha_fin  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                      and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                    or
                      to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
                      or
                      trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
                    )
                    /* Valida que no sea un dia 31, ya que no se cuenta para liquidacion, que posea dias de vac en el periodo liquidado - 20141031 */        
                    --and to_char(tab0.fecha_ini,'dd') != 31
                    and DIAS_RANGO_MES_SIN_TREINTAYUNO(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo = $id_periodo)) > 0

                    group by tab0.id_tipo_doc, tab0.num_doc,
                   tipnov.operador, tab0.num_dias_vac

               )tab 

                left join no_dias_mes_liquidacion dialiq
                on dialiq.id_tipo_doc = tab.id_tipo_doc
                and dialiq.num_doc = tab.num_doc
                and dialiq.id_concep_nomina = 0
                and dialiq.id_periodo = $id_periodo

               group by tab.id_tipo_doc, tab.num_doc
        )vaca ON vaca.num_doc = tab0.num_doc


        LEFT JOIN 
        (
            select distinct afilia.num_doc, codigo.codigo, afi.fecha_ingreso, afi.fecha_retiro, afilia.id_tap, afi.id_tipo_aporte
            from no_liquida_aporte afilia
            left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
            left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
            left join no_afilia_fondo afi on afi.id_tipo_doc = afilia.id_tipo_doc and afi.num_doc = afilia.num_doc and afi.id_clase_fondo = afilia.id_clase_fondo and afi.id_mae_fondos = afilia.id_mae_fondos
            where afilia.id_clase_fondo = 1 

            and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
            between afi.fecha_ingreso and nvl( afi.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
            --and afilia.estado = 1

            AND ( codigo.tipo != 'EPS' or codigo.tipo != 'CCF' )
            and afilia.id_periodo = $id_periodo
            and afilia.tipo_planilla = 'C'   
        )pension ON pension.num_doc = tab0.num_doc

        LEFT JOIN 
        (
            select distinct afilia.num_doc, codigo.codigo, afi.fecha_ingreso, afi.fecha_retiro, afilia.id_tae
            from no_liquida_aporte afilia
            left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
            left join no_cod_fondo codigo ON codigo.nitocc = fondo.num_doc
            left join no_afilia_fondo afi on afi.id_tipo_doc = afilia.id_tipo_doc and afi.num_doc = afilia.num_doc and afi.id_clase_fondo = afilia.id_clase_fondo and afi.id_mae_fondos = afilia.id_mae_fondos
            where afilia.id_clase_fondo = 2  

            and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
            between afi.fecha_ingreso and nvl( afi.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
            --and afilia.estado = 1

            AND codigo.tipo = 'EPS'
            and afilia.id_periodo = $id_periodo
            and afilia.tipo_planilla = 'C'   
        )salud ON salud.num_doc = tab0.num_doc

        LEFT JOIN 
        (
            select distinct 
            CODFON.CODIGO,
            afilia.num_doc, afilia.centro_trabajo as id_centro_trabajo, centra.codigo as centro_trabajo, apo.no_riesgo, centra.cod_ciiu, centra.cod_ncp, apo.no_riesgo as cod_riesgo,
            afilia.fecha_ingreso,
            afilia.riesgo,
           ROW_NUMBER() OVER (
            partition by afilia.num_doc
            ORDER BY afilia.estado DESC, afilia.fecha_ingreso DESC,afilia.id_afilia_fondo DESC
           ) AS rn

            from no_afilia_fondo afilia

            left join no_tipo_aporte apo
            on apo.id_tipo_aporte = afilia.id_tipo_aporte

            left join no_centro_trabajo centra
            on centra.id_centro_trabajo = afilia.centro_trabajo

            left join no_mae_fondos maefon
            on MAEFON.ID_MAE_FONDOS = afilia.ID_MAE_FONDOS

            left join no_cod_fondo codfon
            on maefon.num_doc = codfon.nitocc

            where afilia.id_clase_fondo = 3 --and afilia.estado = 1
            and to_char(afilia.fecha_ingreso,'yyyymm') <= ( select anho_mes from no_periodo_v where id_periodo = $id_periodo )
        )riesgo ON riesgo.num_doc = tab0.num_doc
        and riesgo.rn = 1

        LEFT JOIN 
        (
            select distinct afilia.num_doc, codigo.codigo
            from no_liquida_aporte afilia
            left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
            left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
            where afilia.id_clase_fondo = 4 
            --and afilia.estado = 1 
            AND codigo.tipo = 'CCF'
            and afilia.id_periodo = $id_periodo
            and afilia.tipo_planilla = 'C'   
        )ccf ON ccf.num_doc = tab0.num_doc


        left join 
        (
                select 

                tab0.num_doc, 
                case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_func) else 0 end as aporte, 
                case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
                case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.num_dias) else 0 end as dias,
                case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
                case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.tarifa)/100 else 0 end as tarifa,
                sum(tab0.aporte_patrono) as aporte_patrono_a,      
                sum(tab1.aporte_patrono) as aporte_patrono_c

                from no_liquida_aporte tab0

                left join no_liquida_aporte tab1
                on tab1.id_periodo = tab0.id_periodo
                and tab1.id_tipo_doc = tab0.id_tipo_doc
                and tab1.num_doc = tab0.num_doc
                and tab1.id_mae_fondos = tab0.id_mae_fondos
                and tab1.id_concep_nomina = tab0.id_concep_nomina
                and tab1.id_clase_fondo = 1
                and tab1.tipo_planilla = 'A'

                where tab0.id_periodo = $id_periodo 
                and tab0.id_clase_fondo = 1 and tab0.porcentaje_patrono > 0
                and tab0.tipo_planilla = 'C'   

                group by tab0.num_doc
        )pension1 ON pension1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
            max(tab0.tarifa/100) as TARIFA--, tab0.aporte_func AS APORTE
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1 and tab0.porcentaje_patrono > 0 -- and  ( tab0.tarifa = 16 or tab0.tarifa = 26 )
            and tab0.tipo_planilla = 'C'   
            group by tab0.num_doc
        )pension2 ON pension2.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, sum(tab0.valor_base_fsp) as aporte_fsp, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1 and tab0.porcentaje_patrono = 0
            and tab0.tipo_planilla = 'C'       
            group by tab0.num_doc
        )pension3 ON pension3.num_doc = tab0.num_doc

        left join 
        (
                select 

                tab0.num_doc, 
                case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_func) else 0 end as aporte, 
                case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
                case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.num_dias) else 0 end as dias,
                case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
                case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.tarifa)/100 else 0 end as tarifa,
                sum(tab0.aporte_patrono) as aporte_patrono_a,      
                sum(tab1.aporte_patrono) as aporte_patrono_c

                from no_liquida_aporte tab0

                left join no_liquida_aporte tab1
                on tab1.id_periodo = tab0.id_periodo
                and tab1.id_tipo_doc = tab0.id_tipo_doc
                and tab1.num_doc = tab0.num_doc
                and tab1.id_mae_fondos = tab0.id_mae_fondos
                and tab1.id_concep_nomina = tab0.id_concep_nomina
                and tab1.id_clase_fondo = 2
                and tab1.tipo_planilla = 'A'

                where tab0.id_periodo = $id_periodo 
                and tab0.id_clase_fondo = 2
                and tab0.tipo_planilla = 'C'   

                group by tab0.num_doc
        )salud1 ON salud1.num_doc = tab0.num_doc

        /*
        Poner los valores de ARL  de 60267402, asi sean los mismos antes y despues. != por >= - 20150727
        Se vuelve a dejar para que deje solo diferentes - 20150827
        */
        left join 
        (
            select 

             tab0.num_doc, 
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 then sum(tab0.aporte_func) else 0 end as aporte, 
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 then max(tab0.num_dias) else 0 end as dias,
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 then max(tab0.tarifa)/100 else 0 end as tarifa,
             --case when 1 != 0 then max(tab0.tarifa)/100 else 0 end as tarifa,
             sum(tab0.aporte_patrono) as aporte_patrono_a,      
             sum(tab1.aporte_patrono) as aporte_patrono_c,
            min(tipapo.no_riesgo) as no_riesgo

            from no_liquida_aporte tab0

            left join no_tipo_aporte tipapo
            on tipapo.id_tipo_aporte = tab0.id_tipo_aporte

             left join no_liquida_aporte tab1
             on tab1.id_periodo = tab0.id_periodo
             and tab1.id_tipo_doc = tab0.id_tipo_doc
             and tab1.num_doc = tab0.num_doc
             and tab1.id_mae_fondos = tab0.id_mae_fondos
             and tab1.id_concep_nomina = tab0.id_concep_nomina
             and tab1.id_clase_fondo = 3
             and tab1.tipo_planilla = 'A'

             where tab0.id_periodo = $id_periodo 
             and tab0.id_clase_fondo = 3
             and tab0.tipo_planilla = 'C'   

             group by tab0.num_doc
        )riesgo1 ON riesgo1.num_doc = tab0.num_doc

        /*
        Se toman valores unicamente si el valor de los registros de A es menor a C - 20140507
        */
        left join 
        (
            select 

             tab0.num_doc, 
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_func) else 0 end as aporte, 
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.num_dias) else 0 end as dias,
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.tarifa)/100 else 0 end as tarifa,
             sum(tab0.aporte_patrono) as aporte_patrono_a,      
             sum(tab1.aporte_patrono) as aporte_patrono_c

             from no_liquida_aporte tab0

             left join no_liquida_aporte tab1
             on tab1.id_periodo = tab0.id_periodo
             and tab1.id_tipo_doc = tab0.id_tipo_doc
             and tab1.num_doc = tab0.num_doc
             and tab1.id_mae_fondos = tab0.id_mae_fondos
             and tab1.id_concep_nomina = tab0.id_concep_nomina
             and tab1.id_clase_fondo = 4
             and tab1.tipo_planilla = 'A'

             where tab0.id_periodo = $id_periodo 
             and tab0.id_clase_fondo = 4
             and tab0.tipo_planilla = 'C'   

             group by tab0.num_doc
        )ccf1 ON ccf1.num_doc = tab0.num_doc

        /*
        Se toman valores unicamente si el valor de los registros de A es menor a C - 20140507
        */
        left join 
        (
            select 

             tab0.num_doc, 
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_func) else 0 end as aporte, 
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.num_dias) else 0 end as dias,
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.tarifa)/100 else 0 end as tarifa,
             sum(tab0.aporte_patrono) as aporte_patrono_a,      
             sum(tab1.aporte_patrono) as aporte_patrono_c

             from no_liquida_aporte tab0

             left join no_liquida_aporte tab1
             on tab1.id_periodo = tab0.id_periodo
             and tab1.id_tipo_doc = tab0.id_tipo_doc
             and tab1.num_doc = tab0.num_doc
             and tab1.id_mae_fondos = tab0.id_mae_fondos
             and tab1.id_concep_nomina = tab0.id_concep_nomina
             and tab1.id_clase_fondo = 5
             and tab1.tipo_planilla = 'A'

             where tab0.id_periodo = $id_periodo 
             and tab0.id_clase_fondo = 5
             and tab0.tipo_planilla = 'C'   

             group by tab0.num_doc
        )icbf1 ON icbf1.num_doc = tab0.num_doc

        /*
        Se toman valores unicamente si el valor de los registros de A es menor a C - 20140507
        */
        left join 
        (
            select 

             tab0.num_doc, 
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_func) else 0 end as aporte, 
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.num_dias) else 0 end as dias,
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.tarifa)/100 else 0 end as tarifa,
             sum(tab0.aporte_patrono) as aporte_patrono_a,      
             sum(tab1.aporte_patrono) as aporte_patrono_c

             from no_liquida_aporte tab0

             left join no_liquida_aporte tab1
             on tab1.id_periodo = tab0.id_periodo
             and tab1.id_tipo_doc = tab0.id_tipo_doc
             and tab1.num_doc = tab0.num_doc
             and tab1.id_mae_fondos = tab0.id_mae_fondos
             and tab1.id_concep_nomina = tab0.id_concep_nomina
             and tab1.id_clase_fondo = 6
             and tab1.tipo_planilla = 'A'

             where tab0.id_periodo = $id_periodo 
             and tab0.id_clase_fondo = 6
             and tab0.tipo_planilla = 'C'   

             group by tab0.num_doc
        )sena1 ON sena1.num_doc = tab0.num_doc

        /*
        Se toman valores unicamente si el valor de los registros de A es menor a C - 20140507
        */
        left join 
        (
            select 

             tab0.num_doc, 
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_func) else 0 end as aporte, 
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.num_dias) else 0 end as dias,
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.tarifa)/100 else 0 end as tarifa,
             sum(tab0.aporte_patrono) as aporte_patrono_a,      
             sum(tab1.aporte_patrono) as aporte_patrono_c

             from no_liquida_aporte tab0

             left join no_liquida_aporte tab1
             on tab1.id_periodo = tab0.id_periodo
             and tab1.id_tipo_doc = tab0.id_tipo_doc
             and tab1.num_doc = tab0.num_doc
             and tab1.id_mae_fondos = tab0.id_mae_fondos
             and tab1.id_concep_nomina = tab0.id_concep_nomina
             and tab1.id_clase_fondo = 7
             and tab1.tipo_planilla = 'A'

             where tab0.id_periodo = $id_periodo 
             and tab0.id_clase_fondo = 7
             and tab0.tipo_planilla = 'C'   

             group by tab0.num_doc
        )esap1 ON esap1.num_doc = tab0.num_doc

        /*
        Se toman valores unicamente si el valor de los registros de A es menor a C - 20140507
        */
        left join 
        (
            select 

             tab0.num_doc, 
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_func) else 0 end as aporte, 
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.num_dias) else 0 end as dias,
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
             case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.tarifa)/100 else 0 end as tarifa,
             sum(tab0.aporte_patrono) as aporte_patrono_a,      
             sum(tab1.aporte_patrono) as aporte_patrono_c

             from no_liquida_aporte tab0

             left join no_liquida_aporte tab1
             on tab1.id_periodo = tab0.id_periodo
             and tab1.id_tipo_doc = tab0.id_tipo_doc
             and tab1.num_doc = tab0.num_doc
             and tab1.id_mae_fondos = tab0.id_mae_fondos
             and tab1.id_concep_nomina = tab0.id_concep_nomina
             and tab1.id_clase_fondo = 8
             and tab1.tipo_planilla = 'A'

             where tab0.id_periodo = $id_periodo 
             and tab0.id_clase_fondo = 8
             and tab0.tipo_planilla = 'C'   

             group by tab0.num_doc
        )men1 ON men1.num_doc = tab0.num_doc

        left join 
        (
            select
            id_periodo, num_doc, 
            --id_concep_nomina, 
            sum(cantidad) as cantidad
            from (
                select
                lotehr.total_horas,
                lotehr.id_periodo,
                hrext.id_tipo_doc,
                hrext.num_doc,
                hrext.cantidad,
                tiphr.id_concep_nomina

                from no_lote_hr_extra lotehr

                left join no_hr_extra hrext
                on lotehr.id_lote_hr_extra = hrext.id_lote_hr_extra

                left join no_tipo_hr_extra tiphr
                on tiphr.id_tipo_hr_extra = hrext.id_tipo_hr_extra

                where lotehr.id_periodo = $id_periodo
                and lotehr.estado = 0
            )

            group by
            id_periodo, num_doc--, id_concep_nomina
        )hrextra
        ON hrextra.num_doc = tab0.num_doc


        WHERE tab0.periodo = $id_periodo 
        and (tab0.actual = 1 or
          ( tab0.actual = 0 
            and tab5.fecha_retiro != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and tab5.fecha_termina
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo_actual) ,'dd/mm/yyyy') ))
          )
        )
        and ( nvl(ccf1.dias,0) + nvl(salud1.dias,0) ) > 0

        /* Omitir terceros que no tiene cambios en CCF - 20231002::LAVILA*/        
        and tab0.num_doc not in (

            select 
            tab.num_doc
            from (

                    select  
                    total.num_doc,
                    count(total.tipo_planilla) as cant, 
                    sum(total.aporte_ibc) as total1, 
                    sum(total.IBC) as total2, 
                    sum(total.IBC_a) as total_a, 
                    sum(total.IBC_c) as total_c, 
                    sum(total.IBC_c) - sum(total.IBC_a) as total,
                    case when (sum(total.IBC_c) - sum(total.IBC_a) > 0) then sum(total.IBC_c) else 0 end as total_neg,
                    sum(total.IBC_c) + sum(total.IBC_a) as total_sum 

                    from (
                            select tab0.tipo_planilla,
                            tab0.num_doc, sum(nvl(tab0.valor_base,0)) as aporte_IBC, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, 
                            MAX(nvl(tab0.valor_base,0)) AS IBC,
                            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/, 
                          case when tab0.tipo_planilla = 'A' and max(tab0.num_dias) != 0 then max(nvl(tab0.valor_base,0)) else 0 end as ibc_a, 
                          case when tab0.tipo_planilla = 'C' and max(tab0.num_dias) != 0 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC_c
                            from no_liquida_aporte tab0
                            --se filtra id4-CAJA DE COMPENSACION FAMILIAR en vez de id5 - 20130802
                            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 4

                            group by tab0.tipo_planilla,tab0.num_doc

                     )total  
                     group by
                    total.num_doc    

            )tab   
            where
            tab.total_neg <= 0
            and tab.total <= 0
            and tab.total_a > 0
            and tab.total_c > 0

        )
        
        
        union


/*
* Funcionarios con novedades de kardex que afecte antiguedad - SLN , tipo A
*/
select 
penfun.id_pension_func,
2 as c00,--order de mensual luego licencia
0 as c0,
'02' AS C1,
LPAD(rownum,5,0) AS C2,
lpad( (REPLACE(tdoc.abreviacion,'.','')), 2,' ') AS C3,
RPAD(to_char(tab0.num_doc),16,' ') AS C4,
rpad(to_char(tab0.num_doc),16,' ') as c4a,
'01' AS C5,
case when penfun.id_pension_func is not null then penfun.codigo_suptipo else '00' end AS C6,--suptipo de pensionado
' ' AS C7,
' ' AS C8,
RPAD(nvl(tab2.coddepto,' '),2,' ') AS C9,
RPAD(nvl(substr(tab3.codmun_text,3),' '),3,' ') AS C10,
RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11,
RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11a,
RPAD(nvl(tab4.segundo_apellido,' '),30,' ') AS C12,
RPAD(nvl(tab4.primer_nombre,' '),20,' ') AS C13,
RPAD(nvl(tab4.segundo_nombre,' '),30,' ') AS C14,
case when tab5.fecha_ingreso
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then ' ' else ' ' end AS C15,
case when tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then ' ' else ' ' end AS C16,
' ' AS C17,
' ' AS C18,
' ' AS C19,
' ' AS C20,
case when ascenso.cantidad>0 then 'X' else ' 'end AS C21,
'A' AS C22,
case when encargo.cantidad>0 then 'X' else ' 'end AS C23,
case when kardex1.cantidad>0 and ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then 'X' when kardex1.cantidad>0 and  nvl(max_marca,0) = 1 and nvl(max_marca_susinc,0) = 0 then 'C' else ' ' end AS C24,
case when kardex2.cantidad>0 then ' ' else ' 'end AS C25,--inc temp enfermedad
case when kardex3.cantidad>0 then ' ' else ' 'end AS C26,--lic maternidad
case when vaca.cantidad>0 then 'X' else ' 'end AS C27,
' ' AS C28,
' ' AS C29,
LPAD(to_char(nvl(kardex4.cantidad,0)),2,0) AS C30,--inc por accidente de trabajo
rpad(nvl(pension.codigo,' '),6,' ') as c31,
rPAD(' ',6,' ') AS C32,
rPAD(nvl(salud.codigo,' '),6,' ') AS C33,
rpad(' ',6,' ') as c34,
rPAD(nvl(ccf.codigo,' '),6,' ') AS C35,
lpad(30-nvl(pension1.dias,0) - nvl(30- case when to_number(to_char(tab5.fecha_termina,'dd')) != 31 then to_number(to_char(tab5.fecha_termina,'dd')) else 30 end ,0) ,2,0) as c36,
lpad(30-nvl(salud1.dias,0) - nvl(30- case when to_number(to_char(tab5.fecha_termina,'dd')) != 31 then to_number(to_char(tab5.fecha_termina,'dd')) else 30 end ,0) ,2,0) as c37,
LPAD(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0) - nvl(30- case when to_number(to_char(tab5.fecha_termina,'dd')) != 31 then to_number(to_char(tab5.fecha_termina,'dd')) else 30 end ,0) ,2,0) AS C38,
--39 dias parafiscales
LPAD(30-nvl(salud1.dias,0) - nvl(30- case when to_number(to_char(tab5.fecha_termina,'dd')) != 31 then to_number(to_char(tab5.fecha_termina,'dd')) else 30 end ,0) ,2,0) AS C39,
LPAD(nvl(tab6.asignacion_basica,0),9,0) AS C40,
' ' AS C41,
-- Se validan los dias de retiro del funionario - 20141007
LPAD(  ceil( (nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) ))/1)*1  ,9,0) AS C42,
LPAD(  ceil( (nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) ))/1)*1  ,9,0) AS C43,
LPAD(  ceil( (nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) ))/1)*1  ,9,0) AS C44,
LPAD(  ceil( (nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) ))/1)*1  ,9,0) AS C45,
-- Se debe calcular a partir de octubre la tarifa del patrono - 20131028
-- No debe llevar registro de pension - 20140729
-- Se coloca que para CYC, si debe llevar registro de pension - 20170127
--rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) as c46,
--rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0) as C46,
case when 4 in (1,4) then (rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0)) else rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) end as C46,
--lPAD(nvl(null,0) + nvl(null,0),9,0) AS C47,
--lpad( round( round( nvl(tab6.asignacion_basica,0)/30*(30-nvl(pension2.dias-nvl(kardex4.cantidad,0),0))  ,-3) * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,-2) ,9,0) as c47,
case when 4 in (4) then (lpad( ceil( (ceil( (nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) ))/1)*1) * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) /100)*100 ,9,0)) else lPAD(nvl(null,0) + nvl(null,0),9,0) end as c47,
lPAD(0,9,0) AS C48,
lpad(0,9,0) as c49,
lpad(nvl(null,0) + nvl(null,0),9,0) as C50,
lpad(nvl(null,0),9,0) as c51,
lpad(nvl(null,0) - nvl(null,0) ,9,0) as c52,
rpad(0,9,0) as c53,
rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) ,7,0) as c54,
lpad( ceil( ceil( (nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) ))/1)*1 * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) /100)*100 ,9,0) as c55,
lpad( case when '01' = '40' then 0 else 0 end ,9,0) as c56,
rpad(' ',15,' ') as c57,
rpad(0,9,0) as C58,
rpad(' ',15,' ') as C59,
rpad(0,9,0) as c60,
rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,9,0) as C61,
lpad(0,9,0) as C62,
lpad( nvl(null,0) ,9,0) as c63,
rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) AS C64,
lpad( nvl(null,0) ,9,0) as c65,
rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) as C66,
lpad( nvl(null,0) ,9,0) as c67,
rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) as C68,
lpad( nvl(null,0) ,9,0) as c69,
rpad('0.0',7,0) as c70,
lpad(0,9,0) as c71,
rpad('0.0',7,0) as c72,
lpad(0,9,0) as C73,
'  ' AS C74,
RPAD(to_char(' '),16,' ') AS C75,
RPAD(to_char('N'),1,' ') AS C76,
RPAD(riesgo.codigo,6,' ') AS C77,
nvl(RPAD( nvl(riesgo1.no_riesgo,riesgo.riesgo),1,' '),' ') AS C78,
RPAD(to_char(' '),1,' ') AS C79,

RPAD(to_char(' '),10,' ') AS C80,--ING
RPAD(to_char(' '),10,' ') AS C81,--RET
RPAD(to_char(' '),10,' ') AS C82,--VSP

case when kardex1.fecha_ini
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(kardex1.fecha_ini,'yyyy-mm-dd')
else RPAD(to_char(' '),10,' ') end AS C83,--SLN

case when kardex1.fecha_fin
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(kardex1.fecha_fin,'yyyy-mm-dd')
else RPAD(to_char(' '),10,' ') end AS C84,--SLN

RPAD(to_char(' '),10,' ') AS C85,--IGE
RPAD(to_char(' '),10,' ') AS C86,--IGE
RPAD(to_char(' '),10,' ') AS C87,--LMA
RPAD(to_char(' '),10,' ') AS C88,--LMA
RPAD(to_char(' '),10,' ') AS C89,--VAC-LR
RPAD(to_char(' '),10,' ') AS C90,--VAC-LR
RPAD(to_char(' '),10,' ') AS C91,--VCT
RPAD(to_char(' '),10,' ') AS C92,--VCT
RPAD(to_char(' '),10,' ') AS C93,--IRL
RPAD(to_char(' '),10,' ') AS C94,--IRL
LPAD(  case when (30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) ) != 1 then ceil( (nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) ))/1)*1 else ceil( nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) ) ) end ,9,0) AS C95,--IBC parafiscales
LPAD(  case when  nvl(tab5.horas_mes,0)+NVL(0,0) < 300 then  nvl(tab5.horas_mes,0)+NVL(0,0) else 300 end  ,3,0) AS C96,--HORAS EXTRAS
RPAD(to_char(' '),10,' ') AS C97,--Rad exterior
case when tab0.id_anhos || lpad(tab0.id_meses, 2, '0') >= 202211 then RPAD(to_char(riesgo.cod_riesgo|| riesgo.cod_ciiu || riesgo.cod_ncp),7,' ') else '' end AS C98

from no_estado_func_v tab0

left join tipo_documento tdoc
on tdoc.id_tipo_doc = tab0.id_tipo_doc

left join centro_operacion tab1 ON tab1.id_cen_op = tab0.id_cen_op
left join departamento tab2 ON tab2.id_depto = tab1.id_depto
left join municipios tab3 ON tab3.codmun = tab1.codmun
left join no_datos_funcionario_v tab4 ON tab4.id_tipo_doc = tab0.id_tipo_doc and tab4.num_doc = tab0.num_doc

left join (
    select pen.*, sub.descripcion as suptipo_cotizante, sub.codigo as codigo_suptipo
    from no_pension_func pen
    left join no_suptipo_cotizante_v sub
    on pen.id_suptipo_cotizante = sub.id_suptipo_cotizante
    where
    pen.estado = 1
)penfun
on penfun.id_tipo_doc = tab0.id_tipo_doc 
and penfun.num_doc = tab0.num_doc

--left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
--Se valida que la fecha de terminacion sea en el periodo y no posterior, por calculo de meses nates del retiro - 20150724
left join (
  SELECT
  case when aut.fecha_ingreso
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then ( to_char(aut.fecha_ingreso,'dd') - 1 ) else 0 end as dias_ingreso,
  
  case when aut.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then (30 - to_char(aut.fecha_termina,'dd') ) else 0 end as dias_retiro,
   aut.*,
   ROW_NUMBER() OVER (
    partition by aut.num_doc
    ORDER BY aut.estado DESC, aut.fecha_ingreso DESC
   ) AS rn
  from (
  
    select
    nom.ID_NOMBRAMIENTO,
    nom.id_tipo_doc,
    nom.num_doc,
    nom.id_dp,
    nom.contrato,
    nom.doc_nombra,
    nom.fecha_nombra,
    nom.fecha_ingreso,
    case when nom.fecha_termina between (select fecha_ini from no_periodo where id_periodo = $id_periodo) and (select fecha_fin from no_periodo where id_periodo = $id_periodo) 
        then nom.fecha_termina else null end as fecha_termina,
    nom.dias_mes,
    nom.horas_mes,
    nom.estado,
    nom.asignacion_basica,
    nom.id_sa_niv2,
    nom.id_periodo,
    nom.id_clase_planta,
    nom.fecha_retiro,
    nom.solucion_continuidad,
    nom.no_acta,
    nom.fecha_acta
    from no_nombramiento nom  
    
  ) aut
)tab5
on tab5.id_tipo_doc = tab0.id_tipo_doc 
and tab5.num_doc = tab0.num_doc
and tab5.rn = 1

--left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp
/*
Se cambia para tomar valor de concepto_periodo para el concepto_nomina 1001 del periodo de tipo mensual o nomina adicional - 20130827
*/
left join(
    
    select * from(
            select 
            concep.id_tipo_doc,
            concep.num_doc,
            concep.valor as asignacion_basica ,
            
             ROW_NUMBER() OVER (
              PARTITION BY concep.num_doc
              order by per.id_tipo_periodo asc, concep.fecha_hasta desc
             ) as rn
           
            from no_concepto_periodo concep
  
            join no_periodo per
            on concep.PERIODO = per.id_periodo
            
            where 
            concep.id_concep_nomina = (select id_concep_basica from no_param_concep) 
            
            and (per.id_tipo_periodo = 1 or per.id_tipo_periodo = 2)
            and (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = concep.PERIODO) = (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) 
    )where rn = 1
    
)tab6 ON tab6.id_tipo_doc = tab0.id_tipo_doc and tab6.num_doc = tab0.num_doc
and tab6.rn = 1

left join
(
  /* se cambia filtro por estado activo y id_tipo_novedad = 1 - 20150422 */
  select 
  tab0.num_doc,count(tab0.id_novedad_personal) as cantidad
  from no_novedad_personal tab0
  left join no_novedades nov on tab0.id_novedad = nov.id_novedad
  where 
  tab0.estado = 1 and nov.id_tipo_novedad = 1
  and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
  group by tab0.num_doc
) ascenso ON ascenso.num_doc = tab0.num_doc

left join
(
    select num_doc, sum(cantidad) AS CANTIDAD
    from(
    
        select tab0.num_doc,count(tab0.id_novedad_personal) AS CANTIDAD
        from no_novedad_personal tab0
        where tab0.id_novedad IN ( 3, 7 )  
        and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        group by tab0.num_doc
        
        union 
        
        select tab0.num_doc,count(tab0.id_bonifica_servicios) AS CANTIDAD
        from no_bonifica_servicios tab0
        where tab0.estado=1 and tab0.fecha_bonifica between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        group by tab0.num_doc
        
        union 
        
        select tab0.num_doc,count(tab0.id_hr_extra) AS CANTIDAD
        from no_hr_extra tab0
        left join no_lote_hr_extra tab1 ON tab1.id_lote_hr_extra = tab0.id_lote_hr_extra
        where tab1.estado=0 and tab1.id_periodo = $id_periodo
        group by tab0.num_doc
    
    )GROUP BY num_doc

) encargo ON encargo.num_doc = tab0.num_doc

left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD, max(tab1.suspension) as max_marca,
    max(fecha_ini) as fecha_ini2, 
    case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
    max(fecha_fin) as fecha_fin2,
    case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.afecta_antigu = 1 and tab0.estado = 1 
     /*   
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo = $id_periodo
    )*/
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    and (
      to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
      or
      trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
      or 
      tab0.id_periodo = $id_periodo
    )
    group by tab0.num_doc
)kardex1 ON kardex1.num_doc = tab0.num_doc

left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    /*
    Se cambia id_tip_nov_ka = 2 por 1 INCI
    Se deja quemado id 9 para novedad por ajuste de conceptos de reintegro ANM - 20140522
    Se cambia por id en tabla no_param_concep - 20140916
    */
    where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_enfcom from no_param_concep),9) and tab0.estado = 1
    
    and tab0.estado = 1 and tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
    group by tab0.num_doc
)kardex2 ON kardex2.num_doc = tab0.num_doc

left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    
    /*
    Se cambia id_tip_nov_ka = 3 por 2 INCI
    Se cambia por id en tabla no_param_concep - 20140916
    */
    where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_licmat from no_param_concep)) and tab0.estado = 1 
    
    and tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
    group by tab0.num_doc
)kardex3 ON kardex3.num_doc = tab0.num_doc

/*
Se cambia de id-4 por atributo en  la tabla no_tip_nov_ka de afecta_riesgo, para validar cuales afectan en los dias de ARP-ARL - 20130919
*/
left join
(
    select tab0.num_doc, sum(tab0.num_dias) CANTIDAD
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.afecta_riesgo = 1 and tab0.estado = 1 and tab0.fecha_inc between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
    group by tab0.num_doc
)kardex4 ON kardex4.num_doc = tab0.num_doc

/*
Incapacidad -> Suspensión por Incapacidad  - 20150312
*/
left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) as max_marca_susinc
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.afecta_antigu = 1 and tab0.estado = 1 
    and tab0.id_tip_nov_ka = (select no_param_concep.id_nov_ka_susinc from no_param_concep where no_param_concep.id_param_concep = 1)
     /*   
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo = $id_periodo
    )*/
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    and (
      to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
      or
      trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
      or 
      tab0.id_periodo = $id_periodo
    )
    group by tab0.num_doc
)kardex5 ON kardex5.num_doc = tab0.num_doc

left join
(
    select tab0.num_doc, count(tab0.id_novedad_vac) CANTIDAD
    from no_novedad_vac tab0
    where tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
    group by tab0.num_doc
)vaca ON vaca.num_doc = tab0.num_doc


LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
    where afilia.id_clase_fondo = 1 
    /*
    and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
    between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
    */--and afilia.estado = 1
   
    AND ( codigo.tipo != 'EPS' or codigo.tipo != 'CCF' )
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'       
)pension ON pension.num_doc = tab0.num_doc

LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo ON codigo.nitocc = fondo.num_doc
    where afilia.id_clase_fondo = 2 
    /*
    and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
    between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
    --and afilia.estado = 1
    */
    AND codigo.tipo = 'EPS'
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'       
)salud ON salud.num_doc = tab0.num_doc

LEFT JOIN 
(
    select distinct 
    CODFON.CODIGO,
    afilia.num_doc, afilia.centro_trabajo as id_centro_trabajo, centra.codigo as centro_trabajo, apo.no_riesgo, centra.cod_ciiu, centra.cod_ncp, apo.no_riesgo as cod_riesgo,
    afilia.fecha_ingreso,
    afilia.riesgo,
   ROW_NUMBER() OVER (
    partition by afilia.num_doc
    ORDER BY afilia.estado DESC, afilia.fecha_ingreso DESC,afilia.id_afilia_fondo DESC
   ) AS rn
   
    from no_afilia_fondo afilia
    
    left join no_tipo_aporte apo
    on apo.id_tipo_aporte = afilia.id_tipo_aporte
    
    left join no_centro_trabajo centra
    on centra.id_centro_trabajo = afilia.centro_trabajo
    
    left join no_mae_fondos maefon
    on MAEFON.ID_MAE_FONDOS = afilia.ID_MAE_FONDOS
    
    left join no_cod_fondo codfon
    on maefon.num_doc = codfon.nitocc
    
    where afilia.id_clase_fondo = 3 --and afilia.estado = 1
    and to_char(afilia.fecha_ingreso,'yyyymm') <= ( select anho_mes from no_periodo_v where id_periodo = $id_periodo )
)riesgo ON riesgo.num_doc = tab0.num_doc
and riesgo.rn = 1

LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
    where afilia.id_clase_fondo = 4 
    --and afilia.estado = 1 
    AND codigo.tipo = 'CCF'
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'       
)ccf ON ccf.num_doc = tab0.num_doc


left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/    
    , sum(tab0.aporte_patrono_licnorem) AS aporte_patrono_licnorem
    , sum(tab0.num_dias_licnorem) AS num_dias_licnorem
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1
    and tab0.tipo_planilla = 'A'       
    group by tab0.num_doc
)pension1 ON pension1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.porcentaje_patrono/100) as TARIFA--, tab0.aporte_func AS APORTE
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1  and tab0.porcentaje_patrono > 0 -- and  ( tab0.tarifa = 16 or tab0.tarifa = 26 )
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)pension2 ON pension2.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, sum(tab0.valor_base_fsp) as aporte_fsp, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC/*,
    tab0.tarifa/100 as TARIFA, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1 and tab0.porcentaje_patrono = 0
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)pension3 ON pension3.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.porcentaje_patrono)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 2
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)salud1 ON salud1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/,
    min(tipapo.no_riesgo) as no_riesgo
    
    from no_liquida_aporte tab0
    
    left join no_tipo_aporte tipapo
    on tipapo.id_tipo_aporte = tab0.id_tipo_aporte
    
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 3
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)riesgo1 ON riesgo1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 4
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)ccf1 ON ccf1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 5
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)icbf1 ON icbf1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 6
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)sena1 ON sena1.num_doc = tab0.num_doc


WHERE tab0.periodo = $id_periodo  
and (tab0.actual = 1 or
  ( tab0.actual = 0 
    /*
    Se cambia fecha de termina(ultimo dia de trabajo) por fecha de retiro, 
    para tener encuenta si trabajo en el periodo al menos 1 dia - 20130828                    
    */
    and tab5.fecha_retiro != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo_actual) ,'dd/mm/yyyy') ))
  )
)
and kardex1.cantidad > 0
and ( nvl(ccf1.dias,0) + nvl(salud1.dias,0) ) > 0

/* Omitir terceros que no tiene cambios en CCF - 20231002::LAVILA*/
and tab0.num_doc not in (

    select 
    tab.num_doc
    from (
        
            select  
            total.num_doc,
            count(total.tipo_planilla) as cant, 
            sum(total.aporte_ibc) as total1, 
            sum(total.IBC) as total2, 
            sum(total.IBC_a) as total_a, 
            sum(total.IBC_c) as total_c, 
            sum(total.IBC_c) - sum(total.IBC_a) as total,
            case when (sum(total.IBC_c) - sum(total.IBC_a) > 0) then sum(total.IBC_c) else 0 end as total_neg,
            sum(total.IBC_c) + sum(total.IBC_a) as total_sum 
            
            from (
                    select tab0.tipo_planilla,
                    tab0.num_doc, sum(nvl(tab0.valor_base,0)) as aporte_IBC, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, 
                    MAX(nvl(tab0.valor_base,0)) AS IBC,
                    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/, 
                  case when tab0.tipo_planilla = 'A' and max(tab0.num_dias) != 0 then max(nvl(tab0.valor_base,0)) else 0 end as ibc_a, 
                  case when tab0.tipo_planilla = 'C' and max(tab0.num_dias) != 0 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC_c
                    from no_liquida_aporte tab0
                    --se filtra id4-CAJA DE COMPENSACION FAMILIAR en vez de id5 - 20130802
                    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 4
                    
                    group by tab0.tipo_planilla,tab0.num_doc
                    
             )total  
             group by
            total.num_doc    
       
    )tab   
    where
    tab.total_neg <= 0
    and tab.total <= 0
    and tab.total_a > 0
    and tab.total_c > 0
    
)

      union
      
      
      /*
      * Funcionarios con novedades de kardex que afecte antiguedad - SLN , tipo C
      */
      select 
      penfun.id_pension_func,      
      2 as c00,--order de mensual luego licencia
      0 as c0,
      '02' AS C1,
      LPAD(rownum,5,0) AS C2,
      lpad( (REPLACE(tdoc.abreviacion,'.','')), 2,' ') AS C3,
      RPAD(to_char(tab0.num_doc),16,' ') AS C4,
      rpad(to_char(tab0.num_doc),16,' ') as c4a,
      '01' AS C5,
      case when penfun.id_pension_func is not null then penfun.codigo_suptipo else '00' end AS C6,--suptipo de pensionado
      ' ' AS C7,
      ' ' AS C8,
      RPAD(nvl(tab2.coddepto,' '),2,' ') AS C9,
      RPAD(nvl(substr(tab3.codmun_text,3),' '),3,' ') AS C10,
      RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11,
      RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11a,
      RPAD(nvl(tab4.segundo_apellido,' '),30,' ') AS C12,
      RPAD(nvl(tab4.primer_nombre,' '),20,' ') AS C13,
      RPAD(nvl(tab4.segundo_nombre,' '),30,' ') AS C14,
      case when tab5.fecha_ingreso
        between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        then ' ' else ' ' end AS C15,
      case when tab5.fecha_termina
        between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        then ' ' else ' ' end AS C16,
      ' ' AS C17,
      ' ' AS C18,
      ' ' AS C19,
      ' ' AS C20,
      case when ascenso.cantidad>0 then 'X' else ' 'end AS C21,
      'C' AS C22,
      case when encargo.cantidad>0 then 'X' else ' 'end AS C23,
      case when kardex1.cantidad>0 and ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then 'X' when kardex1.cantidad>0 and  nvl(max_marca,0) = 1 and nvl(max_marca_susinc,0) = 0 then 'C' else ' ' end AS C24,
      case when kardex2.cantidad>0 then ' ' else ' 'end AS C25,--inc temp enfermedad
      case when kardex3.cantidad>0 then ' ' else ' 'end AS C26,--lic maternidad
      case when vaca.cantidad>0 then 'X' else ' 'end AS C27,
      ' ' AS C28,
      ' ' AS C29,
      LPAD(to_char(nvl(kardex4.cantidad,0)),2,0) AS C30,--inc por accidente de trabajo
      rpad(nvl(pension.codigo,' '),6,' ') as c31,
      rPAD(' ',6,' ') AS C32,
      rPAD(nvl(salud.codigo,' '),6,' ') AS C33,
      rpad(' ',6,' ') as c34,
      rPAD(nvl(ccf.codigo,' '),6,' ') AS C35,
      lpad(30-nvl(pension1.dias,0) - nvl(30- case when to_number(to_char(tab5.fecha_termina,'dd')) != 31 then to_number(to_char(tab5.fecha_termina,'dd')) else 30 end ,0) ,2,0) as c36,
      lpad(30-nvl(salud1.dias,0) - nvl(30- case when to_number(to_char(tab5.fecha_termina,'dd')) != 31 then to_number(to_char(tab5.fecha_termina,'dd')) else 30 end ,0) ,2,0) as c37,
      LPAD(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0) - nvl(30- case when to_number(to_char(tab5.fecha_termina,'dd')) != 31 then to_number(to_char(tab5.fecha_termina,'dd')) else 30 end ,0) ,2,0) AS C38,
      --39 dias parafiscales
      LPAD(30-nvl(salud1.dias,0) - nvl(30- case when to_number(to_char(tab5.fecha_termina,'dd')) != 31 then to_number(to_char(tab5.fecha_termina,'dd')) else 30 end ,0) ,2,0) AS C39,
      LPAD(nvl(tab6.asignacion_basica,0),9,0) AS C40,
      ' ' AS C41,
      -- Se validan los dias de retiro del funionario - 20141007
      LPAD(  ceil( (nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) ))/1)*1  ,9,0) AS C42,
      LPAD(  ceil( (nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) ))/1)*1  ,9,0) AS C43,
      LPAD(  ceil( (nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) ))/1)*1  ,9,0) AS C44,
      LPAD(  ceil( (nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) ))/1)*1  ,9,0) AS C45,
    -- Se debe calcular a partir de octubre la tarifa del patrono - 20131028
    -- No debe llevar registro de pension - 20140729
    -- Se coloca que para CYC, si debe llevar registro de pension - 20170127
    --rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) as c46,
    --rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0) as C46,
    case when 4 in (1,4) then (rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0)) else rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) end as C46,
    --lPAD(nvl(null,0) + nvl(null,0),9,0) AS C47,
    --lpad( round( round( nvl(tab6.asignacion_basica,0)/30*(30-nvl(pension2.dias-nvl(kardex4.cantidad,0),0))  ,-3) * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,-2) ,9,0) as c47,
    case when 4 in (1,4) then (lpad( ceil( (ceil( (nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) ))/1)*1) * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) /100)*100 ,9,0)) else lPAD(nvl(null,0) + nvl(null,0),9,0) end as c47,
    lPAD(0,9,0) AS C48,
      lpad(0,9,0) as c49,
      lpad(nvl(null,0) + nvl(null,0),9,0) as C50,
      lpad(nvl(null,0),9,0) as c51,
      lpad(nvl(null,0) - nvl(null,0) ,9,0) as c52,
      rpad(0,9,0) as c53,
        rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) ,7,0) as c54,
        lpad( ceil( ceil( (nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) ))/1)*1 * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) /100)*100 ,9,0) as c55,
        lpad( case when '01' = '40' then 0 else 0 end ,9,0) as c56,
        rpad(' ',15,' ') as c57,
      rpad(0,9,0) as C58,
      rpad(' ',15,' ') as C59,
      rpad(0,9,0) as c60,
      rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,9,0) as C61,
      lpad(0,9,0) as C62,
      lpad( nvl(null,0) ,9,0) as c63,
      rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) AS C64,
      lpad( nvl(null,0) ,9,0) as c65,
      rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) as C66,
      lpad( nvl(null,0) ,9,0) as c67,
      rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) as C68,
      lpad( nvl(null,0) ,9,0) as c69,
      rpad('0.0',7,0) as c70,
      lpad(0,9,0) as c71,
      rpad('0.0',7,0) as c72,
      lpad(0,9,0) as C73,
      '  ' AS C74,
      RPAD(to_char(' '),16,' ') AS C75,
      RPAD(to_char('N'),1,' ') AS C76,
        RPAD(riesgo.codigo,6,' ') AS C77,
        nvl(RPAD( nvl(riesgo1.no_riesgo,riesgo.riesgo),1,' '),' ') AS C78,
        RPAD(to_char(' '),1,' ') AS C79,
        
    RPAD(to_char(' '),10,' ') AS C80,--ING
    RPAD(to_char(' '),10,' ') AS C81,--RET
    RPAD(to_char(' '),10,' ') AS C82,--VSP
    
    case when kardex1.fecha_ini
        between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        then to_char(kardex1.fecha_ini,'yyyy-mm-dd')
      else RPAD(to_char(' '),10,' ') end AS C83,--SLN

      case when kardex1.fecha_fin
        between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        then to_char(kardex1.fecha_fin,'yyyy-mm-dd')
      else RPAD(to_char(' '),10,' ') end AS C84,--SLN
    
    RPAD(to_char(' '),10,' ') AS C85,--IGE
    RPAD(to_char(' '),10,' ') AS C86,--IGE
    RPAD(to_char(' '),10,' ') AS C87,--LMA
    RPAD(to_char(' '),10,' ') AS C88,--LMA
    RPAD(to_char(' '),10,' ') AS C89,--VAC-LR
    RPAD(to_char(' '),10,' ') AS C90,--VAC-LR
    RPAD(to_char(' '),10,' ') AS C91,--VCT
    RPAD(to_char(' '),10,' ') AS C92,--VCT
    RPAD(to_char(' '),10,' ') AS C93,--IRL
    RPAD(to_char(' '),10,' ') AS C94,--IRL
    LPAD(  case when (30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) ) != 1 then ceil( (nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) ))/1)*1 else ceil( nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) ) ) end ,9,0) AS C95,--IBC parafiscales
    LPAD(  case when  nvl(tab5.horas_mes,0)+NVL(0,0) < 300 then  nvl(tab5.horas_mes,0)+NVL(0,0) else 300 end  ,3,0) AS C96,--HORAS EXTRAS
    RPAD(to_char(' '),10,' ') AS C97,--Rad exterior
    case when tab0.id_anhos || lpad(tab0.id_meses, 2, '0') >= 202211 then RPAD(to_char(riesgo.cod_riesgo|| riesgo.cod_ciiu || riesgo.cod_ncp),7,' ') else '' end AS C98

    from no_estado_func_v tab0

    left join tipo_documento tdoc
    on tdoc.id_tipo_doc = tab0.id_tipo_doc
      
      left join centro_operacion tab1 ON tab1.id_cen_op = tab0.id_cen_op
      left join departamento tab2 ON tab2.id_depto = tab1.id_depto
      left join municipios tab3 ON tab3.codmun = tab1.codmun
      left join no_datos_funcionario_v tab4 ON tab4.id_tipo_doc = tab0.id_tipo_doc and tab4.num_doc = tab0.num_doc

        left join (
            select pen.*, sub.descripcion as suptipo_cotizante, sub.codigo as codigo_suptipo
            from no_pension_func pen
            left join no_suptipo_cotizante_v sub
            on pen.id_suptipo_cotizante = sub.id_suptipo_cotizante
            where
            pen.estado = 1
        )penfun
        on penfun.id_tipo_doc = tab0.id_tipo_doc 
        and penfun.num_doc = tab0.num_doc
      
      --left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
      --Se valida que la fecha de terminacion sea en el periodo y no posterior, por calculo de meses nates del retiro - 20150724
      left join (
        SELECT
        case when aut.fecha_ingreso
        between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        then ( to_char(aut.fecha_ingreso,'dd') - 1 ) else 0 end as dias_ingreso,

        case when aut.fecha_termina
        between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        then (30 - to_char(aut.fecha_termina,'dd') ) else 0 end as dias_retiro,
         aut.*,
         ROW_NUMBER() OVER (
          partition by aut.num_doc
          ORDER BY aut.estado DESC, aut.fecha_ingreso DESC
         ) AS rn
        from (

          select
          nom.ID_NOMBRAMIENTO,
          nom.id_tipo_doc,
          nom.num_doc,
          nom.id_dp,
          nom.contrato,
          nom.doc_nombra,
          nom.fecha_nombra,
          nom.fecha_ingreso,
          case when nom.fecha_termina between (select fecha_ini from no_periodo where id_periodo = $id_periodo) and (select fecha_fin from no_periodo where id_periodo = $id_periodo) 
              then nom.fecha_termina else null end as fecha_termina,
          nom.dias_mes,
          nom.horas_mes,
          nom.estado,
          nom.asignacion_basica,
          nom.id_sa_niv2,
          nom.id_periodo,
          nom.id_clase_planta,
          nom.fecha_retiro,
          nom.solucion_continuidad,
          nom.no_acta,
          nom.fecha_acta
          from no_nombramiento nom  

        ) aut
      )tab5
      on tab5.id_tipo_doc = tab0.id_tipo_doc 
      and tab5.num_doc = tab0.num_doc
      and tab5.rn = 1
      
      --left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp
      /*
      Se cambia para tomar valor de concepto_periodo para el concepto_nomina 1001 del periodo de tipo mensual o nomina adicional - 20130827
      */
      left join(
          
          select * from(
                  select 
                  concep.id_tipo_doc,
                  concep.num_doc,
                  concep.valor as asignacion_basica ,
                  
                   ROW_NUMBER() OVER (
                    PARTITION BY concep.num_doc
                    order by per.id_tipo_periodo asc, concep.fecha_hasta desc
                   ) as rn
                 
                  from no_concepto_periodo concep
        
                  join no_periodo per
                  on concep.PERIODO = per.id_periodo
                  
                  where 
                  concep.id_concep_nomina = (select id_concep_basica from no_param_concep) 
                  
                  and (per.id_tipo_periodo = 6 or per.id_tipo_periodo = 7)
                  and (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = concep.id_periodo_ajuste) = (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) 
          )where rn = 1
          
      )tab6 ON tab6.id_tipo_doc = tab0.id_tipo_doc and tab6.num_doc = tab0.num_doc
      and tab6.rn = 1
      
      left join
      (
        /* se cambia filtro por estado activo y id_tipo_novedad = 1 - 20150422 */
        select 
        tab0.num_doc,count(tab0.id_novedad_personal) as cantidad
        from no_novedad_personal tab0
        left join no_novedades nov on tab0.id_novedad = nov.id_novedad
        where 
        tab0.estado = 1 and nov.id_tipo_novedad = 1
        and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
        group by tab0.num_doc
      ) ascenso ON ascenso.num_doc = tab0.num_doc
      
      left join
      (
          select num_doc, sum(cantidad) AS CANTIDAD
          from(
          
              select tab0.num_doc,count(tab0.id_novedad_personal) AS CANTIDAD
              from no_novedad_personal tab0
              where tab0.id_novedad IN ( 3, 7 )  
              and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
              group by tab0.num_doc
              
              union 
              
              select tab0.num_doc,count(tab0.id_bonifica_servicios) AS CANTIDAD
              from no_bonifica_servicios tab0
              where tab0.estado=1 and tab0.fecha_bonifica between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
              group by tab0.num_doc
              
              union 
              
              select tab0.num_doc,count(tab0.id_hr_extra) AS CANTIDAD
              from no_hr_extra tab0
              left join no_lote_hr_extra tab1 ON tab1.id_lote_hr_extra = tab0.id_lote_hr_extra
              where tab1.estado=0 and tab1.id_periodo = $id_periodo
              group by tab0.num_doc
          
          )GROUP BY num_doc
      
      ) encargo ON encargo.num_doc = tab0.num_doc
      
      left join
      (
            select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD, max(tab1.suspension) as max_marca,
            max(fecha_ini) as fecha_ini2, 
            case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
            max(fecha_fin) as fecha_fin2,
            case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin
            from no_novedad_kardex tab0
          left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
          where tab1.afecta_antigu = 1 and tab0.estado = 1 
           /*   
          and (
            tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
            or
            tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
            or 
            tab0.id_periodo = $id_periodo
          )*/
          and
          (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
          and (
            to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
            or
            trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
            or 
            tab0.id_periodo = $id_periodo
          )
          group by tab0.num_doc
      )kardex1 ON kardex1.num_doc = tab0.num_doc
      
      left join
      (
          select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD
          from no_novedad_kardex tab0
          left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
          /*
          Se cambia id_tip_nov_ka = 2 por 1 INCI
          Se deja quemado id 9 para novedad por ajuste de conceptos de reintegro ANM - 20140522
          Se cambia por id en tabla no_param_concep - 20140916
          */
          where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_enfcom from no_param_concep),9) and tab0.estado = 1
          
          and tab0.estado = 1 and tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          group by tab0.num_doc
      )kardex2 ON kardex2.num_doc = tab0.num_doc
      
      left join
      (
          select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD
          from no_novedad_kardex tab0
          left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
          
          /*
          Se cambia id_tip_nov_ka = 3 por 2 INCI
          Se cambia por id en tabla no_param_concep - 20140916
          */
          where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_licmat from no_param_concep)) and tab0.estado = 1 
          
          and tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          group by tab0.num_doc
      )kardex3 ON kardex3.num_doc = tab0.num_doc
      
      /*
      Se cambia de id-4 por atributo en  la tabla no_tip_nov_ka de afecta_riesgo, para validar cuales afectan en los dias de ARP-ARL - 20130919
      */
      left join
      (
          select tab0.num_doc, case when sum(tab0.num_dias) > 30 then 30 else sum(tab0.num_dias) end  as CANTIDAD
          from no_novedad_kardex tab0
          left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
          where tab1.afecta_riesgo = 1 and tab0.estado = 1 and tab0.fecha_inc between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          group by tab0.num_doc
      )kardex4 ON kardex4.num_doc = tab0.num_doc
      
      /*
      Incapacidad -> Suspensión por Incapacidad  - 20150312
      */
      left join
      (
          select tab0.num_doc, count(tab0.id_novedad_kardex) as max_marca_susinc
          from no_novedad_kardex tab0
          left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
          where tab1.afecta_antigu = 1 and tab0.estado = 1 
          and tab0.id_tip_nov_ka = (select no_param_concep.id_nov_ka_susinc from no_param_concep where no_param_concep.id_param_concep = 1)
           /*   
          and (
            tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
            or
            tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
            or 
            tab0.id_periodo = $id_periodo
          )*/
          and
          (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
          and (
            to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
            or
            trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
            or 
            tab0.id_periodo = $id_periodo
          )
          group by tab0.num_doc
      )kardex5 ON kardex5.num_doc = tab0.num_doc
      
      left join
      (
          select tab0.num_doc, count(tab0.id_novedad_vac) CANTIDAD
          from no_novedad_vac tab0
          where tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          group by tab0.num_doc
      )vaca ON vaca.num_doc = tab0.num_doc
      
      
      LEFT JOIN 
      (
          select distinct afilia.num_doc, codigo.codigo
          from no_liquida_aporte afilia
          left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
          left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
          where afilia.id_clase_fondo = 1 
          /*
          and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
          between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
          */--and afilia.estado = 1
         
          AND ( codigo.tipo != 'EPS' or codigo.tipo != 'CCF' )
          and afilia.id_periodo = $id_periodo
          and afilia.tipo_planilla = 'A'       
      )pension ON pension.num_doc = tab0.num_doc
      
      LEFT JOIN 
      (
          select distinct afilia.num_doc, codigo.codigo
          from no_liquida_aporte afilia
          left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
          left join no_cod_fondo codigo ON codigo.nitocc = fondo.num_doc
          where afilia.id_clase_fondo = 2 
          /*
          and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
          between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
          --and afilia.estado = 1
          */
          AND codigo.tipo = 'EPS'
          and afilia.id_periodo = $id_periodo
          and afilia.tipo_planilla = 'A'       
      )salud ON salud.num_doc = tab0.num_doc
      
      LEFT JOIN 
      (
            select distinct 
            CODFON.CODIGO,
            afilia.num_doc, afilia.centro_trabajo as id_centro_trabajo, centra.codigo as centro_trabajo, apo.no_riesgo, centra.cod_ciiu, centra.cod_ncp, apo.no_riesgo as cod_riesgo,
            afilia.fecha_ingreso,
            afilia.riesgo,
           ROW_NUMBER() OVER (
            partition by afilia.num_doc
            ORDER BY afilia.estado DESC, afilia.fecha_ingreso DESC,afilia.id_afilia_fondo DESC
           ) AS rn

            from no_afilia_fondo afilia

            left join no_tipo_aporte apo
            on apo.id_tipo_aporte = afilia.id_tipo_aporte

            left join no_centro_trabajo centra
            on centra.id_centro_trabajo = afilia.centro_trabajo

            left join no_mae_fondos maefon
            on MAEFON.ID_MAE_FONDOS = afilia.ID_MAE_FONDOS

            left join no_cod_fondo codfon
            on maefon.num_doc = codfon.nitocc

            where afilia.id_clase_fondo = 3 --and afilia.estado = 1
            and to_char(afilia.fecha_ingreso,'yyyymm') <= ( select anho_mes from no_periodo_v where id_periodo = $id_periodo )
      )riesgo ON riesgo.num_doc = tab0.num_doc
        and riesgo.rn = 1
      
      LEFT JOIN 
      (
          select distinct afilia.num_doc, codigo.codigo
          from no_liquida_aporte afilia
          left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
          left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
          where afilia.id_clase_fondo = 4 
          --and afilia.estado = 1 
          AND codigo.tipo = 'CCF'
          and afilia.id_periodo = $id_periodo
          and afilia.tipo_planilla = 'A'       
      )ccf ON ccf.num_doc = tab0.num_doc
      
      
      left join 
      (
          select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
          max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/  
            , sum(tab0.aporte_patrono_licnorem) AS aporte_patrono_licnorem
            , sum(tab0.num_dias_licnorem) AS num_dias_licnorem
          from no_liquida_aporte tab0
          where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1
          and tab0.tipo_planilla = 'A'       
          group by tab0.num_doc
      )pension1 ON pension1.num_doc = tab0.num_doc
      
      left join 
      (
          select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
          max(tab0.porcentaje_patrono/100) as TARIFA--, tab0.aporte_func AS APORTE
          from no_liquida_aporte tab0
          where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1  and tab0.porcentaje_patrono > 0 -- and  ( tab0.tarifa = 16 or tab0.tarifa = 26 )
          and tab0.tipo_planilla = 'A'     
          group by tab0.num_doc
      )pension2 ON pension2.num_doc = tab0.num_doc
      
      left join 
      (
          select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, sum(tab0.valor_base_fsp) as aporte_fsp, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC/*,
          tab0.tarifa/100 as TARIFA, tab0.aporte_func AS APORTE*/
          from no_liquida_aporte tab0
          where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1 and tab0.porcentaje_patrono = 0
          and tab0.tipo_planilla = 'A'     
          group by tab0.num_doc
      )pension3 ON pension3.num_doc = tab0.num_doc
      
      left join 
      (
          select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
          max(tab0.porcentaje_patrono)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
          from no_liquida_aporte tab0
          where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 2
          and tab0.tipo_planilla = 'A'     
          group by tab0.num_doc
      )salud1 ON salud1.num_doc = tab0.num_doc
      
      left join 
      (
          select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
          max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/,
        min(tipapo.no_riesgo) as no_riesgo

        from no_liquida_aporte tab0

        left join no_tipo_aporte tipapo
        on tipapo.id_tipo_aporte = tab0.id_tipo_aporte
    
          where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 3
          and tab0.tipo_planilla = 'A'     
          group by tab0.num_doc
      )riesgo1 ON riesgo1.num_doc = tab0.num_doc
      
      left join 
      (
          select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
          max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
          from no_liquida_aporte tab0
          where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 4
          and tab0.tipo_planilla = 'A'     
          group by tab0.num_doc
      )ccf1 ON ccf1.num_doc = tab0.num_doc
      
      left join 
      (
          select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
          max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
          from no_liquida_aporte tab0
          where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 5
          and tab0.tipo_planilla = 'A'     
          group by tab0.num_doc
      )icbf1 ON icbf1.num_doc = tab0.num_doc
      
      left join 
      (
          select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
          max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
          from no_liquida_aporte tab0
          where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 6
          and tab0.tipo_planilla = 'A'     
          group by tab0.num_doc
      )sena1 ON sena1.num_doc = tab0.num_doc
      
      
      WHERE tab0.periodo = $id_periodo  
      and (tab0.actual = 1 or
        ( tab0.actual = 0 
          /*
          Se cambia fecha de termina(ultimo dia de trabajo) por fecha de retiro, 
          para tener encuenta si trabajo en el periodo al menos 1 dia - 20130828                    
          */
          and tab5.fecha_retiro != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and tab5.fecha_termina
        between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo_actual) ,'dd/mm/yyyy') ))
        )
      )
      and kardex1.cantidad > 0
      and ( nvl(ccf1.dias,0) + nvl(salud1.dias,0) ) > 0

        /* Omitir terceros que no tiene cambios en CCF - 20231002::LAVILA*/
        and tab0.num_doc not in (

            select 
            tab.num_doc
            from (

                    select  
                    total.num_doc,
                    count(total.tipo_planilla) as cant, 
                    sum(total.aporte_ibc) as total1, 
                    sum(total.IBC) as total2, 
                    sum(total.IBC_a) as total_a, 
                    sum(total.IBC_c) as total_c, 
                    sum(total.IBC_c) - sum(total.IBC_a) as total,
                    case when (sum(total.IBC_c) - sum(total.IBC_a) > 0) then sum(total.IBC_c) else 0 end as total_neg,
                    sum(total.IBC_c) + sum(total.IBC_a) as total_sum 

                    from (
                            select tab0.tipo_planilla,
                            tab0.num_doc, sum(nvl(tab0.valor_base,0)) as aporte_IBC, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, 
                            MAX(nvl(tab0.valor_base,0)) AS IBC,
                            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/, 
                          case when tab0.tipo_planilla = 'A' and max(tab0.num_dias) != 0 then max(nvl(tab0.valor_base,0)) else 0 end as ibc_a, 
                          case when tab0.tipo_planilla = 'C' and max(tab0.num_dias) != 0 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC_c
                            from no_liquida_aporte tab0
                            --se filtra id4-CAJA DE COMPENSACION FAMILIAR en vez de id5 - 20130802
                            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 4

                            group by tab0.tipo_planilla,tab0.num_doc

                     )total  
                     group by
                    total.num_doc    

            )tab   
            where
            tab.total_neg <= 0
            and tab.total <= 0
            and tab.total_a > 0
            and tab.total_c > 0

        )
      

union

/*
* Funcionarios con novedades de vacaciones o LR - 20170308, tipo A
* Se cambia campo C45 para que tome los dias de la autoliquidacion y no base 30-ccf1.dias, se agrega tambien a los calculos de parafiscales - 20190703
* Se cambia solo VACACIONES - 20210202::LAVILA
* Campo C45,C95 si no tiene IBC toma lo mismo que el C42 - 20210622::LAVILA
* Incidente #39277, Campo C46 y C54 complete tarifa segun corresponda a la liquidacion de aportes - 20250122::LAVILA
*/
select 
penfun.id_pension_func,
3 as c00,--order de mensual luego licencia
0 as c0,
'02' AS C1,
LPAD(rownum,5,0) AS C2,
lpad( (REPLACE(tdoc.abreviacion,'.','')), 2,' ') AS C3,
RPAD(to_char(tab0.num_doc),16,' ') AS C4,
rpad(to_char(tab0.num_doc),16,' ') as c4a,
'01' AS C5,
case when penfun.id_pension_func is not null then penfun.codigo_suptipo else '00' end AS C6,--suptipo de pensionado
' ' AS C7,
' ' AS C8,
RPAD(nvl(tab2.coddepto,' '),2,' ') AS C9,
RPAD(nvl(substr(tab3.codmun_text,3),' '),3,' ') AS C10,
RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11,
RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11a,
RPAD(nvl(tab4.segundo_apellido,' '),30,' ') AS C12,
RPAD(nvl(tab4.primer_nombre,' '),20,' ') AS C13,
RPAD(nvl(tab4.segundo_nombre,' '),30,' ') AS C14,
case when tab5.fecha_ingreso
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then ' ' else ' ' end AS C15,
case when tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then ' ' else ' ' end AS C16,
' ' AS C17,
' ' AS C18,
' ' AS C19,
' ' AS C20,
--No La novedad SLN no debe de combinarse con otro tipo de novedad  - 20161122
case when ascenso.cantidad>0 then ' ' else ' 'end AS C21,
'A' AS C22,
case when encargo.cantidad>0 then ' ' else ' 'end AS C23,
case when kardex1.cantidad>0 and ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then 'X' when kardex1.cantidad>0 and  nvl(max_marca,0) = 1 and nvl(max_marca_susinc,0) = 0 then 'C' else ' ' end AS C24,
case when kardex2.cantidad>0 then ' ' else ' 'end AS C25,--inc temp enfermedad
case when kardex3.cantidad>0 then ' ' else ' 'end AS C26,--lic maternidad
case when vaca.cantidad>0 then 'X' when kardexlr.cantidad>0 then 'L' else ' 'end AS C27,
' ' AS C28,
' ' AS C29,
--LPAD(to_char(nvl(kardex4.cantidad,0)),2,0) AS C30,--inc por accidente de trabajo
LPAD('0',2,'0') AS C30,
rpad(nvl(pension.codigo,' '),6,' ') as c31,
rPAD(' ',6,' ') AS C32,
rPAD(nvl(salud.codigo,' '),6,' ') AS C33,
rpad(' ',6,' ') as c34,
rPAD(nvl(ccf.codigo,' '),6,' ') AS C35,
lpad( nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) ,2,0) as c36,
lpad( nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) ,2,0) as c37,
lpad( nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) ,2,0) AS C38, 
--39 dias parafiscales
lpad( nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) ,2,0) AS C39,
LPAD(nvl(tab6.asignacion_basica,0),9,0) AS C40,
' ' AS C41,
-- Se validan los dias de retiro del funionario - 20141007
LPAD(  case 
    when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 and (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) then ceil( ( (nvl(sm.valor_mensual,0)*25)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1
    when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 then ceil( ( (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 else ceil( ( nvl(pension1.ibc,0)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) ) ) end ,9,0) AS C42,
LPAD(  case 
    when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 and (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) then ceil( ( (nvl(sm.valor_mensual,0)*25)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1
    when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 then ceil( ( (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 else ceil( ( nvl(salud1.ibc,0)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) ) ) end ,9,0) AS C43,

LPAD( case 
    when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 and (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) then ceil( ( (nvl(sm.valor_mensual,0)*25)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1
    when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 then ceil( ( (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 else ceil( ( nvl(salud1.ibc,0)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) ) ) end ,9,0) AS C44,
        
LPAD(  case 
    when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 and nvl(ccf1.ibc,0) = 0 
        then ceil( ( (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 
    when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0
    then ceil( ( nvl(ccf1.ibc,0)/ccf1.dias*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 
    else ceil( ( nvl(ccf1.ibc,0)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) ) ) end ,9,0) AS C45,


-- Se debe calcular a partir de octubre la tarifa del patrono - 20131028
-- No debe llevar registro de pension - 20140729
-- Se coloca que para CYC, si debe llevar registro de pension - 20170127
--rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) as c46,
--rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0) as C46,
--case when 4 in (4) then (rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0)) else rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) end as C46,
rpad( case when nvl(pension2.tarifa,0) = 0 then '0.0' when nvl(pension2.tarifa,0) < 1 then '0' else '' end || + nvl(pension2.tarifa,0) ,7,0) as C46,
--lPAD(nvl(null,0) + nvl(null,0),9,0) AS C47,
--lpad( round( round( nvl(tab6.asignacion_basica,0)/30*(30-nvl(pension2.dias-nvl(kardex4.cantidad,0),0))  ,-3) * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,-2) ,9,0) as c47,
lPAD( ceil( (ceil( ( ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                        then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                        )/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(pension2.tarifa,0)/100)*100 ,9,0) as c47,
lPAD(0,9,0) AS C48,
lpad(0,9,0) as c49,

lPAD( ceil((  ceil( ( ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                        then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                        )/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(pension2.tarifa,0)/100)*100 ,9,0) as C50,
lPAD( ceil((( ceil( ( ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                        then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                        )/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(0.005,0)) /100)*100  *(case when nvl(pension3.aporte_fsp,0) != 0 then 1 else 0 end) ,9,0) as c51,
lpad( ceil((((ceil( ( ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                        then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                        )/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(pension3.tarifa,0)) - ((ceil( ( ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                                                                                                                                            then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                                                                                                                                            )/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(0.005,0)) )/100)*100 *(case when nvl(pension3.aporte_fsp,0) != 0 then 1 else 0 end) ,9,0) as c52,

rpad(0,9,0) as c53,
--rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) ,7,0) as c54,
rpad( case when nvl(salud1.tarifa,0) = 0 then '0.0' when nvl(salud1.tarifa,0) < 1 then '0' else '' end || + nvl(salud1.tarifa,0) ,7,0) as c54,
--lpad( round( round( nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) )  ,-3) * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) ,-2) ,9,0) as c55,
lPAD( ceil( (ceil( (  ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                        then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                        ) /30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(salud1.tarifa,0)/100)*100 ,9,0) as c55,
lpad( case when '01' = '40' then 0 else 0 end ,9,0) as c56,
rpad(' ',15,' ') as c57,
rpad(0,9,0) as C58,
rpad(' ',15,' ') as C59,
rpad(0,9,0) as c60,
--rpad( case when nvl(riesgo1.tarifa,0) = 0 then '0.0' when nvl(riesgo1.tarifa,0) < 1 then '0' else '' end || + nvl(riesgo1.tarifa,0) ,9,0) as C61,
rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,9,0) as C61,
lpad(nvl(riesgo.centro_trabajo,0),9,0) as C62,
lpad( nvl(0,0) ,9,0) as c63,
--lpad( ceil( ( nvl(riesgo1.aporte_patrono,0)/30*(vaca.num_dias_vac) )/100)*100 ,9,0) as c63,

rpad( case when nvl(ccf1.tarifa,0) = 0 then '0.0' when nvl(ccf1.tarifa,0) < 1 then '0' else '' end || + nvl(ccf1.tarifa,0) ,7,0) AS C64,
--lpad( nvl(ccf1.aporte_patrono,0) ,9,0) as c65,
lpad( ceil( ( ceil( ( nvl(ccf1.ibc,0)/(case when ccf1.dias != 0 then ccf1.dias else 1 end)*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 )*nvl(ccf1.tarifa,0)/100)*100 ,9,0) as c65,
rpad( case when nvl(sena1.tarifa,0) = 0 then '0.0' when nvl(sena1.tarifa,0) < 1 then '0' else '' end || + nvl(sena1.tarifa,0) ,7,0) as C66,
--lpad( nvl(sena1.aporte_patrono,0) ,9,0) as c67,
lpad( ceil( ( ceil( ( nvl(sena1.ibc,0)/(case when ccf1.dias != 0 then ccf1.dias else 1 end)*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 )*nvl(sena1.tarifa,0)/100)*100 ,9,0) as c67,
rpad( case when nvl(icbf1.tarifa,0) = 0 then '0.0' when nvl(icbf1.tarifa,0) < 1 then '0' else '' end || + nvl(icbf1.tarifa,0) ,7,0) as C68,
--lpad( nvl(icbf1.aporte_patrono,0) ,9,0) as c69,
lpad( ceil( ( ceil( ( nvl(icbf1.ibc,0)/(case when ccf1.dias != 0 then ccf1.dias else 1 end)*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 )*nvl(icbf1.tarifa,0)/100)*100 ,9,0) as c69,
rpad( case when nvl(esap1.tarifa,0) = 0 then '0.0' when nvl(esap1.tarifa,0) < 1 then '0' else '' end || + nvl(esap1.tarifa,0) ,7,0) as C70,
--lpad( nvl(esap1.aporte_patrono,0) ,9,0) as c71,
lpad( ceil( ( ceil( ( nvl(esap1.ibc,0)/(case when ccf1.dias != 0 then ccf1.dias else 1 end)*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 )*nvl(esap1.tarifa,0)/100)*100 ,9,0) as c71,
rpad( case when nvl(men1.tarifa,0) = 0 then '0.0' when nvl(men1.tarifa,0) < 1 then '0' else '' end || + nvl(men1.tarifa,0) ,7,0) as C72,
--lpad( nvl(men1.aporte_patrono,0) ,9,0) as c73,
lpad( ceil( ( ceil( ( nvl(men1.ibc,0)/(case when ccf1.dias != 0 then ccf1.dias else 1 end)*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 )*nvl(men1.tarifa,0)/100)*100 ,9,0) as c73,

'  ' AS C74,
RPAD(to_char(' '),16,' ') AS C75,
RPAD(to_char('N'),1,' ') AS C76,
RPAD(riesgo.codigo,6,' ') AS C77,
nvl(RPAD( nvl(riesgo1.no_riesgo,riesgo.riesgo),1,' '),' ') AS C78,
RPAD(to_char(' '),1,' ') AS C79,

RPAD(to_char(' '),10,' ') AS C80,--ING
RPAD(to_char(' '),10,' ') AS C81,--RET
RPAD(to_char(' '),10,' ') AS C82,--VSP

case when kardex1.fecha_ini
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(kardex1.fecha_ini,'yyyy-mm-dd')
else RPAD(to_char(' '),10,' ') end AS C83,--SLN

case when kardex1.fecha_fin
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(kardex1.fecha_fin,'yyyy-mm-dd')
else RPAD(to_char(' '),10,' ') end AS C84,--SLN

RPAD(to_char(' '),10,' ') AS C85,--IGE
RPAD(to_char(' '),10,' ') AS C86,--IGE
RPAD(to_char(' '),10,' ') AS C87,--LMA
RPAD(to_char(' '),10,' ') AS C88,--LMA

case when vaca.fecha_ini
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(vaca.fecha_ini,'yyyy-mm-dd')
  when kardexlr.fecha_ini
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then RPAD(to_char(' '),10,' ') --to_char(kardexlr.fecha_ini,'yyyy-mm-dd')
  else RPAD(to_char(' '),10,' ') end AS C89,--VAC-LR
case when vaca.fecha_fin
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(vaca.fecha_fin,'yyyy-mm-dd')
  when kardexlr.fecha_fin
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then RPAD(to_char(' '),10,' ') --to_char(kardexlr.fecha_fin,'yyyy-mm-dd')
  else RPAD(to_char(' '),10,' ') end AS C90,--VAC-LR

RPAD(to_char(' '),10,' ') AS C91,--VCT
RPAD(to_char(' '),10,' ') AS C92,--VCT
RPAD(to_char(' '),10,' ') AS C93,--IRL
RPAD(to_char(' '),10,' ') AS C94,--IRL
LPAD(  case 
    when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 and nvl(ccf1.ibc,0) = 0 
        then ceil( ( (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 
    when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 then ceil( ( nvl(icbf1.ibc,0)/ccf1.dias*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 else ceil( ( nvl(icbf1.ibc,0)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) ) ) end ,9,0) as C95,--IBC parafiscales
LPAD(  case when nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0)  < 300 then  nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0) else 300 end  ,3,0) AS C96,--HORAS EXTRAS
RPAD(to_char(' '),10,' ') AS C97,--Rad exterior
case when tab0.id_anhos || lpad(tab0.id_meses, 2, '0') >= 202211 then RPAD(to_char(riesgo.cod_riesgo|| riesgo.cod_ciiu || riesgo.cod_ncp),7,' ') else '' end AS C98

from no_estado_func_v tab0

/*Validacion de smdlv para el tope de IBC de 25 maximo - 20190507*/
left join no_smdlv sm
on sm.vigencia = tab0.id_anhos

left join tipo_documento tdoc
on tdoc.id_tipo_doc = tab0.id_tipo_doc

left join centro_operacion tab1 ON tab1.id_cen_op = tab0.id_cen_op
left join departamento tab2 ON tab2.id_depto = tab1.id_depto
left join municipios tab3 ON tab3.codmun = tab1.codmun
left join no_datos_funcionario_v tab4 ON tab4.id_tipo_doc = tab0.id_tipo_doc and tab4.num_doc = tab0.num_doc

left join (
    select pen.*, sub.descripcion as suptipo_cotizante, sub.codigo as codigo_suptipo
    from no_pension_func pen
    left join no_suptipo_cotizante_v sub
    on pen.id_suptipo_cotizante = sub.id_suptipo_cotizante
    where
    pen.estado = 1
)penfun
on penfun.id_tipo_doc = tab0.id_tipo_doc 
and penfun.num_doc = tab0.num_doc

--left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
left join (
  SELECT
  case when aut.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then (30 - to_char(aut.fecha_termina,'dd') ) else 0 end as dias_retiro,
   aut.*,
   ROW_NUMBER() OVER (
    partition by aut.num_doc
    ORDER BY aut.estado DESC, aut.fecha_ingreso DESC
   ) AS rn
  from no_nombramiento aut
  
  left join no_periodo_v per
  on per.id_periodo = aut.id_periodo
  
  where 
  per.anho_mes <= ( SELECT anho_mes FROM no_periodo_v where id_periodo = $id_periodo )
)tab5
on tab5.id_tipo_doc = tab0.id_tipo_doc 
and tab5.num_doc = tab0.num_doc
and tab5.rn = 1

--left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp
/*
Se cambia para tomar valor de concepto_periodo para el concepto_nomina 1001 del periodo de tipo mensual o nomina adicional - 20130827
*/
left join(
    
    select * from(
            select 
            concep.id_tipo_doc,
            concep.num_doc,
            concep.valor as asignacion_basica ,
            
             ROW_NUMBER() OVER (
              PARTITION BY concep.num_doc
              order by per.id_tipo_periodo asc, concep.fecha_hasta desc
             ) as rn
           
            from no_concepto_periodo concep
  
            join no_periodo per
            on concep.PERIODO = per.id_periodo
            
            where 
            concep.id_concep_nomina = (select id_concep_basica from no_param_concep) 
            
            and (per.id_tipo_periodo = 1 or per.id_tipo_periodo = 2)
            and (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = concep.PERIODO) = (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) 
    )where rn = 1
    
)tab6 ON tab6.id_tipo_doc = tab0.id_tipo_doc and tab6.num_doc = tab0.num_doc
and tab6.rn = 1

/*Valores de ibc de vacaciones, sin AsigBasica - 20170705*/
left join(

    select 
    concep.num_doc,
    concep.id_tipo_doc,
    sum(nvl(concep.valor,0)) as valor 
     
    from no_concepto_func concep
    where 
    /*concep.num_doc = 39531961 
    and concep.id_tipo_doc = 1 
    and */
    concep.id_concep_nomina in ( (select ID_CONCEP_NOMINA from no_agrup_deta where ID_AGRUP_CONCEPTO = 39) ) 
    and concep.id_concep_nomina not in ( (select id_concep_basica from no_param_concep) ) 
    and concep.estado = 1 and concep.actual = 1 
    
    group by
    concep.num_doc,
    concep.id_tipo_doc
    
)tab66 ON tab66.id_tipo_doc = tab0.id_tipo_doc and tab66.num_doc = tab0.num_doc

left join
(
  /* se cambia filtro por estado activo y id_tipo_novedad = 1 - 20150422 */
  select 
  tab0.num_doc,count(tab0.id_novedad_personal) as cantidad
  from no_novedad_personal tab0
  left join no_novedades nov on tab0.id_novedad = nov.id_novedad
  where 
  tab0.estado = 1 and nov.id_tipo_novedad = 1
  and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
  group by tab0.num_doc
) ascenso ON ascenso.num_doc = tab0.num_doc

left join
(
    select num_doc, sum(cantidad) AS CANTIDAD
    from(
    
        select tab0.num_doc,count(tab0.id_novedad_personal) AS CANTIDAD
        from no_novedad_personal tab0
        where tab0.id_novedad IN ( 3, 7 )  
        and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        group by tab0.num_doc
        
        union 
        
        select tab0.num_doc,count(tab0.id_bonifica_servicios) AS CANTIDAD
        from no_bonifica_servicios tab0
        where tab0.estado=1 and tab0.fecha_bonifica between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        group by tab0.num_doc
        
        union 
        
        select tab0.num_doc,count(tab0.id_hr_extra) AS CANTIDAD
        from no_hr_extra tab0
        left join no_lote_hr_extra tab1 ON tab1.id_lote_hr_extra = tab0.id_lote_hr_extra
        where tab1.estado=0 and tab1.id_periodo = $id_periodo
        group by tab0.num_doc
    
    )GROUP BY num_doc

) encargo ON encargo.num_doc = tab0.num_doc

left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD, max(tab1.suspension) as max_marca,
    max(fecha_ini) as fecha_ini2, 
    case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
    max(fecha_fin) as fecha_fin2,
    case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.afecta_antigu = 1 and tab0.estado = 1 
     /*   
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo = $id_periodo
    )*/
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    and (
      to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
      or
      trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
      or 
      tab0.id_periodo = $id_periodo
    )
    group by tab0.num_doc
)kardex1 ON kardex1.num_doc = tab0.num_doc

left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    /*
    Se cambia id_tip_nov_ka = 2 por 1 INCI
    Se deja quemado id 9 para novedad por ajuste de conceptos de reintegro ANM - 20140522
    Se cambia por id en tabla no_param_concep - 20140916
    */
    where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_enfcom from no_param_concep),9) and tab0.estado = 1
    
    and tab0.estado = 1 and tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
    group by tab0.num_doc
)kardex2 ON kardex2.num_doc = tab0.num_doc

left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    
    /*
    Se cambia id_tip_nov_ka = 3 por 2 INCI
    Se cambia por id en tabla no_param_concep - 20140916
    */
    where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_licmat from no_param_concep)) and tab0.estado = 1 
    
    and tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
    group by tab0.num_doc
)kardex3 ON kardex3.num_doc = tab0.num_doc

/*
Se cambia de id-4 por atributo en  la tabla no_tip_nov_ka de afecta_riesgo, para validar cuales afectan en los dias de ARP-ARL - 20130919
*/
left join
(
    select tab0.num_doc, sum(tab0.num_dias) CANTIDAD
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.afecta_riesgo = 1 and tab0.estado = 1 and tab0.fecha_inc between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
    group by tab0.num_doc
)kardex4 ON kardex4.num_doc = tab0.num_doc

/*
Incapacidad -> Suspensión por Incapacidad  - 20150312
*/
left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) as max_marca_susinc
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.afecta_antigu = 1 and tab0.estado = 1 
    and tab0.id_tip_nov_ka = (select no_param_concep.id_nov_ka_susinc from no_param_concep where no_param_concep.id_param_concep = 1)
     /*   
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo = $id_periodo
    )*/
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    and (
      to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
      or
      trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
      or 
      tab0.id_periodo = $id_periodo
    )
    group by tab0.num_doc
)kardex5 ON kardex5.num_doc = tab0.num_doc

/*Licencia remunerada id-10 -- 20170222*/
/*Licencia remunerada descuenta dias para calculo -- 20190414*/
/*Licencia remunerada descuenta todos los días de meses anteriores - 20190905*/
/*Se omite  desde ahora ya que es fila solo de vacacioes -20210202*/ 
left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) as CANTIDAD,  
    min(tab0.fecha_ini) as fecha_ini2, 
    case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
    max(tab0.fecha_fin) as fecha_fin2,
    case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin,
        
    nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novlicrem_ant,
    nvl(sum( fecha_rango_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin ) ),0) as num_dias_novlicrem
    
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where 
    1 = 0
    and tab1.id_tip_nov_ka in (select id_tip_nov_ka from no_tip_nov_ka where tiempo_remunerado = 1) and tab0.estado = 1 
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo = $id_periodo
    )
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    
    group by tab0.num_doc
)kardexlr ON kardexlr.num_doc = tab0.num_doc

/*
Se coloca, tab0.id_periodo en la agrupacion, para tener encuenta todas las novedades - 20161104
*/
left join
(
   select 
   
   max((SELECT
   max(perd.id_periodo)
   FROM no_periodo perd where perd.id_tipo_periodo = 1 and perd.fecha_fin < tab.fecha_ini)) as periodo_ant,

   tab.id_tipo_doc,                  
   tab.num_doc,
    case when max(nvl(dialiq.dias_vac,0)) != 0 then  max(dialiq.dias_vac) else sum( nvl(tab.CANTIDAD_vaciones,0) ) end as CANTIDAD,
    case when max(nvl(dialiq.dias_vac,0)) != 0 then  max(dialiq.dias_vac) else sum(tab.dias_vaciones) end as num_dias_vac_ant,
    case when max(nvl(dialiq.dias_vac,0)) != 0 then  max(dialiq.dias_vac) else sum(tab.dias_vaciones) - sum(tab.dias_feb) end as num_dias_vac,
   sum(tab.dias_feb) as dias_feb,
   max(tab.fecha_ini) as fecha_ini2, 
   case when max(tab.fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(tab.fecha_ini) end as fecha_ini,
   max(tab.fecha_fin) as fecha_fin2,
   case when max(tab.fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(tab.fecha_fin) end as fecha_fin

   from( 

       select 
       
       case  when tipnov.operador  = 1 
                 then nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) 
                 else nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) * (-1)
                 end as dias_vaciones,
       --Para el mes de febrero se restan dias 2 o 1 segun año, ya que estos dias se pagan como laborados - 20170314                 
       (case 
          when (select id_meses from no_periodo where id_periodo = $id_periodo) = 2 and max(tab0.fecha_ini) < (select fecha_fin from no_periodo where id_periodo = $id_periodo) and max(tab0.fecha_fin) > (select fecha_fin from no_periodo where id_periodo = $id_periodo) 
          then case when to_number((select to_char(fecha_fin,'dd') from no_periodo where id_periodo = $id_periodo)) = 28 then 2 else 1 end
          else 0 end) * (case  when tipnov.operador  = 1 then 1 else (-1) end) as dias_feb,                 
                 
       max(tab0.fecha_ini) as fecha_ini, max(tab0.fecha_fin) as fecha_fin,
       tab0.id_tipo_doc, tab0.num_doc, count(tab0.id_novedad_vac) CANTIDAD,
        tipnov.operador,

        case  when tipnov.operador  = 1 
        /*then 1
        else (-1)*/
        then tab0.num_dias_vac
        else (-1 * tab0.num_dias_vac)
        --else nvl(sum( tab0.fecha_fin - tab0.fecha_ini + 1),0) * (-1)
        end as CANTIDAD_vaciones

       from no_novedad_vac tab0
       left join NO_TIPO_NOV_VAC TIPNOV on TIPNOV.ID_TIPO_NOV_VAC = tab0.ID_TIPO_NOV_VAC
       
       where 
       --tipnov.ID_TIPO_NOV_VAC = 1 and
       tipnov.tiempo_liqui = 1 and
       (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) and
       
      /*
       tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
       and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
       */
       /*Marca de vacaciones para todo el tiempo de duracion - 20130917*/
      ( 
          tab0.fecha_ini  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          or
          tab0.fecha_fin  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        or
          to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
          or
          trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
        )
        /* Valida que no sea un dia 31, ya que no se cuenta para liquidacion, que posea dias de vac en el periodo liquidado - 20141031 */        
        --and to_char(tab0.fecha_ini,'dd') != 31
        and DIAS_RANGO_MES_SIN_TREINTAYUNO(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo = $id_periodo)) > 0
        
        group by tab0.id_tipo_doc, tab0.num_doc,
       tipnov.operador, tab0.num_dias_vac, tab0.id_periodo

   )tab
   
    left join no_dias_mes_liquidacion dialiq
    on dialiq.id_tipo_doc = tab.id_tipo_doc
    and dialiq.num_doc = tab.num_doc
    and dialiq.id_concep_nomina = 0
    and dialiq.id_periodo = $id_periodo

   group by tab.id_tipo_doc, tab.num_doc
)vaca ON vaca.num_doc = tab0.num_doc


LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
    where afilia.id_clase_fondo = 1 
    /*
    and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
    between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
    */--and afilia.estado = 1
   
    AND ( codigo.tipo != 'EPS' or codigo.tipo != 'CCF' )
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'       
)pension ON pension.num_doc = tab0.num_doc

LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo ON codigo.nitocc = fondo.num_doc
    where afilia.id_clase_fondo = 2 
    /*
    and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
    between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
    --and afilia.estado = 1
    */
    AND codigo.tipo = 'EPS'
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'       
)salud ON salud.num_doc = tab0.num_doc

LEFT JOIN 
(
    select distinct 
    CODFON.CODIGO,
    afilia.num_doc, afilia.centro_trabajo as id_centro_trabajo, centra.codigo as centro_trabajo, apo.no_riesgo, centra.cod_ciiu, centra.cod_ncp, apo.no_riesgo as cod_riesgo,
    afilia.fecha_ingreso,
    afilia.riesgo,
   ROW_NUMBER() OVER (
    partition by afilia.num_doc
    ORDER BY afilia.estado DESC, afilia.fecha_ingreso DESC,afilia.id_afilia_fondo DESC
   ) AS rn
   
    from no_afilia_fondo afilia
    
    left join no_tipo_aporte apo
    on apo.id_tipo_aporte = afilia.id_tipo_aporte
    
    left join no_centro_trabajo centra
    on centra.id_centro_trabajo = afilia.centro_trabajo
    
    left join no_mae_fondos maefon
    on MAEFON.ID_MAE_FONDOS = afilia.ID_MAE_FONDOS
    
    left join no_cod_fondo codfon
    on maefon.num_doc = codfon.nitocc
    
    where afilia.id_clase_fondo = 3 --and afilia.estado = 1
    and to_char(afilia.fecha_ingreso,'yyyymm') <= ( select anho_mes from no_periodo_v where id_periodo = $id_periodo )
)riesgo ON riesgo.num_doc = tab0.num_doc
and riesgo.rn = 1

LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
    where afilia.id_clase_fondo = 4 
    --and afilia.estado = 1 
    AND codigo.tipo = 'CCF'
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'       
)ccf ON ccf.num_doc = tab0.num_doc


left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1
    and tab0.tipo_planilla = 'A'       
    group by tab0.num_doc
)pension1 ON pension1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.tarifa/100) as TARIFA--, tab0.aporte_func AS APORTE
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1  and tab0.porcentaje_patrono > 0 -- and  ( tab0.tarifa = 16 or tab0.tarifa = 26 )
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)pension2 ON pension2.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, sum(tab0.valor_base_fsp) as aporte_fsp, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1 and tab0.porcentaje_patrono = 0
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)pension3 ON pension3.num_doc = tab0.num_doc

/* Tomar aporte_patrono_licnorem de la tabla de aportes - 20150730*/
left join 
(
    select 

    tab0.num_doc, 
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_func) else 0 end as aporte, 
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.num_dias) else 0 end as dias,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.tarifa)/100 else 0 end as tarifa,
    sum(tab0.aporte_patrono) as aporte_patrono_a, 
    sum(tab1.aporte_patrono) as aporte_patrono_c

    from no_liquida_aporte tab0

    left join no_liquida_aporte tab1
    on tab1.id_periodo = tab0.id_periodo
    and tab1.id_tipo_doc = tab0.id_tipo_doc
    and tab1.num_doc = tab0.num_doc
    and tab1.id_mae_fondos = tab0.id_mae_fondos
    and tab1.id_concep_nomina = tab0.id_concep_nomina
    and tab1.id_clase_fondo = 2
    and tab1.tipo_planilla = 'C'

    where tab0.id_periodo = $id_periodo 
    and tab0.id_clase_fondo = 2
    and tab0.tipo_planilla = 'A' 

    group by tab0.num_doc
)salud1 ON salud1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/,
    min(tipapo.no_riesgo) as no_riesgo
    
    from no_liquida_aporte tab0
    
    left join no_tipo_aporte tipapo
    on tipapo.id_tipo_aporte = tab0.id_tipo_aporte
    
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 3
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)riesgo1 ON riesgo1.num_doc = tab0.num_doc

left join 
(
      select 
      
      tab0.num_doc, 
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_func) else 0 end as aporte, 
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.num_dias) else max(tab0.num_dias) end as dias,
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.tarifa)/100 else 0 end as tarifa,
      sum(tab0.aporte_patrono) as aporte_patrono_a, 
      sum(tab1.aporte_patrono) as aporte_patrono_c
      
      from no_liquida_aporte tab0
      
      left join no_liquida_aporte tab1
      on tab1.id_periodo = tab0.id_periodo
      and tab1.id_tipo_doc = tab0.id_tipo_doc
      and tab1.num_doc = tab0.num_doc
      and tab1.id_mae_fondos = tab0.id_mae_fondos
      and tab1.id_concep_nomina = tab0.id_concep_nomina
      and tab1.id_clase_fondo = 4
      and tab1.tipo_planilla = 'C'
      
      where tab0.id_periodo = $id_periodo 
      and tab0.id_clase_fondo = 4
      and tab0.tipo_planilla = 'A' 
      
      group by tab0.num_doc
)ccf1 ON ccf1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 5
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)icbf1 ON icbf1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 6
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)sena1 ON sena1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 7
    and tab0.tipo_planilla = 'A'       
    group by tab0.num_doc
)esap1 ON esap1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 8
    and tab0.tipo_planilla = 'A'       
    group by tab0.num_doc
)men1 ON men1.num_doc = tab0.num_doc

left join 
(
    select
    id_periodo, num_doc,
    --id_concep_nomina,
    sum(cantidad) as cantidad
    from (
        select
        lotehr.total_horas,
        lotehr.id_periodo,
        hrext.id_tipo_doc,
        hrext.num_doc,
        hrext.cantidad,
        tiphr.id_concep_nomina

        from no_lote_hr_extra lotehr

        left join no_hr_extra hrext
        on lotehr.id_lote_hr_extra = hrext.id_lote_hr_extra

        left join no_tipo_hr_extra tiphr
        on tiphr.id_tipo_hr_extra = hrext.id_tipo_hr_extra

        where lotehr.id_periodo = $id_periodo
        and lotehr.estado = 0
    )

    group by
    id_periodo, num_doc--, id_concep_nomina
)hrextra
ON hrextra.num_doc = tab0.num_doc

/*Obtener IBC del anterior mes de las vacaciones - 20191220*/
left join(

    SELECT
    id_periodo,
    id_tipo_doc,
    num_doc,
    sum(valor_base) as valor_base
    FROM no_liquida_aporte
    where
    id_periodo < $id_periodo
    --and id_tipo_doc = 1
    --and num_doc = 98565401
    and id_clase_fondo = 2
    and tipo_planilla = 'A' 
    
    group by
    id_periodo,
    id_tipo_doc,
    num_doc

)liqapor
on liqapor.id_periodo = vaca.periodo_ant
and liqapor.id_tipo_doc = tab0.id_tipo_doc
and liqapor.num_doc = tab0.num_doc


WHERE tab0.periodo = $id_periodo 
and (tab0.actual = 1 or
  ( tab0.actual = 0 
    /*
    Se cambia fecha de termina(ultimo dia de trabajo) por fecha de retiro, 
    para tener encuenta si trabajo en el periodo al menos 1 dia - 20130828                    
    */
    and tab5.fecha_retiro != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))
  )
)
and  ( vaca.cantidad>0 )
and ( nvl(ccf1.dias,0) + nvl(salud1.dias,0) ) > 0

/* Omitir terceros que no tiene cambios en CCF - 20231002::LAVILA*/
and tab0.num_doc not in (

    select 
    tab.num_doc
    from (
        
            select  
            total.num_doc,
            count(total.tipo_planilla) as cant, 
            sum(total.aporte_ibc) as total1, 
            sum(total.IBC) as total2, 
            sum(total.IBC_a) as total_a, 
            sum(total.IBC_c) as total_c, 
            sum(total.IBC_c) - sum(total.IBC_a) as total,
            case when (sum(total.IBC_c) - sum(total.IBC_a) > 0) then sum(total.IBC_c) else 0 end as total_neg,
            sum(total.IBC_c) + sum(total.IBC_a) as total_sum 
            
            from (
                    select tab0.tipo_planilla,
                    tab0.num_doc, sum(nvl(tab0.valor_base,0)) as aporte_IBC, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, 
                    MAX(nvl(tab0.valor_base,0)) AS IBC,
                    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/, 
                  case when tab0.tipo_planilla = 'A' and max(tab0.num_dias) != 0 then max(nvl(tab0.valor_base,0)) else 0 end as ibc_a, 
                  case when tab0.tipo_planilla = 'C' and max(tab0.num_dias) != 0 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC_c
                    from no_liquida_aporte tab0
                    --se filtra id4-CAJA DE COMPENSACION FAMILIAR en vez de id5 - 20130802
                    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 4
                    
                    group by tab0.tipo_planilla,tab0.num_doc
                    
             )total  
             group by
            total.num_doc    
       
    )tab   
    where
    tab.total_neg <= 0
    and tab.total <= 0
    and tab.total_a > 0
    and tab.total_c > 0
    
)


union

        /*
        * Funcionarios con novedades de vacaciones o LR - 20170728, tipo C
        * Se cambia campo C45 para que tome los dias de la autoliquidacion y no base 30-ccf1.dias, se agrega tambien a los calculos de parafiscales - 20190703
        * Se cambia solo VACACIONES - 20210202::LAVILA
        * Campo C45,C95 si no tiene IBC toma lo mismo que el C42 - 20210622::LAVILA
        * Incidente #39277, Campo C46 y C54 complete tarifa segun corresponda a la liquidacion de aportes - 20250122::LAVILA
        */
        select 
        penfun.id_pension_func,
        3 as c00,--order de mensual luego licencia
        0 as c0,
        '02' AS C1,
        LPAD(rownum,5,0) AS C2,
        lpad( (REPLACE(tdoc.abreviacion,'.','')), 2,' ') AS C3,
        RPAD(to_char(tab0.num_doc),16,' ') AS C4,
        rpad(to_char(tab0.num_doc),16,' ') as c4a,
        '01' AS C5,
        case when penfun.id_pension_func is not null then penfun.codigo_suptipo else '00' end AS C6,--suptipo de pensionado
        ' ' AS C7,
        ' ' AS C8,
        RPAD(nvl(tab2.coddepto,' '),2,' ') AS C9,
        RPAD(nvl(substr(tab3.codmun_text,3),' '),3,' ') AS C10,
        RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11,
        RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11a,
        RPAD(nvl(tab4.segundo_apellido,' '),30,' ') AS C12,
        RPAD(nvl(tab4.primer_nombre,' '),20,' ') AS C13,
        RPAD(nvl(tab4.segundo_nombre,' '),30,' ') AS C14,
        case when tab5.fecha_ingreso
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then ' ' else ' ' end AS C15,
        case when tab5.fecha_termina
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then ' ' else ' ' end AS C16,
        ' ' AS C17,
        ' ' AS C18,
        ' ' AS C19,
        ' ' AS C20,
        --No La novedad SLN no debe de combinarse con otro tipo de novedad  - 20161122
        case when ascenso.cantidad>0 then ' ' else ' 'end AS C21,
        'C' AS C22,
        case when encargo.cantidad>0 then ' ' else ' 'end AS C23,
        case when kardex1.cantidad>0 and ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then 'X' when kardex1.cantidad>0 and  nvl(max_marca,0) = 1 and nvl(max_marca_susinc,0) = 0 then 'C' else ' ' end AS C24,
        case when kardex2.cantidad>0 then ' ' else ' 'end AS C25,--inc temp enfermedad
        case when kardex3.cantidad>0 then ' ' else ' 'end AS C26,--lic maternidad
        case when vaca.cantidad>0 then 'X' when kardexlr.cantidad>0 then 'L' else ' 'end AS C27,
        ' ' AS C28,
        ' ' AS C29,
        --LPAD(to_char(nvl(kardex4.cantidad,0)),2,0) AS C30,--inc por accidente de trabajo
        LPAD('0',2,'0') AS C30,
        rpad(nvl(pension.codigo,' '),6,' ') as c31,
        rPAD(' ',6,' ') AS C32,
        rPAD(nvl(salud.codigo,' '),6,' ') AS C33,
        rpad(' ',6,' ') as c34,
        rPAD(nvl(ccf.codigo,' '),6,' ') AS C35,
        lpad( nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) ,2,0) as c36,
        lpad( nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) ,2,0) as c37,
        lpad( nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) ,2,0) AS C38, 
        --39 dias parafiscales
        lpad( nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) ,2,0) AS C39,
        LPAD(nvl(tab6.asignacion_basica,0),9,0) AS C40,
        ' ' AS C41,
        -- Se validan los dias de retiro del funionario - 20141007
        LPAD(  case 
            when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 and (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) then ceil( ( (nvl(sm.valor_mensual,0)*25)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1
            when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 then ceil( ( (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 else ceil( ( nvl(pension1.ibc,0)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) ) ) end ,9,0) AS C42,
        LPAD(  case 
            when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 and (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) then ceil( ( (nvl(sm.valor_mensual,0)*25)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1
            when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 then ceil( ( (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 else ceil( ( nvl(salud1.ibc,0)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) ) ) end ,9,0) AS C43,

        LPAD( case 
            when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 and (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) then ceil( ( (nvl(sm.valor_mensual,0)*25)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1
            when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 then ceil( ( (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 else ceil( ( nvl(salud1.ibc,0)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) ) ) end ,9,0) AS C44,

        LPAD(  case 
            when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 and nvl(ccf1.ibc,0) = 0 
                then ceil( ( (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 
            when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0
            then ceil( ( nvl(ccf1.ibc,0)/ccf1.dias*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 
            else ceil( ( nvl(ccf1.ibc,0)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) ) ) end ,9,0) AS C45,


        -- Se debe calcular a partir de octubre la tarifa del patrono - 20131028
        -- No debe llevar registro de pension - 20140729
        -- Se coloca que para CYC, si debe llevar registro de pension - 20170127
        --rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) as c46,
        --rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0) as C46,
        --case when 4 in (4) then (rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0)) else rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) end as C46,
        rpad( case when nvl(pension2.tarifa,0) = 0 then '0.0' when nvl(pension2.tarifa,0) < 1 then '0' else '' end || + nvl(pension2.tarifa,0) ,7,0) as C46,
        --lPAD(nvl(null,0) + nvl(null,0),9,0) AS C47,
        --lpad( round( round( nvl(tab6.asignacion_basica,0)/30*(30-nvl(pension2.dias-nvl(kardex4.cantidad,0),0))  ,-3) * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,-2) ,9,0) as c47,
        lPAD( ceil( (ceil( ( ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                                then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                                )/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(pension2.tarifa,0)/100)*100 ,9,0) as c47,
        lPAD(0,9,0) AS C48,
        lpad(0,9,0) as c49,

        lPAD( ceil((  ceil( ( ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                                then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                                )/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(pension2.tarifa,0)/100)*100 ,9,0) as C50,
        lPAD( ceil((( ceil( ( ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                                then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                                )/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(0.005,0)) /100)*100  *(case when nvl(pension3.aporte_fsp,0) != 0 then 1 else 0 end) ,9,0) as c51,
        lpad( ceil((((ceil( ( ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                                then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                                )/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(pension3.tarifa,0)) - ((ceil( ( ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                                                                                                                                                    then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                                                                                                                                                    )/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(0.005,0)) )/100)*100 *(case when nvl(pension3.aporte_fsp,0) != 0 then 1 else 0 end) ,9,0) as c52,

        rpad(0,9,0) as c53,
        --rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) ,7,0) as c54,
        rpad( case when nvl(salud1.tarifa,0) = 0 then '0.0' when nvl(salud1.tarifa,0) < 1 then '0' else '' end || + nvl(salud1.tarifa,0) ,7,0) as c54,
        --lpad( round( round( nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) )  ,-3) * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) ,-2) ,9,0) as c55,
        lPAD( ceil( (ceil( (  ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                                then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                                ) /30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(salud1.tarifa,0)/100)*100 ,9,0) as c55,
        lpad( case when '01' = '40' then 0 else 0 end ,9,0) as c56,
        rpad(' ',15,' ') as c57,
        rpad(0,9,0) as C58,
        rpad(' ',15,' ') as C59,
        rpad(0,9,0) as c60,
        --rpad( case when nvl(riesgo1.tarifa,0) = 0 then '0.0' when nvl(riesgo1.tarifa,0) < 1 then '0' else '' end || + nvl(riesgo1.tarifa,0) ,9,0) as C61,
        rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,9,0) as C61,
        lpad(nvl(riesgo.centro_trabajo,0),9,0) as C62,
        lpad( nvl(0,0) ,9,0) as c63,
        --lpad( ceil( ( nvl(riesgo1.aporte_patrono,0)/30*(vaca.num_dias_vac) )/100)*100 ,9,0) as c63,
        rpad( case when nvl(ccf1.tarifa,0) = 0 then '0.0' when nvl(ccf1.tarifa,0) < 1 then '0' else '' end || + nvl(ccf1.tarifa,0) ,7,0) AS C64,
        --lpad( nvl(ccf1.aporte_patrono,0) ,9,0) as c65,
        lpad( ceil( ( ceil( ( nvl(ccf1.ibc,0)/(case when ccf1.dias != 0 then ccf1.dias else 1 end)*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 )*nvl(ccf1.tarifa,0)/100)*100 ,9,0) as c65,
        rpad( case when nvl(sena1.tarifa,0) = 0 then '0.0' when nvl(sena1.tarifa,0) < 1 then '0' else '' end || + nvl(sena1.tarifa,0) ,7,0) as C66,
        --lpad( nvl(sena1.aporte_patrono,0) ,9,0) as c67,
        lpad( ceil( ( ceil( ( nvl(sena1.ibc,0)/(case when ccf1.dias != 0 then ccf1.dias else 1 end)*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 )*nvl(sena1.tarifa,0)/100)*100 ,9,0) as c67,
        rpad( case when nvl(icbf1.tarifa,0) = 0 then '0.0' when nvl(icbf1.tarifa,0) < 1 then '0' else '' end || + nvl(icbf1.tarifa,0) ,7,0) as C68,
        --lpad( nvl(icbf1.aporte_patrono,0) ,9,0) as c69,
        lpad( ceil( ( ceil( ( nvl(icbf1.ibc,0)/(case when ccf1.dias != 0 then ccf1.dias else 1 end)*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 )*nvl(icbf1.tarifa,0)/100)*100 ,9,0) as c69,
        rpad( case when nvl(esap1.tarifa,0) = 0 then '0.0' when nvl(esap1.tarifa,0) < 1 then '0' else '' end || + nvl(esap1.tarifa,0) ,7,0) as C70,
        --lpad( nvl(esap1.aporte_patrono,0) ,9,0) as c71,
        lpad( ceil( ( ceil( ( nvl(esap1.ibc,0)/(case when ccf1.dias != 0 then ccf1.dias else 1 end)*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 )*nvl(esap1.tarifa,0)/100)*100 ,9,0) as c71,
        rpad( case when nvl(men1.tarifa,0) = 0 then '0.0' when nvl(men1.tarifa,0) < 1 then '0' else '' end || + nvl(men1.tarifa,0) ,7,0) as C72,
        --lpad( nvl(men1.aporte_patrono,0) ,9,0) as c73,
        lpad( ceil( ( ceil( ( nvl(men1.ibc,0)/(case when ccf1.dias != 0 then ccf1.dias else 1 end)*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 )*nvl(men1.tarifa,0)/100)*100 ,9,0) as c73,
        '  ' AS C74,
        RPAD(to_char(' '),16,' ') AS C75,
        RPAD(to_char('N'),1,' ') AS C76,
        RPAD(riesgo.codigo,6,' ') AS C77,
        nvl(RPAD( nvl(riesgo1.no_riesgo,riesgo.riesgo),1,' '),' ') AS C78,
        RPAD(to_char(' '),1,' ') AS C79,

        RPAD(to_char(' '),10,' ') AS C80,--ING
        RPAD(to_char(' '),10,' ') AS C81,--RET
        RPAD(to_char(' '),10,' ') AS C82,--VSP

        case when kardex1.fecha_ini
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then to_char(kardex1.fecha_ini,'yyyy-mm-dd')
        else RPAD(to_char(' '),10,' ') end AS C83,--SLN

        case when kardex1.fecha_fin
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then to_char(kardex1.fecha_fin,'yyyy-mm-dd')
        else RPAD(to_char(' '),10,' ') end AS C84,--SLN

        RPAD(to_char(' '),10,' ') AS C85,--IGE
        RPAD(to_char(' '),10,' ') AS C86,--IGE
        RPAD(to_char(' '),10,' ') AS C87,--LMA
        RPAD(to_char(' '),10,' ') AS C88,--LMA

        case when vaca.fecha_ini
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then to_char(vaca.fecha_ini,'yyyy-mm-dd')
          when kardexlr.fecha_ini
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then RPAD(to_char(' '),10,' ') --to_char(kardexlr.fecha_ini,'yyyy-mm-dd')
          else RPAD(to_char(' '),10,' ') end AS C89,--VAC-LR
        case when vaca.fecha_fin
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then to_char(vaca.fecha_fin,'yyyy-mm-dd')
          when kardexlr.fecha_fin
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then RPAD(to_char(' '),10,' ') --to_char(kardexlr.fecha_fin,'yyyy-mm-dd')
          else RPAD(to_char(' '),10,' ') end AS C90,--VAC-LR

        RPAD(to_char(' '),10,' ') AS C91,--VCT
        RPAD(to_char(' '),10,' ') AS C92,--VCT
        RPAD(to_char(' '),10,' ') AS C93,--IRL
        RPAD(to_char(' '),10,' ') AS C94,--IRL
        LPAD(  case 
            when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 and nvl(ccf1.ibc,0) = 0 
                then ceil( ( (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 
            when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 then ceil( ( nvl(icbf1.ibc,0)/ccf1.dias*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 else ceil( ( nvl(icbf1.ibc,0)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) ) ) end ,9,0) as C95,--IBC parafiscales
        LPAD(  case when nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0)  < 300 then  nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0) else 300 end  ,3,0) AS C96,--HORAS EXTRAS
        RPAD(to_char(' '),10,' ') AS C97,--Rad exterior
        case when tab0.id_anhos || lpad(tab0.id_meses, 2, '0') >= 202211 then RPAD(to_char(riesgo.cod_riesgo|| riesgo.cod_ciiu || riesgo.cod_ncp),7,' ') else '' end AS C98

        from no_estado_func_v tab0

        /*Validacion de smdlv para el tope de IBC de 25 maximo - 20190507*/
        left join no_smdlv sm
        on sm.vigencia = tab0.id_anhos

        left join tipo_documento tdoc
        on tdoc.id_tipo_doc = tab0.id_tipo_doc

        left join centro_operacion tab1 ON tab1.id_cen_op = tab0.id_cen_op
        left join departamento tab2 ON tab2.id_depto = tab1.id_depto
        left join municipios tab3 ON tab3.codmun = tab1.codmun
        left join no_datos_funcionario_v tab4 ON tab4.id_tipo_doc = tab0.id_tipo_doc and tab4.num_doc = tab0.num_doc

        left join (
            select pen.*, sub.descripcion as suptipo_cotizante, sub.codigo as codigo_suptipo
            from no_pension_func pen
            left join no_suptipo_cotizante_v sub
            on pen.id_suptipo_cotizante = sub.id_suptipo_cotizante
            where
            pen.estado = 1
        )penfun
        on penfun.id_tipo_doc = tab0.id_tipo_doc 
        and penfun.num_doc = tab0.num_doc

        --left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
        left join (
          SELECT
          case when aut.fecha_termina
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then (30 - to_char(aut.fecha_termina,'dd') ) else 0 end as dias_retiro,
           aut.*,
           ROW_NUMBER() OVER (
            partition by aut.num_doc
            ORDER BY aut.estado DESC, aut.fecha_ingreso DESC
           ) AS rn
          from no_nombramiento aut
  
            left join no_periodo_v per
            on per.id_periodo = aut.id_periodo

            where 
            per.anho_mes <= ( SELECT anho_mes FROM no_periodo_v where id_periodo = $id_periodo )
        )tab5
        on tab5.id_tipo_doc = tab0.id_tipo_doc 
        and tab5.num_doc = tab0.num_doc
        and tab5.rn = 1

        --left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp
        /*
        Se cambia para tomar valor de concepto_periodo para el concepto_nomina 1001 del periodo de tipo retro - 20130827
        */
        left join(

            select * from(
                    select 
                    concep.id_tipo_doc,
                    concep.num_doc,
                    concep.valor as asignacion_basica ,

                     ROW_NUMBER() OVER (
                      PARTITION BY concep.num_doc
                      order by per.id_tipo_periodo asc, concep.fecha_hasta desc
                     ) as rn

                    from no_concepto_periodo concep

                    join no_periodo per
                    on concep.PERIODO = per.id_periodo

                    where 
                    concep.id_concep_nomina = (select id_concep_basica from no_param_concep) 

                    and (per.id_tipo_periodo = 6 or per.id_tipo_periodo = 7)
                    and (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = concep.id_periodo_ajuste) = (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) 
            )where rn = 1

        )tab6 ON tab6.id_tipo_doc = tab0.id_tipo_doc and tab6.num_doc = tab0.num_doc
        and tab6.rn = 1

        /*Valores de ibc de vacaciones, sin AsigBasica - 20170705*/
        left join(

            select 
            concep.num_doc,
            concep.id_tipo_doc,
            sum(nvl(concep.valor,0)) as valor 

            from no_concepto_func concep
            where 
            /*concep.num_doc = 39531961 
            and concep.id_tipo_doc = 1 
            and */
            concep.id_concep_nomina in ( (select ID_CONCEP_NOMINA from no_agrup_deta where ID_AGRUP_CONCEPTO = 39) ) 
            and concep.id_concep_nomina not in ( (select id_concep_basica from no_param_concep) ) 
            and concep.estado = 1 and concep.actual = 1 

            group by
            concep.num_doc,
            concep.id_tipo_doc

        )tab66 ON tab66.id_tipo_doc = tab0.id_tipo_doc and tab66.num_doc = tab0.num_doc

        left join
        (
          /* se cambia filtro por estado activo y id_tipo_novedad = 1 - 20150422 */
          select 
          tab0.num_doc,count(tab0.id_novedad_personal) as cantidad
          from no_novedad_personal tab0
          left join no_novedades nov on tab0.id_novedad = nov.id_novedad
          where 
          tab0.estado = 1 and nov.id_tipo_novedad = 1
          and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
          group by tab0.num_doc
        ) ascenso ON ascenso.num_doc = tab0.num_doc

        left join
        (
            select num_doc, sum(cantidad) AS CANTIDAD
            from(

                select tab0.num_doc,count(tab0.id_novedad_personal) AS CANTIDAD
                from no_novedad_personal tab0
                where tab0.id_novedad IN ( 3, 7 )  
                and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                group by tab0.num_doc

                union 

                select tab0.num_doc,count(tab0.id_bonifica_servicios) AS CANTIDAD
                from no_bonifica_servicios tab0
                where tab0.estado=1 and tab0.fecha_bonifica between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                group by tab0.num_doc

                union 

                select tab0.num_doc,count(tab0.id_hr_extra) AS CANTIDAD
                from no_hr_extra tab0
                left join no_lote_hr_extra tab1 ON tab1.id_lote_hr_extra = tab0.id_lote_hr_extra
                where tab1.estado=0 and tab1.id_periodo = $id_periodo
                group by tab0.num_doc

            )GROUP BY num_doc

        ) encargo ON encargo.num_doc = tab0.num_doc

        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD, max(tab1.suspension) as max_marca,
            max(fecha_ini) as fecha_ini2, 
            case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
            max(fecha_fin) as fecha_fin2,
            case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.afecta_antigu = 1 and tab0.estado = 1 
             /*   
            and (
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or 
              tab0.id_periodo = $id_periodo
            )*/
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
            and (
              to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
              or
              trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
              or 
              tab0.id_periodo = $id_periodo
            )
            group by tab0.num_doc
        )kardex1 ON kardex1.num_doc = tab0.num_doc

        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            /*
            Se cambia id_tip_nov_ka = 2 por 1 INCI
            Se deja quemado id 9 para novedad por ajuste de conceptos de reintegro ANM - 20140522
            Se cambia por id en tabla no_param_concep - 20140916
            */
            where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_enfcom from no_param_concep),9) and tab0.estado = 1

            and tab0.estado = 1 and tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
            group by tab0.num_doc
        )kardex2 ON kardex2.num_doc = tab0.num_doc

        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka

            /*
            Se cambia id_tip_nov_ka = 3 por 2 INCI
            Se cambia por id en tabla no_param_concep - 20140916
            */
            where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_licmat from no_param_concep)) and tab0.estado = 1 

            and tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
            group by tab0.num_doc
        )kardex3 ON kardex3.num_doc = tab0.num_doc

        /*
        Se cambia de id-4 por atributo en  la tabla no_tip_nov_ka de afecta_riesgo, para validar cuales afectan en los dias de ARP-ARL - 20130919
        */
        left join
        (
            select tab0.num_doc, sum(tab0.num_dias) CANTIDAD
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.afecta_riesgo = 1 and tab0.estado = 1 and tab0.fecha_inc between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
            group by tab0.num_doc
        )kardex4 ON kardex4.num_doc = tab0.num_doc

        /*
        Incapacidad -> Suspensión por Incapacidad  - 20150312
        */
        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) as max_marca_susinc
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.afecta_antigu = 1 and tab0.estado = 1 
            and tab0.id_tip_nov_ka = (select no_param_concep.id_nov_ka_susinc from no_param_concep where no_param_concep.id_param_concep = 1)
             /*   
            and (
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or 
              tab0.id_periodo = $id_periodo
            )*/
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
            and (
              to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
              or
              trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
              or 
              tab0.id_periodo = $id_periodo
            )
            group by tab0.num_doc
        )kardex5 ON kardex5.num_doc = tab0.num_doc

        /*Licencia remunerada id-10 -- 20170222*/
        /*Licencia remunerada descuenta dias para calculo -- 20190414*/
        /*Licencia remunerada descuenta todos los días de meses anteriores - 20190905*/
        /*Se omite  desde ahora ya que es fila solo de vacacioes -20210202*/ 
        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) as CANTIDAD,  
            min(tab0.fecha_ini) as fecha_ini2, 
            case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
            max(tab0.fecha_fin) as fecha_fin2,
            case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin,
            
            nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novlicrem_ant,
            nvl(sum( fecha_rango_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin ) ),0) as num_dias_novlicrem

            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where 
            1 = 0
            and tab1.id_tip_nov_ka in (select id_tip_nov_ka from no_tip_nov_ka where tiempo_remunerado = 1) and tab0.estado = 1 
            and (
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or 
              tab0.id_periodo = $id_periodo
            )
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)

            group by tab0.num_doc
        )kardexlr ON kardexlr.num_doc = tab0.num_doc

        /*
        Se coloca, tab0.id_periodo en la agrupacion, para tener encuenta todas las novedades - 20161104
        */
        left join
        (
            select 

            max((SELECT
            max(perd.id_periodo)
            FROM no_periodo perd where perd.id_tipo_periodo = 1 and perd.fecha_fin < tab.fecha_ini)) as periodo_ant,

            tab.id_tipo_doc,                  
            tab.num_doc,
            case when max(nvl(dialiq.dias_vac,0)) != 0 then  max(dialiq.dias_vac) else sum( nvl(tab.CANTIDAD_vaciones,0) ) end as CANTIDAD,
            case when max(nvl(dialiq.dias_vac,0)) != 0 then  max(dialiq.dias_vac) else sum(tab.dias_vaciones) end as num_dias_vac_ant,
            case when max(nvl(dialiq.dias_vac,0)) != 0 then  max(dialiq.dias_vac) else sum(tab.dias_vaciones) - sum(tab.dias_feb) end as num_dias_vac,
            sum(tab.dias_feb) as dias_feb,
            max(tab.fecha_ini) as fecha_ini2, 
            case when max(tab.fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(tab.fecha_ini) end as fecha_ini,
            max(tab.fecha_fin) as fecha_fin2,
            case when max(tab.fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(tab.fecha_fin) end as fecha_fin

            from( 

                select 

                case  when tipnov.operador  = 1 
                          then nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) 
                          else nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) * (-1)
                          end as dias_vaciones,
                --Para el mes de febrero se restan dias 2 o 1 segun año, ya que estos dias se pagan como laborados - 20170314                 
                (case 
                   when (select id_meses from no_periodo where id_periodo = $id_periodo) = 2 and max(tab0.fecha_ini) < (select fecha_fin from no_periodo where id_periodo = $id_periodo) and max(tab0.fecha_fin) > (select fecha_fin from no_periodo where id_periodo = $id_periodo) 
                   then case when to_number((select to_char(fecha_fin,'dd') from no_periodo where id_periodo = $id_periodo)) = 28 then 2 else 1 end
                   else 0 end) * (case  when tipnov.operador  = 1 then 1 else (-1) end) as dias_feb,                 

                max(tab0.fecha_ini) as fecha_ini, max(tab0.fecha_fin) as fecha_fin,
                tab0.id_tipo_doc, tab0.num_doc, count(tab0.id_novedad_vac) CANTIDAD,
                 tipnov.operador,

                 case  when tipnov.operador  = 1 
                 /*then 1
                 else (-1)*/
                 then tab0.num_dias_vac
                 else (-1 * tab0.num_dias_vac)
                 --else nvl(sum( tab0.fecha_fin - tab0.fecha_ini + 1),0) * (-1)
                 end as CANTIDAD_vaciones

                from no_novedad_vac tab0
                left join NO_TIPO_NOV_VAC TIPNOV on TIPNOV.ID_TIPO_NOV_VAC = tab0.ID_TIPO_NOV_VAC

                where 
                --tipnov.ID_TIPO_NOV_VAC = 1 and
                tipnov.tiempo_liqui = 1 and
                (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) and

               /*
                tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
                */
                /*Marca de vacaciones para todo el tiempo de duracion - 20130917*/
               ( 
                   tab0.fecha_ini  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                   and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                   or
                   tab0.fecha_fin  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                   and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                 or
                   to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
                   or
                   trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
                 )
                 /* Valida que no sea un dia 31, ya que no se cuenta para liquidacion, que posea dias de vac en el periodo liquidado - 20141031 */        
                 --and to_char(tab0.fecha_ini,'dd') != 31
                 and DIAS_RANGO_MES_SIN_TREINTAYUNO(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo = $id_periodo)) > 0

                 group by tab0.id_tipo_doc, tab0.num_doc,
                tipnov.operador, tab0.num_dias_vac, tab0.id_periodo

            )tab
   
            left join no_dias_mes_liquidacion dialiq
            on dialiq.id_tipo_doc = tab.id_tipo_doc
            and dialiq.num_doc = tab.num_doc
            and dialiq.id_concep_nomina = 0
            and dialiq.id_periodo = $id_periodo

            group by tab.id_tipo_doc, tab.num_doc
         )vaca ON vaca.num_doc = tab0.num_doc


        LEFT JOIN 
        (
            select distinct afilia.num_doc, codigo.codigo
            from no_liquida_aporte afilia
            left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
            left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
            where afilia.id_clase_fondo = 1 
            /*
            and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
            between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
            */--and afilia.estado = 1

            AND ( codigo.tipo != 'EPS' or codigo.tipo != 'CCF' )
            and afilia.id_periodo = $id_periodo
            and afilia.tipo_planilla = 'C'       
        )pension ON pension.num_doc = tab0.num_doc

        LEFT JOIN 
        (
            select distinct afilia.num_doc, codigo.codigo
            from no_liquida_aporte afilia
            left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
            left join no_cod_fondo codigo ON codigo.nitocc = fondo.num_doc
            where afilia.id_clase_fondo = 2 
            /*
            and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
            between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
            --and afilia.estado = 1
            */
            AND codigo.tipo = 'EPS'
            and afilia.id_periodo = $id_periodo
            and afilia.tipo_planilla = 'C'       
        )salud ON salud.num_doc = tab0.num_doc

        LEFT JOIN 
        (
            select distinct 
            CODFON.CODIGO,
            afilia.num_doc, afilia.centro_trabajo as id_centro_trabajo, centra.codigo as centro_trabajo, apo.no_riesgo, centra.cod_ciiu, centra.cod_ncp, apo.no_riesgo as cod_riesgo,
            afilia.fecha_ingreso,
            afilia.riesgo,
           ROW_NUMBER() OVER (
            partition by afilia.num_doc
            ORDER BY afilia.estado DESC, afilia.fecha_ingreso DESC,afilia.id_afilia_fondo DESC
           ) AS rn

            from no_afilia_fondo afilia

            left join no_tipo_aporte apo
            on apo.id_tipo_aporte = afilia.id_tipo_aporte

            left join no_centro_trabajo centra
            on centra.id_centro_trabajo = afilia.centro_trabajo

            left join no_mae_fondos maefon
            on MAEFON.ID_MAE_FONDOS = afilia.ID_MAE_FONDOS

            left join no_cod_fondo codfon
            on maefon.num_doc = codfon.nitocc

            where afilia.id_clase_fondo = 3 --and afilia.estado = 1
            and to_char(afilia.fecha_ingreso,'yyyymm') <= ( select anho_mes from no_periodo_v where id_periodo = $id_periodo )
        )riesgo ON riesgo.num_doc = tab0.num_doc
        and riesgo.rn = 1

        LEFT JOIN 
        (
            select distinct afilia.num_doc, codigo.codigo
            from no_liquida_aporte afilia
            left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
            left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
            where afilia.id_clase_fondo = 4 
            --and afilia.estado = 1 
            AND codigo.tipo = 'CCF'
            and afilia.id_periodo = $id_periodo
            and afilia.tipo_planilla = 'C'       
        )ccf ON ccf.num_doc = tab0.num_doc


        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1
            and tab0.tipo_planilla = 'C'       
            group by tab0.num_doc
        )pension1 ON pension1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
            max(tab0.tarifa/100) as TARIFA--, tab0.aporte_func AS APORTE
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1  and tab0.porcentaje_patrono > 0 -- and  ( tab0.tarifa = 16 or tab0.tarifa = 26 )
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )pension2 ON pension2.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, sum(tab0.valor_base_fsp) as aporte_fsp, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1 and tab0.porcentaje_patrono = 0
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )pension3 ON pension3.num_doc = tab0.num_doc

        /* Tomar aporte_patrono_licnorem de la tabla de aportes - 20150730*/
        left join 
        (
            select 

            tab0.num_doc, 
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_func) else 0 end as aporte, 
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.num_dias) else 0 end as dias,
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.tarifa)/100 else 0 end as tarifa,
            sum(tab0.aporte_patrono) as aporte_patrono_a, 
            sum(tab1.aporte_patrono) as aporte_patrono_c

            from no_liquida_aporte tab0

            left join no_liquida_aporte tab1
            on tab1.id_periodo = tab0.id_periodo
            and tab1.id_tipo_doc = tab0.id_tipo_doc
            and tab1.num_doc = tab0.num_doc
            and tab1.id_mae_fondos = tab0.id_mae_fondos
            and tab1.id_concep_nomina = tab0.id_concep_nomina
            and tab1.id_clase_fondo = 2
            and tab1.tipo_planilla = 'A'

            where tab0.id_periodo = $id_periodo 
            and tab0.id_clase_fondo = 2
            and tab0.tipo_planilla = 'C' 

            group by tab0.num_doc
        )salud1 ON salud1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/,
            min(tipapo.no_riesgo) as no_riesgo

            from no_liquida_aporte tab0

            left join no_tipo_aporte tipapo
            on tipapo.id_tipo_aporte = tab0.id_tipo_aporte
    
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 3
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )riesgo1 ON riesgo1.num_doc = tab0.num_doc

        left join 
        (
            select 

            tab0.num_doc, 
            case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_func) else 0 end as aporte, 
            case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
            case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.num_dias) else max(tab0.num_dias) end as dias,
            case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
            case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.tarifa)/100 else 0 end as tarifa,
            sum(tab0.aporte_patrono) as aporte_patrono_a, 
            sum(tab1.aporte_patrono) as aporte_patrono_c

            from no_liquida_aporte tab0

            left join no_liquida_aporte tab1
            on tab1.id_periodo = tab0.id_periodo
            and tab1.id_tipo_doc = tab0.id_tipo_doc
            and tab1.num_doc = tab0.num_doc
            and tab1.id_mae_fondos = tab0.id_mae_fondos
            and tab1.id_concep_nomina = tab0.id_concep_nomina
            and tab1.id_clase_fondo = 4
            and tab1.tipo_planilla = 'A'

            where tab0.id_periodo = $id_periodo 
            and tab0.id_clase_fondo = 4
            and tab0.tipo_planilla = 'C' 

            group by tab0.num_doc
        )ccf1 ON ccf1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 5
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )icbf1 ON icbf1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 6
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )sena1 ON sena1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 7
            and tab0.tipo_planilla = 'C'       
            group by tab0.num_doc
        )esap1 ON esap1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 8
            and tab0.tipo_planilla = 'C'       
            group by tab0.num_doc
        )men1 ON men1.num_doc = tab0.num_doc

        left join 
        (
            select
            id_periodo, num_doc,
            --id_concep_nomina,
            sum(cantidad) as cantidad
            from (
                select
                lotehr.total_horas,
                lotehr.id_periodo,
                hrext.id_tipo_doc,
                hrext.num_doc,
                hrext.cantidad,
                tiphr.id_concep_nomina

                from no_lote_hr_extra lotehr

                left join no_hr_extra hrext
                on lotehr.id_lote_hr_extra = hrext.id_lote_hr_extra

                left join no_tipo_hr_extra tiphr
                on tiphr.id_tipo_hr_extra = hrext.id_tipo_hr_extra

                where lotehr.id_periodo = $id_periodo
                and lotehr.estado = 0
            )

            group by
            id_periodo, num_doc--, id_concep_nomina
        )hrextra
        ON hrextra.num_doc = tab0.num_doc

        /*Obtener IBC del anterior mes de las vacaciones - 20191220*/
        left join(

            SELECT
            id_periodo,
            id_tipo_doc,
            num_doc,
            max(valor_base) as valor_base
            FROM no_liquida_aporte
            where
            id_periodo < $id_periodo
            --and id_tipo_doc = 1
            --and num_doc = 98565401
            and id_clase_fondo = 2
            and tipo_planilla in ( 'C','A' )

            group by
            id_periodo,
            id_tipo_doc,
            num_doc

        )liqapor
        on liqapor.id_periodo = vaca.periodo_ant
        and liqapor.id_tipo_doc = tab0.id_tipo_doc
        and liqapor.num_doc = tab0.num_doc


        WHERE tab0.periodo = $id_periodo 
        and (tab0.actual = 1 or
          ( tab0.actual = 0 
            /*
            Se cambia fecha de termina(ultimo dia de trabajo) por fecha de retiro, 
            para tener encuenta si trabajo en el periodo al menos 1 dia - 20130828                    
            */
            and tab5.fecha_retiro != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and tab5.fecha_termina
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))
          )
        )
        and  ( vaca.cantidad>0 )
        and ( nvl(ccf1.dias,0) + nvl(salud1.dias,0) ) > 0

        /* Omitir terceros que no tiene cambios en CCF - 20231002::LAVILA*/
        and tab0.num_doc not in (

            select 
            tab.num_doc
            from (

                    select  
                    total.num_doc,
                    count(total.tipo_planilla) as cant, 
                    sum(total.aporte_ibc) as total1, 
                    sum(total.IBC) as total2, 
                    sum(total.IBC_a) as total_a, 
                    sum(total.IBC_c) as total_c, 
                    sum(total.IBC_c) - sum(total.IBC_a) as total,
                    case when (sum(total.IBC_c) - sum(total.IBC_a) > 0) then sum(total.IBC_c) else 0 end as total_neg,
                    sum(total.IBC_c) + sum(total.IBC_a) as total_sum 

                    from (
                            select tab0.tipo_planilla,
                            tab0.num_doc, sum(nvl(tab0.valor_base,0)) as aporte_IBC, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, 
                            MAX(nvl(tab0.valor_base,0)) AS IBC,
                            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/, 
                          case when tab0.tipo_planilla = 'A' and max(tab0.num_dias) != 0 then max(nvl(tab0.valor_base,0)) else 0 end as ibc_a, 
                          case when tab0.tipo_planilla = 'C' and max(tab0.num_dias) != 0 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC_c
                            from no_liquida_aporte tab0
                            --se filtra id4-CAJA DE COMPENSACION FAMILIAR en vez de id5 - 20130802
                            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 4

                            group by tab0.tipo_planilla,tab0.num_doc

                     )total  
                     group by
                    total.num_doc    

            )tab   
            where
            tab.total_neg <= 0
            and tab.total <= 0
            and tab.total_a > 0
            and tab.total_c > 0

        )

union

/*
* Funcionarios con novedades de vacaciones o LR - 20170308, tipo A
* Se cambia campo C45 para que tome los dias de la autoliquidacion y no base 30-ccf1.dias, se agrega tambien a los calculos de parafiscales - 20190703
* Se cambia solo LICENCIA REMUNERADA - 20210202::LAVILA
*/
select 
penfun.id_pension_func,
4 as c00,--order de mensual luego licencia
0 as c0,
'02' AS C1,
LPAD(rownum,5,0) AS C2,
lpad( (REPLACE(tdoc.abreviacion,'.','')), 2,' ') AS C3,
RPAD(to_char(tab0.num_doc),16,' ') AS C4,
rpad(to_char(tab0.num_doc),16,' ') as c4a,
'01' AS C5,
case when penfun.id_pension_func is not null then penfun.codigo_suptipo else '00' end AS C6,--suptipo de pensionado
' ' AS C7,
' ' AS C8,
RPAD(nvl(tab2.coddepto,' '),2,' ') AS C9,
RPAD(nvl(substr(tab3.codmun_text,3),' '),3,' ') AS C10,
RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11,
RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11a,
RPAD(nvl(tab4.segundo_apellido,' '),30,' ') AS C12,
RPAD(nvl(tab4.primer_nombre,' '),20,' ') AS C13,
RPAD(nvl(tab4.segundo_nombre,' '),30,' ') AS C14,
case when tab5.fecha_ingreso
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then ' ' else ' ' end AS C15,
case when tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then ' ' else ' ' end AS C16,
' ' AS C17,
' ' AS C18,
' ' AS C19,
' ' AS C20,
--No La novedad SLN no debe de combinarse con otro tipo de novedad  - 20161122
case when ascenso.cantidad>0 then ' ' else ' 'end AS C21,
'A' AS C22,
case when encargo.cantidad>0 then ' ' else ' 'end AS C23,
case when kardex1.cantidad>0 and ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then 'X' when kardex1.cantidad>0 and  nvl(max_marca,0) = 1 and nvl(max_marca_susinc,0) = 0 then 'C' else ' ' end AS C24,
case when kardex2.cantidad>0 then ' ' else ' 'end AS C25,--inc temp enfermedad
case when kardex3.cantidad>0 then ' ' else ' 'end AS C26,--lic maternidad
case when vaca.cantidad>0 then 'X' when kardexlr.cantidad>0 then 'L' else ' 'end AS C27,
' ' AS C28,
' ' AS C29,
--LPAD(to_char(nvl(kardex4.cantidad,0)),2,0) AS C30,--inc por accidente de trabajo
LPAD('0',2,'0') AS C30,
rpad(nvl(pension.codigo,' '),6,' ') as c31,
rPAD(' ',6,' ') AS C32,
rPAD(nvl(salud.codigo,' '),6,' ') AS C33,
rpad(' ',6,' ') as c34,
rPAD(nvl(ccf.codigo,' '),6,' ') AS C35,
lpad( nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) ,2,0) as c36,
lpad( nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) ,2,0) as c37,
lpad( nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) ,2,0) AS C38, 
--39 dias parafiscales
lpad( nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) ,2,0) AS C39,
LPAD(nvl(tab6.asignacion_basica,0),9,0) AS C40,
' ' AS C41,
-- Se validan los dias de retiro del funionario - 20141007
LPAD(  case 
    when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 and (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) then ceil( ( (nvl(sm.valor_mensual,0)*25)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1
    when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 then ceil( ( (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 else ceil( ( nvl(pension1.ibc,0)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) ) ) end ,9,0) AS C42,
LPAD(  case 
    when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 and (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) then ceil( ( (nvl(sm.valor_mensual,0)*25)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1
    when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 then ceil( ( (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 else ceil( ( nvl(salud1.ibc,0)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) ) ) end ,9,0) AS C43,

LPAD( case 
    when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 and (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) then ceil( ( (nvl(sm.valor_mensual,0)*25)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1
    when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 then ceil( ( (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 else ceil( ( nvl(salud1.ibc,0)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) ) ) end ,9,0) AS C44,
        
LPAD(  case 
    when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 and nvl(ccf1.ibc,0) = 0 
        then ceil( ( (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 
    when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0
    then ceil( ( nvl(ccf1.ibc,0)/ccf1.dias*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 
    else ceil( ( nvl(ccf1.ibc,0)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) ) ) end ,9,0) AS C45,


-- Se debe calcular a partir de octubre la tarifa del patrono - 20131028
-- No debe llevar registro de pension - 20140729
-- Se coloca que para CYC, si debe llevar registro de pension - 20170127
--rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) as c46,
--rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0) as C46,
case when 4 in (4) then (rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0)) else rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) end as C46,
--lPAD(nvl(null,0) + nvl(null,0),9,0) AS C47,
--lpad( round( round( nvl(tab6.asignacion_basica,0)/30*(30-nvl(pension2.dias-nvl(kardex4.cantidad,0),0))  ,-3) * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,-2) ,9,0) as c47,
lPAD( ceil( (ceil( ( ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                        then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                        )/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(pension2.tarifa,0)/100)*100 ,9,0) as c47,
lPAD(0,9,0) AS C48,
lpad(0,9,0) as c49,

lPAD( ceil((  ceil( ( ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                        then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                        )/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(pension2.tarifa,0)/100)*100 ,9,0) as C50,
lPAD( ceil((( ceil( ( ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                        then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                        )/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(0.005,0)) /100)*100  *(case when nvl(pension3.aporte_fsp,0) != 0 then 1 else 0 end) ,9,0) as c51,
lpad( ceil((((ceil( ( ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                        then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                        )/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(pension3.tarifa,0)) - ((ceil( ( ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                                                                                                                                            then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                                                                                                                                            )/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(0.005,0)) )/100)*100 *(case when nvl(pension3.aporte_fsp,0) != 0 then 1 else 0 end) ,9,0) as c52,

rpad(0,9,0) as c53,
rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) ,7,0) as c54,
--lpad( round( round( nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) )  ,-3) * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) ,-2) ,9,0) as c55,
lPAD( ceil( (ceil( (  ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                        then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                        ) /30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(salud1.tarifa,0)/100)*100 ,9,0) as c55,
lpad( case when '01' = '40' then 0 else 0 end ,9,0) as c56,
rpad(' ',15,' ') as c57,
rpad(0,9,0) as C58,
rpad(' ',15,' ') as C59,
rpad(0,9,0) as c60,
--rpad( case when nvl(riesgo1.tarifa,0) = 0 then '0.0' when nvl(riesgo1.tarifa,0) < 1 then '0' else '' end || + nvl(riesgo1.tarifa,0) ,9,0) as C61,
rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,9,0) as C61,
lpad(nvl(riesgo.centro_trabajo,0),9,0) as C62,
lpad( nvl(0,0) ,9,0) as c63,
--lpad( ceil( ( nvl(riesgo1.aporte_patrono,0)/30*(vaca.num_dias_vac) )/100)*100 ,9,0) as c63,

rpad( case when nvl(ccf1.tarifa,0) = 0 then '0.0' when nvl(ccf1.tarifa,0) < 1 then '0' else '' end || + nvl(ccf1.tarifa,0) ,7,0) AS C64,
--lpad( nvl(ccf1.aporte_patrono,0) ,9,0) as c65,
lpad( ceil( ( ceil( ( nvl(ccf1.ibc,0)/(case when ccf1.dias != 0 then ccf1.dias else 1 end)*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 )*nvl(ccf1.tarifa,0)/100)*100 ,9,0) as c65,
rpad( case when nvl(sena1.tarifa,0) = 0 then '0.0' when nvl(sena1.tarifa,0) < 1 then '0' else '' end || + nvl(sena1.tarifa,0) ,7,0) as C66,
--lpad( nvl(sena1.aporte_patrono,0) ,9,0) as c67,
lpad( ceil( ( ceil( ( nvl(sena1.ibc,0)/(case when ccf1.dias != 0 then ccf1.dias else 1 end)*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 )*nvl(sena1.tarifa,0)/100)*100 ,9,0) as c67,
rpad( case when nvl(icbf1.tarifa,0) = 0 then '0.0' when nvl(icbf1.tarifa,0) < 1 then '0' else '' end || + nvl(icbf1.tarifa,0) ,7,0) as C68,
--lpad( nvl(icbf1.aporte_patrono,0) ,9,0) as c69,
lpad( ceil( ( ceil( ( nvl(icbf1.ibc,0)/(case when ccf1.dias != 0 then ccf1.dias else 1 end)*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 )*nvl(icbf1.tarifa,0)/100)*100 ,9,0) as c69,
rpad( case when nvl(esap1.tarifa,0) = 0 then '0.0' when nvl(esap1.tarifa,0) < 1 then '0' else '' end || + nvl(esap1.tarifa,0) ,7,0) as C70,
--lpad( nvl(esap1.aporte_patrono,0) ,9,0) as c71,
lpad( ceil( ( ceil( ( nvl(esap1.ibc,0)/(case when ccf1.dias != 0 then ccf1.dias else 1 end)*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 )*nvl(esap1.tarifa,0)/100)*100 ,9,0) as c71,
rpad( case when nvl(men1.tarifa,0) = 0 then '0.0' when nvl(men1.tarifa,0) < 1 then '0' else '' end || + nvl(men1.tarifa,0) ,7,0) as C72,
--lpad( nvl(men1.aporte_patrono,0) ,9,0) as c73,
lpad( ceil( ( ceil( ( nvl(men1.ibc,0)/(case when ccf1.dias != 0 then ccf1.dias else 1 end)*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 )*nvl(men1.tarifa,0)/100)*100 ,9,0) as c73,

'  ' AS C74,
RPAD(to_char(' '),16,' ') AS C75,
RPAD(to_char('N'),1,' ') AS C76,
RPAD(riesgo.codigo,6,' ') AS C77,
nvl(RPAD( nvl(riesgo1.no_riesgo,riesgo.riesgo),1,' '),' ') AS C78,
RPAD(to_char(' '),1,' ') AS C79,

RPAD(to_char(' '),10,' ') AS C80,--ING
RPAD(to_char(' '),10,' ') AS C81,--RET
RPAD(to_char(' '),10,' ') AS C82,--VSP

case when kardex1.fecha_ini
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(kardex1.fecha_ini,'yyyy-mm-dd')
else RPAD(to_char(' '),10,' ') end AS C83,--SLN

case when kardex1.fecha_fin
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(kardex1.fecha_fin,'yyyy-mm-dd')
else RPAD(to_char(' '),10,' ') end AS C84,--SLN

RPAD(to_char(' '),10,' ') AS C85,--IGE
RPAD(to_char(' '),10,' ') AS C86,--IGE
RPAD(to_char(' '),10,' ') AS C87,--LMA
RPAD(to_char(' '),10,' ') AS C88,--LMA

case when vaca.fecha_ini
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(vaca.fecha_ini,'yyyy-mm-dd')
  when kardexlr.fecha_ini
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then RPAD(to_char(' '),10,' ') --to_char(kardexlr.fecha_ini,'yyyy-mm-dd')
  else RPAD(to_char(' '),10,' ') end AS C89,--VAC-LR
case when vaca.fecha_fin
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(vaca.fecha_fin,'yyyy-mm-dd')
  when kardexlr.fecha_fin
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then RPAD(to_char(' '),10,' ') --to_char(kardexlr.fecha_fin,'yyyy-mm-dd')
  else RPAD(to_char(' '),10,' ') end AS C90,--VAC-LR

RPAD(to_char(' '),10,' ') AS C91,--VCT
RPAD(to_char(' '),10,' ') AS C92,--VCT
RPAD(to_char(' '),10,' ') AS C93,--IRL
RPAD(to_char(' '),10,' ') AS C94,--IRL
LPAD(  case 
    when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 and nvl(ccf1.ibc,0) = 0 
        then ceil( ( (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 
    when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 then ceil( ( nvl(icbf1.ibc,0)/ccf1.dias*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 else ceil( ( nvl(icbf1.ibc,0)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) ) ) end ,9,0) as C95,--IBC parafiscales
LPAD(  case when nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0)  < 300 then  nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0) else 300 end  ,3,0) AS C96,--HORAS EXTRAS
RPAD(to_char(' '),10,' ') AS C97,--Rad exterior
case when tab0.id_anhos || lpad(tab0.id_meses, 2, '0') >= 202211 then RPAD(to_char(riesgo.cod_riesgo|| riesgo.cod_ciiu || riesgo.cod_ncp),7,' ') else '' end AS C98

from no_estado_func_v tab0

/*Validacion de smdlv para el tope de IBC de 25 maximo - 20190507*/
left join no_smdlv sm
on sm.vigencia = tab0.id_anhos

left join tipo_documento tdoc
on tdoc.id_tipo_doc = tab0.id_tipo_doc

left join centro_operacion tab1 ON tab1.id_cen_op = tab0.id_cen_op
left join departamento tab2 ON tab2.id_depto = tab1.id_depto
left join municipios tab3 ON tab3.codmun = tab1.codmun
left join no_datos_funcionario_v tab4 ON tab4.id_tipo_doc = tab0.id_tipo_doc and tab4.num_doc = tab0.num_doc

left join (
    select pen.*, sub.descripcion as suptipo_cotizante, sub.codigo as codigo_suptipo
    from no_pension_func pen
    left join no_suptipo_cotizante_v sub
    on pen.id_suptipo_cotizante = sub.id_suptipo_cotizante
    where
    pen.estado = 1
)penfun
on penfun.id_tipo_doc = tab0.id_tipo_doc 
and penfun.num_doc = tab0.num_doc

--left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
left join (
  SELECT
  case when aut.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then (30 - to_char(aut.fecha_termina,'dd') ) else 0 end as dias_retiro,
   aut.*,
   ROW_NUMBER() OVER (
    partition by aut.num_doc
    ORDER BY aut.estado DESC, aut.fecha_ingreso DESC
   ) AS rn
  from no_nombramiento aut
  
  left join no_periodo_v per
  on per.id_periodo = aut.id_periodo
  
  where 
  per.anho_mes <= ( SELECT anho_mes FROM no_periodo_v where id_periodo = $id_periodo )
)tab5
on tab5.id_tipo_doc = tab0.id_tipo_doc 
and tab5.num_doc = tab0.num_doc
and tab5.rn = 1

--left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp
/*
Se cambia para tomar valor de concepto_periodo para el concepto_nomina 1001 del periodo de tipo mensual o nomina adicional - 20130827
*/
left join(
    
    select * from(
            select 
            concep.id_tipo_doc,
            concep.num_doc,
            concep.valor as asignacion_basica ,
            
             ROW_NUMBER() OVER (
              PARTITION BY concep.num_doc
              order by per.id_tipo_periodo asc, concep.fecha_hasta desc
             ) as rn
           
            from no_concepto_periodo concep
  
            join no_periodo per
            on concep.PERIODO = per.id_periodo
            
            where 
            concep.id_concep_nomina = (select id_concep_basica from no_param_concep) 
            
            and (per.id_tipo_periodo = 1 or per.id_tipo_periodo = 2)
            and (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = concep.PERIODO) = (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) 
    )where rn = 1
    
)tab6 ON tab6.id_tipo_doc = tab0.id_tipo_doc and tab6.num_doc = tab0.num_doc
and tab6.rn = 1

/*Valores de ibc de vacaciones, sin AsigBasica - 20170705*/
left join(

    select 
    concep.num_doc,
    concep.id_tipo_doc,
    sum(nvl(concep.valor,0)) as valor 
     
    from no_concepto_func concep
    where 
    /*concep.num_doc = 39531961 
    and concep.id_tipo_doc = 1 
    and */
    concep.id_concep_nomina in ( (select ID_CONCEP_NOMINA from no_agrup_deta where ID_AGRUP_CONCEPTO = 39) ) 
    and concep.id_concep_nomina not in ( (select id_concep_basica from no_param_concep) ) 
    and concep.estado = 1 and concep.actual = 1 
    
    group by
    concep.num_doc,
    concep.id_tipo_doc
    
)tab66 ON tab66.id_tipo_doc = tab0.id_tipo_doc and tab66.num_doc = tab0.num_doc

left join
(
  /* se cambia filtro por estado activo y id_tipo_novedad = 1 - 20150422 */
  select 
  tab0.num_doc,count(tab0.id_novedad_personal) as cantidad
  from no_novedad_personal tab0
  left join no_novedades nov on tab0.id_novedad = nov.id_novedad
  where 
  tab0.estado = 1 and nov.id_tipo_novedad = 1
  and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
  group by tab0.num_doc
) ascenso ON ascenso.num_doc = tab0.num_doc

left join
(
    select num_doc, sum(cantidad) AS CANTIDAD
    from(
    
        select tab0.num_doc,count(tab0.id_novedad_personal) AS CANTIDAD
        from no_novedad_personal tab0
        where tab0.id_novedad IN ( 3, 7 )  
        and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        group by tab0.num_doc
        
        union 
        
        select tab0.num_doc,count(tab0.id_bonifica_servicios) AS CANTIDAD
        from no_bonifica_servicios tab0
        where tab0.estado=1 and tab0.fecha_bonifica between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        group by tab0.num_doc
        
        union 
        
        select tab0.num_doc,count(tab0.id_hr_extra) AS CANTIDAD
        from no_hr_extra tab0
        left join no_lote_hr_extra tab1 ON tab1.id_lote_hr_extra = tab0.id_lote_hr_extra
        where tab1.estado=0 and tab1.id_periodo = $id_periodo
        group by tab0.num_doc
    
    )GROUP BY num_doc

) encargo ON encargo.num_doc = tab0.num_doc

left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD, max(tab1.suspension) as max_marca,
    max(fecha_ini) as fecha_ini2, 
    case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
    max(fecha_fin) as fecha_fin2,
    case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.afecta_antigu = 1 and tab0.estado = 1 
     /*   
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo = $id_periodo
    )*/
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    and (
      to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
      or
      trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
      or 
      tab0.id_periodo = $id_periodo
    )
    group by tab0.num_doc
)kardex1 ON kardex1.num_doc = tab0.num_doc

left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    /*
    Se cambia id_tip_nov_ka = 2 por 1 INCI
    Se deja quemado id 9 para novedad por ajuste de conceptos de reintegro ANM - 20140522
    Se cambia por id en tabla no_param_concep - 20140916
    */
    where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_enfcom from no_param_concep),9) and tab0.estado = 1
    
    and tab0.estado = 1 and tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
    group by tab0.num_doc
)kardex2 ON kardex2.num_doc = tab0.num_doc

left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    
    /*
    Se cambia id_tip_nov_ka = 3 por 2 INCI
    Se cambia por id en tabla no_param_concep - 20140916
    */
    where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_licmat from no_param_concep)) and tab0.estado = 1 
    
    and tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
    group by tab0.num_doc
)kardex3 ON kardex3.num_doc = tab0.num_doc

/*
Se cambia de id-4 por atributo en  la tabla no_tip_nov_ka de afecta_riesgo, para validar cuales afectan en los dias de ARP-ARL - 20130919
*/
left join
(
    select tab0.num_doc, sum(tab0.num_dias) CANTIDAD
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.afecta_riesgo = 1 and tab0.estado = 1 and tab0.fecha_inc between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
    group by tab0.num_doc
)kardex4 ON kardex4.num_doc = tab0.num_doc

/*
Incapacidad -> Suspensión por Incapacidad  - 20150312
*/
left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) as max_marca_susinc
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.afecta_antigu = 1 and tab0.estado = 1 
    and tab0.id_tip_nov_ka = (select no_param_concep.id_nov_ka_susinc from no_param_concep where no_param_concep.id_param_concep = 1)
     /*   
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo = $id_periodo
    )*/
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    and (
      to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
      or
      trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
      or 
      tab0.id_periodo = $id_periodo
    )
    group by tab0.num_doc
)kardex5 ON kardex5.num_doc = tab0.num_doc

/*Licencia remunerada id-10 -- 20170222*/
/*Licencia remunerada descuenta dias para calculo -- 20190414*/
/*Licencia remunerada descuenta todos los días de meses anteriores - 20190905*/
left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) as CANTIDAD,  
    min(tab0.fecha_ini) as fecha_ini2, 
    case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
    max(tab0.fecha_fin) as fecha_fin2,
    case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin,
        
    nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novlicrem_ant,
    nvl(sum( fecha_rango_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin ) ),0) as num_dias_novlicrem
    
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.id_tip_nov_ka in (select id_tip_nov_ka from no_tip_nov_ka where tiempo_remunerado = 1) and tab0.estado = 1 
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo = $id_periodo
    )
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    
    group by tab0.num_doc
)kardexlr ON kardexlr.num_doc = tab0.num_doc

/*
Se coloca, tab0.id_periodo en la agrupacion, para tener encuenta todas las novedades - 20161104
* Se omite  desde ahora ya que es fila solo de LR -20210202
*/
left join
(
   select 
   
   max((SELECT
   max(perd.id_periodo)
   FROM no_periodo perd where perd.id_tipo_periodo = 1 and perd.fecha_fin < tab.fecha_ini)) as periodo_ant,

   tab.id_tipo_doc,                  
   tab.num_doc,
   sum( nvl(tab.CANTIDAD_vaciones,0) ) as CANTIDAD,
   sum(tab.dias_vaciones) as num_dias_vac_ant,
   sum(tab.dias_vaciones) - sum(tab.dias_feb) as num_dias_vac,
   sum(tab.dias_feb) as dias_feb,
   max(tab.fecha_ini) as fecha_ini2, 
   case when max(tab.fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(tab.fecha_ini) end as fecha_ini,
   max(tab.fecha_fin) as fecha_fin2,
   case when max(tab.fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(tab.fecha_fin) end as fecha_fin

   from( 

       select 
       
       case  when tipnov.operador  = 1 
                 then nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) 
                 else nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) * (-1)
                 end as dias_vaciones,
       --Para el mes de febrero se restan dias 2 o 1 segun año, ya que estos dias se pagan como laborados - 20170314                 
       (case 
          when (select id_meses from no_periodo where id_periodo = $id_periodo) = 2 and max(tab0.fecha_ini) < (select fecha_fin from no_periodo where id_periodo = $id_periodo) and max(tab0.fecha_fin) > (select fecha_fin from no_periodo where id_periodo = $id_periodo) 
          then case when to_number((select to_char(fecha_fin,'dd') from no_periodo where id_periodo = $id_periodo)) = 28 then 2 else 1 end
          else 0 end) * (case  when tipnov.operador  = 1 then 1 else (-1) end) as dias_feb,                 
                 
       max(tab0.fecha_ini) as fecha_ini, max(tab0.fecha_fin) as fecha_fin,
       tab0.id_tipo_doc, tab0.num_doc, count(tab0.id_novedad_vac) CANTIDAD,
        tipnov.operador,

        case  when tipnov.operador  = 1 
        /*then 1
        else (-1)*/
        then tab0.num_dias_vac
        else (-1 * tab0.num_dias_vac)
        --else nvl(sum( tab0.fecha_fin - tab0.fecha_ini + 1),0) * (-1)
        end as CANTIDAD_vaciones

       from no_novedad_vac tab0
       left join NO_TIPO_NOV_VAC TIPNOV on TIPNOV.ID_TIPO_NOV_VAC = tab0.ID_TIPO_NOV_VAC
       
       where 
       1 = 0 and 
       --tipnov.ID_TIPO_NOV_VAC = 1 and
       tipnov.tiempo_liqui = 1 and
       (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) and
       
      /*
       tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
       and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
       */
       /*Marca de vacaciones para todo el tiempo de duracion - 20130917*/
      ( 
          tab0.fecha_ini  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          or
          tab0.fecha_fin  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        or
          to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
          or
          trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
        )
        /* Valida que no sea un dia 31, ya que no se cuenta para liquidacion, que posea dias de vac en el periodo liquidado - 20141031 */        
        --and to_char(tab0.fecha_ini,'dd') != 31
        and DIAS_RANGO_MES_SIN_TREINTAYUNO(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo = $id_periodo)) > 0
        
        group by tab0.id_tipo_doc, tab0.num_doc,
       tipnov.operador, tab0.num_dias_vac, tab0.id_periodo

   )tab

   group by tab.id_tipo_doc, tab.num_doc
)vaca ON vaca.num_doc = tab0.num_doc


LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
    where afilia.id_clase_fondo = 1 
    /*
    and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
    between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
    */--and afilia.estado = 1
   
    AND ( codigo.tipo != 'EPS' or codigo.tipo != 'CCF' )
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'       
)pension ON pension.num_doc = tab0.num_doc

LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo ON codigo.nitocc = fondo.num_doc
    where afilia.id_clase_fondo = 2 
    /*
    and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
    between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
    --and afilia.estado = 1
    */
    AND codigo.tipo = 'EPS'
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'       
)salud ON salud.num_doc = tab0.num_doc

LEFT JOIN 
(
    select distinct 
    CODFON.CODIGO,
    afilia.num_doc, afilia.centro_trabajo as id_centro_trabajo, centra.codigo as centro_trabajo, apo.no_riesgo, centra.cod_ciiu, centra.cod_ncp, apo.no_riesgo as cod_riesgo,
    afilia.fecha_ingreso,
    afilia.riesgo,
   ROW_NUMBER() OVER (
    partition by afilia.num_doc
    ORDER BY afilia.estado DESC, afilia.fecha_ingreso DESC,afilia.id_afilia_fondo DESC
   ) AS rn
   
    from no_afilia_fondo afilia
    
    left join no_tipo_aporte apo
    on apo.id_tipo_aporte = afilia.id_tipo_aporte
    
    left join no_centro_trabajo centra
    on centra.id_centro_trabajo = afilia.centro_trabajo
    
    left join no_mae_fondos maefon
    on MAEFON.ID_MAE_FONDOS = afilia.ID_MAE_FONDOS
    
    left join no_cod_fondo codfon
    on maefon.num_doc = codfon.nitocc
    
    where afilia.id_clase_fondo = 3 --and afilia.estado = 1
    and to_char(afilia.fecha_ingreso,'yyyymm') <= ( select anho_mes from no_periodo_v where id_periodo = $id_periodo )
)riesgo ON riesgo.num_doc = tab0.num_doc
and riesgo.rn = 1

LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
    where afilia.id_clase_fondo = 4 
    --and afilia.estado = 1 
    AND codigo.tipo = 'CCF'
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'       
)ccf ON ccf.num_doc = tab0.num_doc


left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1
    and tab0.tipo_planilla = 'A'       
    group by tab0.num_doc
)pension1 ON pension1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.tarifa/100) as TARIFA--, tab0.aporte_func AS APORTE
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1  and tab0.porcentaje_patrono > 0 -- and  ( tab0.tarifa = 16 or tab0.tarifa = 26 )
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)pension2 ON pension2.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, sum(tab0.valor_base_fsp) as aporte_fsp, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1 and tab0.porcentaje_patrono = 0
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)pension3 ON pension3.num_doc = tab0.num_doc

/* Tomar aporte_patrono_licnorem de la tabla de aportes - 20150730*/
left join 
(
    select 

    tab0.num_doc, 
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_func) else 0 end as aporte, 
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.num_dias) else 0 end as dias,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.tarifa)/100 else 0 end as tarifa,
    sum(tab0.aporte_patrono) as aporte_patrono_a, 
    sum(tab1.aporte_patrono) as aporte_patrono_c

    from no_liquida_aporte tab0

    left join no_liquida_aporte tab1
    on tab1.id_periodo = tab0.id_periodo
    and tab1.id_tipo_doc = tab0.id_tipo_doc
    and tab1.num_doc = tab0.num_doc
    and tab1.id_mae_fondos = tab0.id_mae_fondos
    and tab1.id_concep_nomina = tab0.id_concep_nomina
    and tab1.id_clase_fondo = 2
    and tab1.tipo_planilla = 'C'

    where tab0.id_periodo = $id_periodo 
    and tab0.id_clase_fondo = 2
    and tab0.tipo_planilla = 'A' 

    group by tab0.num_doc
)salud1 ON salud1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/,
    min(tipapo.no_riesgo) as no_riesgo
    
    from no_liquida_aporte tab0
    
    left join no_tipo_aporte tipapo
    on tipapo.id_tipo_aporte = tab0.id_tipo_aporte
    
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 3
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)riesgo1 ON riesgo1.num_doc = tab0.num_doc

left join 
(
      select 
      
      tab0.num_doc, 
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_func) else 0 end as aporte, 
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.num_dias) else max(tab0.num_dias) end as dias,
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.tarifa)/100 else 0 end as tarifa,
      sum(tab0.aporte_patrono) as aporte_patrono_a, 
      sum(tab1.aporte_patrono) as aporte_patrono_c
      
      from no_liquida_aporte tab0
      
      left join no_liquida_aporte tab1
      on tab1.id_periodo = tab0.id_periodo
      and tab1.id_tipo_doc = tab0.id_tipo_doc
      and tab1.num_doc = tab0.num_doc
      and tab1.id_mae_fondos = tab0.id_mae_fondos
      and tab1.id_concep_nomina = tab0.id_concep_nomina
      and tab1.id_clase_fondo = 4
      and tab1.tipo_planilla = 'C'
      
      where tab0.id_periodo = $id_periodo 
      and tab0.id_clase_fondo = 4
      and tab0.tipo_planilla = 'A' 
      
      group by tab0.num_doc
)ccf1 ON ccf1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 5
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)icbf1 ON icbf1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 6
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)sena1 ON sena1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 7
    and tab0.tipo_planilla = 'A'       
    group by tab0.num_doc
)esap1 ON esap1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 8
    and tab0.tipo_planilla = 'A'       
    group by tab0.num_doc
)men1 ON men1.num_doc = tab0.num_doc

left join 
(
    select
    id_periodo, num_doc,
    --id_concep_nomina,
    sum(cantidad) as cantidad
    from (
        select
        lotehr.total_horas,
        lotehr.id_periodo,
        hrext.id_tipo_doc,
        hrext.num_doc,
        hrext.cantidad,
        tiphr.id_concep_nomina

        from no_lote_hr_extra lotehr

        left join no_hr_extra hrext
        on lotehr.id_lote_hr_extra = hrext.id_lote_hr_extra

        left join no_tipo_hr_extra tiphr
        on tiphr.id_tipo_hr_extra = hrext.id_tipo_hr_extra

        where lotehr.id_periodo = $id_periodo
        and lotehr.estado = 0
    )

    group by
    id_periodo, num_doc--, id_concep_nomina
)hrextra
ON hrextra.num_doc = tab0.num_doc

/*Obtener IBC del anterior mes de las vacaciones - 20191220*/
left join(

    SELECT
    id_periodo,
    id_tipo_doc,
    num_doc,
    sum(valor_base) as valor_base
    FROM no_liquida_aporte
    where
    id_periodo < $id_periodo
    --and id_tipo_doc = 1
    --and num_doc = 98565401
    and id_clase_fondo = 2
    and tipo_planilla = 'A' 
    
    group by
    id_periodo,
    id_tipo_doc,
    num_doc

)liqapor
on liqapor.id_periodo = vaca.periodo_ant
and liqapor.id_tipo_doc = tab0.id_tipo_doc
and liqapor.num_doc = tab0.num_doc


WHERE tab0.periodo = $id_periodo 
and (tab0.actual = 1 or
  ( tab0.actual = 0 
    /*
    Se cambia fecha de termina(ultimo dia de trabajo) por fecha de retiro, 
    para tener encuenta si trabajo en el periodo al menos 1 dia - 20130828                    
    */
    and tab5.fecha_retiro != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))
  )
)
and  ( kardexlr.cantidad>0 )
and ( nvl(ccf1.dias,0) + nvl(salud1.dias,0) ) > 0


union

        /*
        * Funcionarios con novedades de vacaciones o LR - 20170728, tipo C
        * Se cambia campo C45 para que tome los dias de la autoliquidacion y no base 30-ccf1.dias, se agrega tambien a los calculos de parafiscales - 20190703
        * Se cambia solo LICENCIA REMUNERADA - 20210202::LAVILA
        */
        select 
        penfun.id_pension_func,
        4 as c00,--order de mensual luego licencia
        0 as c0,
        '02' AS C1,
        LPAD(rownum,5,0) AS C2,
        lpad( (REPLACE(tdoc.abreviacion,'.','')), 2,' ') AS C3,
        RPAD(to_char(tab0.num_doc),16,' ') AS C4,
        rpad(to_char(tab0.num_doc),16,' ') as c4a,
        '01' AS C5,
        case when penfun.id_pension_func is not null then penfun.codigo_suptipo else '00' end AS C6,--suptipo de pensionado
        ' ' AS C7,
        ' ' AS C8,
        RPAD(nvl(tab2.coddepto,' '),2,' ') AS C9,
        RPAD(nvl(substr(tab3.codmun_text,3),' '),3,' ') AS C10,
        RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11,
        RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11a,
        RPAD(nvl(tab4.segundo_apellido,' '),30,' ') AS C12,
        RPAD(nvl(tab4.primer_nombre,' '),20,' ') AS C13,
        RPAD(nvl(tab4.segundo_nombre,' '),30,' ') AS C14,
        case when tab5.fecha_ingreso
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then ' ' else ' ' end AS C15,
        case when tab5.fecha_termina
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then ' ' else ' ' end AS C16,
        ' ' AS C17,
        ' ' AS C18,
        ' ' AS C19,
        ' ' AS C20,
        --No La novedad SLN no debe de combinarse con otro tipo de novedad  - 20161122
        case when ascenso.cantidad>0 then ' ' else ' 'end AS C21,
        'C' AS C22,
        case when encargo.cantidad>0 then ' ' else ' 'end AS C23,
        case when kardex1.cantidad>0 and ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then 'X' when kardex1.cantidad>0 and  nvl(max_marca,0) = 1 and nvl(max_marca_susinc,0) = 0 then 'C' else ' ' end AS C24,
        case when kardex2.cantidad>0 then ' ' else ' 'end AS C25,--inc temp enfermedad
        case when kardex3.cantidad>0 then ' ' else ' 'end AS C26,--lic maternidad
        case when vaca.cantidad>0 then 'X' when kardexlr.cantidad>0 then 'L' else ' 'end AS C27,
        ' ' AS C28,
        ' ' AS C29,
        --LPAD(to_char(nvl(kardex4.cantidad,0)),2,0) AS C30,--inc por accidente de trabajo
        LPAD('0',2,'0') AS C30,
        rpad(nvl(pension.codigo,' '),6,' ') as c31,
        rPAD(' ',6,' ') AS C32,
        rPAD(nvl(salud.codigo,' '),6,' ') AS C33,
        rpad(' ',6,' ') as c34,
        rPAD(nvl(ccf.codigo,' '),6,' ') AS C35,
        lpad( nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) ,2,0) as c36,
        lpad( nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) ,2,0) as c37,
        lpad( nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) ,2,0) AS C38, 
        --39 dias parafiscales
        lpad( nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0) ,2,0) AS C39,
        LPAD(nvl(tab6.asignacion_basica,0),9,0) AS C40,
        ' ' AS C41,
        -- Se validan los dias de retiro del funionario - 20141007
        LPAD(  case 
            when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 and (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) then ceil( ( (nvl(sm.valor_mensual,0)*25)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1
            when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 then ceil( ( (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 else ceil( ( nvl(pension1.ibc,0)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) ) ) end ,9,0) AS C42,
        LPAD(  case 
            when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 and (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) then ceil( ( (nvl(sm.valor_mensual,0)*25)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1
            when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 then ceil( ( (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 else ceil( ( nvl(salud1.ibc,0)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) ) ) end ,9,0) AS C43,

        LPAD( case 
            when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 and (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) then ceil( ( (nvl(sm.valor_mensual,0)*25)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1
            when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 then ceil( ( (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 else ceil( ( nvl(salud1.ibc,0)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) ) ) end ,9,0) AS C44,

        LPAD(  case 
            when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 and nvl(ccf1.ibc,0) = 0 
                then ceil( ( (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 
            when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0
            then ceil( ( nvl(ccf1.ibc,0)/ccf1.dias*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 
            else ceil( ( nvl(ccf1.ibc,0)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) ) ) end ,9,0) AS C45,


        -- Se debe calcular a partir de octubre la tarifa del patrono - 20131028
        -- No debe llevar registro de pension - 20140729
        -- Se coloca que para CYC, si debe llevar registro de pension - 20170127
        --rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) as c46,
        --rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0) as C46,
        case when 4 in (4) then (rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0)) else rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) end as C46,
        --lPAD(nvl(null,0) + nvl(null,0),9,0) AS C47,
        --lpad( round( round( nvl(tab6.asignacion_basica,0)/30*(30-nvl(pension2.dias-nvl(kardex4.cantidad,0),0))  ,-3) * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,-2) ,9,0) as c47,
        lPAD( ceil( (ceil( ( ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                                then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                                )/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(pension2.tarifa,0)/100)*100 ,9,0) as c47,
        lPAD(0,9,0) AS C48,
        lpad(0,9,0) as c49,

        lPAD( ceil((  ceil( ( ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                                then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                                )/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(pension2.tarifa,0)/100)*100 ,9,0) as C50,
        lPAD( ceil((( ceil( ( ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                                then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                                )/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(0.005,0)) /100)*100  *(case when nvl(pension3.aporte_fsp,0) != 0 then 1 else 0 end) ,9,0) as c51,
        lpad( ceil((((ceil( ( ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                                then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                                )/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(pension3.tarifa,0)) - ((ceil( ( ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                                                                                                                                                    then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                                                                                                                                                    )/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(0.005,0)) )/100)*100 *(case when nvl(pension3.aporte_fsp,0) != 0 then 1 else 0 end) ,9,0) as c52,

        rpad(0,9,0) as c53,
        rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) ,7,0) as c54,
        --lpad( round( round( nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) )  ,-3) * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) ,-2) ,9,0) as c55,
        lPAD( ceil( (ceil( (  ( case when (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) > 25*( nvl(sm.valor_mensual,0) /30*(30)) 
                                then (nvl(sm.valor_mensual,0)*25) else (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end) end 
                                ) /30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )/1)*1)*nvl(salud1.tarifa,0)/100)*100 ,9,0) as c55,
        lpad( case when '01' = '40' then 0 else 0 end ,9,0) as c56,
        rpad(' ',15,' ') as c57,
        rpad(0,9,0) as C58,
        rpad(' ',15,' ') as C59,
        rpad(0,9,0) as c60,
        --rpad( case when nvl(riesgo1.tarifa,0) = 0 then '0.0' when nvl(riesgo1.tarifa,0) < 1 then '0' else '' end || + nvl(riesgo1.tarifa,0) ,9,0) as C61,
        rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,9,0) as C61,
        lpad(nvl(riesgo.centro_trabajo,0),9,0) as C62,
        lpad( nvl(0,0) ,9,0) as c63,
        --lpad( ceil( ( nvl(riesgo1.aporte_patrono,0)/30*(vaca.num_dias_vac) )/100)*100 ,9,0) as c63,
        rpad( case when nvl(ccf1.tarifa,0) = 0 then '0.0' when nvl(ccf1.tarifa,0) < 1 then '0' else '' end || + nvl(ccf1.tarifa,0) ,7,0) AS C64,
        --lpad( nvl(ccf1.aporte_patrono,0) ,9,0) as c65,
        lpad( ceil( ( ceil( ( nvl(ccf1.ibc,0)/(case when ccf1.dias != 0 then ccf1.dias else 1 end)*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 )*nvl(ccf1.tarifa,0)/100)*100 ,9,0) as c65,
        rpad( case when nvl(sena1.tarifa,0) = 0 then '0.0' when nvl(sena1.tarifa,0) < 1 then '0' else '' end || + nvl(sena1.tarifa,0) ,7,0) as C66,
        --lpad( nvl(sena1.aporte_patrono,0) ,9,0) as c67,
        lpad( ceil( ( ceil( ( nvl(sena1.ibc,0)/(case when ccf1.dias != 0 then ccf1.dias else 1 end)*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 )*nvl(sena1.tarifa,0)/100)*100 ,9,0) as c67,
        rpad( case when nvl(icbf1.tarifa,0) = 0 then '0.0' when nvl(icbf1.tarifa,0) < 1 then '0' else '' end || + nvl(icbf1.tarifa,0) ,7,0) as C68,
        --lpad( nvl(icbf1.aporte_patrono,0) ,9,0) as c69,
        lpad( ceil( ( ceil( ( nvl(icbf1.ibc,0)/(case when ccf1.dias != 0 then ccf1.dias else 1 end)*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 )*nvl(icbf1.tarifa,0)/100)*100 ,9,0) as c69,
        rpad( case when nvl(esap1.tarifa,0) = 0 then '0.0' when nvl(esap1.tarifa,0) < 1 then '0' else '' end || + nvl(esap1.tarifa,0) ,7,0) as C70,
        --lpad( nvl(esap1.aporte_patrono,0) ,9,0) as c71,
        lpad( ceil( ( ceil( ( nvl(esap1.ibc,0)/(case when ccf1.dias != 0 then ccf1.dias else 1 end)*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 )*nvl(esap1.tarifa,0)/100)*100 ,9,0) as c71,
        rpad( case when nvl(men1.tarifa,0) = 0 then '0.0' when nvl(men1.tarifa,0) < 1 then '0' else '' end || + nvl(men1.tarifa,0) ,7,0) as C72,
        --lpad( nvl(men1.aporte_patrono,0) ,9,0) as c73,
        lpad( ceil( ( ceil( ( nvl(men1.ibc,0)/(case when ccf1.dias != 0 then ccf1.dias else 1 end)*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 )*nvl(men1.tarifa,0)/100)*100 ,9,0) as c73,
        '  ' AS C74,
        RPAD(to_char(' '),16,' ') AS C75,
        RPAD(to_char('N'),1,' ') AS C76,
        RPAD(riesgo.codigo,6,' ') AS C77,
        nvl(RPAD( nvl(riesgo1.no_riesgo,riesgo.riesgo),1,' '),' ') AS C78,
        RPAD(to_char(' '),1,' ') AS C79,

        RPAD(to_char(' '),10,' ') AS C80,--ING
        RPAD(to_char(' '),10,' ') AS C81,--RET
        RPAD(to_char(' '),10,' ') AS C82,--VSP

        case when kardex1.fecha_ini
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then to_char(kardex1.fecha_ini,'yyyy-mm-dd')
        else RPAD(to_char(' '),10,' ') end AS C83,--SLN

        case when kardex1.fecha_fin
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then to_char(kardex1.fecha_fin,'yyyy-mm-dd')
        else RPAD(to_char(' '),10,' ') end AS C84,--SLN

        RPAD(to_char(' '),10,' ') AS C85,--IGE
        RPAD(to_char(' '),10,' ') AS C86,--IGE
        RPAD(to_char(' '),10,' ') AS C87,--LMA
        RPAD(to_char(' '),10,' ') AS C88,--LMA

        case when vaca.fecha_ini
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then to_char(vaca.fecha_ini,'yyyy-mm-dd')
          when kardexlr.fecha_ini
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then RPAD(to_char(' '),10,' ') --to_char(kardexlr.fecha_ini,'yyyy-mm-dd')
          else RPAD(to_char(' '),10,' ') end AS C89,--VAC-LR
        case when vaca.fecha_fin
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then to_char(vaca.fecha_fin,'yyyy-mm-dd')
          when kardexlr.fecha_fin
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then RPAD(to_char(' '),10,' ') --to_char(kardexlr.fecha_fin,'yyyy-mm-dd')
          else RPAD(to_char(' '),10,' ') end AS C90,--VAC-LR

        RPAD(to_char(' '),10,' ') AS C91,--VCT
        RPAD(to_char(' '),10,' ') AS C92,--VCT
        RPAD(to_char(' '),10,' ') AS C93,--IRL
        RPAD(to_char(' '),10,' ') AS C94,--IRL
        LPAD(  case 
            when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 and nvl(ccf1.ibc,0) = 0 
                then ceil( ( (case when nvl(vaca.num_dias_vac,0) != 0 and nvl(liqapor.valor_base,0) != 0 and $aplica_ibc_ant_vac = 1 then nvl(liqapor.valor_base,0) else (nvl(tab6.asignacion_basica,0)+nvl(tab66.valor,0)) end)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 
            when (nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) != 0 then ceil( ( nvl(icbf1.ibc,0)/ccf1.dias*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) )-0.5/1)*1 else ceil( ( nvl(icbf1.ibc,0)/30*(nvl(vaca.num_dias_vac,0)+nvl(kardexlr.num_dias_novlicrem,0)) ) ) end ,9,0) as C95,--IBC parafiscales
        LPAD(  case when nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0)  < 300 then  nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0) else 300 end  ,3,0) AS C96,--HORAS EXTRAS
        RPAD(to_char(' '),10,' ') AS C97,--Rad exterior
        case when tab0.id_anhos || lpad(tab0.id_meses, 2, '0') >= 202211 then RPAD(to_char(riesgo.cod_riesgo|| riesgo.cod_ciiu || riesgo.cod_ncp),7,' ') else '' end AS C98

        from no_estado_func_v tab0

        /*Validacion de smdlv para el tope de IBC de 25 maximo - 20190507*/
        left join no_smdlv sm
        on sm.vigencia = tab0.id_anhos

        left join tipo_documento tdoc
        on tdoc.id_tipo_doc = tab0.id_tipo_doc

        left join centro_operacion tab1 ON tab1.id_cen_op = tab0.id_cen_op
        left join departamento tab2 ON tab2.id_depto = tab1.id_depto
        left join municipios tab3 ON tab3.codmun = tab1.codmun
        left join no_datos_funcionario_v tab4 ON tab4.id_tipo_doc = tab0.id_tipo_doc and tab4.num_doc = tab0.num_doc

        left join (
            select pen.*, sub.descripcion as suptipo_cotizante, sub.codigo as codigo_suptipo
            from no_pension_func pen
            left join no_suptipo_cotizante_v sub
            on pen.id_suptipo_cotizante = sub.id_suptipo_cotizante
            where
            pen.estado = 1
        )penfun
        on penfun.id_tipo_doc = tab0.id_tipo_doc 
        and penfun.num_doc = tab0.num_doc

        --left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
        left join (
          SELECT
          case when aut.fecha_termina
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then (30 - to_char(aut.fecha_termina,'dd') ) else 0 end as dias_retiro,
           aut.*,
           ROW_NUMBER() OVER (
            partition by aut.num_doc
            ORDER BY aut.estado DESC, aut.fecha_ingreso DESC
           ) AS rn
          from no_nombramiento aut
  
            left join no_periodo_v per
            on per.id_periodo = aut.id_periodo

            where 
            per.anho_mes <= ( SELECT anho_mes FROM no_periodo_v where id_periodo = $id_periodo )
        )tab5
        on tab5.id_tipo_doc = tab0.id_tipo_doc 
        and tab5.num_doc = tab0.num_doc
        and tab5.rn = 1

        --left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp
        /*
        Se cambia para tomar valor de concepto_periodo para el concepto_nomina 1001 del periodo de tipo retro - 20130827
        */
        left join(

            select * from(
                    select 
                    concep.id_tipo_doc,
                    concep.num_doc,
                    concep.valor as asignacion_basica ,

                     ROW_NUMBER() OVER (
                      PARTITION BY concep.num_doc
                      order by per.id_tipo_periodo asc, concep.fecha_hasta desc
                     ) as rn

                    from no_concepto_periodo concep

                    join no_periodo per
                    on concep.PERIODO = per.id_periodo

                    where 
                    concep.id_concep_nomina = (select id_concep_basica from no_param_concep) 

                    and (per.id_tipo_periodo = 6 or per.id_tipo_periodo = 7)
                    and (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = concep.id_periodo_ajuste) = (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) 
            )where rn = 1

        )tab6 ON tab6.id_tipo_doc = tab0.id_tipo_doc and tab6.num_doc = tab0.num_doc
        and tab6.rn = 1

        /*Valores de ibc de vacaciones, sin AsigBasica - 20170705*/
        left join(

            select 
            concep.num_doc,
            concep.id_tipo_doc,
            sum(nvl(concep.valor,0)) as valor 

            from no_concepto_func concep
            where 
            /*concep.num_doc = 39531961 
            and concep.id_tipo_doc = 1 
            and */
            concep.id_concep_nomina in ( (select ID_CONCEP_NOMINA from no_agrup_deta where ID_AGRUP_CONCEPTO = 39) ) 
            and concep.id_concep_nomina not in ( (select id_concep_basica from no_param_concep) ) 
            and concep.estado = 1 and concep.actual = 1 

            group by
            concep.num_doc,
            concep.id_tipo_doc

        )tab66 ON tab66.id_tipo_doc = tab0.id_tipo_doc and tab66.num_doc = tab0.num_doc

        left join
        (
          /* se cambia filtro por estado activo y id_tipo_novedad = 1 - 20150422 */
          select 
          tab0.num_doc,count(tab0.id_novedad_personal) as cantidad
          from no_novedad_personal tab0
          left join no_novedades nov on tab0.id_novedad = nov.id_novedad
          where 
          tab0.estado = 1 and nov.id_tipo_novedad = 1
          and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
          group by tab0.num_doc
        ) ascenso ON ascenso.num_doc = tab0.num_doc

        left join
        (
            select num_doc, sum(cantidad) AS CANTIDAD
            from(

                select tab0.num_doc,count(tab0.id_novedad_personal) AS CANTIDAD
                from no_novedad_personal tab0
                where tab0.id_novedad IN ( 3, 7 )  
                and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                group by tab0.num_doc

                union 

                select tab0.num_doc,count(tab0.id_bonifica_servicios) AS CANTIDAD
                from no_bonifica_servicios tab0
                where tab0.estado=1 and tab0.fecha_bonifica between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                group by tab0.num_doc

                union 

                select tab0.num_doc,count(tab0.id_hr_extra) AS CANTIDAD
                from no_hr_extra tab0
                left join no_lote_hr_extra tab1 ON tab1.id_lote_hr_extra = tab0.id_lote_hr_extra
                where tab1.estado=0 and tab1.id_periodo = $id_periodo
                group by tab0.num_doc

            )GROUP BY num_doc

        ) encargo ON encargo.num_doc = tab0.num_doc

        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD, max(tab1.suspension) as max_marca,
            max(fecha_ini) as fecha_ini2, 
            case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
            max(fecha_fin) as fecha_fin2,
            case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.afecta_antigu = 1 and tab0.estado = 1 
             /*   
            and (
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or 
              tab0.id_periodo = $id_periodo
            )*/
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
            and (
              to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
              or
              trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
              or 
              tab0.id_periodo = $id_periodo
            )
            group by tab0.num_doc
        )kardex1 ON kardex1.num_doc = tab0.num_doc

        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            /*
            Se cambia id_tip_nov_ka = 2 por 1 INCI
            Se deja quemado id 9 para novedad por ajuste de conceptos de reintegro ANM - 20140522
            Se cambia por id en tabla no_param_concep - 20140916
            */
            where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_enfcom from no_param_concep),9) and tab0.estado = 1

            and tab0.estado = 1 and tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
            group by tab0.num_doc
        )kardex2 ON kardex2.num_doc = tab0.num_doc

        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka

            /*
            Se cambia id_tip_nov_ka = 3 por 2 INCI
            Se cambia por id en tabla no_param_concep - 20140916
            */
            where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_licmat from no_param_concep)) and tab0.estado = 1 

            and tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
            group by tab0.num_doc
        )kardex3 ON kardex3.num_doc = tab0.num_doc

        /*
        Se cambia de id-4 por atributo en  la tabla no_tip_nov_ka de afecta_riesgo, para validar cuales afectan en los dias de ARP-ARL - 20130919
        */
        left join
        (
            select tab0.num_doc, sum(tab0.num_dias) CANTIDAD
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.afecta_riesgo = 1 and tab0.estado = 1 and tab0.fecha_inc between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
            group by tab0.num_doc
        )kardex4 ON kardex4.num_doc = tab0.num_doc

        /*
        Incapacidad -> Suspensión por Incapacidad  - 20150312
        */
        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) as max_marca_susinc
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.afecta_antigu = 1 and tab0.estado = 1 
            and tab0.id_tip_nov_ka = (select no_param_concep.id_nov_ka_susinc from no_param_concep where no_param_concep.id_param_concep = 1)
             /*   
            and (
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or 
              tab0.id_periodo = $id_periodo
            )*/
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
            and (
              to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
              or
              trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
              or 
              tab0.id_periodo = $id_periodo
            )
            group by tab0.num_doc
        )kardex5 ON kardex5.num_doc = tab0.num_doc

        /*Licencia remunerada id-10 -- 20170222*/
        /*Licencia remunerada descuenta dias para calculo -- 20190414*/
        /*Licencia remunerada descuenta todos los días de meses anteriores - 20190905*/
        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) as CANTIDAD,  
            min(tab0.fecha_ini) as fecha_ini2, 
            case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
            max(tab0.fecha_fin) as fecha_fin2,
            case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin,
            
            nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novlicrem_ant,
            nvl(sum( fecha_rango_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin ) ),0) as num_dias_novlicrem

            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.id_tip_nov_ka in (select id_tip_nov_ka from no_tip_nov_ka where tiempo_remunerado = 1) and tab0.estado = 1 
            and (
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or 
              tab0.id_periodo = $id_periodo
            )
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)

            group by tab0.num_doc
        )kardexlr ON kardexlr.num_doc = tab0.num_doc

        /*
        Se coloca, tab0.id_periodo en la agrupacion, para tener encuenta todas las novedades - 20161104
        * Se omite  desde ahora ya que es fila solo de LR -20210202
        */
        left join
        (
            select 

            max((SELECT
            max(perd.id_periodo)
            FROM no_periodo perd where perd.id_tipo_periodo = 1 and perd.fecha_fin < tab.fecha_ini)) as periodo_ant,

            tab.id_tipo_doc,                  
            tab.num_doc,
            sum( nvl(tab.CANTIDAD_vaciones,0) ) as CANTIDAD,
            sum(tab.dias_vaciones) as num_dias_vac_ant,
            sum(tab.dias_vaciones) - sum(tab.dias_feb) as num_dias_vac,
            sum(tab.dias_feb) as dias_feb,
            max(tab.fecha_ini) as fecha_ini2, 
            case when max(tab.fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(tab.fecha_ini) end as fecha_ini,
            max(tab.fecha_fin) as fecha_fin2,
            case when max(tab.fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(tab.fecha_fin) end as fecha_fin

            from( 

                select 

                case  when tipnov.operador  = 1 
                          then nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) 
                          else nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) * (-1)
                          end as dias_vaciones,
                --Para el mes de febrero se restan dias 2 o 1 segun año, ya que estos dias se pagan como laborados - 20170314                 
                (case 
                   when (select id_meses from no_periodo where id_periodo = $id_periodo) = 2 and max(tab0.fecha_ini) < (select fecha_fin from no_periodo where id_periodo = $id_periodo) and max(tab0.fecha_fin) > (select fecha_fin from no_periodo where id_periodo = $id_periodo) 
                   then case when to_number((select to_char(fecha_fin,'dd') from no_periodo where id_periodo = $id_periodo)) = 28 then 2 else 1 end
                   else 0 end) * (case  when tipnov.operador  = 1 then 1 else (-1) end) as dias_feb,                 

                max(tab0.fecha_ini) as fecha_ini, max(tab0.fecha_fin) as fecha_fin,
                tab0.id_tipo_doc, tab0.num_doc, count(tab0.id_novedad_vac) CANTIDAD,
                 tipnov.operador,

                 case  when tipnov.operador  = 1 
                 /*then 1
                 else (-1)*/
                 then tab0.num_dias_vac
                 else (-1 * tab0.num_dias_vac)
                 --else nvl(sum( tab0.fecha_fin - tab0.fecha_ini + 1),0) * (-1)
                 end as CANTIDAD_vaciones

                from no_novedad_vac tab0
                left join NO_TIPO_NOV_VAC TIPNOV on TIPNOV.ID_TIPO_NOV_VAC = tab0.ID_TIPO_NOV_VAC

                where 
                1 = 0 and 
                --tipnov.ID_TIPO_NOV_VAC = 1 and
                tipnov.tiempo_liqui = 1 and
                (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) and

               /*
                tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
                */
                /*Marca de vacaciones para todo el tiempo de duracion - 20130917*/
               ( 
                   tab0.fecha_ini  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                   and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                   or
                   tab0.fecha_fin  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                   and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                 or
                   to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
                   or
                   trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
                 )
                 /* Valida que no sea un dia 31, ya que no se cuenta para liquidacion, que posea dias de vac en el periodo liquidado - 20141031 */        
                 --and to_char(tab0.fecha_ini,'dd') != 31
                 and DIAS_RANGO_MES_SIN_TREINTAYUNO(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo = $id_periodo)) > 0

                 group by tab0.id_tipo_doc, tab0.num_doc,
                tipnov.operador, tab0.num_dias_vac, tab0.id_periodo

            )tab

            group by tab.id_tipo_doc, tab.num_doc
         )vaca ON vaca.num_doc = tab0.num_doc


        LEFT JOIN 
        (
            select distinct afilia.num_doc, codigo.codigo
            from no_liquida_aporte afilia
            left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
            left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
            where afilia.id_clase_fondo = 1 
            /*
            and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
            between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
            */--and afilia.estado = 1

            AND ( codigo.tipo != 'EPS' or codigo.tipo != 'CCF' )
            and afilia.id_periodo = $id_periodo
            and afilia.tipo_planilla = 'C'       
        )pension ON pension.num_doc = tab0.num_doc

        LEFT JOIN 
        (
            select distinct afilia.num_doc, codigo.codigo
            from no_liquida_aporte afilia
            left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
            left join no_cod_fondo codigo ON codigo.nitocc = fondo.num_doc
            where afilia.id_clase_fondo = 2 
            /*
            and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
            between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
            --and afilia.estado = 1
            */
            AND codigo.tipo = 'EPS'
            and afilia.id_periodo = $id_periodo
            and afilia.tipo_planilla = 'C'       
        )salud ON salud.num_doc = tab0.num_doc

        LEFT JOIN 
        (
            select distinct 
            CODFON.CODIGO,
            afilia.num_doc, afilia.centro_trabajo as id_centro_trabajo, centra.codigo as centro_trabajo, apo.no_riesgo, centra.cod_ciiu, centra.cod_ncp, apo.no_riesgo as cod_riesgo,
            afilia.fecha_ingreso,
            afilia.riesgo,
           ROW_NUMBER() OVER (
            partition by afilia.num_doc
            ORDER BY afilia.estado DESC, afilia.fecha_ingreso DESC,afilia.id_afilia_fondo DESC
           ) AS rn

            from no_afilia_fondo afilia

            left join no_tipo_aporte apo
            on apo.id_tipo_aporte = afilia.id_tipo_aporte

            left join no_centro_trabajo centra
            on centra.id_centro_trabajo = afilia.centro_trabajo

            left join no_mae_fondos maefon
            on MAEFON.ID_MAE_FONDOS = afilia.ID_MAE_FONDOS

            left join no_cod_fondo codfon
            on maefon.num_doc = codfon.nitocc

            where afilia.id_clase_fondo = 3 --and afilia.estado = 1
            and to_char(afilia.fecha_ingreso,'yyyymm') <= ( select anho_mes from no_periodo_v where id_periodo = $id_periodo )  
        )riesgo ON riesgo.num_doc = tab0.num_doc
        and riesgo.rn = 1

        LEFT JOIN 
        (
            select distinct afilia.num_doc, codigo.codigo
            from no_liquida_aporte afilia
            left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
            left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
            where afilia.id_clase_fondo = 4 
            --and afilia.estado = 1 
            AND codigo.tipo = 'CCF'
            and afilia.id_periodo = $id_periodo
            and afilia.tipo_planilla = 'C'       
        )ccf ON ccf.num_doc = tab0.num_doc


        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1
            and tab0.tipo_planilla = 'C'       
            group by tab0.num_doc
        )pension1 ON pension1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
            max(tab0.tarifa/100) as TARIFA--, tab0.aporte_func AS APORTE
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1  and tab0.porcentaje_patrono > 0 -- and  ( tab0.tarifa = 16 or tab0.tarifa = 26 )
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )pension2 ON pension2.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, sum(tab0.valor_base_fsp) as aporte_fsp, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1 and tab0.porcentaje_patrono = 0
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )pension3 ON pension3.num_doc = tab0.num_doc

        /* Tomar aporte_patrono_licnorem de la tabla de aportes - 20150730*/
        left join 
        (
            select 

            tab0.num_doc, 
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_func) else 0 end as aporte, 
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.num_dias) else 0 end as dias,
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.tarifa)/100 else 0 end as tarifa,
            sum(tab0.aporte_patrono) as aporte_patrono_a, 
            sum(tab1.aporte_patrono) as aporte_patrono_c

            from no_liquida_aporte tab0

            left join no_liquida_aporte tab1
            on tab1.id_periodo = tab0.id_periodo
            and tab1.id_tipo_doc = tab0.id_tipo_doc
            and tab1.num_doc = tab0.num_doc
            and tab1.id_mae_fondos = tab0.id_mae_fondos
            and tab1.id_concep_nomina = tab0.id_concep_nomina
            and tab1.id_clase_fondo = 2
            and tab1.tipo_planilla = 'A'

            where tab0.id_periodo = $id_periodo 
            and tab0.id_clase_fondo = 2
            and tab0.tipo_planilla = 'C' 

            group by tab0.num_doc
        )salud1 ON salud1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/,
            min(tipapo.no_riesgo) as no_riesgo

            from no_liquida_aporte tab0

            left join no_tipo_aporte tipapo
            on tipapo.id_tipo_aporte = tab0.id_tipo_aporte
    
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 3
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )riesgo1 ON riesgo1.num_doc = tab0.num_doc

        left join 
        (
            select 

            tab0.num_doc, 
            case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_func) else 0 end as aporte, 
            case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
            case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.num_dias) else max(tab0.num_dias) end as dias,
            case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
            case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) > sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.tarifa)/100 else 0 end as tarifa,
            sum(tab0.aporte_patrono) as aporte_patrono_a, 
            sum(tab1.aporte_patrono) as aporte_patrono_c

            from no_liquida_aporte tab0

            left join no_liquida_aporte tab1
            on tab1.id_periodo = tab0.id_periodo
            and tab1.id_tipo_doc = tab0.id_tipo_doc
            and tab1.num_doc = tab0.num_doc
            and tab1.id_mae_fondos = tab0.id_mae_fondos
            and tab1.id_concep_nomina = tab0.id_concep_nomina
            and tab1.id_clase_fondo = 4
            and tab1.tipo_planilla = 'A'

            where tab0.id_periodo = $id_periodo 
            and tab0.id_clase_fondo = 4
            and tab0.tipo_planilla = 'C' 

            group by tab0.num_doc
        )ccf1 ON ccf1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 5
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )icbf1 ON icbf1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 6
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )sena1 ON sena1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 7
            and tab0.tipo_planilla = 'C'       
            group by tab0.num_doc
        )esap1 ON esap1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 8
            and tab0.tipo_planilla = 'C'       
            group by tab0.num_doc
        )men1 ON men1.num_doc = tab0.num_doc

        left join 
        (
            select
            id_periodo, num_doc,
            --id_concep_nomina,
            sum(cantidad) as cantidad
            from (
                select
                lotehr.total_horas,
                lotehr.id_periodo,
                hrext.id_tipo_doc,
                hrext.num_doc,
                hrext.cantidad,
                tiphr.id_concep_nomina

                from no_lote_hr_extra lotehr

                left join no_hr_extra hrext
                on lotehr.id_lote_hr_extra = hrext.id_lote_hr_extra

                left join no_tipo_hr_extra tiphr
                on tiphr.id_tipo_hr_extra = hrext.id_tipo_hr_extra

                where lotehr.id_periodo = $id_periodo
                and lotehr.estado = 0
            )

            group by
            id_periodo, num_doc--, id_concep_nomina
        )hrextra
        ON hrextra.num_doc = tab0.num_doc

        /*Obtener IBC del anterior mes de las vacaciones - 20191220*/
        left join(

            SELECT
            id_periodo,
            id_tipo_doc,
            num_doc,
            max(valor_base) as valor_base
            FROM no_liquida_aporte
            where
            id_periodo < $id_periodo
            --and id_tipo_doc = 1
            --and num_doc = 98565401
            and id_clase_fondo = 2
            and tipo_planilla in ( 'C','A' )

            group by
            id_periodo,
            id_tipo_doc,
            num_doc

        )liqapor
        on liqapor.id_periodo = vaca.periodo_ant
        and liqapor.id_tipo_doc = tab0.id_tipo_doc
        and liqapor.num_doc = tab0.num_doc


        WHERE tab0.periodo = $id_periodo 
        and (tab0.actual = 1 or
          ( tab0.actual = 0 
            /*
            Se cambia fecha de termina(ultimo dia de trabajo) por fecha de retiro, 
            para tener encuenta si trabajo en el periodo al menos 1 dia - 20130828                    
            */
            and tab5.fecha_retiro != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and tab5.fecha_termina
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))
          )
        )
        and  ( kardexlr.cantidad>0 )
        and ( nvl(ccf1.dias,0) + nvl(salud1.dias,0) ) > 0


union

/*
* Funcionarios con novedades de IGE - 20170309, tipo A
* Se elimina presentar de fecha para novedad de IGE, por que se esta permitiendo registrar y reportar de novedades anteriores - 20190903
*/
select
penfun.id_pension_func,
5 as c00,--order de mensual luego licencia
0 as c0,
'02' AS C1,
LPAD(rownum,5,0) AS C2,
lpad( (REPLACE(tdoc.abreviacion,'.','')), 2,' ') AS C3,
RPAD(to_char(tab0.num_doc),16,' ') AS C4,
rpad(to_char(tab0.num_doc),16,' ') as c4a,
'01' AS C5,
case when penfun.id_pension_func is not null then penfun.codigo_suptipo else '00' end AS C6,--suptipo de pensionado
' ' AS C7,
' ' AS C8,
RPAD(nvl(tab2.coddepto,' '),2,' ') AS C9,
RPAD(nvl(substr(tab3.codmun_text,3),' '),3,' ') AS C10,
RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11,
RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11a,
RPAD(nvl(tab4.segundo_apellido,' '),30,' ') AS C12,
RPAD(nvl(tab4.primer_nombre,' '),20,' ') AS C13,
RPAD(nvl(tab4.segundo_nombre,' '),30,' ') AS C14,
case when tab5.fecha_ingreso
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then ' ' else ' ' end AS C15,
case when tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then ' ' else ' ' end AS C16,
' ' AS C17,
' ' AS C18,
' ' AS C19,
' ' AS C20,
--No La novedad SLN no debe de combinarse con otro tipo de novedad  - 20161122
case when ascenso.cantidad>0 then ' ' else ' 'end AS C21,
'A' AS C22,
case when encargo.cantidad>0 then ' ' else ' 'end AS C23,
case when kardex1.cantidad>0 and ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then 'X' when kardex1.cantidad>0 and  nvl(max_marca,0) = 1 and nvl(max_marca_susinc,0) = 0 then 'C' else ' ' end AS C24,
case when kardex2.cantidad>0 then 'X' else ' 'end AS C25,--inc temp enfermedad
case when kardex3.cantidad>0 then ' ' else ' 'end AS C26,--lic maternidad
case when vaca.cantidad>0 then ' ' when kardexlr.cantidad>0 then ' ' else ' 'end AS C27,
' ' AS C28,
' ' AS C29,
LPAD(to_char(nvl(kardex4.cantidad,0)),2,0) AS C30,--inc por accidente de trabajo
rpad(nvl(pension.codigo,' '),6,' ') as c31,
rPAD(' ',6,' ') AS C32,
rPAD(nvl(salud.codigo,' '),6,' ') AS C33,
rpad(' ',6,' ') as c34,
rPAD(nvl(ccf.codigo,' '),6,' ') AS C35,
lpad( kardex2.num_dias_novkar ,2,0) as c36,
lpad( kardex2.num_dias_novkar ,2,0) as c37,
lpad( kardex2.num_dias_novkar ,2,0) AS C38, 
--39 dias parafiscales
lpad( kardex2.num_dias_novkar ,2,0) AS C39,
LPAD( case when nvl(tab6.asignacion_basica,0) != 0 then nvl(tab6.asignacion_basica,0) else ceil( ( nvl(pension1.ibc,0)-nvl(riesgo1.ibc,0) )/1)*1 end  ,9,0) AS C40,
' ' AS C41,

-- Se validan los dias de retiro del funionario - 20141007
LPAD(  case when (kardex2.num_dias_novkar) != 0 then ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1 else ceil( ( nvl(pension1.ibc,0)/30*(kardex2.num_dias_novkar) ) ) end ,9,0) AS C42,
LPAD(  case when (kardex2.num_dias_novkar) != 0 then ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1 else ceil( ( nvl(salud1.ibc,0)/30*(kardex2.num_dias_novkar) ) ) end ,9,0) AS C43,
LPAD(  case when (kardex2.num_dias_novkar) != 0 then ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1 else ceil( ( nvl(salud1.ibc,0)/30*(kardex2.num_dias_novkar) ) ) end ,9,0) AS C44,
LPAD(  case when (kardex2.num_dias_novkar) != 0 then ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1 else ceil( ( nvl(ccf1.ibc,0)/30*(kardex2.num_dias_novkar) ) ) end ,9,0) AS C45,
-- Se debe calcular a partir de octubre la tarifa del patrono - 20131028
-- No debe llevar registro de pension - 20140729
-- Se coloca que para CYC, si debe llevar registro de pension - 20170127
--rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) as c46,
--rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0) as C46,
case when 4 in (4) then (rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0)) else rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) end as C46,
--lPAD(nvl(null,0) + nvl(null,0),9,0) AS C47,
--lpad( round( round( nvl(tab6.asignacion_basica,0)/30*(30-nvl(pension2.dias-nvl(kardex4.cantidad,0),0))  ,-3) * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,-2) ,9,0) as c47,
lPAD( ceil( (ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1)*nvl(pension2.tarifa,0) /100)*100 ,9,0) as c47,
lPAD(0,9,0) AS C48,
lpad(0,9,0) as C49,
lPAD( ceil( (ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1)*nvl(pension2.tarifa,0) /100)*100 ,9,0) as C50,
lPAD( ceil( ((ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1)*nvl(pension3.tarifa,0))/2 /100)*100 ,9,0) as c51,
lpad( ceil(( ((ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1)*nvl(pension3.tarifa,0)) - ((ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1)*nvl(pension3.tarifa,0))/2 )/100)*100 ,9,0) as c52,
rpad(0,9,0) as c53,
rpad( case when nvl(salud1.tarifa,0) = 0 then '0.0' when nvl(salud1.tarifa,0) < 1 then '0' else '' end || + nvl(salud1.tarifa,0) ,7,0) as c54,
lPAD( ceil( (ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1)*nvl(salud1.tarifa,0) /100)*100 ,9,0) AS c55,

lpad( case when '01' = '40' then 0 else 0 end ,9,0) as c56,
rpad(' ',15,' ') as c57,
rpad(0,9,0) as C58,
rpad(' ',15,' ') as C59,
rpad(0,9,0) as c60,
--rpad( case when nvl(riesgo1.tarifa,0) = 0 then '0.0' when nvl(riesgo1.tarifa,0) < 1 then '0' else '' end || + nvl(riesgo1.tarifa,0) ,9,0) as C61,
rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,9,0) as C61,
lpad(nvl(riesgo.centro_trabajo,0),9,0) as C62,
lpad( nvl(0,0) ,9,0) as c63,
--lpad( ceil( ( nvl(riesgo1.aporte_patrono,0)/30*(kardex2.num_dias_novkar) )/100)*100 ,9,0) as c63,
rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) AS C64,
--lpad( nvl(ccf1.aporte_patrono,0) ,9,0) as c65,
lpad( ceil( ( nvl(ccf1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c65,
rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C66,
--lpad( nvl(sena1.aporte_patrono,0) ,9,0) as c67,
lpad( ceil( ( nvl(sena1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c67,
rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C68,
--lpad( nvl(icbf1.aporte_patrono,0) ,9,0) as c69,
lpad( ceil( ( nvl(icbf1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c69,
rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C70,
--lpad( nvl(esap1.aporte_patrono,0) ,9,0) as c71,
lpad( ceil( ( nvl(esap1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c71,
rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C72,
--lpad( nvl(men1.aporte_patrono,0) ,9,0) as c73,
lpad( ceil( ( nvl(men1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c73,
'  ' AS C74,
RPAD(to_char(' '),16,' ') AS C75,
RPAD(to_char('N'),1,' ') AS C76,
RPAD(riesgo.codigo,6,' ') AS C77,
nvl(RPAD( nvl(riesgo1.no_riesgo,riesgo.riesgo),1,' '),' ') AS C78,
RPAD(to_char(' '),1,' ') AS C79,

RPAD(to_char(' '),10,' ') AS C80,--ING
RPAD(to_char(' '),10,' ') AS C81,--RET
RPAD(to_char(' '),10,' ') AS C82,--VSP

RPAD(to_char(' '),10,' ') AS C83,--SLN
RPAD(to_char(' '),10,' ') AS C84,--SLN

RPAD(to_char(' '),10,' ') AS C85,--IGE
RPAD(to_char(' '),10,' ') AS C86,--IGE
/*
case when kardex2.fecha_ini
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(kardex2.fecha_ini,'yyyy-mm-dd')
  else RPAD(to_char(' '),10,' ') end AS C85,--IGE
case when kardex2.fecha_fin
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(kardex2.fecha_fin,'yyyy-mm-dd')
when kardex2.fecha_fin < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') 
    then to_char( (kardex2.fecha_ini+(kardex2.num_dias_novkar)) ,'yyyy-mm-dd')
else RPAD(to_char(' '),10,' ') end AS C86,--IGE
*/
RPAD(to_char(' '),10,' ') AS C87,--LMA
RPAD(to_char(' '),10,' ') AS C88,--LMA

RPAD(to_char(' '),10,' ') AS C89,--VAC-LR
RPAD(to_char(' '),10,' ') AS C90,--VAC-LR

RPAD(to_char(' '),10,' ') AS C91,--VCT
RPAD(to_char(' '),10,' ') AS C92,--VCT
RPAD(to_char(' '),10,' ') AS C93,--IRL
RPAD(to_char(' '),10,' ') AS C94,--IRL
LPAD(  case when (kardex2.num_dias_novkar) != 0 then ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1 else ceil( ( nvl(ccf1.ibc,0)/30*(kardex2.num_dias_novkar) ) ) end ,9,0) as C95,--IBC parafiscales
LPAD(  case when  nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0) < 300 then nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0)  else 300 end  ,3,0) AS C96,--HORAS EXTRAS
RPAD(to_char(' '),10,' ') AS C97,--Rad exterior
case when tab0.id_anhos || lpad(tab0.id_meses, 2, '0') >= 202211 then RPAD(to_char(riesgo.cod_riesgo|| riesgo.cod_ciiu || riesgo.cod_ncp),7,' ') else '' end AS C98

from no_estado_func_v tab0

left join tipo_documento tdoc
on tdoc.id_tipo_doc = tab0.id_tipo_doc

left join centro_operacion tab1 ON tab1.id_cen_op = tab0.id_cen_op
left join departamento tab2 ON tab2.id_depto = tab1.id_depto
left join municipios tab3 ON tab3.codmun = tab1.codmun
left join no_datos_funcionario_v tab4 ON tab4.id_tipo_doc = tab0.id_tipo_doc and tab4.num_doc = tab0.num_doc

left join (
    select pen.*, sub.descripcion as suptipo_cotizante, sub.codigo as codigo_suptipo
    from no_pension_func pen
    left join no_suptipo_cotizante_v sub
    on pen.id_suptipo_cotizante = sub.id_suptipo_cotizante
    where
    pen.estado = 1
)penfun
on penfun.id_tipo_doc = tab0.id_tipo_doc 
and penfun.num_doc = tab0.num_doc

--left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
left join (
  SELECT
  case when aut.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then (30 - to_char(aut.fecha_termina,'dd') ) else 0 end as dias_retiro,
   aut.*,
   ROW_NUMBER() OVER (
    partition by aut.num_doc
    ORDER BY aut.estado DESC, aut.fecha_ingreso DESC
   ) AS rn
  from no_nombramiento aut
  
  left join no_periodo_v per
  on per.id_periodo = aut.id_periodo
  
  where 
  per.anho_mes <= ( SELECT anho_mes FROM no_periodo_v where id_periodo = $id_periodo )
)tab5
on tab5.id_tipo_doc = tab0.id_tipo_doc 
and tab5.num_doc = tab0.num_doc
and tab5.rn = 1

--left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp
/*
Se cambia para tomar valor de concepto_periodo para el concepto_nomina 1001 del periodo de tipo mensual o nomina adicional - 20130827
*/
left join(
    
    select * from(
            select 
            concep.id_tipo_doc,
            concep.num_doc,
            concep.valor as asignacion_basica ,
            
             ROW_NUMBER() OVER (
              PARTITION BY concep.num_doc
              order by per.id_tipo_periodo asc, concep.fecha_hasta desc
             ) as rn
           
            from no_concepto_periodo concep
  
            join no_periodo per
            on concep.PERIODO = per.id_periodo
            
            where 
            concep.id_concep_nomina = (select id_concep_basica from no_param_concep) 
            
            and (per.id_tipo_periodo = 1 or per.id_tipo_periodo = 2)
            and (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = concep.PERIODO) = (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) 
    )where rn = 1
    
)tab6 ON tab6.id_tipo_doc = tab0.id_tipo_doc and tab6.num_doc = tab0.num_doc
and tab6.rn = 1

left join
(
  /* se cambia filtro por estado activo y id_tipo_novedad = 1 - 20150422 */
  select 
  tab0.num_doc,count(tab0.id_novedad_personal) as cantidad
  from no_novedad_personal tab0
  left join no_novedades nov on tab0.id_novedad = nov.id_novedad
  where 
  tab0.estado = 1 and nov.id_tipo_novedad = 1
  and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
  group by tab0.num_doc
) ascenso ON ascenso.num_doc = tab0.num_doc

left join
(
    select num_doc, sum(cantidad) AS CANTIDAD
    from(
    
        select tab0.num_doc,count(tab0.id_novedad_personal) AS CANTIDAD
        from no_novedad_personal tab0
        where tab0.id_novedad IN ( 3, 7 )  
        and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        group by tab0.num_doc
        
        union 
        
        select tab0.num_doc,count(tab0.id_bonifica_servicios) AS CANTIDAD
        from no_bonifica_servicios tab0
        where tab0.estado=1 and tab0.fecha_bonifica between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        group by tab0.num_doc
        
        union 
        
        select tab0.num_doc,count(tab0.id_hr_extra) AS CANTIDAD
        from no_hr_extra tab0
        left join no_lote_hr_extra tab1 ON tab1.id_lote_hr_extra = tab0.id_lote_hr_extra
        where tab1.estado=0 and tab1.id_periodo = $id_periodo
        group by tab0.num_doc
    
    )GROUP BY num_doc

) encargo ON encargo.num_doc = tab0.num_doc

left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD, max(tab1.suspension) as max_marca,
    max(fecha_ini) as fecha_ini2, 
    case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
    max(fecha_fin) as fecha_fin2,
    case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.afecta_antigu = 1 and tab0.estado = 1 
     /*   
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo = $id_periodo
    )*/
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    and (
      to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
      or
      trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
      or 
      tab0.id_periodo = $id_periodo
    )
    group by tab0.num_doc
)kardex1 ON kardex1.num_doc = tab0.num_doc

/* Valida que si la novedad es superior al IBC tome el IBC - 20210210::LAVILA*/
left join
(
    
    select 
    case when max(salud1.ibc) < sum(liq.valor_liquidado) then max(salud1.ibc) else sum(liq.valor_liquidado) end as valor_liquidado,
    tab0.num_doc, count(tab0.id_novedad_kardex) CANT, 
    min(tab0.fecha_ini) as fecha_ini2, 
    case when min(tab0.fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else min(fecha_ini) end as fecha_ini,
    max(tab0.fecha_fin) as fecha_fin2,
    case when max(tab0.fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin,
    
    sum( case when tab0.num_dias > 0 and tab0.prorroga = 1 then 1 when tab0.num_dias > (tab1.dias_patrono) and tab0.prorroga = 0 then 1 else 0 end) as CANTIDAD,
    /*nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novkar*/
    case 
    when max((select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo)) < (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
        then nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0)
    when nvl(sum( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin ) ),0) > 30
    then 30 else nvl(sum( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin ) ),0) end as num_dias_novkar_ant,
    /*Toma dias correctos de mes actual y fechas anteriores, calcula cada uno por independiente, al final valida si supera 30 dias - 20190610*/
    /*Incidente 14326, Se suspende sumar dia 31 por conflicto con incapacidades - 20190926*/ 
    /*Toma maximo hasta fecha del mes actual - 20191023*/ 
    case 
    when nvl(sum( 
    
        case 
        when (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) < (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
        then        
        nvl( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ,0)        
        else 
        --nvl( tab0.fecha_fin - (tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end) ) + 1 ,0)
        --nvl( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin ) ,0) 
        nvl( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),
        
        (case when (tab0.fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  
        then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  
        else (tab0.fecha_fin) end)
        
        ) ,0) 
        end
        
        -
        
        /*Restar dias 29 y 30 si aplica apra febrero - 20230413/20230914::LAVILA*/
        (
            case when EXTRACT(MONTH FROM tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end)) <= 2 and EXTRACT(MONTH FROM (tab0.fecha_fin) ) >= 3
            then 30 - EXTRACT( DAY FROM last_day( TO_DATE('01/02/'||(select id_anhos from no_periodo where id_periodo = $id_periodo),'dd/mm/yyyy') ) )
            else 0 end            
        )
        
    ),0) > 30
    then 30
    else nvl(sum( 
    
        case 
        when (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) < (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
        then        
        nvl( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ,0)        
        else 
        --nvl( tab0.fecha_fin - (tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end) ) + 1 ,0)
        --nvl( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin ) ,0) 
        nvl( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),
        
        (case when (tab0.fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  
        then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  
        else (tab0.fecha_fin) end)
        
        ) ,0) 
        end
        
        -
        
        /*Restar dias 29 y 30 si aplica apra febrero - 20230413/20230914::LAVILA*/
        (
            case when EXTRACT(MONTH FROM tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end)) <= 2 and EXTRACT(MONTH FROM (tab0.fecha_fin) ) >= 3
            then 30 - EXTRACT( DAY FROM last_day( TO_DATE('01/02/'||(select id_anhos from no_periodo where id_periodo = $id_periodo),'dd/mm/yyyy') ) )
            else 0 end            
        )
        
    ),0) end as num_dias_novkar
    
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    
    left join no_liquida_nomina liq on tab0.num_doc = liq.num_doc and tab0.id_tipo_doc = liq.id_tipo_doc
    and liq.id_periodo in ( select perd.id_periodo from no_periodo perd where perd.id_anhos = (select id_anhos from no_periodo where id_periodo = $id_periodo) and perd.id_meses = (select id_meses from no_periodo where id_periodo = $id_periodo) ) 
    and liq.fecha_desde = tab0.fecha_ini and liq.fecha_hasta = tab0.fecha_fin
    and (
        liq.id_concep_nomina in (         
         select ka.id_concep_nomina from no_concep_ka ka where ka.id_tip_nov_ka in (select distinct id_nov_ka_enfcom from no_param_concep)    
        ) or (liq.id_concep_nomina in (1189))
    )
    

    /* Incidente #20399, SGC Tomar ibc ya que supera la novedad el valor - 20210208*/
    left join 
    (
        select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
        max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
        , sum(tab0.aporte_patrono_licnorem) AS aporte_patrono_licnorem
        , sum(tab0.num_dias_licnorem) AS num_dias_licnorem
        from no_liquida_aporte tab0
        where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 2
        and tab0.tipo_planilla = 'A'     
        group by tab0.num_doc
    )salud1 ON salud1.num_doc = tab0.num_doc
    
    /*
    Se cambia id_tip_nov_ka = 2 por 1 INCI
    Se deja quemado id 9 para novedad por ajuste de conceptos de reintegro ANM - 20140522
    Se cambia por id en tabla no_param_concep - 20140916
    Toma todos los periodos del mes segun filtro - 20191106
    */
    where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_enfcom from no_param_concep),9) and tab0.estado = 1 
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo in ( select perd.id_periodo from no_periodo perd where perd.id_anhos = (select id_anhos from no_periodo where id_periodo = $id_periodo) and perd.id_meses = (select id_meses from no_periodo where id_periodo = $id_periodo) ) 
    )
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    
    /*
    and (
      to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
      or
      trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
      and 
      (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    )
    */
    group by tab0.num_doc
)kardex2 ON kardex2.num_doc = tab0.num_doc

left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    
    /*
    Se cambia id_tip_nov_ka = 3 por 2 INCI
    Se cambia por id en tabla no_param_concep - 20140916
    */
    where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_licmat from no_param_concep)) and tab0.estado = 1 
    
    and tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
    group by tab0.num_doc
)kardex3 ON kardex3.num_doc = tab0.num_doc

/*
Se cambia de id-4 por atributo en  la tabla no_tip_nov_ka de afecta_riesgo, para validar cuales afectan en los dias de ARP-ARL - 20130919
*/
left join
(
    select tab0.num_doc, sum(tab0.num_dias) CANTIDAD
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.afecta_riesgo = 1 and tab0.estado = 1 and tab0.fecha_inc between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
    group by tab0.num_doc
)kardex4 ON kardex4.num_doc = tab0.num_doc

/*
Incapacidad -> Suspensión por Incapacidad  - 20150312
*/
left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) as max_marca_susinc
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.afecta_antigu = 1 and tab0.estado = 1 
    and tab0.id_tip_nov_ka = (select no_param_concep.id_nov_ka_susinc from no_param_concep where no_param_concep.id_param_concep = 1)
     /*   
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo = $id_periodo
    )*/
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    and (
      to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
      or
      trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
      or 
      tab0.id_periodo = $id_periodo
    )
    group by tab0.num_doc
)kardex5 ON kardex5.num_doc = tab0.num_doc

/*Licencia remunerada id-10 -- 20170222*/
/*Licencia remunerada descuenta dias para calculo -- 20190414*/
/*Licencia remunerada descuenta todos los días de meses anteriores - 20190905*/
left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) as CANTIDAD,  
    min(tab0.fecha_ini) as fecha_ini2, 
    case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
    max(tab0.fecha_fin) as fecha_fin2,
    case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin,
    
    nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novlicrem_ant,
    nvl(sum( fecha_rango_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin ) ),0) as num_dias_novlicrem
    
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.id_tip_nov_ka in (select id_tip_nov_ka from no_tip_nov_ka where tiempo_remunerado = 1) and tab0.estado = 1 
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo = $id_periodo
    )
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    
    group by tab0.num_doc
)kardexlr ON kardexlr.num_doc = tab0.num_doc

/*
Se coloca, tab0.id_periodo en la agrupacion, para tener encuenta todas las novedades - 20161104
*/
left join
(
    select 

   id_tipo_doc,                  
   num_doc,
   sum( nvl(CANTIDAD_vaciones,0) ) as CANTIDAD,
   sum(dias_vaciones) as num_dias_vac,
   max(fecha_ini) as fecha_ini2, 
   case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
   max(fecha_fin) as fecha_fin2,
   case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin

   from( 

       select 
       
       case  when tipnov.operador  = 1 
                 then nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) 
                 else nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) * (-1)
                 end as dias_vaciones,
                 
       max(tab0.fecha_ini) as fecha_ini, max(tab0.fecha_fin) as fecha_fin,
       tab0.id_tipo_doc, tab0.num_doc, count(tab0.id_novedad_vac) CANTIDAD,
        tipnov.operador,

        case  when tipnov.operador  = 1 
        /*then 1
        else (-1)*/
        then tab0.num_dias_vac
        else (-1 * tab0.num_dias_vac)
        --else nvl(sum( tab0.fecha_fin - tab0.fecha_ini + 1),0) * (-1)
        end as CANTIDAD_vaciones

       from no_novedad_vac tab0
       left join NO_TIPO_NOV_VAC TIPNOV on TIPNOV.ID_TIPO_NOV_VAC = tab0.ID_TIPO_NOV_VAC
       
       where 
       --tipnov.ID_TIPO_NOV_VAC = 1 and
       tipnov.tiempo_liqui = 1 and
       (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) and
       
      /*
       tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
       and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
       */
       /*Marca de vacaciones para todo el tiempo de duracion - 20130917*/
      ( 
          tab0.fecha_ini  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          or
          tab0.fecha_fin  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        or
          to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
          or
          trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
        )
        /* Valida que no sea un dia 31, ya que no se cuenta para liquidacion, que posea dias de vac en el periodo liquidado - 20141031 */        
        --and to_char(tab0.fecha_ini,'dd') != 31
        and DIAS_RANGO_MES_SIN_TREINTAYUNO(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo = $id_periodo)) > 0
        
        group by tab0.id_tipo_doc, tab0.num_doc,
       tipnov.operador, tab0.num_dias_vac, tab0.id_periodo

   ) 

   group by id_tipo_doc, num_doc
)vaca ON vaca.num_doc = tab0.num_doc


LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
    where afilia.id_clase_fondo = 1 
    /*
    and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
    between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
    */--and afilia.estado = 1
   
    AND ( codigo.tipo != 'EPS' or codigo.tipo != 'CCF' )
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'       
)pension ON pension.num_doc = tab0.num_doc

LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo ON codigo.nitocc = fondo.num_doc
    where afilia.id_clase_fondo = 2 
    /*
    and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
    between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
    --and afilia.estado = 1
    */
    AND codigo.tipo = 'EPS'
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'       
)salud ON salud.num_doc = tab0.num_doc

LEFT JOIN 
(
    select distinct 
    CODFON.CODIGO,
    afilia.num_doc, afilia.centro_trabajo as id_centro_trabajo, centra.codigo as centro_trabajo, apo.no_riesgo, centra.cod_ciiu, centra.cod_ncp, apo.no_riesgo as cod_riesgo,
    afilia.fecha_ingreso,
    afilia.riesgo,
   ROW_NUMBER() OVER (
    partition by afilia.num_doc
    ORDER BY afilia.estado DESC, afilia.fecha_ingreso DESC,afilia.id_afilia_fondo DESC
   ) AS rn
   
    from no_afilia_fondo afilia
    
    left join no_tipo_aporte apo
    on apo.id_tipo_aporte = afilia.id_tipo_aporte
    
    left join no_centro_trabajo centra
    on centra.id_centro_trabajo = afilia.centro_trabajo
    
    left join no_mae_fondos maefon
    on MAEFON.ID_MAE_FONDOS = afilia.ID_MAE_FONDOS
    
    left join no_cod_fondo codfon
    on maefon.num_doc = codfon.nitocc
    
    where afilia.id_clase_fondo = 3 --and afilia.estado = 1
    and to_char(afilia.fecha_ingreso,'yyyymm') <= ( select anho_mes from no_periodo_v where id_periodo = $id_periodo )
)riesgo ON riesgo.num_doc = tab0.num_doc
and riesgo.rn = 1

LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
    where afilia.id_clase_fondo = 4 
    --and afilia.estado = 1 
    AND codigo.tipo = 'CCF'
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'       
)ccf ON ccf.num_doc = tab0.num_doc


left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1
    and tab0.tipo_planilla = 'A'       
    group by tab0.num_doc
)pension1 ON pension1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.tarifa/100) as TARIFA--, tab0.aporte_func AS APORTE
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1  and tab0.porcentaje_patrono > 0 -- and  ( tab0.tarifa = 16 or tab0.tarifa = 26 )
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)pension2 ON pension2.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, sum(tab0.valor_base_fsp) as aporte_fsp, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1 and tab0.porcentaje_patrono = 0
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)pension3 ON pension3.num_doc = tab0.num_doc

/* Tomar aporte_patrono_licnorem de la tabla de aportes - 20150730*/
left join 
(
    select 

    tab0.num_doc, 
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_func) else 0 end as aporte, 
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.num_dias) else 0 end as dias,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.tarifa)/100 else 0 end as tarifa,
    sum(tab0.aporte_patrono) as aporte_patrono_a, 
    sum(tab1.aporte_patrono) as aporte_patrono_c

    from no_liquida_aporte tab0

    left join no_liquida_aporte tab1
    on tab1.id_periodo = tab0.id_periodo
    and tab1.id_tipo_doc = tab0.id_tipo_doc
    and tab1.num_doc = tab0.num_doc
    and tab1.id_mae_fondos = tab0.id_mae_fondos
    and tab1.id_concep_nomina = tab0.id_concep_nomina
    and tab1.id_clase_fondo = 2
    and tab1.tipo_planilla = 'C'

    where tab0.id_periodo = $id_periodo 
    and tab0.id_clase_fondo = 2
    and tab0.tipo_planilla = 'A' 

    group by tab0.num_doc
)salud1 ON salud1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/,
    min(tipapo.no_riesgo) as no_riesgo
    
    from no_liquida_aporte tab0
    
    left join no_tipo_aporte tipapo
    on tipapo.id_tipo_aporte = tab0.id_tipo_aporte
    
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 3
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)riesgo1 ON riesgo1.num_doc = tab0.num_doc

left join 
(
      select 
      
      tab0.num_doc, 
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_func) else 0 end as aporte, 
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.num_dias) else 0 end as dias,
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.tarifa)/100 else 0 end as tarifa,
      sum(tab0.aporte_patrono) as aporte_patrono_a, 
      sum(tab1.aporte_patrono) as aporte_patrono_c
      
      from no_liquida_aporte tab0
      
      left join no_liquida_aporte tab1
      on tab1.id_periodo = tab0.id_periodo
      and tab1.id_tipo_doc = tab0.id_tipo_doc
      and tab1.num_doc = tab0.num_doc
      and tab1.id_mae_fondos = tab0.id_mae_fondos
      and tab1.id_concep_nomina = tab0.id_concep_nomina
      and tab1.id_clase_fondo = 4
      and tab1.tipo_planilla = 'C'
      
      where tab0.id_periodo = $id_periodo 
      and tab0.id_clase_fondo = 4
      and tab0.tipo_planilla = 'A' 
      
      group by tab0.num_doc
)ccf1 ON ccf1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 5
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)icbf1 ON icbf1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 6
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)sena1 ON sena1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 7
    and tab0.tipo_planilla = 'A'       
    group by tab0.num_doc
)esap1 ON esap1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 8
    and tab0.tipo_planilla = 'A'       
    group by tab0.num_doc
)men1 ON men1.num_doc = tab0.num_doc

left join 
(
    select
    id_periodo, num_doc,
    --id_concep_nomina,
    sum(cantidad) as cantidad
    from (
        select
        lotehr.total_horas,
        lotehr.id_periodo,
        hrext.id_tipo_doc,
        hrext.num_doc,
        hrext.cantidad,
        tiphr.id_concep_nomina

        from no_lote_hr_extra lotehr

        left join no_hr_extra hrext
        on lotehr.id_lote_hr_extra = hrext.id_lote_hr_extra

        left join no_tipo_hr_extra tiphr
        on tiphr.id_tipo_hr_extra = hrext.id_tipo_hr_extra

        where lotehr.id_periodo = $id_periodo
        and lotehr.estado = 0
    )

    group by
    id_periodo, num_doc--, id_concep_nomina
)hrextra
ON hrextra.num_doc = tab0.num_doc


WHERE tab0.periodo = $id_periodo 
and (tab0.actual = 1 or
  ( tab0.actual = 0 
    /*
    Se cambia fecha de termina(ultimo dia de trabajo) por fecha de retiro, 
    para tener encuenta si trabajo en el periodo al menos 1 dia - 20130828                    
    */
    and tab5.fecha_retiro != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))
  )
)
and kardex2.cantidad > 0 and kardex2.num_dias_novkar > 0
and ( nvl(ccf1.dias,0) + nvl(salud1.dias,0) ) > 0

/* Omitir terceros que no tiene cambios en CCF - 20231002::LAVILA*/
and tab0.num_doc not in (

    select 
    tab.num_doc
    from (
        
            select  
            total.num_doc,
            count(total.tipo_planilla) as cant, 
            sum(total.aporte_ibc) as total1, 
            sum(total.IBC) as total2, 
            sum(total.IBC_a) as total_a, 
            sum(total.IBC_c) as total_c, 
            sum(total.IBC_c) - sum(total.IBC_a) as total,
            case when (sum(total.IBC_c) - sum(total.IBC_a) > 0) then sum(total.IBC_c) else 0 end as total_neg,
            sum(total.IBC_c) + sum(total.IBC_a) as total_sum 
            
            from (
                    select tab0.tipo_planilla,
                    tab0.num_doc, sum(nvl(tab0.valor_base,0)) as aporte_IBC, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, 
                    MAX(nvl(tab0.valor_base,0)) AS IBC,
                    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/, 
                  case when tab0.tipo_planilla = 'A' and max(tab0.num_dias) != 0 then max(nvl(tab0.valor_base,0)) else 0 end as ibc_a, 
                  case when tab0.tipo_planilla = 'C' and max(tab0.num_dias) != 0 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC_c
                    from no_liquida_aporte tab0
                    --se filtra id4-CAJA DE COMPENSACION FAMILIAR en vez de id5 - 20130802
                    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 4
                    
                    group by tab0.tipo_planilla,tab0.num_doc
                    
             )total  
             group by
            total.num_doc    
       
    )tab   
    where
    tab.total_neg <= 0
    and tab.total <= 0
    and tab.total_a > 0
    and tab.total_c > 0
    
)

union 

        /*
        * Funcionarios con novedades de IGE - 20170731, tipo C
        * Se elimina presentar de fecha para novedad de IGE, por que se esta permitiendo registrar y reportar de novedades anteriores - 20190903
        */
        select
        penfun.id_pension_func,
        5 as c00,--order de mensual luego licencia
        0 as c0,
        '02' AS C1,
        LPAD(rownum,5,0) AS C2,
        lpad( (REPLACE(tdoc.abreviacion,'.','')), 2,' ') AS C3,
        RPAD(to_char(tab0.num_doc),16,' ') AS C4,
        rpad(to_char(tab0.num_doc),16,' ') as c4a,
        '01' AS C5,
        case when penfun.id_pension_func is not null then penfun.codigo_suptipo else '00' end AS C6,--suptipo de pensionado
        ' ' AS C7,
        ' ' AS C8,
        RPAD(nvl(tab2.coddepto,' '),2,' ') AS C9,
        RPAD(nvl(substr(tab3.codmun_text,3),' '),3,' ') AS C10,
        RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11,
        RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11a,
        RPAD(nvl(tab4.segundo_apellido,' '),30,' ') AS C12,
        RPAD(nvl(tab4.primer_nombre,' '),20,' ') AS C13,
        RPAD(nvl(tab4.segundo_nombre,' '),30,' ') AS C14,
        case when tab5.fecha_ingreso
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then ' ' else ' ' end AS C15,
        case when tab5.fecha_termina
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then ' ' else ' ' end AS C16,
        ' ' AS C17,
        ' ' AS C18,
        ' ' AS C19,
        ' ' AS C20,
        --No La novedad SLN no debe de combinarse con otro tipo de novedad  - 20161122
        case when ascenso.cantidad>0 then ' ' else ' 'end AS C21,
        'C' AS C22,
        case when encargo.cantidad>0 then ' ' else ' 'end AS C23,
        case when kardex1.cantidad>0 and ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then 'X' when kardex1.cantidad>0 and  nvl(max_marca,0) = 1 and nvl(max_marca_susinc,0) = 0 then 'C' else ' ' end AS C24,
        case when kardex2.cantidad>0 then 'X' else ' 'end AS C25,--inc temp enfermedad
        case when kardex3.cantidad>0 then ' ' else ' 'end AS C26,--lic maternidad
        case when vaca.cantidad>0 then ' ' when kardexlr.cantidad>0 then ' ' else ' 'end AS C27,
        ' ' AS C28,
        ' ' AS C29,
        LPAD(to_char(nvl(kardex4.cantidad,0)),2,0) AS C30,--inc por accidente de trabajo
        rpad(nvl(pension.codigo,' '),6,' ') as c31,
        rPAD(' ',6,' ') AS C32,
        rPAD(nvl(salud.codigo,' '),6,' ') AS C33,
        rpad(' ',6,' ') as c34,
        rPAD(nvl(ccf.codigo,' '),6,' ') AS C35,
        lpad( kardex2.num_dias_novkar ,2,0) as c36,
        lpad( kardex2.num_dias_novkar ,2,0) as c37,
        lpad( kardex2.num_dias_novkar ,2,0) AS C38, 
        --39 dias parafiscales
        lpad( kardex2.num_dias_novkar ,2,0) AS C39,
        LPAD( case when nvl(tab6.asignacion_basica,0) != 0 then nvl(tab6.asignacion_basica,0) else ceil( ( nvl(pension1.ibc,0)-nvl(riesgo1.ibc,0) )/1)*1 end  ,9,0) AS C40,
        ' ' AS C41,

        -- Se validan los dias de retiro del funionario - 20141007
        LPAD(  case when (kardex2.num_dias_novkar) != 0 then ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1 else ceil( ( nvl(pension1.ibc,0)/30*(kardex2.num_dias_novkar) ) ) end ,9,0) AS C42,
        LPAD(  case when (kardex2.num_dias_novkar) != 0 then ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1 else ceil( ( nvl(salud1.ibc,0)/30*(kardex2.num_dias_novkar) ) ) end ,9,0) AS C43,
        LPAD(  case when (kardex2.num_dias_novkar) != 0 then ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1 else ceil( ( nvl(salud1.ibc,0)/30*(kardex2.num_dias_novkar) ) ) end ,9,0) AS C44,
        LPAD(  case when (kardex2.num_dias_novkar) != 0 then ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1 else ceil( ( nvl(ccf1.ibc,0)/30*(kardex2.num_dias_novkar) ) ) end ,9,0) AS C45,
        -- Se debe calcular a partir de octubre la tarifa del patrono - 20131028
        -- No debe llevar registro de pension - 20140729
        -- Se coloca que para CYC, si debe llevar registro de pension - 20170127
        --rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) as c46,
        --rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0) as C46,
        case when 4 in (4) then (rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0)) else rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) end as C46,
        --lPAD(nvl(null,0) + nvl(null,0),9,0) AS C47,
        --lpad( round( round( nvl(tab6.asignacion_basica,0)/30*(30-nvl(pension2.dias-nvl(kardex4.cantidad,0),0))  ,-3) * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,-2) ,9,0) as c47,
        lPAD( ceil( (ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1)*nvl(pension2.tarifa,0) /100)*100 ,9,0) as c47,
        lPAD(0,9,0) AS C48,
        lpad(0,9,0) as C49,
        lPAD( ceil( (ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1)*nvl(pension2.tarifa,0) /100)*100 ,9,0) as C50,
        lPAD( ceil( ((ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1)*nvl(pension3.tarifa,0))/2 /100)*100 ,9,0) as c51,
        lpad( ceil(( ((ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1)*nvl(pension3.tarifa,0)) - ((ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1)*nvl(pension3.tarifa,0))/2 )/100)*100 ,9,0) as c52,
        rpad(0,9,0) as c53,
        rpad( case when nvl(salud1.tarifa,0) = 0 then '0.0' when nvl(salud1.tarifa,0) < 1 then '0' else '' end || + nvl(salud1.tarifa,0) ,7,0) as c54,
        lPAD( ceil( (ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1)*nvl(salud1.tarifa,0) /100)*100 ,9,0) AS c55,

        lpad( case when '01' = '40' then 0 else 0 end ,9,0) as c56,
        rpad(' ',15,' ') as c57,
        rpad(0,9,0) as C58,
        rpad(' ',15,' ') as C59,
        rpad(0,9,0) as c60,
        --rpad( case when nvl(riesgo1.tarifa,0) = 0 then '0.0' when nvl(riesgo1.tarifa,0) < 1 then '0' else '' end || + nvl(riesgo1.tarifa,0) ,9,0) as C61,
        rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,9,0) as C61,
        lpad(nvl(riesgo.centro_trabajo,0),9,0) as C62,
        lpad( nvl(0,0) ,9,0) as c63,
        --lpad( ceil( ( nvl(riesgo1.aporte_patrono,0)/30*(kardex2.num_dias_novkar) )/100)*100 ,9,0) as c63,
        rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) AS C64,
        --lpad( nvl(ccf1.aporte_patrono,0) ,9,0) as c65,
        lpad( ceil( ( nvl(ccf1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c65,
        rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C66,
        --lpad( nvl(sena1.aporte_patrono,0) ,9,0) as c67,
        lpad( ceil( ( nvl(sena1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c67,
        rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C68,
        --lpad( nvl(icbf1.aporte_patrono,0) ,9,0) as c69,
        lpad( ceil( ( nvl(icbf1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c69,
        rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C70,
        --lpad( nvl(esap1.aporte_patrono,0) ,9,0) as c71,
        lpad( ceil( ( nvl(esap1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c71,
        rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C72,
        --lpad( nvl(men1.aporte_patrono,0) ,9,0) as c73,
        lpad( ceil( ( nvl(men1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c73,
        '  ' AS C74,
        RPAD(to_char(' '),16,' ') AS C75,
        RPAD(to_char('N'),1,' ') AS C76,
        RPAD(riesgo.codigo,6,' ') AS C77,
        nvl(RPAD( nvl(riesgo1.no_riesgo,riesgo.riesgo),1,' '),' ') AS C78,
        RPAD(to_char(' '),1,' ') AS C79,

        RPAD(to_char(' '),10,' ') AS C80,--ING
        RPAD(to_char(' '),10,' ') AS C81,--RET
        RPAD(to_char(' '),10,' ') AS C82,--VSP

        RPAD(to_char(' '),10,' ') AS C83,--SLN
        RPAD(to_char(' '),10,' ') AS C84,--SLN

        RPAD(to_char(' '),10,' ') AS C85,--IGE
        RPAD(to_char(' '),10,' ') AS C86,--IGE
        /*
        case when kardex2.fecha_ini
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then to_char(kardex2.fecha_ini,'yyyy-mm-dd')
          else RPAD(to_char(' '),10,' ') end AS C85,--IGE
        case when kardex2.fecha_fin
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then to_char(kardex2.fecha_fin,'yyyy-mm-dd')
        when kardex2.fecha_fin < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') 
            then to_char( (kardex2.fecha_ini+(kardex2.num_dias_novkar)) ,'yyyy-mm-dd')
        else RPAD(to_char(' '),10,' ') end AS C86,--IGE
        */
        RPAD(to_char(' '),10,' ') AS C87,--LMA
        RPAD(to_char(' '),10,' ') AS C88,--LMA

        RPAD(to_char(' '),10,' ') AS C89,--VAC-LR
        RPAD(to_char(' '),10,' ') AS C90,--VAC-LR

        RPAD(to_char(' '),10,' ') AS C91,--VCT
        RPAD(to_char(' '),10,' ') AS C92,--VCT
        RPAD(to_char(' '),10,' ') AS C93,--IRL
        RPAD(to_char(' '),10,' ') AS C94,--IRL
        LPAD(  case when (kardex2.num_dias_novkar) != 0 then ceil( ( nvl(kardex2.valor_liquidado,0) )/1)*1 else ceil( ( nvl(ccf1.ibc,0)/30*(kardex2.num_dias_novkar) ) ) end ,9,0) as C95,--IBC parafiscales
        LPAD(  case when  nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0) < 300 then nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0)  else 300 end  ,3,0) AS C96,--HORAS EXTRAS
        RPAD(to_char(' '),10,' ') AS C97,--Rad exterior
        case when tab0.id_anhos || lpad(tab0.id_meses, 2, '0') >= 202211 then RPAD(to_char(riesgo.cod_riesgo|| riesgo.cod_ciiu || riesgo.cod_ncp),7,' ') else '' end AS C98

        from no_estado_func_v tab0

        left join tipo_documento tdoc
        on tdoc.id_tipo_doc = tab0.id_tipo_doc

        left join centro_operacion tab1 ON tab1.id_cen_op = tab0.id_cen_op
        left join departamento tab2 ON tab2.id_depto = tab1.id_depto
        left join municipios tab3 ON tab3.codmun = tab1.codmun
        left join no_datos_funcionario_v tab4 ON tab4.id_tipo_doc = tab0.id_tipo_doc and tab4.num_doc = tab0.num_doc

        left join (
            select pen.*, sub.descripcion as suptipo_cotizante, sub.codigo as codigo_suptipo
            from no_pension_func pen
            left join no_suptipo_cotizante_v sub
            on pen.id_suptipo_cotizante = sub.id_suptipo_cotizante
            where
            pen.estado = 1
        )penfun
        on penfun.id_tipo_doc = tab0.id_tipo_doc 
        and penfun.num_doc = tab0.num_doc

        --left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
        left join (
          SELECT
          case when aut.fecha_termina
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then (30 - to_char(aut.fecha_termina,'dd') ) else 0 end as dias_retiro,
           aut.*,
           ROW_NUMBER() OVER (
            partition by aut.num_doc
            ORDER BY aut.estado DESC, aut.fecha_ingreso DESC
           ) AS rn
          from no_nombramiento aut
  
            left join no_periodo_v per
            on per.id_periodo = aut.id_periodo

            where 
            per.anho_mes <= ( SELECT anho_mes FROM no_periodo_v where id_periodo = $id_periodo )
        )tab5
        on tab5.id_tipo_doc = tab0.id_tipo_doc 
        and tab5.num_doc = tab0.num_doc
        and tab5.rn = 1

        --left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp
        /*
        Se cambia para tomar valor de concepto_periodo para el concepto_nomina 1001 del periodo de tipo mensual o nomina adicional - 20130827
        */
        left join(

            select * from(
                    select 
                    concep.id_tipo_doc,
                    concep.num_doc,
                    concep.valor as asignacion_basica ,

                     ROW_NUMBER() OVER (
                      PARTITION BY concep.num_doc
                      order by per.id_tipo_periodo asc, concep.fecha_hasta desc
                     ) as rn

                    from no_concepto_periodo concep

                    join no_periodo per
                    on concep.PERIODO = per.id_periodo

                    where 
                    concep.id_concep_nomina = (select id_concep_basica from no_param_concep) 

                    and (per.id_tipo_periodo = 6 or per.id_tipo_periodo = 7)
                    and (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = concep.id_periodo_ajuste) = (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) 
            )where rn = 1

        )tab6 ON tab6.id_tipo_doc = tab0.id_tipo_doc and tab6.num_doc = tab0.num_doc
        and tab6.rn = 1

        left join
        (
          /* se cambia filtro por estado activo y id_tipo_novedad = 1 - 20150422 */
          select 
          tab0.num_doc,count(tab0.id_novedad_personal) as cantidad
          from no_novedad_personal tab0
          left join no_novedades nov on tab0.id_novedad = nov.id_novedad
          where 
          tab0.estado = 1 and nov.id_tipo_novedad = 1
          and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
          group by tab0.num_doc
        ) ascenso ON ascenso.num_doc = tab0.num_doc

        left join
        (
            select num_doc, sum(cantidad) AS CANTIDAD
            from(

                select tab0.num_doc,count(tab0.id_novedad_personal) AS CANTIDAD
                from no_novedad_personal tab0
                where tab0.id_novedad IN ( 3, 7 )  
                and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                group by tab0.num_doc

                union 

                select tab0.num_doc,count(tab0.id_bonifica_servicios) AS CANTIDAD
                from no_bonifica_servicios tab0
                where tab0.estado=1 and tab0.fecha_bonifica between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                group by tab0.num_doc

                union 

                select tab0.num_doc,count(tab0.id_hr_extra) AS CANTIDAD
                from no_hr_extra tab0
                left join no_lote_hr_extra tab1 ON tab1.id_lote_hr_extra = tab0.id_lote_hr_extra
                where tab1.estado=0 and tab1.id_periodo = $id_periodo
                group by tab0.num_doc

            )GROUP BY num_doc

        ) encargo ON encargo.num_doc = tab0.num_doc

        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD, max(tab1.suspension) as max_marca,
            max(fecha_ini) as fecha_ini2, 
            case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
            max(fecha_fin) as fecha_fin2,
            case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.afecta_antigu = 1 and tab0.estado = 1 
             /*   
            and (
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or 
              tab0.id_periodo = $id_periodo
            )*/
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
            and (
              to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
              or
              trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
              or 
              tab0.id_periodo = $id_periodo
            )
            group by tab0.num_doc
        )kardex1 ON kardex1.num_doc = tab0.num_doc

        /* Valida que si la novedad es superior al IBC tome el IBC - 20210210::LAVILA*/
        left join
        (
            select 
            case when max(salud1.ibc) < sum(liq.valor_liquidado) then max(salud1.ibc) else sum(liq.valor_liquidado) + sum(nvl(liqaju.valor_liquidado,0)) end as valor_liquidado,
            tab0.num_doc, count(tab0.id_novedad_kardex) CANT, 
            min(tab0.fecha_ini) as fecha_ini2, 
            case when min(tab0.fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else min(fecha_ini) end as fecha_ini,
            max(tab0.fecha_fin) as fecha_fin2,
            case when max(tab0.fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin,

            sum( case when tab0.num_dias > 0 and tab0.prorroga = 1 then 1 when tab0.num_dias > (tab1.dias_patrono) and tab0.prorroga = 0 then 1 else 0 end) as CANTIDAD,
            nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novkar_ant,
            
            /*Toma dias correctos de mes actual y fechas anteriores, calcula cada uno por independiente, al final valida si supera 30 dias - 20190610*/
            /*Incidente 14326, Se suspende sumar dia 31 por conflicto con incapacidades - 20190926*/ 
            /*Toma maximo hasta fecha del mes actual - 20191023*/ 
            case 
            when nvl(sum( 

                case 
                when (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) < (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
                then        
                nvl( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ,0)        
                else 
                --nvl( tab0.fecha_fin - (tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end) ) + 1 ,0)
                --nvl( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin ) ,0) 
                nvl( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),

                (case when (tab0.fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  
                then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  
                else (tab0.fecha_fin) end)

                ) ,0) 
                end
        
                -

                /*Restar dias 29 y 30 si aplica apra febrero - 20230413/20230914::LAVILA*/
                (
                    case when EXTRACT(MONTH FROM tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end)) <= 2 and EXTRACT(MONTH FROM (tab0.fecha_fin) ) >= 3
                    then 30 - EXTRACT( DAY FROM last_day( TO_DATE('01/02/'||(select id_anhos from no_periodo where id_periodo = $id_periodo),'dd/mm/yyyy') ) )
                    else 0 end            
                )

            ),0) > 30
            then 30
            else nvl(sum( 

                case 
                when (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) < (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
                then        
                nvl( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ,0)        
                else 
                --nvl( tab0.fecha_fin - (tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end) ) + 1 ,0)
                --nvl( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin ) ,0) 
                nvl( FECHA_RANGO_SIN_TREINTAYUNO(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),

                (case when (tab0.fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  
                then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  
                else (tab0.fecha_fin) end)

                ) ,0) 
                end
        
                -

                /*Restar dias 29 y 30 si aplica apra febrero - 20230413/20230914::LAVILA*/
                (
                    case when EXTRACT(MONTH FROM tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end)) <= 2 and EXTRACT(MONTH FROM (tab0.fecha_fin) ) >= 3
                    then 30 - EXTRACT( DAY FROM last_day( TO_DATE('01/02/'||(select id_anhos from no_periodo where id_periodo = $id_periodo),'dd/mm/yyyy') ) )
                    else 0 end            
                )

            ),0) end as num_dias_novkar

            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka

            left join no_liquida_nomina liq on tab0.num_doc = liq.num_doc and tab0.id_tipo_doc = liq.id_tipo_doc
            and liq.id_periodo in ( select perd.id_periodo from no_periodo perd where perd.id_anhos = (select id_anhos from no_periodo where id_periodo = $id_periodo) and perd.id_meses = (select id_meses from no_periodo where id_periodo = $id_periodo) ) 
            and liq.fecha_desde = tab0.fecha_ini and liq.fecha_hasta = tab0.fecha_fin
            and (
            liq.id_concep_nomina in (         
                select ka.id_concep_nomina from no_concep_ka ka where ka.id_tip_nov_ka in (select distinct id_nov_ka_enfcom from no_param_concep)    
               ) or (liq.id_concep_nomina in (1189))
           )


           /* Incidente #20399, SGC Tomar ibc ya que supera la novedad el valor - 20210208*/
           left join 
           (
               select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
               max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
               , sum(tab0.aporte_patrono_licnorem) AS aporte_patrono_licnorem
               , sum(tab0.num_dias_licnorem) AS num_dias_licnorem
               from no_liquida_aporte tab0
               where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 2
               and tab0.tipo_planilla = 'C'     
               group by tab0.num_doc
           )salud1 ON salud1.num_doc = tab0.num_doc
    
            /*Se coloca valor de retro - 20170731 */
            left join no_liquida_nomina liqaju on tab0.num_doc = liqaju.num_doc and tab0.id_tipo_doc = liqaju.id_tipo_doc
            and liqaju.id_periodo_ajuste in ( select perd.id_periodo from no_periodo perd where perd.id_anhos = (select id_anhos from no_periodo where id_periodo = $id_periodo) and perd.id_meses = (select id_meses from no_periodo where id_periodo = $id_periodo) ) 
             and liqaju.id_concep_nomina in (         
                 select ka.id_concep_nomina from no_concep_ka ka where ka.id_tip_nov_ka in (select distinct id_nov_ka_enfcom from no_param_concep)    
                 union
                 select nvl((select con.id_concep_ajuste from no_concep_nomina con where con.id_concep_nomina = ka.id_concep_nomina ),ka.id_concep_nomina) from no_concep_ka ka where ka.id_tip_nov_ka in (select distinct id_nov_ka_enfcom from no_param_concep) 
            )

            /*
            Se cambia id_tip_nov_ka = 2 por 1 INCI
            Se deja quemado id 9 para novedad por ajuste de conceptos de reintegro ANM - 20140522
            Se cambia por id en tabla no_param_concep - 20140916
            */
            where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_enfcom from no_param_concep),9) and tab0.estado = 1 
            and (
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or 
              tab0.id_periodo = $id_periodo
            )
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)

            /*
            and (
              to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
              or
              trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
              and 
              (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
            )
            */
            group by tab0.num_doc
        )kardex2 ON kardex2.num_doc = tab0.num_doc

        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka

            /*
            Se cambia id_tip_nov_ka = 3 por 2 INCI
            Se cambia por id en tabla no_param_concep - 20140916
            */
            where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_licmat from no_param_concep)) and tab0.estado = 1 

            and tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
            group by tab0.num_doc
        )kardex3 ON kardex3.num_doc = tab0.num_doc

        /*
        Se cambia de id-4 por atributo en  la tabla no_tip_nov_ka de afecta_riesgo, para validar cuales afectan en los dias de ARP-ARL - 20130919
        */
        left join
        (
            select tab0.num_doc, sum(tab0.num_dias) CANTIDAD
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.afecta_riesgo = 1 and tab0.estado = 1 and tab0.fecha_inc between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
            group by tab0.num_doc
        )kardex4 ON kardex4.num_doc = tab0.num_doc

        /*
        Incapacidad -> Suspensión por Incapacidad  - 20150312
        */
        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) as max_marca_susinc
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.afecta_antigu = 1 and tab0.estado = 1 
            and tab0.id_tip_nov_ka = (select no_param_concep.id_nov_ka_susinc from no_param_concep where no_param_concep.id_param_concep = 1)
             /*   
            and (
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or 
              tab0.id_periodo = $id_periodo
            )*/
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
            and (
              to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
              or
              trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
              or 
              tab0.id_periodo = $id_periodo
            )
            group by tab0.num_doc
        )kardex5 ON kardex5.num_doc = tab0.num_doc

        /*Licencia remunerada id-10 -- 20170222*/
        /*Licencia remunerada descuenta dias para calculo -- 20190414*/
        /*Licencia remunerada descuenta todos los días de meses anteriores - 20190905*/
        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) as CANTIDAD,  
            min(tab0.fecha_ini) as fecha_ini2, 
            case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
            max(tab0.fecha_fin) as fecha_fin2,
            case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin,
            
            nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novlicrem_ant,
            nvl(sum( fecha_rango_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin ) ),0) as num_dias_novlicrem

            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.id_tip_nov_ka in (select id_tip_nov_ka from no_tip_nov_ka where tiempo_remunerado = 1) and tab0.estado = 1 
            and (
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or 
              tab0.id_periodo = $id_periodo
            )
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)

            group by tab0.num_doc
        )kardexlr ON kardexlr.num_doc = tab0.num_doc

        /*
        Se coloca, tab0.id_periodo en la agrupacion, para tener encuenta todas las novedades - 20161104
        */
        left join
        (
            select 

           id_tipo_doc,                  
           num_doc,
           sum( nvl(CANTIDAD_vaciones,0) ) as CANTIDAD,
           sum(dias_vaciones) as num_dias_vac,
           max(fecha_ini) as fecha_ini2, 
           case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
           max(fecha_fin) as fecha_fin2,
           case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin

           from( 

               select 

               case  when tipnov.operador  = 1 
                         then nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) 
                         else nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) * (-1)
                         end as dias_vaciones,

               max(tab0.fecha_ini) as fecha_ini, max(tab0.fecha_fin) as fecha_fin,
               tab0.id_tipo_doc, tab0.num_doc, count(tab0.id_novedad_vac) CANTIDAD,
                tipnov.operador,

                case  when tipnov.operador  = 1 
                /*then 1
                else (-1)*/
                then tab0.num_dias_vac
                else (-1 * tab0.num_dias_vac)
                --else nvl(sum( tab0.fecha_fin - tab0.fecha_ini + 1),0) * (-1)
                end as CANTIDAD_vaciones

               from no_novedad_vac tab0
               left join NO_TIPO_NOV_VAC TIPNOV on TIPNOV.ID_TIPO_NOV_VAC = tab0.ID_TIPO_NOV_VAC

               where 
               --tipnov.ID_TIPO_NOV_VAC = 1 and
               tipnov.tiempo_liqui = 1 and
               (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) and

              /*
               tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
               and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
               */
               /*Marca de vacaciones para todo el tiempo de duracion - 20130917*/
              ( 
                  tab0.fecha_ini  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                  or
                  tab0.fecha_fin  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                or
                  to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
                  or
                  trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
                )
                /* Valida que no sea un dia 31, ya que no se cuenta para liquidacion, que posea dias de vac en el periodo liquidado - 20141031 */        
                --and to_char(tab0.fecha_ini,'dd') != 31
                and DIAS_RANGO_MES_SIN_TREINTAYUNO(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo = $id_periodo)) > 0

                group by tab0.id_tipo_doc, tab0.num_doc,
               tipnov.operador, tab0.num_dias_vac, tab0.id_periodo

           ) 

           group by id_tipo_doc, num_doc
        )vaca ON vaca.num_doc = tab0.num_doc


        LEFT JOIN 
        (
            select distinct afilia.num_doc, codigo.codigo
            from no_liquida_aporte afilia
            left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
            left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
            where afilia.id_clase_fondo = 1 
            /*
            and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
            between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
            */--and afilia.estado = 1

            AND ( codigo.tipo != 'EPS' or codigo.tipo != 'CCF' )
            and afilia.id_periodo = $id_periodo
            and afilia.tipo_planilla = 'C'       
        )pension ON pension.num_doc = tab0.num_doc

        LEFT JOIN 
        (
            select distinct afilia.num_doc, codigo.codigo
            from no_liquida_aporte afilia
            left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
            left join no_cod_fondo codigo ON codigo.nitocc = fondo.num_doc
            where afilia.id_clase_fondo = 2 
            /*
            and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
            between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
            --and afilia.estado = 1
            */
            AND codigo.tipo = 'EPS'
            and afilia.id_periodo = $id_periodo
            and afilia.tipo_planilla = 'C'       
        )salud ON salud.num_doc = tab0.num_doc

        LEFT JOIN 
        (
            select distinct 
            CODFON.CODIGO,
            afilia.num_doc, afilia.centro_trabajo as id_centro_trabajo, centra.codigo as centro_trabajo, apo.no_riesgo, centra.cod_ciiu, centra.cod_ncp, apo.no_riesgo as cod_riesgo,
            afilia.fecha_ingreso,
            afilia.riesgo,
           ROW_NUMBER() OVER (
            partition by afilia.num_doc
            ORDER BY afilia.estado DESC, afilia.fecha_ingreso DESC,afilia.id_afilia_fondo DESC
           ) AS rn

            from no_afilia_fondo afilia

            left join no_tipo_aporte apo
            on apo.id_tipo_aporte = afilia.id_tipo_aporte

            left join no_centro_trabajo centra
            on centra.id_centro_trabajo = afilia.centro_trabajo

            left join no_mae_fondos maefon
            on MAEFON.ID_MAE_FONDOS = afilia.ID_MAE_FONDOS

            left join no_cod_fondo codfon
            on maefon.num_doc = codfon.nitocc

            where afilia.id_clase_fondo = 3 --and afilia.estado = 1
            and to_char(afilia.fecha_ingreso,'yyyymm') <= ( select anho_mes from no_periodo_v where id_periodo = $id_periodo )
        )riesgo ON riesgo.num_doc = tab0.num_doc
        and riesgo.rn = 1

        LEFT JOIN 
        (
            select distinct afilia.num_doc, codigo.codigo
            from no_liquida_aporte afilia
            left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
            left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
            where afilia.id_clase_fondo = 4 
            --and afilia.estado = 1 
            AND codigo.tipo = 'CCF'
            and afilia.id_periodo = $id_periodo
            and afilia.tipo_planilla = 'C'       
        )ccf ON ccf.num_doc = tab0.num_doc


        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1
            and tab0.tipo_planilla = 'C'       
            group by tab0.num_doc
        )pension1 ON pension1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
            max(tab0.tarifa/100) as TARIFA--, tab0.aporte_func AS APORTE
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1  and tab0.porcentaje_patrono > 0 -- and  ( tab0.tarifa = 16 or tab0.tarifa = 26 )
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )pension2 ON pension2.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, sum(tab0.valor_base_fsp) as aporte_fsp, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1 and tab0.porcentaje_patrono = 0
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )pension3 ON pension3.num_doc = tab0.num_doc

        /* Tomar aporte_patrono_licnorem de la tabla de aportes - 20150730*/
        left join 
        (
            select 

            tab0.num_doc, 
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_func) else 0 end as aporte, 
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.num_dias) else 0 end as dias,
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.tarifa)/100 else 0 end as tarifa,
            sum(tab0.aporte_patrono) as aporte_patrono_a, 
            sum(tab1.aporte_patrono) as aporte_patrono_c

            from no_liquida_aporte tab0

            left join no_liquida_aporte tab1
            on tab1.id_periodo = tab0.id_periodo
            and tab1.id_tipo_doc = tab0.id_tipo_doc
            and tab1.num_doc = tab0.num_doc
            and tab1.id_mae_fondos = tab0.id_mae_fondos
            and tab1.id_concep_nomina = tab0.id_concep_nomina
            and tab1.id_clase_fondo = 2
            and tab1.tipo_planilla = 'A'

            where tab0.id_periodo = $id_periodo 
            and tab0.id_clase_fondo = 2
            and tab0.tipo_planilla = 'C' 

            group by tab0.num_doc
        )salud1 ON salud1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/,
            min(tipapo.no_riesgo) as no_riesgo

            from no_liquida_aporte tab0

            left join no_tipo_aporte tipapo
            on tipapo.id_tipo_aporte = tab0.id_tipo_aporte
    
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 3
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )riesgo1 ON riesgo1.num_doc = tab0.num_doc

        left join 
        (
              select 

              tab0.num_doc, 
              case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_func) else 0 end as aporte, 
              case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
              case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.num_dias) else 0 end as dias,
              case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
              case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.tarifa)/100 else 0 end as tarifa,
              sum(tab0.aporte_patrono) as aporte_patrono_a, 
              sum(tab1.aporte_patrono) as aporte_patrono_c

              from no_liquida_aporte tab0

              left join no_liquida_aporte tab1
              on tab1.id_periodo = tab0.id_periodo
              and tab1.id_tipo_doc = tab0.id_tipo_doc
              and tab1.num_doc = tab0.num_doc
              and tab1.id_mae_fondos = tab0.id_mae_fondos
              and tab1.id_concep_nomina = tab0.id_concep_nomina
              and tab1.id_clase_fondo = 4
              and tab1.tipo_planilla = 'A'

              where tab0.id_periodo = $id_periodo 
              and tab0.id_clase_fondo = 4
              and tab0.tipo_planilla = 'C' 

              group by tab0.num_doc
        )ccf1 ON ccf1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 5
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )icbf1 ON icbf1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 6
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )sena1 ON sena1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 7
            and tab0.tipo_planilla = 'C'       
            group by tab0.num_doc
        )esap1 ON esap1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 8
            and tab0.tipo_planilla = 'C'       
            group by tab0.num_doc
        )men1 ON men1.num_doc = tab0.num_doc

        left join 
        (
            select
            id_periodo, num_doc,
            --id_concep_nomina,
            sum(cantidad) as cantidad
            from (
                select
                lotehr.total_horas,
                lotehr.id_periodo,
                hrext.id_tipo_doc,
                hrext.num_doc,
                hrext.cantidad,
                tiphr.id_concep_nomina

                from no_lote_hr_extra lotehr

                left join no_hr_extra hrext
                on lotehr.id_lote_hr_extra = hrext.id_lote_hr_extra

                left join no_tipo_hr_extra tiphr
                on tiphr.id_tipo_hr_extra = hrext.id_tipo_hr_extra

                where lotehr.id_periodo = $id_periodo
                and lotehr.estado = 0
            )

            group by
            id_periodo, num_doc--, id_concep_nomina
        )hrextra
        ON hrextra.num_doc = tab0.num_doc


        WHERE tab0.periodo = $id_periodo 
        and (tab0.actual = 1 or
          ( tab0.actual = 0 
            /*
            Se cambia fecha de termina(ultimo dia de trabajo) por fecha de retiro, 
            para tener encuenta si trabajo en el periodo al menos 1 dia - 20130828                    
            */
            and tab5.fecha_retiro != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and tab5.fecha_termina
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))
          )
        )
        and kardex2.cantidad > 0 and kardex2.num_dias_novkar > 0
        and ( nvl(ccf1.dias,0) + nvl(salud1.dias,0) ) > 0

        /* Omitir terceros que no tiene cambios en CCF - 20231002::LAVILA*/
        and tab0.num_doc not in (

            select 
            tab.num_doc
            from (

                    select  
                    total.num_doc,
                    count(total.tipo_planilla) as cant, 
                    sum(total.aporte_ibc) as total1, 
                    sum(total.IBC) as total2, 
                    sum(total.IBC_a) as total_a, 
                    sum(total.IBC_c) as total_c, 
                    sum(total.IBC_c) - sum(total.IBC_a) as total,
                    case when (sum(total.IBC_c) - sum(total.IBC_a) > 0) then sum(total.IBC_c) else 0 end as total_neg,
                    sum(total.IBC_c) + sum(total.IBC_a) as total_sum 

                    from (
                            select tab0.tipo_planilla,
                            tab0.num_doc, sum(nvl(tab0.valor_base,0)) as aporte_IBC, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, 
                            MAX(nvl(tab0.valor_base,0)) AS IBC,
                            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/, 
                          case when tab0.tipo_planilla = 'A' and max(tab0.num_dias) != 0 then max(nvl(tab0.valor_base,0)) else 0 end as ibc_a, 
                          case when tab0.tipo_planilla = 'C' and max(tab0.num_dias) != 0 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC_c
                            from no_liquida_aporte tab0
                            --se filtra id4-CAJA DE COMPENSACION FAMILIAR en vez de id5 - 20130802
                            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 4

                            group by tab0.tipo_planilla,tab0.num_doc

                     )total  
                     group by
                    total.num_doc    

            )tab   
            where
            tab.total_neg <= 0
            and tab.total <= 0
            and tab.total_a > 0
            and tab.total_c > 0

        )

union

/*
* Funcionarios con novedades de LMA - 20170310, tipo A
*/
select
penfun.id_pension_func,
6 as c00,--order de mensual luego licencia
0 as c0,
'02' AS C1,
LPAD(rownum,5,0) AS C2,
lpad( (REPLACE(tdoc.abreviacion,'.','')), 2,' ') AS C3,
RPAD(to_char(tab0.num_doc),16,' ') AS C4,
rpad(to_char(tab0.num_doc),16,' ') as c4a,
'01' AS C5,
case when penfun.id_pension_func is not null then penfun.codigo_suptipo else '00' end AS C6,--suptipo de pensionado
' ' AS C7,
' ' AS C8,
RPAD(nvl(tab2.coddepto,' '),2,' ') AS C9,
RPAD(nvl(substr(tab3.codmun_text,3),' '),3,' ') AS C10,
RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11,
RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11a,
RPAD(nvl(tab4.segundo_apellido,' '),30,' ') AS C12,
RPAD(nvl(tab4.primer_nombre,' '),20,' ') AS C13,
RPAD(nvl(tab4.segundo_nombre,' '),30,' ') AS C14,
case when tab5.fecha_ingreso
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then ' ' else ' ' end AS C15,
case when tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then ' ' else ' ' end AS C16,
' ' AS C17,
' ' AS C18,
' ' AS C19,
' ' AS C20,
--No La novedad SLN no debe de combinarse con otro tipo de novedad  - 20161122
case when ascenso.cantidad>0 then ' ' else ' 'end AS C21,
'A' AS C22,
case when encargo.cantidad>0 then ' ' else ' 'end AS C23,
case when kardex1.cantidad>0 and ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then 'X' when kardex1.cantidad>0 and  nvl(max_marca,0) = 1 and nvl(max_marca_susinc,0) = 0 then 'C' else ' ' end AS C24,
case when kardex2.cantidad>0 then 'X' else ' 'end AS C25,--inc temp enfermedad
case when kardex3.cantidad>0 then 'X' else ' 'end AS C26,--lic maternidad
case when vaca.cantidad>0 then ' ' when kardexlr.cantidad>0 then ' ' else ' 'end AS C27,
' ' AS C28,
' ' AS C29,
LPAD(to_char(nvl(kardex4.cantidad,0)),2,0) AS C30,--inc por accidente de trabajo
rpad(nvl(pension.codigo,' '),6,' ') as c31,
rPAD(' ',6,' ') AS C32,
rPAD(nvl(salud.codigo,' '),6,' ') AS C33,
rpad(' ',6,' ') as c34,
rPAD(nvl(ccf.codigo,' '),6,' ') AS C35,
lpad( kardex3.num_dias_novlicmat ,2,0) as c36,
lpad( kardex3.num_dias_novlicmat ,2,0) as c37,
lpad( kardex3.num_dias_novlicmat ,2,0) AS C38, 
--39 dias parafiscales
lpad( kardex3.num_dias_novlicmat ,2,0) AS C39,
LPAD(nvl(tab6.asignacion_basica,0),9,0) AS C40,
' ' AS C41,
-- Se validan los dias de retiro del funionario - 20141007
LPAD(  case when (kardex3.num_dias_novlicmat) != 0 then ceil( kardex3.valor_liquidado/1)*1 else 0 end ,9,0) AS C42,
LPAD(  case when (kardex3.num_dias_novlicmat) != 0 then ceil( kardex3.valor_liquidado/1)*1 else 0 end ,9,0) AS C43,
LPAD(  case when (kardex3.num_dias_novlicmat) != 0 then ceil( kardex3.valor_liquidado/1)*1 else 0 end ,9,0) AS C44,
LPAD(  case when (kardex3.num_dias_novlicmat) != 0 then ceil( kardex3.valor_liquidado/1)*1 else 0 end ,9,0) AS C45,
-- Se debe calcular a partir de octubre la tarifa del patrono - 20131028
-- No debe llevar registro de pension - 20140729
-- Se coloca que para CYC, si debe llevar registro de pension - 20170127
--rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) as c46,
--rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0) as C46,
case when 4 in (4) then (rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0)) else rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) end as C46,
--lPAD(nvl(null,0) + nvl(null,0),9,0) AS C47,
--lpad( round( round( nvl(tab6.asignacion_basica,0)/30*(30-nvl(pension2.dias-nvl(kardex4.cantidad,0),0))  ,-3) * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,-2) ,9,0) as c47,
lPAD( ceil((ceil( kardex3.valor_liquidado/1)*1)*nvl(pension2.tarifa,0)/100)*100 ,9,0) as c47,
lPAD(0,9,0) AS C48,
lpad(0,9,0) as c49,
lPAD( ceil( (ceil( ( ceil( kardex3.valor_liquidado/1)*1 )/1)*1)*nvl(pension2.tarifa,0) /100)*100 ,9,0) as C50,
lPAD( ceil( ((ceil( ( ceil( kardex3.valor_liquidado/1)*1 )/1)*1)*nvl(pension3.tarifa,0))/2 /100)*100 ,9,0) as c51,
lpad( ceil(( ((ceil( ( ceil( kardex3.valor_liquidado/1)*1 )/1)*1)*nvl(pension3.tarifa,0)) - ((ceil( ( ceil( kardex3.valor_liquidado/1)*1 )/1)*1)*nvl(pension3.tarifa,0))/2 )/100)*100 ,9,0) as c52,
rpad(0,9,0) as c53,
rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) ,7,0) as c54,
--lpad( round( round( nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) )  ,-3) * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) ,-2) ,9,0) as c55,
lPAD( ceil((ceil( kardex3.valor_liquidado/1)*1)*nvl(salud1.tarifa,0)/100)*100 ,9,0) as c55,
lpad( case when '01' = '40' then 0 else 0 end ,9,0) as c56,
rpad(' ',15,' ') as c57,
rpad(0,9,0) as C58,
rpad(' ',15,' ') as C59,
rpad(0,9,0) as c60,
--rpad( case when nvl(riesgo1.tarifa,0) = 0 then '0.0' when nvl(riesgo1.tarifa,0) < 1 then '0' else '' end || + nvl(riesgo1.tarifa,0) ,9,0) as C61,
rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,9,0) as C61,
lpad(nvl(riesgo.centro_trabajo,0),9,0) as C62,
lpad( nvl(0,0) ,9,0) as c63,
--lpad( ceil( ( nvl(riesgo1.aporte_patrono,0)/30*(kardex2.num_dias_novkar) )/100)*100 ,9,0) as c63,
rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) AS C64,
--lpad( nvl(ccf1.aporte_patrono,0) ,9,0) as c65,
lpad( ceil( ( nvl(ccf1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c65,
rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C66,
--lpad( nvl(sena1.aporte_patrono,0) ,9,0) as c67,
lpad( ceil( ( nvl(sena1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c67,
rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C68,
--lpad( nvl(icbf1.aporte_patrono,0) ,9,0) as c69,
lpad( ceil( ( nvl(icbf1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c69,
rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C70,
--lpad( nvl(esap1.aporte_patrono,0) ,9,0) as c71,
lpad( ceil( ( nvl(esap1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c71,
rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C72,
--lpad( nvl(men1.aporte_patrono,0) ,9,0) as c73,
lpad( ceil( ( nvl(men1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c73,
'  ' AS C74,
RPAD(to_char(' '),16,' ') AS C75,
RPAD(to_char('N'),1,' ') AS C76,
RPAD(riesgo.codigo,6,' ') AS C77,
nvl(RPAD( nvl(riesgo1.no_riesgo,riesgo.riesgo),1,' '),' ') AS C78,
RPAD(to_char(' '),1,' ') AS C79,

RPAD(to_char(' '),10,' ') AS C80,--ING
RPAD(to_char(' '),10,' ') AS C81,--RET
RPAD(to_char(' '),10,' ') AS C82,--VSP

RPAD(to_char(' '),10,' ') AS C83,--SLN
RPAD(to_char(' '),10,' ') AS C84,--SLN

RPAD(to_char(' '),10,' ') AS C85,--IGE
RPAD(to_char(' '),10,' ') AS C86,--IGE
  
case when kardex3.fecha_ini
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(kardex3.fecha_ini,'yyyy-mm-dd')
  else RPAD(to_char(' '),10,' ') end AS C87,--LMA
case when kardex3.fecha_fin
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(kardex3.fecha_fin,'yyyy-mm-dd')
  else RPAD(to_char(' '),10,' ') end AS C88,--LMA

RPAD(to_char(' '),10,' ') AS C89,--VAC-LR
RPAD(to_char(' '),10,' ') AS C90,--VAC-LR

RPAD(to_char(' '),10,' ') AS C91,--VCT
RPAD(to_char(' '),10,' ') AS C92,--VCT
RPAD(to_char(' '),10,' ') AS C93,--IRL
RPAD(to_char(' '),10,' ') AS C94,--IRL
LPAD(  case when (kardex3.num_dias_novlicmat) != 1 then ceil( kardex3.valor_liquidado/1)*1 else 0 end ,9,0) as C95,--IBC parafiscales
LPAD(nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0),3,0) AS C96,--HORAS EXTRAS
RPAD(to_char(' '),10,' ') AS C97,--Rad exterior
case when tab0.id_anhos || lpad(tab0.id_meses, 2, '0') >= 202211 then RPAD(to_char(riesgo.cod_riesgo|| riesgo.cod_ciiu || riesgo.cod_ncp),7,' ') else '' end AS C98

from no_estado_func_v tab0

left join tipo_documento tdoc
on tdoc.id_tipo_doc = tab0.id_tipo_doc

left join centro_operacion tab1 ON tab1.id_cen_op = tab0.id_cen_op
left join departamento tab2 ON tab2.id_depto = tab1.id_depto
left join municipios tab3 ON tab3.codmun = tab1.codmun
left join no_datos_funcionario_v tab4 ON tab4.id_tipo_doc = tab0.id_tipo_doc and tab4.num_doc = tab0.num_doc

left join (
    select pen.*, sub.descripcion as suptipo_cotizante, sub.codigo as codigo_suptipo
    from no_pension_func pen
    left join no_suptipo_cotizante_v sub
    on pen.id_suptipo_cotizante = sub.id_suptipo_cotizante
    where
    pen.estado = 1
)penfun
on penfun.id_tipo_doc = tab0.id_tipo_doc 
and penfun.num_doc = tab0.num_doc

--left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
left join (
  SELECT
  case when aut.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then (30 - to_char(aut.fecha_termina,'dd') ) else 0 end as dias_retiro,
   aut.*,
   ROW_NUMBER() OVER (
    partition by aut.num_doc
    ORDER BY aut.estado DESC, aut.fecha_ingreso DESC
   ) AS rn
  from no_nombramiento aut
  
  left join no_periodo_v per
  on per.id_periodo = aut.id_periodo
  
  where 
  per.anho_mes <= ( SELECT anho_mes FROM no_periodo_v where id_periodo = $id_periodo )
)tab5
on tab5.id_tipo_doc = tab0.id_tipo_doc 
and tab5.num_doc = tab0.num_doc
and tab5.rn = 1

--left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp
/*
Se cambia para tomar valor de concepto_periodo para el concepto_nomina 1001 del periodo de tipo mensual o nomina adicional - 20130827
*/
left join(
    
    select * from(
            select 
            concep.id_tipo_doc,
            concep.num_doc,
            concep.valor as asignacion_basica ,
            
             ROW_NUMBER() OVER (
              PARTITION BY concep.num_doc
              order by per.id_tipo_periodo asc, concep.fecha_hasta desc
             ) as rn
           
            from no_concepto_periodo concep
  
            join no_periodo per
            on concep.PERIODO = per.id_periodo
            
            where 
            concep.id_concep_nomina = (select id_concep_basica from no_param_concep) 
            
            and (per.id_tipo_periodo = 1 or per.id_tipo_periodo = 2)
            and (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = concep.PERIODO) = (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) 
    )where rn = 1
    
)tab6 ON tab6.id_tipo_doc = tab0.id_tipo_doc and tab6.num_doc = tab0.num_doc
and tab6.rn = 1

left join
(
  /* se cambia filtro por estado activo y id_tipo_novedad = 1 - 20150422 */
  select 
  tab0.num_doc,count(tab0.id_novedad_personal) as cantidad
  from no_novedad_personal tab0
  left join no_novedades nov on tab0.id_novedad = nov.id_novedad
  where 
  tab0.estado = 1 and nov.id_tipo_novedad = 1
  and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
  group by tab0.num_doc
) ascenso ON ascenso.num_doc = tab0.num_doc

left join
(
    select num_doc, sum(cantidad) AS CANTIDAD
    from(
    
        select tab0.num_doc,count(tab0.id_novedad_personal) AS CANTIDAD
        from no_novedad_personal tab0
        where tab0.id_novedad IN ( 3, 7 )  
        and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        group by tab0.num_doc
        
        union 
        
        select tab0.num_doc,count(tab0.id_bonifica_servicios) AS CANTIDAD
        from no_bonifica_servicios tab0
        where tab0.estado=1 and tab0.fecha_bonifica between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        group by tab0.num_doc
        
        union 
        
        select tab0.num_doc,count(tab0.id_hr_extra) AS CANTIDAD
        from no_hr_extra tab0
        left join no_lote_hr_extra tab1 ON tab1.id_lote_hr_extra = tab0.id_lote_hr_extra
        where tab1.estado=0 and tab1.id_periodo = $id_periodo
        group by tab0.num_doc
    
    )GROUP BY num_doc

) encargo ON encargo.num_doc = tab0.num_doc

left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD, max(tab1.suspension) as max_marca,
    max(fecha_ini) as fecha_ini2, 
    case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
    max(fecha_fin) as fecha_fin2,
    case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.afecta_antigu = 1 and tab0.estado = 1 
     /*   
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo = $id_periodo
    )*/
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    and (
      to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
      or
      trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
      or 
      tab0.id_periodo = $id_periodo
    )
    group by tab0.num_doc
)kardex1 ON kardex1.num_doc = tab0.num_doc

left join
(
    /*Se cambia validacion para tener encuenta dias realmente de la novedad segun prorroga - 20150223*/
    select tab0.num_doc, count(tab0.id_novedad_kardex) CANT, min(tab0.fecha_ini) as fecha_ini, max(tab0.fecha_fin) as fecha_fin,
    sum( case when tab0.num_dias > 0 and tab0.prorroga = 1 then 1 when tab0.num_dias > (tab1.dias_patrono) and tab0.prorroga = 0 then 1 else 0 end) as CANTIDAD,
    nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (tab1.dias_patrono),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novkar
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    /*
    Se cambia id_tip_nov_ka = 2 por 1 INCI
    Se deja quemado id 9 para novedad por ajuste de conceptos de reintegro ANM - 20140522
    Se cambia por id en tabla no_param_concep - 20140916
    */
    where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_enfcom from no_param_concep),9) and tab0.estado = 1 
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo = $id_periodo
    )
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    
    /*
    and (
      to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
      or
      trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
      and 
      (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    )
    */
    group by tab0.num_doc
)kardex2 ON kardex2.num_doc = tab0.num_doc

/*
Se agrega relacion de fecha de la novedad y la liquidacion, para no generar valores  dobles por mas de un registro dfe liquidacion -20200824
Incidente #24958, verificacion para LMA que si son por los 30 dias tome el IBC de salud y no lo liquidado - 20220317::LAVILA
*/
left join
(
    select
    tab0.id_tipo_doc,
    case when tab0.num_dias_novlicmat < 30 then tab0.valor_liquidado else nvl(liqapo.valor_base,tab0.valor_liquidado) end as valor_liquidado,
    tab0.num_doc,
    tab0.CANTIDAD,
    tab0.fecha_ini2,
    tab0.fecha_ini,
    tab0.fecha_fin2,
    tab0.fecha_fin,
    tab0.num_dias_novlicmat

    from(
        select 
        tab0.id_tipo_doc,
        sum(liq.valor_liquidado) as valor_liquidado,
        tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD, 
        max(tab0.fecha_ini) as fecha_ini2, 
        case when max(tab0.fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else min(tab0.fecha_ini) end as fecha_ini,
        max(fecha_fin) as fecha_fin2,
        case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(tab0.fecha_fin) end as fecha_fin,
        nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novlicmat
        from no_novedad_kardex tab0
        left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka

        left join no_liquida_nomina liq on tab0.num_doc = liq.num_doc and tab0.id_tipo_doc = liq.id_tipo_doc
        and liq.id_periodo = $id_periodo and liq.id_concep_nomina in (         
             select ka.id_concep_nomina from no_concep_ka ka where ka.id_tip_nov_ka in (select distinct id_nov_ka_licmat from no_param_concep)    
        )

        where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_licmat from no_param_concep)) and tab0.estado = 1 
        and (
          to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
          or
          TRUNC(LAST_DAY( TO_DATE('01/'|| (select LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS from NO_PERIODO where ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) between TAB0.FECHA_INI and TAB0.FECHA_FIN
          or 
          tab0.id_periodo = $id_periodo
        )
        and
        (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
        group by tab0.num_doc,tab0.id_tipo_doc
    
    )tab0

    left join no_liquida_aporte liqapo
    on liqapo.id_tipo_doc = tab0.id_tipo_doc
    and liqapo.num_doc = tab0.num_doc
    and liqapo.id_periodo = $id_periodo
    and liqapo.id_clase_fondo = 2
    and liqapo.tipo_planilla = 'A'
)kardex3 ON kardex3.num_doc = tab0.num_doc

/*
Se cambia de id-4 por atributo en  la tabla no_tip_nov_ka de afecta_riesgo, para validar cuales afectan en los dias de ARP-ARL - 20130919
*/
left join
(
    select tab0.num_doc, sum(tab0.num_dias) CANTIDAD
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.afecta_riesgo = 1 and tab0.estado = 1 and tab0.fecha_inc between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
    group by tab0.num_doc
)kardex4 ON kardex4.num_doc = tab0.num_doc

/*
Incapacidad -> Suspensión por Incapacidad  - 20150312
*/
left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) as max_marca_susinc
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.afecta_antigu = 1 and tab0.estado = 1 
    and tab0.id_tip_nov_ka = (select no_param_concep.id_nov_ka_susinc from no_param_concep where no_param_concep.id_param_concep = 1)
     /*   
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo = $id_periodo
    )*/
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    and (
      to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
      or
      trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
      or 
      tab0.id_periodo = $id_periodo
    )
    group by tab0.num_doc
)kardex5 ON kardex5.num_doc = tab0.num_doc

/*Licencia remunerada id-10 -- 20170222*/
/*Licencia remunerada descuenta dias para calculo -- 20190414*/
/*Licencia remunerada descuenta todos los días de meses anteriores - 20190905*/
left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) as CANTIDAD,  
    min(tab0.fecha_ini) as fecha_ini2, 
    case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
    max(tab0.fecha_fin) as fecha_fin2,
    case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin,
    
    nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novlicrem_ant,
    nvl(sum( fecha_rango_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin ) ),0) as num_dias_novlicrem
    
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.id_tip_nov_ka in (select id_tip_nov_ka from no_tip_nov_ka where tiempo_remunerado = 1) and tab0.estado = 1 
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo = $id_periodo
    )
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    
    group by tab0.num_doc
)kardexlr ON kardexlr.num_doc = tab0.num_doc

/*
Se coloca, tab0.id_periodo en la agrupacion, para tener encuenta todas las novedades - 20161104
*/
left join
(
    select 

   id_tipo_doc,                  
   num_doc,
   sum( nvl(CANTIDAD_vaciones,0) ) as CANTIDAD,
   sum(dias_vaciones) as num_dias_vac,
   max(fecha_ini) as fecha_ini2, 
   case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
   max(fecha_fin) as fecha_fin2,
   case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin

   from( 

       select 
       
       case  when tipnov.operador  = 1 
                 then nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) 
                 else nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) * (-1)
                 end as dias_vaciones,
                 
       max(tab0.fecha_ini) as fecha_ini, max(tab0.fecha_fin) as fecha_fin,
       tab0.id_tipo_doc, tab0.num_doc, count(tab0.id_novedad_vac) CANTIDAD,
        tipnov.operador,

        case  when tipnov.operador  = 1 
        /*then 1
        else (-1)*/
        then tab0.num_dias_vac
        else (-1 * tab0.num_dias_vac)
        --else nvl(sum( tab0.fecha_fin - tab0.fecha_ini + 1),0) * (-1)
        end as CANTIDAD_vaciones

       from no_novedad_vac tab0
       left join NO_TIPO_NOV_VAC TIPNOV on TIPNOV.ID_TIPO_NOV_VAC = tab0.ID_TIPO_NOV_VAC
       
       where 
       --tipnov.ID_TIPO_NOV_VAC = 1 and
       tipnov.tiempo_liqui = 1 and
       (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) and
       
      /*
       tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
       and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
       */
       /*Marca de vacaciones para todo el tiempo de duracion - 20130917*/
      ( 
          tab0.fecha_ini  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          or
          tab0.fecha_fin  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        or
          to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
          or
          trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
        )
        /* Valida que no sea un dia 31, ya que no se cuenta para liquidacion, que posea dias de vac en el periodo liquidado - 20141031 */        
        --and to_char(tab0.fecha_ini,'dd') != 31
        and DIAS_RANGO_MES_SIN_TREINTAYUNO(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo = $id_periodo)) > 0
        
        group by tab0.id_tipo_doc, tab0.num_doc,
       tipnov.operador, tab0.num_dias_vac, tab0.id_periodo

   ) 

   group by id_tipo_doc, num_doc
)vaca ON vaca.num_doc = tab0.num_doc


LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
    where afilia.id_clase_fondo = 1 
    /*
    and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
    between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
    */--and afilia.estado = 1
   
    AND ( codigo.tipo != 'EPS' or codigo.tipo != 'CCF' )
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'       
)pension ON pension.num_doc = tab0.num_doc

LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo ON codigo.nitocc = fondo.num_doc
    where afilia.id_clase_fondo = 2 
    /*
    and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
    between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
    --and afilia.estado = 1
    */
    AND codigo.tipo = 'EPS'
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'       
)salud ON salud.num_doc = tab0.num_doc

LEFT JOIN 
(
    select distinct 
    CODFON.CODIGO,
    afilia.num_doc, afilia.centro_trabajo as id_centro_trabajo, centra.codigo as centro_trabajo, apo.no_riesgo, centra.cod_ciiu, centra.cod_ncp, apo.no_riesgo as cod_riesgo,
    afilia.fecha_ingreso,
    afilia.riesgo,
   ROW_NUMBER() OVER (
    partition by afilia.num_doc
    ORDER BY afilia.estado DESC, afilia.fecha_ingreso DESC,afilia.id_afilia_fondo DESC
   ) AS rn
   
    from no_afilia_fondo afilia
    
    left join no_tipo_aporte apo
    on apo.id_tipo_aporte = afilia.id_tipo_aporte
    
    left join no_centro_trabajo centra
    on centra.id_centro_trabajo = afilia.centro_trabajo
    
    left join no_mae_fondos maefon
    on MAEFON.ID_MAE_FONDOS = afilia.ID_MAE_FONDOS
    
    left join no_cod_fondo codfon
    on maefon.num_doc = codfon.nitocc
    
    where afilia.id_clase_fondo = 3 --and afilia.estado = 1
    and to_char(afilia.fecha_ingreso,'yyyymm') <= ( select anho_mes from no_periodo_v where id_periodo = $id_periodo )
)riesgo ON riesgo.num_doc = tab0.num_doc
and riesgo.rn = 1

LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
    where afilia.id_clase_fondo = 4 
    --and afilia.estado = 1 
    AND codigo.tipo = 'CCF'
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'       
)ccf ON ccf.num_doc = tab0.num_doc


left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1
    and tab0.tipo_planilla = 'A'       
    group by tab0.num_doc
)pension1 ON pension1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.tarifa/100) as TARIFA--, tab0.aporte_func AS APORTE
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1  and tab0.porcentaje_patrono > 0 -- and  ( tab0.tarifa = 16 or tab0.tarifa = 26 )
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)pension2 ON pension2.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, sum(tab0.valor_base_fsp) as aporte_fsp, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1 and tab0.porcentaje_patrono = 0
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)pension3 ON pension3.num_doc = tab0.num_doc

/* Tomar aporte_patrono_licnorem de la tabla de aportes - 20150730*/
left join 
(
    select 

    tab0.num_doc, 
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_func) else 0 end as aporte, 
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.num_dias) else 0 end as dias,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.tarifa)/100 else 0 end as tarifa,
    sum(tab0.aporte_patrono) as aporte_patrono_a, 
    sum(tab1.aporte_patrono) as aporte_patrono_c

    from no_liquida_aporte tab0

    left join no_liquida_aporte tab1
    on tab1.id_periodo = tab0.id_periodo
    and tab1.id_tipo_doc = tab0.id_tipo_doc
    and tab1.num_doc = tab0.num_doc
    and tab1.id_mae_fondos = tab0.id_mae_fondos
    and tab1.id_concep_nomina = tab0.id_concep_nomina
    and tab1.id_clase_fondo = 2
    and tab1.tipo_planilla = 'C'

    where tab0.id_periodo = $id_periodo 
    and tab0.id_clase_fondo = 2
    and tab0.tipo_planilla = 'A' 

    group by tab0.num_doc
)salud1 ON salud1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/,
    min(tipapo.no_riesgo) as no_riesgo
    
    from no_liquida_aporte tab0
    
    left join no_tipo_aporte tipapo
    on tipapo.id_tipo_aporte = tab0.id_tipo_aporte
    
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 3
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)riesgo1 ON riesgo1.num_doc = tab0.num_doc

left join 
(
      select 
      
      tab0.num_doc, 
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_func) else 0 end as aporte, 
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.num_dias) else 0 end as dias,
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.tarifa)/100 else 0 end as tarifa,
      sum(tab0.aporte_patrono) as aporte_patrono_a, 
      sum(tab1.aporte_patrono) as aporte_patrono_c
      
      from no_liquida_aporte tab0
      
      left join no_liquida_aporte tab1
      on tab1.id_periodo = tab0.id_periodo
      and tab1.id_tipo_doc = tab0.id_tipo_doc
      and tab1.num_doc = tab0.num_doc
      and tab1.id_mae_fondos = tab0.id_mae_fondos
      and tab1.id_concep_nomina = tab0.id_concep_nomina
      and tab1.id_clase_fondo = 4
      and tab1.tipo_planilla = 'C'
      
      where tab0.id_periodo = $id_periodo 
      and tab0.id_clase_fondo = 4
      and tab0.tipo_planilla = 'A' 
      
      group by tab0.num_doc
)ccf1 ON ccf1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 5
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)icbf1 ON icbf1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 6
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)sena1 ON sena1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 7
    and tab0.tipo_planilla = 'A'       
    group by tab0.num_doc
)esap1 ON esap1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 8
    and tab0.tipo_planilla = 'A'       
    group by tab0.num_doc
)men1 ON men1.num_doc = tab0.num_doc

left join 
(
    select
    id_periodo, num_doc,
    --id_concep_nomina,
    sum(cantidad) as cantidad
    from (
        select
        lotehr.total_horas,
        lotehr.id_periodo,
        hrext.id_tipo_doc,
        hrext.num_doc,
        hrext.cantidad,
        tiphr.id_concep_nomina

        from no_lote_hr_extra lotehr

        left join no_hr_extra hrext
        on lotehr.id_lote_hr_extra = hrext.id_lote_hr_extra

        left join no_tipo_hr_extra tiphr
        on tiphr.id_tipo_hr_extra = hrext.id_tipo_hr_extra

        where lotehr.id_periodo = $id_periodo
        and lotehr.estado = 0
    )

    group by
    id_periodo, num_doc--, id_concep_nomina
)hrextra
ON hrextra.num_doc = tab0.num_doc


WHERE tab0.periodo = $id_periodo 
and (tab0.actual = 1 or
  ( tab0.actual = 0 
    /*
    Se cambia fecha de termina(ultimo dia de trabajo) por fecha de retiro, 
    para tener encuenta si trabajo en el periodo al menos 1 dia - 20130828                    
    */
    and tab5.fecha_retiro != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))
  )
)
and kardex3.cantidad > 0 and kardex3.num_dias_novlicmat > 0
and ( nvl(ccf1.dias,0) + nvl(salud1.dias,0) ) > 0

union

        /*
        * Funcionarios con novedades de LMA - 20170731, tipo C
        */
        select
        penfun.id_pension_func,
        6 as c00,--order de mensual luego licencia
        0 as c0,
        '02' AS C1,
        LPAD(rownum,5,0) AS C2,
        lpad( (REPLACE(tdoc.abreviacion,'.','')), 2,' ') AS C3,
        RPAD(to_char(tab0.num_doc),16,' ') AS C4,
        rpad(to_char(tab0.num_doc),16,' ') as c4a,
        '01' AS C5,
        case when penfun.id_pension_func is not null then penfun.codigo_suptipo else '00' end AS C6,--suptipo de pensionado
        ' ' AS C7,
        ' ' AS C8,
        RPAD(nvl(tab2.coddepto,' '),2,' ') AS C9,
        RPAD(nvl(substr(tab3.codmun_text,3),' '),3,' ') AS C10,
        RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11,
        RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11a,
        RPAD(nvl(tab4.segundo_apellido,' '),30,' ') AS C12,
        RPAD(nvl(tab4.primer_nombre,' '),20,' ') AS C13,
        RPAD(nvl(tab4.segundo_nombre,' '),30,' ') AS C14,
        case when tab5.fecha_ingreso
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then ' ' else ' ' end AS C15,
        case when tab5.fecha_termina
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then ' ' else ' ' end AS C16,
        ' ' AS C17,
        ' ' AS C18,
        ' ' AS C19,
        ' ' AS C20,
        --No La novedad SLN no debe de combinarse con otro tipo de novedad  - 20161122
        case when ascenso.cantidad>0 then ' ' else ' 'end AS C21,
        'C' AS C22,
        case when encargo.cantidad>0 then ' ' else ' 'end AS C23,
        case when kardex1.cantidad>0 and ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then 'X' when kardex1.cantidad>0 and  nvl(max_marca,0) = 1 and nvl(max_marca_susinc,0) = 0 then 'C' else ' ' end AS C24,
        case when kardex2.cantidad>0 then 'X' else ' 'end AS C25,--inc temp enfermedad
        case when kardex3.cantidad>0 then 'X' else ' 'end AS C26,--lic maternidad
        case when vaca.cantidad>0 then ' ' when kardexlr.cantidad>0 then ' ' else ' 'end AS C27,
        ' ' AS C28,
        ' ' AS C29,
        LPAD(to_char(nvl(kardex4.cantidad,0)),2,0) AS C30,--inc por accidente de trabajo
        rpad(nvl(pension.codigo,' '),6,' ') as c31,
        rPAD(' ',6,' ') AS C32,
        rPAD(nvl(salud.codigo,' '),6,' ') AS C33,
        rpad(' ',6,' ') as c34,
        rPAD(nvl(ccf.codigo,' '),6,' ') AS C35,
        lpad( kardex3.num_dias_novlicmat ,2,0) as c36,
        lpad( kardex3.num_dias_novlicmat ,2,0) as c37,
        lpad( kardex3.num_dias_novlicmat ,2,0) AS C38, 
        --39 dias parafiscales
        lpad( kardex3.num_dias_novlicmat ,2,0) AS C39,
        LPAD(nvl(tab6.asignacion_basica,0),9,0) AS C40,
        ' ' AS C41,
        -- Se validan los dias de retiro del funionario - 20141007
        LPAD(  case when (kardex3.num_dias_novlicmat) != 0 then ceil( kardex3.valor_liquidado/1)*1 else 0 end ,9,0) AS C42,
        LPAD(  case when (kardex3.num_dias_novlicmat) != 0 then ceil( kardex3.valor_liquidado/1)*1 else 0 end ,9,0) AS C43,
        LPAD(  case when (kardex3.num_dias_novlicmat) != 0 then ceil( kardex3.valor_liquidado/1)*1 else 0 end ,9,0) AS C44,
        LPAD(  case when (kardex3.num_dias_novlicmat) != 0 then ceil( kardex3.valor_liquidado/1)*1 else 0 end ,9,0) AS C45,
        -- Se debe calcular a partir de octubre la tarifa del patrono - 20131028
        -- No debe llevar registro de pension - 20140729
        -- Se coloca que para CYC, si debe llevar registro de pension - 20170127
        --rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) as c46,
        --rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0) as C46,
        case when 4 in (4) then (rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0)) else rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) end as C46,
        --lPAD(nvl(null,0) + nvl(null,0),9,0) AS C47,
        --lpad( round( round( nvl(tab6.asignacion_basica,0)/30*(30-nvl(pension2.dias-nvl(kardex4.cantidad,0),0))  ,-3) * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,-2) ,9,0) as c47,
        lPAD( ceil((ceil( kardex3.valor_liquidado/1)*1)*nvl(pension2.tarifa,0)/100)*100 ,9,0) as c47,
        lPAD(0,9,0) AS C48,
        lpad(0,9,0) as c49,
        lPAD( ceil( (ceil( ( ceil( kardex3.valor_liquidado/1)*1 )/1)*1)*nvl(pension2.tarifa,0) /100)*100 ,9,0) as C50,
        lPAD( ceil( ((ceil( ( ceil( kardex3.valor_liquidado/1)*1 )/1)*1)*nvl(0.005,0)) /100)*100 *(case when nvl(pension3.aporte_fsp,0) != 0 then 1 else 0 end) ,9,0) as c51,
        lpad( ceil(( ((ceil( ( ceil( kardex3.valor_liquidado/1)*1 )/1)*1)*nvl(pension3.tarifa,0)) - ((ceil( ( ceil( kardex3.valor_liquidado/1)*1 )/1)*1)*nvl(0.005,0)) )/100)*100 *(case when nvl(pension3.aporte_fsp,0) != 0 then 1 else 0 end) ,9,0) as c52,
        rpad(0,9,0) as c53,
        rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) ,7,0) as c54,
        --lpad( round( round( nvl(tab6.asignacion_basica,0)/30*(30-nvl(salud1.dias-nvl(kardex4.cantidad,0),0)- (tab5.dias_retiro) )  ,-3) * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then salud1.tarifa else 0 end ,0) ,-2) ,9,0) as c55,
        lPAD( ceil((ceil( kardex3.valor_liquidado/1)*1)*nvl(salud1.tarifa,0)/100)*100 ,9,0) as c55,
        lpad( case when '01' = '40' then 0 else 0 end ,9,0) as c56,
        rpad(' ',15,' ') as c57,
        rpad(0,9,0) as C58,
        rpad(' ',15,' ') as C59,
        rpad(0,9,0) as c60,
        --rpad( case when nvl(riesgo1.tarifa,0) = 0 then '0.0' when nvl(riesgo1.tarifa,0) < 1 then '0' else '' end || + nvl(riesgo1.tarifa,0) ,9,0) as C61,
        rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,9,0) as C61,
        lpad(nvl(riesgo.centro_trabajo,0),9,0) as C62,
        lpad( nvl(0,0) ,9,0) as c63,
        --lpad( ceil( ( nvl(riesgo1.aporte_patrono,0)/30*(kardex2.num_dias_novkar) )/100)*100 ,9,0) as c63,
        rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) AS C64,
        --lpad( nvl(ccf1.aporte_patrono,0) ,9,0) as c65,
        lpad( ceil( ( nvl(ccf1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c65,
        rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C66,
        --lpad( nvl(sena1.aporte_patrono,0) ,9,0) as c67,
        lpad( ceil( ( nvl(sena1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c67,
        rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C68,
        --lpad( nvl(icbf1.aporte_patrono,0) ,9,0) as c69,
        lpad( ceil( ( nvl(icbf1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c69,
        rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C70,
        --lpad( nvl(esap1.aporte_patrono,0) ,9,0) as c71,
        lpad( ceil( ( nvl(esap1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c71,
        rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C72,
        --lpad( nvl(men1.aporte_patrono,0) ,9,0) as c73,
        lpad( ceil( ( nvl(men1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c73,
        '  ' AS C74,
        RPAD(to_char(' '),16,' ') AS C75,
        RPAD(to_char('N'),1,' ') AS C76,
        RPAD(riesgo.codigo,6,' ') AS C77,
        nvl(RPAD( nvl(riesgo1.no_riesgo,riesgo.riesgo),1,' '),' ') AS C78,
        RPAD(to_char(' '),1,' ') AS C79,

        RPAD(to_char(' '),10,' ') AS C80,--ING
        RPAD(to_char(' '),10,' ') AS C81,--RET
        RPAD(to_char(' '),10,' ') AS C82,--VSP

        RPAD(to_char(' '),10,' ') AS C83,--SLN
        RPAD(to_char(' '),10,' ') AS C84,--SLN

        RPAD(to_char(' '),10,' ') AS C85,--IGE
        RPAD(to_char(' '),10,' ') AS C86,--IGE

        case when kardex3.fecha_ini
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then to_char(kardex3.fecha_ini,'yyyy-mm-dd')
          else RPAD(to_char(' '),10,' ') end AS C87,--LMA
        case when kardex3.fecha_fin
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then to_char(kardex3.fecha_fin,'yyyy-mm-dd')
          else RPAD(to_char(' '),10,' ') end AS C88,--LMA

        RPAD(to_char(' '),10,' ') AS C89,--VAC-LR
        RPAD(to_char(' '),10,' ') AS C90,--VAC-LR

        RPAD(to_char(' '),10,' ') AS C91,--VCT
        RPAD(to_char(' '),10,' ') AS C92,--VCT
        RPAD(to_char(' '),10,' ') AS C93,--IRL
        RPAD(to_char(' '),10,' ') AS C94,--IRL
        LPAD(  case when (kardex3.num_dias_novlicmat) != 1 then ceil( kardex3.valor_liquidado/1)*1 else 0 end ,9,0) as C95,--IBC parafiscales
        LPAD(nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0),3,0) AS C96,--HORAS EXTRAS
        RPAD(to_char(' '),10,' ') AS C97,--Rad exterior
        case when tab0.id_anhos || lpad(tab0.id_meses, 2, '0') >= 202211 then RPAD(to_char(riesgo.cod_riesgo|| riesgo.cod_ciiu || riesgo.cod_ncp),7,' ') else '' end AS C98

        from no_estado_func_v tab0

        left join tipo_documento tdoc
        on tdoc.id_tipo_doc = tab0.id_tipo_doc

        left join centro_operacion tab1 ON tab1.id_cen_op = tab0.id_cen_op
        left join departamento tab2 ON tab2.id_depto = tab1.id_depto
        left join municipios tab3 ON tab3.codmun = tab1.codmun
        left join no_datos_funcionario_v tab4 ON tab4.id_tipo_doc = tab0.id_tipo_doc and tab4.num_doc = tab0.num_doc

        left join (
            select pen.*, sub.descripcion as suptipo_cotizante, sub.codigo as codigo_suptipo
            from no_pension_func pen
            left join no_suptipo_cotizante_v sub
            on pen.id_suptipo_cotizante = sub.id_suptipo_cotizante
            where
            pen.estado = 1
        )penfun
        on penfun.id_tipo_doc = tab0.id_tipo_doc 
        and penfun.num_doc = tab0.num_doc

        --left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
        left join (
          SELECT
          case when aut.fecha_termina
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then (30 - to_char(aut.fecha_termina,'dd') ) else 0 end as dias_retiro,
           aut.*,
           ROW_NUMBER() OVER (
            partition by aut.num_doc
            ORDER BY aut.estado DESC, aut.fecha_ingreso DESC
           ) AS rn
          from no_nombramiento aut
  
            left join no_periodo_v per
            on per.id_periodo = aut.id_periodo

            where 
            per.anho_mes <= ( SELECT anho_mes FROM no_periodo_v where id_periodo = $id_periodo )
        )tab5
        on tab5.id_tipo_doc = tab0.id_tipo_doc 
        and tab5.num_doc = tab0.num_doc
        and tab5.rn = 1

        --left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp
        /*
        Se cambia para tomar valor de concepto_periodo para el concepto_nomina 1001 del periodo de tipo mensual o nomina adicional - 20130827
        */
        left join(

            select * from(
                    select 
                    concep.id_tipo_doc,
                    concep.num_doc,
                    concep.valor as asignacion_basica ,

                     ROW_NUMBER() OVER (
                      PARTITION BY concep.num_doc
                      order by per.id_tipo_periodo asc, concep.fecha_hasta desc
                     ) as rn

                    from no_concepto_periodo concep

                    join no_periodo per
                    on concep.PERIODO = per.id_periodo

                    where 
                    concep.id_concep_nomina = (select id_concep_basica from no_param_concep) 

                    and (per.id_tipo_periodo = 6 or per.id_tipo_periodo = 7)
                    and (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = concep.id_periodo_ajuste) = (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) 
            )where rn = 1

        )tab6 ON tab6.id_tipo_doc = tab0.id_tipo_doc and tab6.num_doc = tab0.num_doc
        and tab6.rn = 1

        left join
        (
          /* se cambia filtro por estado activo y id_tipo_novedad = 1 - 20150422 */
          select 
          tab0.num_doc,count(tab0.id_novedad_personal) as cantidad
          from no_novedad_personal tab0
          left join no_novedades nov on tab0.id_novedad = nov.id_novedad
          where 
          tab0.estado = 1 and nov.id_tipo_novedad = 1
          and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
          group by tab0.num_doc
        ) ascenso ON ascenso.num_doc = tab0.num_doc

        left join
        (
            select num_doc, sum(cantidad) AS CANTIDAD
            from(

                select tab0.num_doc,count(tab0.id_novedad_personal) AS CANTIDAD
                from no_novedad_personal tab0
                where tab0.id_novedad IN ( 3, 7 )  
                and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                group by tab0.num_doc

                union 

                select tab0.num_doc,count(tab0.id_bonifica_servicios) AS CANTIDAD
                from no_bonifica_servicios tab0
                where tab0.estado=1 and tab0.fecha_bonifica between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                group by tab0.num_doc

                union 

                select tab0.num_doc,count(tab0.id_hr_extra) AS CANTIDAD
                from no_hr_extra tab0
                left join no_lote_hr_extra tab1 ON tab1.id_lote_hr_extra = tab0.id_lote_hr_extra
                where tab1.estado=0 and tab1.id_periodo = $id_periodo
                group by tab0.num_doc

            )GROUP BY num_doc

        ) encargo ON encargo.num_doc = tab0.num_doc

        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD, max(tab1.suspension) as max_marca,
            max(fecha_ini) as fecha_ini2, 
            case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
            max(fecha_fin) as fecha_fin2,
            case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.afecta_antigu = 1 and tab0.estado = 1 
             /*   
            and (
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or 
              tab0.id_periodo = $id_periodo
            )*/
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
            and (
              to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
              or
              trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
              or 
              tab0.id_periodo = $id_periodo
            )
            group by tab0.num_doc
        )kardex1 ON kardex1.num_doc = tab0.num_doc

        left join
        (
            /*Se cambia validacion para tener encuenta dias realmente de la novedad segun prorroga - 20150223*/
            select tab0.num_doc, count(tab0.id_novedad_kardex) CANT, min(tab0.fecha_ini) as fecha_ini, max(tab0.fecha_fin) as fecha_fin,
            sum( case when tab0.num_dias > 0 and tab0.prorroga = 1 then 1 when tab0.num_dias > (tab1.dias_patrono) and tab0.prorroga = 0 then 1 else 0 end) as CANTIDAD,
            nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (tab1.dias_patrono),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novkar
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            /*
            Se cambia id_tip_nov_ka = 2 por 1 INCI
            Se deja quemado id 9 para novedad por ajuste de conceptos de reintegro ANM - 20140522
            Se cambia por id en tabla no_param_concep - 20140916
            */
            where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_enfcom from no_param_concep),9) and tab0.estado = 1 
            and (
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or 
              tab0.id_periodo = $id_periodo
            )
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)

            /*
            and (
              to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
              or
              trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
              and 
              (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
            )
            */
            group by tab0.num_doc
        )kardex2 ON kardex2.num_doc = tab0.num_doc

        /*
        Se agrega relacion de fecha de la novedad y la liquidacion, para no generar valores  dobles por mas de un registro dfe liquidacion -20200824
        Incidente #24958, verificacion para LMA que si son por los 30 dias tome el IBC de salud y no lo liquidado - 20220317::LAVILA
        */
        left join
        (
            select
            tab0.id_tipo_doc,
            case when tab0.num_dias_novlicmat < 30 then tab0.valor_liquidado else nvl(liqapo.valor_base,tab0.valor_liquidado) end as valor_liquidado,
            tab0.num_doc,
            tab0.CANTIDAD,
            tab0.fecha_ini2,
            tab0.fecha_ini,
            tab0.fecha_fin2,
            tab0.fecha_fin,
            tab0.num_dias_novlicmat

            from(
                select 
                tab0.id_tipo_doc,
                sum(liq.valor_liquidado) as valor_liquidado,
                tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD, 
                max(tab0.fecha_ini) as fecha_ini2, 
                case when max(tab0.fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else min(tab0.fecha_ini) end as fecha_ini,
                max(fecha_fin) as fecha_fin2,
                case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(tab0.fecha_fin) end as fecha_fin,
                nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novlicmat
                from no_novedad_kardex tab0
                left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka

                left join no_liquida_nomina liq on tab0.num_doc = liq.num_doc and tab0.id_tipo_doc = liq.id_tipo_doc
                and liq.id_periodo = $id_periodo and liq.id_concep_nomina in (         
                     select ka.id_concep_nomina from no_concep_ka ka where ka.id_tip_nov_ka in (select distinct id_nov_ka_licmat from no_param_concep)    
                )

                where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_licmat from no_param_concep)) and tab0.estado = 1 
                and (
                  to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
                  or
                  TRUNC(LAST_DAY( TO_DATE('01/'|| (select LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS from NO_PERIODO where ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) between TAB0.FECHA_INI and TAB0.FECHA_FIN
                  or 
                  tab0.id_periodo = $id_periodo
                )
                and
                (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
                group by tab0.num_doc,tab0.id_tipo_doc
    
            )tab0

            left join no_liquida_aporte liqapo
            on liqapo.id_tipo_doc = tab0.id_tipo_doc
            and liqapo.num_doc = tab0.num_doc
            and liqapo.id_periodo = $id_periodo
            and liqapo.id_clase_fondo = 2
            and liqapo.tipo_planilla = 'C'
        )kardex3 ON kardex3.num_doc = tab0.num_doc

        /*
        Se cambia de id-4 por atributo en  la tabla no_tip_nov_ka de afecta_riesgo, para validar cuales afectan en los dias de ARP-ARL - 20130919
        */
        left join
        (
            select tab0.num_doc, sum(tab0.num_dias) CANTIDAD
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.afecta_riesgo = 1 and tab0.estado = 1 and tab0.fecha_inc between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
            group by tab0.num_doc
        )kardex4 ON kardex4.num_doc = tab0.num_doc

        /*
        Incapacidad -> Suspensión por Incapacidad  - 20150312
        */
        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) as max_marca_susinc
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.afecta_antigu = 1 and tab0.estado = 1 
            and tab0.id_tip_nov_ka = (select no_param_concep.id_nov_ka_susinc from no_param_concep where no_param_concep.id_param_concep = 1)
             /*   
            and (
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or 
              tab0.id_periodo = $id_periodo
            )*/
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
            and (
              to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
              or
              trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
              or 
              tab0.id_periodo = $id_periodo
            )
            group by tab0.num_doc
        )kardex5 ON kardex5.num_doc = tab0.num_doc

        /*Licencia remunerada id-10 -- 20170222*/
        /*Licencia remunerada descuenta dias para calculo -- 20190414*/
        /*Licencia remunerada descuenta todos los días de meses anteriores - 20190905*/
        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) as CANTIDAD,  
            min(tab0.fecha_ini) as fecha_ini2, 
            case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
            max(tab0.fecha_fin) as fecha_fin2,
            case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin,
            
            nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novlicrem_ant,
            nvl(sum( fecha_rango_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin ) ),0) as num_dias_novlicrem

            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.id_tip_nov_ka in (select id_tip_nov_ka from no_tip_nov_ka where tiempo_remunerado = 1) and tab0.estado = 1 
            and (
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or 
              tab0.id_periodo = $id_periodo
            )
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)

            group by tab0.num_doc
        )kardexlr ON kardexlr.num_doc = tab0.num_doc

        /*
        Se coloca, tab0.id_periodo en la agrupacion, para tener encuenta todas las novedades - 20161104
        */
        left join
        (
            select 

           id_tipo_doc,                  
           num_doc,
           sum( nvl(CANTIDAD_vaciones,0) ) as CANTIDAD,
           sum(dias_vaciones) as num_dias_vac,
           max(fecha_ini) as fecha_ini2, 
           case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
           max(fecha_fin) as fecha_fin2,
           case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin

           from( 

               select 

               case  when tipnov.operador  = 1 
                         then nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) 
                         else nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) * (-1)
                         end as dias_vaciones,

               max(tab0.fecha_ini) as fecha_ini, max(tab0.fecha_fin) as fecha_fin,
               tab0.id_tipo_doc, tab0.num_doc, count(tab0.id_novedad_vac) CANTIDAD,
                tipnov.operador,

                case  when tipnov.operador  = 1 
                /*then 1
                else (-1)*/
                then tab0.num_dias_vac
                else (-1 * tab0.num_dias_vac)
                --else nvl(sum( tab0.fecha_fin - tab0.fecha_ini + 1),0) * (-1)
                end as CANTIDAD_vaciones

               from no_novedad_vac tab0
               left join NO_TIPO_NOV_VAC TIPNOV on TIPNOV.ID_TIPO_NOV_VAC = tab0.ID_TIPO_NOV_VAC

               where 
               --tipnov.ID_TIPO_NOV_VAC = 1 and
               tipnov.tiempo_liqui = 1 and
               (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) and

              /*
               tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
               and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
               */
               /*Marca de vacaciones para todo el tiempo de duracion - 20130917*/
              ( 
                  tab0.fecha_ini  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                  or
                  tab0.fecha_fin  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                or
                  to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
                  or
                  trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
                )
                /* Valida que no sea un dia 31, ya que no se cuenta para liquidacion, que posea dias de vac en el periodo liquidado - 20141031 */        
                --and to_char(tab0.fecha_ini,'dd') != 31
                and DIAS_RANGO_MES_SIN_TREINTAYUNO(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo = $id_periodo)) > 0

                group by tab0.id_tipo_doc, tab0.num_doc,
               tipnov.operador, tab0.num_dias_vac, tab0.id_periodo

           ) 

           group by id_tipo_doc, num_doc
        )vaca ON vaca.num_doc = tab0.num_doc


        LEFT JOIN 
        (
            select distinct afilia.num_doc, codigo.codigo
            from no_liquida_aporte afilia
            left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
            left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
            where afilia.id_clase_fondo = 1 
            /*
            and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
            between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
            */--and afilia.estado = 1

            AND ( codigo.tipo != 'EPS' or codigo.tipo != 'CCF' )
            and afilia.id_periodo = $id_periodo
            and afilia.tipo_planilla = 'C'       
        )pension ON pension.num_doc = tab0.num_doc

        LEFT JOIN 
        (
            select distinct afilia.num_doc, codigo.codigo
            from no_liquida_aporte afilia
            left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
            left join no_cod_fondo codigo ON codigo.nitocc = fondo.num_doc
            where afilia.id_clase_fondo = 2 
            /*
            and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
            between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
            --and afilia.estado = 1
            */
            AND codigo.tipo = 'EPS'
            and afilia.id_periodo = $id_periodo
            and afilia.tipo_planilla = 'C'       
        )salud ON salud.num_doc = tab0.num_doc

        LEFT JOIN 
        (
            select distinct 
            CODFON.CODIGO,
            afilia.num_doc, afilia.centro_trabajo as id_centro_trabajo, centra.codigo as centro_trabajo, apo.no_riesgo, centra.cod_ciiu, centra.cod_ncp, apo.no_riesgo as cod_riesgo,
            afilia.fecha_ingreso,
            afilia.riesgo,
           ROW_NUMBER() OVER (
            partition by afilia.num_doc
            ORDER BY afilia.estado DESC, afilia.fecha_ingreso DESC,afilia.id_afilia_fondo DESC
           ) AS rn

            from no_afilia_fondo afilia

            left join no_tipo_aporte apo
            on apo.id_tipo_aporte = afilia.id_tipo_aporte

            left join no_centro_trabajo centra
            on centra.id_centro_trabajo = afilia.centro_trabajo

            left join no_mae_fondos maefon
            on MAEFON.ID_MAE_FONDOS = afilia.ID_MAE_FONDOS

            left join no_cod_fondo codfon
            on maefon.num_doc = codfon.nitocc

            where afilia.id_clase_fondo = 3 --and afilia.estado = 1
            and to_char(afilia.fecha_ingreso,'yyyymm') <= ( select anho_mes from no_periodo_v where id_periodo = $id_periodo )
        )riesgo ON riesgo.num_doc = tab0.num_doc
        and riesgo.rn = 1

        LEFT JOIN 
        (
            select distinct afilia.num_doc, codigo.codigo
            from no_liquida_aporte afilia
            left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
            left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
            where afilia.id_clase_fondo = 4 
            --and afilia.estado = 1 
            AND codigo.tipo = 'CCF'
            and afilia.id_periodo = $id_periodo
            and afilia.tipo_planilla = 'C'       
        )ccf ON ccf.num_doc = tab0.num_doc


        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1
            and tab0.tipo_planilla = 'C'       
            group by tab0.num_doc
        )pension1 ON pension1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
            max(tab0.tarifa/100) as TARIFA--, tab0.aporte_func AS APORTE
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1  and tab0.porcentaje_patrono > 0 -- and  ( tab0.tarifa = 16 or tab0.tarifa = 26 )
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )pension2 ON pension2.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, sum(tab0.valor_base_fsp) as aporte_fsp, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1 and tab0.porcentaje_patrono = 0
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )pension3 ON pension3.num_doc = tab0.num_doc

        /* Tomar aporte_patrono_licnorem de la tabla de aportes - 20150730*/
        left join 
        (
            select 

            tab0.num_doc, 
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_func) else 0 end as aporte, 
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.num_dias) else 0 end as dias,
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.tarifa)/100 else 0 end as tarifa,
            sum(tab0.aporte_patrono) as aporte_patrono_a, 
            sum(tab1.aporte_patrono) as aporte_patrono_c

            from no_liquida_aporte tab0

            left join no_liquida_aporte tab1
            on tab1.id_periodo = tab0.id_periodo
            and tab1.id_tipo_doc = tab0.id_tipo_doc
            and tab1.num_doc = tab0.num_doc
            and tab1.id_mae_fondos = tab0.id_mae_fondos
            and tab1.id_concep_nomina = tab0.id_concep_nomina
            and tab1.id_clase_fondo = 2
            and tab1.tipo_planilla = 'A'

            where tab0.id_periodo = $id_periodo 
            and tab0.id_clase_fondo = 2
            and tab0.tipo_planilla = 'C' 

            group by tab0.num_doc
        )salud1 ON salud1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/,
            min(tipapo.no_riesgo) as no_riesgo

            from no_liquida_aporte tab0

            left join no_tipo_aporte tipapo
            on tipapo.id_tipo_aporte = tab0.id_tipo_aporte

            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 3
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )riesgo1 ON riesgo1.num_doc = tab0.num_doc

        left join 
        (
              select 

              tab0.num_doc, 
              case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_func) else 0 end as aporte, 
              case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
              case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.num_dias) else 0 end as dias,
              case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
              case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.tarifa)/100 else 0 end as tarifa,
              sum(tab0.aporte_patrono) as aporte_patrono_a, 
              sum(tab1.aporte_patrono) as aporte_patrono_c

              from no_liquida_aporte tab0

              left join no_liquida_aporte tab1
              on tab1.id_periodo = tab0.id_periodo
              and tab1.id_tipo_doc = tab0.id_tipo_doc
              and tab1.num_doc = tab0.num_doc
              and tab1.id_mae_fondos = tab0.id_mae_fondos
              and tab1.id_concep_nomina = tab0.id_concep_nomina
              and tab1.id_clase_fondo = 4
              and tab1.tipo_planilla = 'A'

              where tab0.id_periodo = $id_periodo 
              and tab0.id_clase_fondo = 4
              and tab0.tipo_planilla = 'C' 

              group by tab0.num_doc
        )ccf1 ON ccf1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 5
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )icbf1 ON icbf1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 6
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )sena1 ON sena1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 7
            and tab0.tipo_planilla = 'C'       
            group by tab0.num_doc
        )esap1 ON esap1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 8
            and tab0.tipo_planilla = 'C'       
            group by tab0.num_doc
        )men1 ON men1.num_doc = tab0.num_doc

        left join 
        (
            select
            id_periodo, num_doc,
            --id_concep_nomina,
            sum(cantidad) as cantidad
            from (
                select
                lotehr.total_horas,
                lotehr.id_periodo,
                hrext.id_tipo_doc,
                hrext.num_doc,
                hrext.cantidad,
                tiphr.id_concep_nomina

                from no_lote_hr_extra lotehr

                left join no_hr_extra hrext
                on lotehr.id_lote_hr_extra = hrext.id_lote_hr_extra

                left join no_tipo_hr_extra tiphr
                on tiphr.id_tipo_hr_extra = hrext.id_tipo_hr_extra

                where lotehr.id_periodo = $id_periodo
                and lotehr.estado = 0
            )

            group by
            id_periodo, num_doc--, id_concep_nomina
        )hrextra
        ON hrextra.num_doc = tab0.num_doc


        WHERE tab0.periodo = $id_periodo 
        and (tab0.actual = 1 or
          ( tab0.actual = 0 
            /*
            Se cambia fecha de termina(ultimo dia de trabajo) por fecha de retiro, 
            para tener encuenta si trabajo en el periodo al menos 1 dia - 20130828                    
            */
            and tab5.fecha_retiro != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and tab5.fecha_termina
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))
          )
        )
        and kardex3.cantidad > 0 and kardex3.num_dias_novlicmat > 0
        and ( nvl(ccf1.dias,0) + nvl(salud1.dias,0) ) > 0

union

/*
* Funcionarios con novedades de IRL - 20170515, tipo A
*/
select
penfun.id_pension_func,
7 as c00,--order de mensual luego licencia
0 as c0,
'02' AS C1,
LPAD(rownum,5,0) AS C2,
lpad( (REPLACE(tdoc.abreviacion,'.','')), 2,' ') AS C3,
RPAD(to_char(tab0.num_doc),16,' ') AS C4,
rpad(to_char(tab0.num_doc),16,' ') as c4a,
'01' AS C5,
case when penfun.id_pension_func is not null then penfun.codigo_suptipo else '00' end AS C6,--suptipo de pensionado
' ' AS C7,
' ' AS C8,
RPAD(nvl(tab2.coddepto,' '),2,' ') AS C9,
RPAD(nvl(substr(tab3.codmun_text,3),' '),3,' ') AS C10,
RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11,
RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11a,
RPAD(nvl(tab4.segundo_apellido,' '),30,' ') AS C12,
RPAD(nvl(tab4.primer_nombre,' '),20,' ') AS C13,
RPAD(nvl(tab4.segundo_nombre,' '),30,' ') AS C14,
case when tab5.fecha_ingreso
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then ' ' else ' ' end AS C15,
case when tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then 'X' else ' ' end AS C16,
' ' AS C17,
' ' AS C18,
' ' AS C19,
' ' AS C20,
--No La novedad SLN no debe de combinarse con otro tipo de novedad  - 20161122
case when ascenso.cantidad>0 then ' ' else ' 'end AS C21,
'A' AS C22,
case when encargo.cantidad>0 then ' ' else ' 'end AS C23,
case when kardex1.cantidad>0 and ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then 'X' when kardex1.cantidad>0 and  nvl(max_marca,0) = 1 and nvl(max_marca_susinc,0) = 0 then 'C' else ' ' end AS C24,
case when kardex2.cantidad>0 then 'X' else ' 'end AS C25,--inc temp enfermedad
case when kardex3.cantidad>0 then ' ' else ' 'end AS C26,--lic maternidad
case when vaca.cantidad>0 then ' ' when kardexlr.cantidad>0 then ' ' else ' 'end AS C27,
' ' AS C28,
' ' AS C29,
LPAD(to_char(nvl(kardex4.cantidad,0)),2,0) AS C30,--inc por accidente de trabajo
rpad(nvl(pension.codigo,' '),6,' ') as c31,
rPAD(' ',6,' ') AS C32,
rPAD(nvl(salud.codigo,' '),6,' ') AS C33,
rpad(' ',6,' ') as c34,
rPAD(nvl(ccf.codigo,' '),6,' ') AS C35,
lpad( nvl(kardex4.cantidad,0) ,2,0) as c36,
lpad( nvl(kardex4.cantidad,0) ,2,0) as c37,
lpad( nvl(kardex4.cantidad,0) ,2,0) AS C38, 
--39 dias parafiscales
lpad( nvl(kardex4.cantidad,0) ,2,0) AS C39,
LPAD( case when nvl(tab6.asignacion_basica,0) != 0 then nvl(tab6.asignacion_basica,0) else ceil( ( nvl(pension1.ibc,0)-nvl(riesgo1.ibc,0) )/1)*1 end  ,9,0) AS C40,
' ' AS C41,

-- Se validan los dias de retiro del funionario - 20141007
LPAD(  case when (kardex4.cantidad) != 0 then ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1 else ceil( ( nvl(pension1.ibc,0)/30*(kardex4.cantidad) ) ) end ,9,0) AS C42,
LPAD(  case when (kardex4.cantidad) != 0 then ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1 else ceil( ( nvl(salud1.ibc,0)/30*(kardex4.cantidad) ) ) end ,9,0) AS C43,
LPAD(  case when (kardex4.cantidad) != 0 then ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1 else ceil( ( nvl(salud1.ibc,0)/30*(kardex4.cantidad) ) ) end ,9,0) AS C44,
LPAD(  case when (kardex4.cantidad) != 0 then ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1 else ceil( ( nvl(ccf1.ibc,0)/30*(kardex4.cantidad) ) ) end ,9,0) AS C45,
-- Se debe calcular a partir de octubre la tarifa del patrono - 20131028
-- No debe llevar registro de pension - 20140729
-- Se coloca que para CYC, si debe llevar registro de pension - 20170127
--rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) as c46,
--rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0) as C46,
case when 4 in (4) then (rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0)) else rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) end as C46,
--lPAD(nvl(null,0) + nvl(null,0),9,0) AS C47,
--lpad( round( round( nvl(tab6.asignacion_basica,0)/30*(30-nvl(pension2.dias-nvl(kardex4.cantidad,0),0))  ,-3) * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,-2) ,9,0) as c47,
lPAD( ceil( (ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1)*nvl(pension2.tarifa,0) /100)*100 ,9,0) as c47,
lPAD(0,9,0) AS C48,
lpad(0,9,0) as C49,
lPAD( ceil( (ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1)*nvl(pension2.tarifa,0) /100)*100 ,9,0) as C50,
lPAD( ceil( ((ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1)*nvl(pension3.tarifa,0))/2 /100)*100 ,9,0) as c51,
lpad( ceil(( ((ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1)*nvl(pension3.tarifa,0)) - ((ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1)*nvl(pension3.tarifa,0))/2 )/100)*100 ,9,0) as c52,
rpad(0,9,0) as c53,
rpad( case when nvl(salud1.tarifa,0) = 0 then '0.0' when nvl(salud1.tarifa,0) < 1 then '0' else '' end || + nvl(salud1.tarifa,0) ,7,0) as c54,
lPAD( ceil( (ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1)*nvl(salud1.tarifa,0) /100)*100 ,9,0) AS c55,

lpad( case when '01' = '40' then 0 else 0 end ,9,0) as c56,
rpad(' ',15,' ') as c57,
rpad(0,9,0) as C58,
rpad(' ',15,' ') as C59,
rpad(0,9,0) as c60,
--rpad( case when nvl(riesgo1.tarifa,0) = 0 then '0.0' when nvl(riesgo1.tarifa,0) < 1 then '0' else '' end || + nvl(riesgo1.tarifa,0) ,9,0) as C61,
rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,9,0) as C61,
lpad(nvl(riesgo.centro_trabajo,0),9,0) as C62,
lpad( nvl(0,0) ,9,0) as c63,
--lpad( ceil( ( nvl(riesgo1.aporte_patrono,0)/30*(kardex2.num_dias_novkar) )/100)*100 ,9,0) as c63,
rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) AS C64,
--lpad( nvl(ccf1.aporte_patrono,0) ,9,0) as c65,
lpad( ceil( ( nvl(ccf1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c65,
rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C66,
--lpad( nvl(sena1.aporte_patrono,0) ,9,0) as c67,
lpad( ceil( ( nvl(sena1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c67,
rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C68,
--lpad( nvl(icbf1.aporte_patrono,0) ,9,0) as c69,
lpad( ceil( ( nvl(icbf1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c69,
rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C70,
--lpad( nvl(esap1.aporte_patrono,0) ,9,0) as c71,
lpad( ceil( ( nvl(esap1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c71,
rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C72,
--lpad( nvl(men1.aporte_patrono,0) ,9,0) as c73,
lpad( ceil( ( nvl(men1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c73,
'  ' AS C74,
RPAD(to_char(' '),16,' ') AS C75,
RPAD(to_char('N'),1,' ') AS C76,
RPAD(riesgo.codigo,6,' ') AS C77,
nvl(RPAD( nvl(riesgo1.no_riesgo,riesgo.riesgo),1,' '),' ') AS C78,
RPAD(to_char(' '),1,' ') AS C79,

RPAD(to_char(' '),10,' ') AS C80,--ING
RPAD(to_char(' '),10,' ') AS C81,--RET
RPAD(to_char(' '),10,' ') AS C82,--VSP

RPAD(to_char(' '),10,' ') AS C83,--SLN
RPAD(to_char(' '),10,' ') AS C84,--SLN

case when kardex2.fecha_ini
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(kardex2.fecha_ini,'yyyy-mm-dd')
  else RPAD(to_char(' '),10,' ') end AS C85,--IGE
case when kardex2.fecha_fin
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(kardex2.fecha_fin,'yyyy-mm-dd')
  else RPAD(to_char(' '),10,' ') end AS C86,--IGE
  
RPAD(to_char(' '),10,' ') AS C87,--LMA
RPAD(to_char(' '),10,' ') AS C88,--LMA

RPAD(to_char(' '),10,' ') AS C89,--VAC-LR
RPAD(to_char(' '),10,' ') AS C90,--VAC-LR

RPAD(to_char(' '),10,' ') AS C91,--VCT
RPAD(to_char(' '),10,' ') AS C92,--VCT

case when kardex4.fecha_ini
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(kardex4.fecha_ini,'yyyy-mm-dd')
  else RPAD(to_char(' '),10,' ') end AS C93,--IRL
case when kardex4.fecha_fin
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then to_char(kardex4.fecha_fin,'yyyy-mm-dd')
  else RPAD(to_char(' '),10,' ') end AS C94,--IRL

LPAD(  case when (kardex4.cantidad) != 0 then ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1 else ceil( ( nvl(ccf1.ibc,0)/30*(kardex4.cantidad) ) ) end ,9,0) as C95,--IBC parafiscales
LPAD(  case when  nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0) < 300 then nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0)  else 300 end  ,3,0) AS C96,--HORAS EXTRAS
RPAD(to_char(' '),10,' ') AS C97,--Rad exterior
case when tab0.id_anhos || lpad(tab0.id_meses, 2, '0') >= 202211 then RPAD(to_char(riesgo.cod_riesgo|| riesgo.cod_ciiu || riesgo.cod_ncp),7,' ') else '' end AS C98

from no_estado_func_v tab0

left join tipo_documento tdoc
on tdoc.id_tipo_doc = tab0.id_tipo_doc

left join centro_operacion tab1 ON tab1.id_cen_op = tab0.id_cen_op
left join departamento tab2 ON tab2.id_depto = tab1.id_depto
left join municipios tab3 ON tab3.codmun = tab1.codmun
left join no_datos_funcionario_v tab4 ON tab4.id_tipo_doc = tab0.id_tipo_doc and tab4.num_doc = tab0.num_doc

left join (
    select pen.*, sub.descripcion as suptipo_cotizante, sub.codigo as codigo_suptipo
    from no_pension_func pen
    left join no_suptipo_cotizante_v sub
    on pen.id_suptipo_cotizante = sub.id_suptipo_cotizante
    where
    pen.estado = 1
)penfun
on penfun.id_tipo_doc = tab0.id_tipo_doc 
and penfun.num_doc = tab0.num_doc

--left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
left join (
  SELECT
  case when aut.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
  then (30 - to_char(aut.fecha_termina,'dd') ) else 0 end as dias_retiro,
   aut.*,
   ROW_NUMBER() OVER (
    partition by aut.num_doc
    ORDER BY aut.estado DESC, aut.fecha_ingreso DESC
   ) AS rn
  from no_nombramiento aut
  
  left join no_periodo_v per
  on per.id_periodo = aut.id_periodo
  
  where 
  per.anho_mes <= ( SELECT anho_mes FROM no_periodo_v where id_periodo = $id_periodo )
)tab5
on tab5.id_tipo_doc = tab0.id_tipo_doc 
and tab5.num_doc = tab0.num_doc
and tab5.rn = 1

--left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp
/*
Se cambia para tomar valor de concepto_periodo para el concepto_nomina 1001 del periodo de tipo mensual o nomina adicional - 20130827
*/
left join(
    
    select * from(
            select 
            concep.id_tipo_doc,
            concep.num_doc,
            concep.valor as asignacion_basica ,
            
             ROW_NUMBER() OVER (
              PARTITION BY concep.num_doc
              order by per.id_tipo_periodo asc, concep.fecha_hasta desc
             ) as rn
           
            from no_concepto_periodo concep
  
            join no_periodo per
            on concep.PERIODO = per.id_periodo
            
            where 
            concep.id_concep_nomina = (select id_concep_basica from no_param_concep) 
            
            and (per.id_tipo_periodo = 1 or per.id_tipo_periodo = 2)
            and (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = concep.PERIODO) = (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) 
    )where rn = 1
    
)tab6 ON tab6.id_tipo_doc = tab0.id_tipo_doc and tab6.num_doc = tab0.num_doc
and tab6.rn = 1

left join
(
  /* se cambia filtro por estado activo y id_tipo_novedad = 1 - 20150422 */
  select 
  tab0.num_doc,count(tab0.id_novedad_personal) as cantidad
  from no_novedad_personal tab0
  left join no_novedades nov on tab0.id_novedad = nov.id_novedad
  where 
  tab0.estado = 1 and nov.id_tipo_novedad = 1
  and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
  group by tab0.num_doc
) ascenso ON ascenso.num_doc = tab0.num_doc

left join
(
    select num_doc, sum(cantidad) AS CANTIDAD
    from(
    
        select tab0.num_doc,count(tab0.id_novedad_personal) AS CANTIDAD
        from no_novedad_personal tab0
        where tab0.id_novedad IN ( 3, 7 )  
        and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        group by tab0.num_doc
        
        union 
        
        select tab0.num_doc,count(tab0.id_bonifica_servicios) AS CANTIDAD
        from no_bonifica_servicios tab0
        where tab0.estado=1 and tab0.fecha_bonifica between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        group by tab0.num_doc
        
        union 
        
        select tab0.num_doc,count(tab0.id_hr_extra) AS CANTIDAD
        from no_hr_extra tab0
        left join no_lote_hr_extra tab1 ON tab1.id_lote_hr_extra = tab0.id_lote_hr_extra
        where tab1.estado=0 and tab1.id_periodo = $id_periodo
        group by tab0.num_doc
    
    )GROUP BY num_doc

) encargo ON encargo.num_doc = tab0.num_doc

left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD, max(tab1.suspension) as max_marca,
    max(fecha_ini) as fecha_ini2, 
    case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
    max(fecha_fin) as fecha_fin2,
    case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.afecta_antigu = 1 and tab0.estado = 1 
     /*   
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo = $id_periodo
    )*/
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    and (
      to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
      or
      trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
      or 
      tab0.id_periodo = $id_periodo
    )
    group by tab0.num_doc
)kardex1 ON kardex1.num_doc = tab0.num_doc

left join
(
    select 
    sum(liq.valor_liquidado) as valor_liquidado,
    tab0.num_doc, count(tab0.id_novedad_kardex) CANT, 
    min(tab0.fecha_ini) as fecha_ini2, 
    case when min(tab0.fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else min(fecha_ini) end as fecha_ini,
    max(tab0.fecha_fin) as fecha_fin2,
    case when max(tab0.fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin,
    
    sum( case when tab0.num_dias > 0 and tab0.prorroga = 1 then 1 when tab0.num_dias > (tab1.dias_patrono) and tab0.prorroga = 0 then 1 else 0 end) as CANTIDAD,
    nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novkar
    
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    
    left join no_liquida_nomina liq on tab0.num_doc = liq.num_doc and tab0.id_tipo_doc = liq.id_tipo_doc
    and liq.id_periodo in ( select perd.id_periodo from no_periodo perd where perd.id_anhos = (select id_anhos from no_periodo where id_periodo = $id_periodo) and perd.id_meses = (select id_meses from no_periodo where id_periodo = $id_periodo) ) 
    and liq.fecha_desde = tab0.fecha_ini and liq.fecha_hasta = tab0.fecha_fin
    and liq.id_concep_nomina in (         
         select ka.id_concep_nomina from no_concep_ka ka where ka.id_tip_nov_ka in (select distinct id_nov_ka_enfcom from no_param_concep)    
    )
    
    /*
    Se cambia id_tip_nov_ka = 2 por 1 INCI
    Se deja quemado id 9 para novedad por ajuste de conceptos de reintegro ANM - 20140522
    Se cambia por id en tabla no_param_concep - 20140916
    */
    where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_enfcom from no_param_concep),9) and tab0.estado = 1 
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo = $id_periodo
    )
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    
    /*
    and (
      to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
      or
      trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
      and 
      (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    )
    */
    group by tab0.num_doc
)kardex2 ON kardex2.num_doc = tab0.num_doc

left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    
    /*
    Se cambia id_tip_nov_ka = 3 por 2 INCI
    Se cambia por id en tabla no_param_concep - 20140916
    */
    where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_licmat from no_param_concep)) and tab0.estado = 1 
    
    and tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
    group by tab0.num_doc
)kardex3 ON kardex3.num_doc = tab0.num_doc

/*
Se cambia de id-4 por atributo en  la tabla no_tip_nov_ka de afecta_riesgo, para validar cuales afectan en los dias de ARP-ARL - 20130919
Toma todos los dias de meses anteriores hasta el mes actual - 20191105/20211126
Incidente #35741, se suma a la fehca ini + dias_patrono - 20230601/20230914::LAVILA
Incidente #39574, se valida que si es prorroga no descuente el dia de patrono - 20250312::LAVILA
*/
left join
(
    select 
    sum(liq.valor_liquidado) as valor_liquidado,
    tab0.num_doc, sum(tab0.num_dias) CANTIDAD2,    
    nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (tab1.dias_patrono),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as CANTIDAD_ant,
                        
    nvl(sum( fecha_rango_sin_treintayuno(tab0.fecha_ini+ (tab1.dias_patrono), ( case when tab0.fecha_fin >= last_day(to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy'))
        then last_day(to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')) - 1 else tab0.fecha_fin end ) )  ),0)  as CANTIDAD,    
            
    min(tab0.fecha_ini) as fecha_ini2, 
    case when min(tab0.fecha_ini + (tab1.dias_patrono)) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') and max(fecha_fin) >= to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else min(tab0.fecha_ini + (tab1.dias_patrono)) end as fecha_ini,
    max(fecha_fin) as fecha_fin2,
    case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(tab0.fecha_fin) end as fecha_fin
    
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    
    left join no_liquida_nomina liq on tab0.num_doc = liq.num_doc and tab0.id_tipo_doc = liq.id_tipo_doc
    and liq.id_periodo in ( select perd.id_periodo from no_periodo perd where perd.id_anhos = (select id_anhos from no_periodo where id_periodo = $id_periodo) and perd.id_meses = (select id_meses from no_periodo where id_periodo = $id_periodo) )
    and liq.fecha_desde = tab0.fecha_ini and liq.fecha_hasta = tab0.fecha_fin 
    and liq.id_concep_nomina in (         
         select ka.id_concep_nomina from no_concep_ka ka where ka.id_tip_nov_ka in (tab1.id_tip_nov_ka)    
    )
    
    where tab1.afecta_riesgo = 1 and tab0.estado = 1 
    and ( 
        tab0.fecha_inc between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
        and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        /*
        Validacion para que tome el registro en el periodo de la novedad - 20130820
        */
        or tab0.id_periodo = $id_periodo
    )
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)

    group by tab0.num_doc
)kardex4 ON kardex4.num_doc = tab0.num_doc

/*
Incapacidad -> Suspensión por Incapacidad  - 20150312
*/
left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) as max_marca_susinc
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.afecta_antigu = 1 and tab0.estado = 1 
    and tab0.id_tip_nov_ka = (select no_param_concep.id_nov_ka_susinc from no_param_concep where no_param_concep.id_param_concep = 1)
     /*   
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo = $id_periodo
    )*/
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    and (
      to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
      or
      trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
      or 
      tab0.id_periodo = $id_periodo
    )
    group by tab0.num_doc
)kardex5 ON kardex5.num_doc = tab0.num_doc

/*Licencia remunerada id-10 -- 20170222*/
/*Licencia remunerada descuenta dias para calculo -- 20190414*/
/*Licencia remunerada descuenta todos los días de meses anteriores - 20190905*/
left join
(
    select tab0.num_doc, count(tab0.id_novedad_kardex) as CANTIDAD,  
    min(tab0.fecha_ini) as fecha_ini2, 
    case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
    max(tab0.fecha_fin) as fecha_fin2,
    case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin,
    
    nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novlicrem_ant,
    nvl(sum( fecha_rango_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin ) ),0) as num_dias_novlicrem
    
    from no_novedad_kardex tab0
    left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
    where tab1.id_tip_nov_ka in (select id_tip_nov_ka from no_tip_nov_ka where tiempo_remunerado = 1) and tab0.estado = 1 
    and (
      tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or
      tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
      and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
      or 
      tab0.id_periodo = $id_periodo
    )
    and
    (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
    
    group by tab0.num_doc
)kardexlr ON kardexlr.num_doc = tab0.num_doc

/*
Se coloca, tab0.id_periodo en la agrupacion, para tener encuenta todas las novedades - 20161104
*/
left join
(
    select 

   id_tipo_doc,                  
   num_doc,
   sum( nvl(CANTIDAD_vaciones,0) ) as CANTIDAD,
   sum(dias_vaciones) as num_dias_vac,
   max(fecha_ini) as fecha_ini2, 
   case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
   max(fecha_fin) as fecha_fin2,
   case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin

   from( 

       select 
       
       case  when tipnov.operador  = 1 
                 then nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) 
                 else nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) * (-1)
                 end as dias_vaciones,
                 
       max(tab0.fecha_ini) as fecha_ini, max(tab0.fecha_fin) as fecha_fin,
       tab0.id_tipo_doc, tab0.num_doc, count(tab0.id_novedad_vac) CANTIDAD,
        tipnov.operador,

        case  when tipnov.operador  = 1 
        /*then 1
        else (-1)*/
        then tab0.num_dias_vac
        else (-1 * tab0.num_dias_vac)
        --else nvl(sum( tab0.fecha_fin - tab0.fecha_ini + 1),0) * (-1)
        end as CANTIDAD_vaciones

       from no_novedad_vac tab0
       left join NO_TIPO_NOV_VAC TIPNOV on TIPNOV.ID_TIPO_NOV_VAC = tab0.ID_TIPO_NOV_VAC
       
       where 
       --tipnov.ID_TIPO_NOV_VAC = 1 and
       tipnov.tiempo_liqui = 1 and
       (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) and
       
      /*
       tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
       and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
       */
       /*Marca de vacaciones para todo el tiempo de duracion - 20130917*/
      ( 
          tab0.fecha_ini  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          or
          tab0.fecha_fin  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
        or
          to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
          or
          trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
        )
        /* Valida que no sea un dia 31, ya que no se cuenta para liquidacion, que posea dias de vac en el periodo liquidado - 20141031 */        
        --and to_char(tab0.fecha_ini,'dd') != 31
        and DIAS_RANGO_MES_SIN_TREINTAYUNO(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo = $id_periodo)) > 0
        
        group by tab0.id_tipo_doc, tab0.num_doc,
       tipnov.operador, tab0.num_dias_vac, tab0.id_periodo

   ) 

   group by id_tipo_doc, num_doc
)vaca ON vaca.num_doc = tab0.num_doc


LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
    where afilia.id_clase_fondo = 1 
    /*
    and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
    between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
    */--and afilia.estado = 1
   
    AND ( codigo.tipo != 'EPS' or codigo.tipo != 'CCF' )
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'       
)pension ON pension.num_doc = tab0.num_doc

LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo ON codigo.nitocc = fondo.num_doc
    where afilia.id_clase_fondo = 2 
    /*
    and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
    between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
    --and afilia.estado = 1
    */
    AND codigo.tipo = 'EPS'
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'       
)salud ON salud.num_doc = tab0.num_doc

LEFT JOIN 
(
    select distinct 
    CODFON.CODIGO,
    afilia.num_doc, afilia.centro_trabajo as id_centro_trabajo, centra.codigo as centro_trabajo, apo.no_riesgo, centra.cod_ciiu, centra.cod_ncp, apo.no_riesgo as cod_riesgo,
    afilia.fecha_ingreso,
    afilia.riesgo,
   ROW_NUMBER() OVER (
    partition by afilia.num_doc
    ORDER BY afilia.estado DESC, afilia.fecha_ingreso DESC,afilia.id_afilia_fondo DESC
   ) AS rn
   
    from no_afilia_fondo afilia
    
    left join no_tipo_aporte apo
    on apo.id_tipo_aporte = afilia.id_tipo_aporte
    
    left join no_centro_trabajo centra
    on centra.id_centro_trabajo = afilia.centro_trabajo
    
    left join no_mae_fondos maefon
    on MAEFON.ID_MAE_FONDOS = afilia.ID_MAE_FONDOS
    
    left join no_cod_fondo codfon
    on maefon.num_doc = codfon.nitocc
    
    where afilia.id_clase_fondo = 3 --and afilia.estado = 1
    and to_char(afilia.fecha_ingreso,'yyyymm') <= ( select anho_mes from no_periodo_v where id_periodo = $id_periodo )
)riesgo ON riesgo.num_doc = tab0.num_doc
and riesgo.rn = 1

LEFT JOIN 
(
    select distinct afilia.num_doc, codigo.codigo
    from no_liquida_aporte afilia
    left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
    left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
    where afilia.id_clase_fondo = 4 
    --and afilia.estado = 1 
    AND codigo.tipo = 'CCF'
    and afilia.id_periodo = $id_periodo
    and afilia.tipo_planilla = 'A'       
)ccf ON ccf.num_doc = tab0.num_doc


left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1
    and tab0.tipo_planilla = 'A'       
    group by tab0.num_doc
)pension1 ON pension1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.tarifa/100) as TARIFA--, tab0.aporte_func AS APORTE
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1  and tab0.porcentaje_patrono > 0 -- and  ( tab0.tarifa = 16 or tab0.tarifa = 26 )
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)pension2 ON pension2.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, sum(tab0.valor_base_fsp) as aporte_fsp, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1 and tab0.porcentaje_patrono = 0
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)pension3 ON pension3.num_doc = tab0.num_doc

/* Tomar aporte_patrono_licnorem de la tabla de aportes - 20150730*/
left join 
(
    select 

    tab0.num_doc, 
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_func) else 0 end as aporte, 
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.num_dias) else 0 end as dias,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
    case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.tarifa)/100 else 0 end as tarifa,
    sum(tab0.aporte_patrono) as aporte_patrono_a, 
    sum(tab1.aporte_patrono) as aporte_patrono_c

    from no_liquida_aporte tab0

    left join no_liquida_aporte tab1
    on tab1.id_periodo = tab0.id_periodo
    and tab1.id_tipo_doc = tab0.id_tipo_doc
    and tab1.num_doc = tab0.num_doc
    and tab1.id_mae_fondos = tab0.id_mae_fondos
    and tab1.id_concep_nomina = tab0.id_concep_nomina
    and tab1.id_clase_fondo = 2
    and tab1.tipo_planilla = 'C'

    where tab0.id_periodo = $id_periodo 
    and tab0.id_clase_fondo = 2
    and tab0.tipo_planilla = 'A' 

    group by tab0.num_doc
)salud1 ON salud1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/,
    min(tipapo.no_riesgo) as no_riesgo
    
    from no_liquida_aporte tab0
    
    left join no_tipo_aporte tipapo
    on tipapo.id_tipo_aporte = tab0.id_tipo_aporte
    
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 3
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)riesgo1 ON riesgo1.num_doc = tab0.num_doc

left join 
(
      select 
      
      tab0.num_doc, 
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_func) else 0 end as aporte, 
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.num_dias) else 0 end as dias,
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
      case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.tarifa)/100 else 0 end as tarifa,
      sum(tab0.aporte_patrono) as aporte_patrono_a, 
      sum(tab1.aporte_patrono) as aporte_patrono_c
      
      from no_liquida_aporte tab0
      
      left join no_liquida_aporte tab1
      on tab1.id_periodo = tab0.id_periodo
      and tab1.id_tipo_doc = tab0.id_tipo_doc
      and tab1.num_doc = tab0.num_doc
      and tab1.id_mae_fondos = tab0.id_mae_fondos
      and tab1.id_concep_nomina = tab0.id_concep_nomina
      and tab1.id_clase_fondo = 4
      and tab1.tipo_planilla = 'C'
      
      where tab0.id_periodo = $id_periodo 
      and tab0.id_clase_fondo = 4
      and tab0.tipo_planilla = 'A' 
      
      group by tab0.num_doc
)ccf1 ON ccf1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 5
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)icbf1 ON icbf1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 6
    and tab0.tipo_planilla = 'A'     
    group by tab0.num_doc
)sena1 ON sena1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 7
    and tab0.tipo_planilla = 'A'       
    group by tab0.num_doc
)esap1 ON esap1.num_doc = tab0.num_doc

left join 
(
    select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 8
    and tab0.tipo_planilla = 'A'       
    group by tab0.num_doc
)men1 ON men1.num_doc = tab0.num_doc

left join 
(
    select
    id_periodo, num_doc,
    --id_concep_nomina,
    sum(cantidad) as cantidad
    from (
        select
        lotehr.total_horas,
        lotehr.id_periodo,
        hrext.id_tipo_doc,
        hrext.num_doc,
        hrext.cantidad,
        tiphr.id_concep_nomina

        from no_lote_hr_extra lotehr

        left join no_hr_extra hrext
        on lotehr.id_lote_hr_extra = hrext.id_lote_hr_extra

        left join no_tipo_hr_extra tiphr
        on tiphr.id_tipo_hr_extra = hrext.id_tipo_hr_extra

        where lotehr.id_periodo = $id_periodo
        and lotehr.estado = 0
    )

    group by
    id_periodo, num_doc--, id_concep_nomina
)hrextra
ON hrextra.num_doc = tab0.num_doc


WHERE tab0.periodo = $id_periodo 
and (tab0.actual = 1 or
  ( tab0.actual = 0 
    /*
    Se cambia fecha de termina(ultimo dia de trabajo) por fecha de retiro, 
    para tener encuenta si trabajo en el periodo al menos 1 dia - 20130828                    
    */
    and tab5.fecha_retiro != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))
  )
)
and kardex4.cantidad > 0
and ( nvl(ccf1.dias,0) + nvl(salud1.dias,0) ) > 0

/* Omitir terceros que no tiene cambios en CCF - 20231002::LAVILA*/
and tab0.num_doc not in (

    select 
    tab.num_doc
    from (

            select  
            total.num_doc,
            count(total.tipo_planilla) as cant, 
            sum(total.aporte_ibc) as total1, 
            sum(total.IBC) as total2, 
            sum(total.IBC_a) as total_a, 
            sum(total.IBC_c) as total_c, 
            sum(total.IBC_c) - sum(total.IBC_a) as total,
            case when (sum(total.IBC_c) - sum(total.IBC_a) > 0) then sum(total.IBC_c) else 0 end as total_neg,
            sum(total.IBC_c) + sum(total.IBC_a) as total_sum 

            from (
                    select tab0.tipo_planilla,
                    tab0.num_doc, sum(nvl(tab0.valor_base,0)) as aporte_IBC, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, 
                    MAX(nvl(tab0.valor_base,0)) AS IBC,
                    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/, 
                  case when tab0.tipo_planilla = 'A' and max(tab0.num_dias) != 0 then max(nvl(tab0.valor_base,0)) else 0 end as ibc_a, 
                  case when tab0.tipo_planilla = 'C' and max(tab0.num_dias) != 0 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC_c
                    from no_liquida_aporte tab0
                    --se filtra id4-CAJA DE COMPENSACION FAMILIAR en vez de id5 - 20130802
                    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 4

                    group by tab0.tipo_planilla,tab0.num_doc

             )total  
             group by
            total.num_doc    

    )tab   
    where
    tab.total_neg <= 0
    and tab.total <= 0
    and tab.total_a > 0
    and tab.total_c > 0

)

union

        /*
        * Funcionarios con novedades de IRL - 20170731, tipo c
        */
        select
        penfun.id_pension_func,
        7 as c00,--order de mensual luego licencia
        0 as c0,
        '02' AS C1,
        LPAD(rownum,5,0) AS C2,
        lpad( (REPLACE(tdoc.abreviacion,'.','')), 2,' ') AS C3,
        RPAD(to_char(tab0.num_doc),16,' ') AS C4,
        rpad(to_char(tab0.num_doc),16,' ') as c4a,
        '01' AS C5,
        case when penfun.id_pension_func is not null then penfun.codigo_suptipo else '00' end AS C6,--suptipo de pensionado
        ' ' AS C7,
        ' ' AS C8,
        RPAD(nvl(tab2.coddepto,' '),2,' ') AS C9,
        RPAD(nvl(substr(tab3.codmun_text,3),' '),3,' ') AS C10,
        RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11,
        RPAD(nvl(tab4.primer_apellido,' '),20,' ') AS C11a,
        RPAD(nvl(tab4.segundo_apellido,' '),30,' ') AS C12,
        RPAD(nvl(tab4.primer_nombre,' '),20,' ') AS C13,
        RPAD(nvl(tab4.segundo_nombre,' '),30,' ') AS C14,
        case when tab5.fecha_ingreso
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then ' ' else ' ' end AS C15,
        case when tab5.fecha_termina
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then 'X' else ' ' end AS C16,
        ' ' AS C17,
        ' ' AS C18,
        ' ' AS C19,
        ' ' AS C20,
        --No La novedad SLN no debe de combinarse con otro tipo de novedad  - 20161122
        case when ascenso.cantidad>0 then ' ' else ' 'end AS C21,
        'C' AS C22,
        case when encargo.cantidad>0 then ' ' else ' 'end AS C23,
        case when kardex1.cantidad>0 and ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then 'X' when kardex1.cantidad>0 and  nvl(max_marca,0) = 1 and nvl(max_marca_susinc,0) = 0 then 'C' else ' ' end AS C24,
        case when kardex2.cantidad>0 then 'X' else ' 'end AS C25,--inc temp enfermedad
        case when kardex3.cantidad>0 then ' ' else ' 'end AS C26,--lic maternidad
        case when vaca.cantidad>0 then ' ' when kardexlr.cantidad>0 then ' ' else ' 'end AS C27,
        ' ' AS C28,
        ' ' AS C29,
        LPAD(to_char(nvl(kardex4.cantidad,0)),2,0) AS C30,--inc por accidente de trabajo
        rpad(nvl(pension.codigo,' '),6,' ') as c31,
        rPAD(' ',6,' ') AS C32,
        rPAD(nvl(salud.codigo,' '),6,' ') AS C33,
        rpad(' ',6,' ') as c34,
        rPAD(nvl(ccf.codigo,' '),6,' ') AS C35,
        lpad( nvl(kardex4.cantidad,0) ,2,0) as c36,
        lpad( nvl(kardex4.cantidad,0) ,2,0) as c37,
        lpad( nvl(kardex4.cantidad,0) ,2,0) AS C38, 
        --39 dias parafiscales
        lpad( nvl(kardex4.cantidad,0) ,2,0) AS C39,
        LPAD( case when nvl(tab6.asignacion_basica,0) != 0 then nvl(tab6.asignacion_basica,0) else ceil( ( nvl(pension1.ibc,0)-nvl(riesgo1.ibc,0) )/1)*1 end  ,9,0) AS C40,
        ' ' AS C41,

        -- Se validan los dias de retiro del funionario - 20141007
        LPAD(  case when (kardex4.cantidad) != 0 then ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1 else ceil( ( nvl(pension1.ibc,0)/30*(kardex4.cantidad) ) ) end ,9,0) AS C42,
        LPAD(  case when (kardex4.cantidad) != 0 then ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1 else ceil( ( nvl(salud1.ibc,0)/30*(kardex4.cantidad) ) ) end ,9,0) AS C43,
        LPAD(  case when (kardex4.cantidad) != 0 then ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1 else ceil( ( nvl(salud1.ibc,0)/30*(kardex4.cantidad) ) ) end ,9,0) AS C44,
        LPAD(  case when (kardex4.cantidad) != 0 then ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1 else ceil( ( nvl(ccf1.ibc,0)/30*(kardex4.cantidad) ) ) end ,9,0) AS C45,
        -- Se debe calcular a partir de octubre la tarifa del patrono - 20131028
        -- No debe llevar registro de pension - 20140729
        -- Se coloca que para CYC, si debe llevar registro de pension - 20170127
        --rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) as c46,
        --rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0) as C46,
        case when 4 in (4) then (rpad( case when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) = 0 then '0.0' when nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) < 1 then '0' else '' end || + nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,7,0)) else rpad( case when nvl(null,0) = 0 then '0.0' when nvl(null,0) < 1 then '0' else '' end || + nvl(null,0) ,7,0) end as C46,
        --lPAD(nvl(null,0) + nvl(null,0),9,0) AS C47,
        --lpad( round( round( nvl(tab6.asignacion_basica,0)/30*(30-nvl(pension2.dias-nvl(kardex4.cantidad,0),0))  ,-3) * nvl( case when ( nvl(max_marca,0) = 0 or nvl(max_marca_susinc,0) = 1 ) then pension2.tarifa else 0 end ,0) ,-2) ,9,0) as c47,
        lPAD( ceil( (ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1)*nvl(pension2.tarifa,0) /100)*100 ,9,0) as c47,
        lPAD(0,9,0) AS C48,
        lpad(0,9,0) as C49,
        lPAD( ceil( (ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1)*nvl(pension2.tarifa,0) /100)*100 ,9,0) as C50,
        lPAD( ceil( ((ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1)*nvl(pension3.tarifa,0))/2 /100)*100 ,9,0) as c51,
        lpad( ceil(( ((ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1)*nvl(pension3.tarifa,0)) - ((ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1)*nvl(pension3.tarifa,0))/2 )/100)*100 ,9,0) as c52,
        rpad(0,9,0) as c53,
        rpad( case when nvl(salud1.tarifa,0) = 0 then '0.0' when nvl(salud1.tarifa,0) < 1 then '0' else '' end || + nvl(salud1.tarifa,0) ,7,0) as c54,
        lPAD( ceil( (ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1)*nvl(salud1.tarifa,0) /100)*100 ,9,0) AS c55,

        lpad( case when '01' = '40' then 0 else 0 end ,9,0) as c56,
        rpad(' ',15,' ') as c57,
        rpad(0,9,0) as C58,
        rpad(' ',15,' ') as C59,
        rpad(0,9,0) as c60,
        --rpad( case when nvl(riesgo1.tarifa,0) = 0 then '0.0' when nvl(riesgo1.tarifa,0) < 1 then '0' else '' end || + nvl(riesgo1.tarifa,0) ,9,0) as C61,
        rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,9,0) as C61,
        lpad(nvl(riesgo.centro_trabajo,0),9,0) as C62,
        lpad( nvl(0,0) ,9,0) as c63,
        --lpad( ceil( ( nvl(riesgo1.aporte_patrono,0)/30*(kardex2.num_dias_novkar) )/100)*100 ,9,0) as c63,
        rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) AS C64,
        --lpad( nvl(ccf1.aporte_patrono,0) ,9,0) as c65,
        lpad( ceil( ( nvl(ccf1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c65,
        rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C66,
        --lpad( nvl(sena1.aporte_patrono,0) ,9,0) as c67,
        lpad( ceil( ( nvl(sena1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c67,
        rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C68,
        --lpad( nvl(icbf1.aporte_patrono,0) ,9,0) as c69,
        lpad( ceil( ( nvl(icbf1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c69,
        rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C70,
        --lpad( nvl(esap1.aporte_patrono,0) ,9,0) as c71,
        lpad( ceil( ( nvl(esap1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c71,
        rpad( case when nvl(0,0) = 0 then '0.0' when nvl(0,0) < 1 then '0' else '' end || + nvl(0,0) ,7,0) as C72,
        --lpad( nvl(men1.aporte_patrono,0) ,9,0) as c73,
        lpad( ceil( ( nvl(men1.aporte_patrono,0)/30*nvl(0,0) )/100)*100 ,9,0) as c73,
        '  ' AS C74,
        RPAD(to_char(' '),16,' ') AS C75,
        RPAD(to_char('N'),1,' ') AS C76,
        RPAD(riesgo.codigo,6,' ') AS C77,
        nvl(RPAD( nvl(riesgo1.no_riesgo,riesgo.riesgo),1,' '),' ') AS C78,
        RPAD(to_char(' '),1,' ') AS C79,

        RPAD(to_char(' '),10,' ') AS C80,--ING
        RPAD(to_char(' '),10,' ') AS C81,--RET
        RPAD(to_char(' '),10,' ') AS C82,--VSP

        RPAD(to_char(' '),10,' ') AS C83,--SLN
        RPAD(to_char(' '),10,' ') AS C84,--SLN

        case when kardex2.fecha_ini
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then to_char(kardex2.fecha_ini,'yyyy-mm-dd')
          else RPAD(to_char(' '),10,' ') end AS C85,--IGE
        case when kardex2.fecha_fin
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then to_char(kardex2.fecha_fin,'yyyy-mm-dd')
          else RPAD(to_char(' '),10,' ') end AS C86,--IGE

        RPAD(to_char(' '),10,' ') AS C87,--LMA
        RPAD(to_char(' '),10,' ') AS C88,--LMA

        RPAD(to_char(' '),10,' ') AS C89,--VAC-LR
        RPAD(to_char(' '),10,' ') AS C90,--VAC-LR

        RPAD(to_char(' '),10,' ') AS C91,--VCT
        RPAD(to_char(' '),10,' ') AS C92,--VCT

        case when kardex4.fecha_ini
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then to_char(kardex4.fecha_ini,'yyyy-mm-dd')
          else RPAD(to_char(' '),10,' ') end AS C93,--IRL
        case when kardex4.fecha_fin
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then to_char(kardex4.fecha_fin,'yyyy-mm-dd')
          else RPAD(to_char(' '),10,' ') end AS C94,--IRL

        LPAD(  case when (kardex4.cantidad) != 0 then ceil( ( nvl(kardex4.valor_liquidado,0) )/1)*1 else ceil( ( nvl(ccf1.ibc,0)/30*(kardex4.cantidad) ) ) end ,9,0) as C95,--IBC parafiscales
        LPAD(  case when  nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0) < 300 then nvl(tab5.horas_mes,0)+NVL(hrextra.cantidad,0)  else 300 end  ,3,0) AS C96,--HORAS EXTRAS
        RPAD(to_char(' '),10,' ') AS C97,--Rad exterior
        case when tab0.id_anhos || lpad(tab0.id_meses, 2, '0') >= 202211 then RPAD(to_char(riesgo.cod_riesgo|| riesgo.cod_ciiu || riesgo.cod_ncp),7,' ') else '' end AS C98

        from no_estado_func_v tab0

        left join tipo_documento tdoc
        on tdoc.id_tipo_doc = tab0.id_tipo_doc

        left join centro_operacion tab1 ON tab1.id_cen_op = tab0.id_cen_op
        left join departamento tab2 ON tab2.id_depto = tab1.id_depto
        left join municipios tab3 ON tab3.codmun = tab1.codmun
        left join no_datos_funcionario_v tab4 ON tab4.id_tipo_doc = tab0.id_tipo_doc and tab4.num_doc = tab0.num_doc

        left join (
            select pen.*, sub.descripcion as suptipo_cotizante, sub.codigo as codigo_suptipo
            from no_pension_func pen
            left join no_suptipo_cotizante_v sub
            on pen.id_suptipo_cotizante = sub.id_suptipo_cotizante
            where
            pen.estado = 1
        )penfun
        on penfun.id_tipo_doc = tab0.id_tipo_doc 
        and penfun.num_doc = tab0.num_doc

        --left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
        left join (
          SELECT
          case when aut.fecha_termina
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
          then (30 - to_char(aut.fecha_termina,'dd') ) else 0 end as dias_retiro,
           aut.*,
           ROW_NUMBER() OVER (
            partition by aut.num_doc
            ORDER BY aut.estado DESC, aut.fecha_ingreso DESC
           ) AS rn
          from no_nombramiento aut
  
            left join no_periodo_v per
            on per.id_periodo = aut.id_periodo

            where 
            per.anho_mes <= ( SELECT anho_mes FROM no_periodo_v where id_periodo = $id_periodo )
        )tab5
        on tab5.id_tipo_doc = tab0.id_tipo_doc 
        and tab5.num_doc = tab0.num_doc
        and tab5.rn = 1

        --left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp
        /*
        Se cambia para tomar valor de concepto_periodo para el concepto_nomina 1001 del periodo de tipo mensual o nomina adicional - 20130827
        */
        left join(

            select * from(
                    select 
                    concep.id_tipo_doc,
                    concep.num_doc,
                    concep.valor as asignacion_basica ,

                     ROW_NUMBER() OVER (
                      PARTITION BY concep.num_doc
                      order by per.id_tipo_periodo asc, concep.fecha_hasta desc
                     ) as rn

                    from no_concepto_periodo concep

                    join no_periodo per
                    on concep.PERIODO = per.id_periodo

                    where 
                    concep.id_concep_nomina = (select id_concep_basica from no_param_concep) 

                    and (per.id_tipo_periodo = 6 or per.id_tipo_periodo = 7)
                    and (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = concep.id_periodo_ajuste) = (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) 
            )where rn = 1

        )tab6 ON tab6.id_tipo_doc = tab0.id_tipo_doc and tab6.num_doc = tab0.num_doc
        and tab6.rn = 1

        left join
        (
          /* se cambia filtro por estado activo y id_tipo_novedad = 1 - 20150422 */
          select 
          tab0.num_doc,count(tab0.id_novedad_personal) as cantidad
          from no_novedad_personal tab0
          left join no_novedades nov on tab0.id_novedad = nov.id_novedad
          where 
          tab0.estado = 1 and nov.id_tipo_novedad = 1
          and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
          group by tab0.num_doc
        ) ascenso ON ascenso.num_doc = tab0.num_doc

        left join
        (
            select num_doc, sum(cantidad) AS CANTIDAD
            from(

                select tab0.num_doc,count(tab0.id_novedad_personal) AS CANTIDAD
                from no_novedad_personal tab0
                where tab0.id_novedad IN ( 3, 7 )  
                and tab0.fecha_inicial  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                group by tab0.num_doc

                union 

                select tab0.num_doc,count(tab0.id_bonifica_servicios) AS CANTIDAD
                from no_bonifica_servicios tab0
                where tab0.estado=1 and tab0.fecha_bonifica between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                group by tab0.num_doc

                union 

                select tab0.num_doc,count(tab0.id_hr_extra) AS CANTIDAD
                from no_hr_extra tab0
                left join no_lote_hr_extra tab1 ON tab1.id_lote_hr_extra = tab0.id_lote_hr_extra
                where tab1.estado=0 and tab1.id_periodo = $id_periodo
                group by tab0.num_doc

            )GROUP BY num_doc

        ) encargo ON encargo.num_doc = tab0.num_doc

        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD, max(tab1.suspension) as max_marca,
            max(fecha_ini) as fecha_ini2, 
            case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
            max(fecha_fin) as fecha_fin2,
            case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.afecta_antigu = 1 and tab0.estado = 1 
             /*   
            and (
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or 
              tab0.id_periodo = $id_periodo
            )*/
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
            and (
              to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
              or
              trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
              or 
              tab0.id_periodo = $id_periodo
            )
            group by tab0.num_doc
        )kardex1 ON kardex1.num_doc = tab0.num_doc

        left join
        (
            select 
            sum(liq.valor_liquidado) as valor_liquidado,
            tab0.num_doc, count(tab0.id_novedad_kardex) CANT, 
            min(tab0.fecha_ini) as fecha_ini2, 
            case when min(tab0.fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else min(fecha_ini) end as fecha_ini,
            max(tab0.fecha_fin) as fecha_fin2,
            case when max(tab0.fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin,

            sum( case when tab0.num_dias > 0 and tab0.prorroga = 1 then 1 when tab0.num_dias > (tab1.dias_patrono) and tab0.prorroga = 0 then 1 else 0 end) as CANTIDAD,
            nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (case when tab0.prorroga != 1 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novkar

            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka

            left join no_liquida_nomina liq on tab0.num_doc = liq.num_doc and tab0.id_tipo_doc = liq.id_tipo_doc
            and liq.id_periodo in ( select perd.id_periodo from no_periodo perd where perd.id_anhos = (select id_anhos from no_periodo where id_periodo = $id_periodo) and perd.id_meses = (select id_meses from no_periodo where id_periodo = $id_periodo) ) 
            and liq.fecha_desde = tab0.fecha_ini and liq.fecha_hasta = tab0.fecha_fin
            and liq.id_concep_nomina in (         
                 select ka.id_concep_nomina from no_concep_ka ka where ka.id_tip_nov_ka in (select distinct id_nov_ka_enfcom from no_param_concep)    
            )

            /*
            Se cambia id_tip_nov_ka = 2 por 1 INCI
            Se deja quemado id 9 para novedad por ajuste de conceptos de reintegro ANM - 20140522
            Se cambia por id en tabla no_param_concep - 20140916
            */
            where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_enfcom from no_param_concep),9) and tab0.estado = 1 
            and (
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or 
              tab0.id_periodo = $id_periodo
            )
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)

            /*
            and (
              to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
              or
              trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
              and 
              (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
            )
            */
            group by tab0.num_doc
        )kardex2 ON kardex2.num_doc = tab0.num_doc

        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) CANTIDAD
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka

            /*
            Se cambia id_tip_nov_ka = 3 por 2 INCI
            Se cambia por id en tabla no_param_concep - 20140916
            */
            where tab1.id_tip_nov_ka in ((select distinct id_nov_ka_licmat from no_param_concep)) and tab0.estado = 1 

            and tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
            group by tab0.num_doc
        )kardex3 ON kardex3.num_doc = tab0.num_doc

        /*
        Se cambia de id-4 por atributo en  la tabla no_tip_nov_ka de afecta_riesgo, para validar cuales afectan en los dias de ARP-ARL - 20130919
        Toma todos los dias de meses anteriores hasta el mes actual - 20191105/20211126
        Incidente #35741, se suma a la fehca ini + dias_patrono - 20230601/20230914::LAVILA
        Incidente #39574, se valida que si es prorroga no descuente el dia de patrono - 20250312::LAVILA
        */
        left join
        (
            select 
            sum(liq.valor_liquidado) as valor_liquidado,
            tab0.num_doc, sum(tab0.num_dias) CANTIDAD2,    
            nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini + (case when tab0.prorroga = 0 then tab1.dias_patrono else 0 end),tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as CANTIDAD_ant,

            nvl(sum( fecha_rango_sin_treintayuno(tab0.fecha_ini+ (case when tab0.prorroga = 0 then tab1.dias_patrono else 0 end), ( case when tab0.fecha_fin >= last_day(to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy'))
                then last_day(to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')) - 1 else tab0.fecha_fin end ) )  ),0)  as CANTIDAD,    

            min(tab0.fecha_ini) as fecha_ini2, 
            case when min(tab0.fecha_ini + (case when tab0.prorroga = 0 then tab1.dias_patrono else 0 end)) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') and max(fecha_fin) >= to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else min(tab0.fecha_ini + (case when tab0.prorroga = 0 then tab1.dias_patrono else 0 end)) end as fecha_ini,
            max(fecha_fin) as fecha_fin2,
            case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(tab0.fecha_fin) end as fecha_fin

            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka

            left join no_liquida_nomina liq on tab0.num_doc = liq.num_doc and tab0.id_tipo_doc = liq.id_tipo_doc
            and liq.id_periodo in ( select perd.id_periodo from no_periodo perd where perd.id_anhos = (select id_anhos from no_periodo where id_periodo = $id_periodo) and perd.id_meses = (select id_meses from no_periodo where id_periodo = $id_periodo) )
            and liq.fecha_desde = tab0.fecha_ini and liq.fecha_hasta = tab0.fecha_fin 
            and liq.id_concep_nomina in (         
                 select ka.id_concep_nomina from no_concep_ka ka where ka.id_tip_nov_ka in (tab1.id_tip_nov_ka)    
            )

            where tab1.afecta_riesgo = 1 and tab0.estado = 1 
            and ( 
                tab0.fecha_inc between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                /*
                Validacion para que tome el registro en el periodo de la novedad - 20130820
                */
                or tab0.id_periodo = $id_periodo
            )
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)

            group by tab0.num_doc
        )kardex4 ON kardex4.num_doc = tab0.num_doc

        /*
        Incapacidad -> Suspensión por Incapacidad  - 20150312
        */
        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) as max_marca_susinc
            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.afecta_antigu = 1 and tab0.estado = 1 
            and tab0.id_tip_nov_ka = (select no_param_concep.id_nov_ka_susinc from no_param_concep where no_param_concep.id_param_concep = 1)
             /*   
            and (
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or 
              tab0.id_periodo = $id_periodo
            )*/
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)
            and (
              to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
              or
              trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
              or 
              tab0.id_periodo = $id_periodo
            )
            group by tab0.num_doc
        )kardex5 ON kardex5.num_doc = tab0.num_doc

        /*Licencia remunerada id-10 -- 20170222*/
        /*Licencia remunerada descuenta dias para calculo -- 20190414*/
        /*Licencia remunerada descuenta todos los días de meses anteriores - 20190905*/
        left join
        (
            select tab0.num_doc, count(tab0.id_novedad_kardex) as CANTIDAD,  
            min(tab0.fecha_ini) as fecha_ini2, 
            case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
            max(tab0.fecha_fin) as fecha_fin2,
            case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin,
            
            nvl(sum( dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin, (select id_meses from no_periodo where id_periodo = $id_periodo) ) ),0) as num_dias_novlicrem_ant,
            nvl(sum( fecha_rango_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin ) ),0) as num_dias_novlicrem

            from no_novedad_kardex tab0
            left join no_tip_nov_ka tab1 ON tab1.id_tip_nov_ka = tab0.id_tip_nov_ka
            where tab1.id_tip_nov_ka in (select id_tip_nov_ka from no_tip_nov_ka where tiempo_remunerado = 1) and tab0.estado = 1 
            and (
              tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or
              tab0.fecha_fin between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
              and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
              or 
              tab0.id_periodo = $id_periodo
            )
            and
            (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo)

            group by tab0.num_doc
        )kardexlr ON kardexlr.num_doc = tab0.num_doc

        /*
        Se coloca, tab0.id_periodo en la agrupacion, para tener encuenta todas las novedades - 20161104
        */
        left join
        (
            select 

           id_tipo_doc,                  
           num_doc,
           sum( nvl(CANTIDAD_vaciones,0) ) as CANTIDAD,
           sum(dias_vaciones) as num_dias_vac,
           max(fecha_ini) as fecha_ini2, 
           case when max(fecha_ini) < to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') then to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') else max(fecha_ini) end as fecha_ini,
           max(fecha_fin) as fecha_fin2,
           case when max(fecha_fin) > trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  then trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))  else max(fecha_fin) end as fecha_fin

           from( 

               select 

               case  when tipnov.operador  = 1 
                         then nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) 
                         else nvl(sum(dias_rango_mes_sin_treintayuno(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo =  $id_periodo))),0) * (-1)
                         end as dias_vaciones,

               max(tab0.fecha_ini) as fecha_ini, max(tab0.fecha_fin) as fecha_fin,
               tab0.id_tipo_doc, tab0.num_doc, count(tab0.id_novedad_vac) CANTIDAD,
                tipnov.operador,

                case  when tipnov.operador  = 1 
                /*then 1
                else (-1)*/
                then tab0.num_dias_vac
                else (-1 * tab0.num_dias_vac)
                --else nvl(sum( tab0.fecha_fin - tab0.fecha_ini + 1),0) * (-1)
                end as CANTIDAD_vaciones

               from no_novedad_vac tab0
               left join NO_TIPO_NOV_VAC TIPNOV on TIPNOV.ID_TIPO_NOV_VAC = tab0.ID_TIPO_NOV_VAC

               where 
               --tipnov.ID_TIPO_NOV_VAC = 1 and
               tipnov.tiempo_liqui = 1 and
               (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = tab0.id_periodo) <= (select id_anhos || lpad(id_meses,2,'0') from no_periodo where id_periodo = $id_periodo) and

              /*
               tab0.fecha_ini between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
               and trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) 
               */
               /*Marca de vacaciones para todo el tiempo de duracion - 20130917*/
              ( 
                  tab0.fecha_ini  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                  or
                  tab0.fecha_fin  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
                  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) 
                or
                  to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') between tab0.fecha_ini and tab0.fecha_fin
                  or
                  trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') )) between tab0.fecha_ini and tab0.fecha_fin
                )
                /* Valida que no sea un dia 31, ya que no se cuenta para liquidacion, que posea dias de vac en el periodo liquidado - 20141031 */        
                --and to_char(tab0.fecha_ini,'dd') != 31
                and DIAS_RANGO_MES_SIN_TREINTAYUNO(tab0.fecha_ini,tab0.fecha_fin,(select id_meses from no_periodo where id_periodo = $id_periodo)) > 0

                group by tab0.id_tipo_doc, tab0.num_doc,
               tipnov.operador, tab0.num_dias_vac, tab0.id_periodo

           ) 

           group by id_tipo_doc, num_doc
        )vaca ON vaca.num_doc = tab0.num_doc


        LEFT JOIN 
        (
            select distinct afilia.num_doc, codigo.codigo
            from no_liquida_aporte afilia
            left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
            left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
            where afilia.id_clase_fondo = 1 
            /*
            and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
            between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
            */--and afilia.estado = 1

            AND ( codigo.tipo != 'EPS' or codigo.tipo != 'CCF' )
            and afilia.id_periodo = $id_periodo
            and afilia.tipo_planilla = 'C'       
        )pension ON pension.num_doc = tab0.num_doc

        LEFT JOIN 
        (
            select distinct afilia.num_doc, codigo.codigo
            from no_liquida_aporte afilia
            left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
            left join no_cod_fondo codigo ON codigo.nitocc = fondo.num_doc
            where afilia.id_clase_fondo = 2 
            /*
            and  (select fecha_fin from no_periodo where id_periodo =  $id_periodo)
            between afilia.fecha_ingreso and nvl( afilia.fecha_retiro, trunc(last_day( to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy') )) )
            --and afilia.estado = 1
            */
            AND codigo.tipo = 'EPS'
            and afilia.id_periodo = $id_periodo
            and afilia.tipo_planilla = 'C'       
        )salud ON salud.num_doc = tab0.num_doc

        LEFT JOIN 
        (
            select distinct 
            CODFON.CODIGO,
            afilia.num_doc, afilia.centro_trabajo as id_centro_trabajo, centra.codigo as centro_trabajo, apo.no_riesgo, centra.cod_ciiu, centra.cod_ncp, apo.no_riesgo as cod_riesgo,
            afilia.fecha_ingreso,
            afilia.riesgo,
           ROW_NUMBER() OVER (
            partition by afilia.num_doc
            ORDER BY afilia.estado DESC, afilia.fecha_ingreso DESC,afilia.id_afilia_fondo DESC
           ) AS rn

            from no_afilia_fondo afilia

            left join no_tipo_aporte apo
            on apo.id_tipo_aporte = afilia.id_tipo_aporte

            left join no_centro_trabajo centra
            on centra.id_centro_trabajo = afilia.centro_trabajo

            left join no_mae_fondos maefon
            on MAEFON.ID_MAE_FONDOS = afilia.ID_MAE_FONDOS

            left join no_cod_fondo codfon
            on maefon.num_doc = codfon.nitocc

            where afilia.id_clase_fondo = 3 --and afilia.estado = 1
            and to_char(afilia.fecha_ingreso,'yyyymm') <= ( select anho_mes from no_periodo_v where id_periodo = $id_periodo )
        )riesgo ON riesgo.num_doc = tab0.num_doc
        and riesgo.rn = 1

        LEFT JOIN 
        (
            select distinct afilia.num_doc, codigo.codigo
            from no_liquida_aporte afilia
            left join no_mae_fondos fondo ON fondo.id_mae_fondos = afilia.id_mae_fondos
            left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
            where afilia.id_clase_fondo = 4 
            --and afilia.estado = 1 
            AND codigo.tipo = 'CCF'
            and afilia.id_periodo = $id_periodo
            and afilia.tipo_planilla = 'C'       
        )ccf ON ccf.num_doc = tab0.num_doc


        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1
            and tab0.tipo_planilla = 'C'       
            group by tab0.num_doc
        )pension1 ON pension1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
            max(tab0.tarifa/100) as TARIFA--, tab0.aporte_func AS APORTE
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1  and tab0.porcentaje_patrono > 0 -- and  ( tab0.tarifa = 16 or tab0.tarifa = 26 )
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )pension2 ON pension2.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, sum(tab0.valor_base_fsp) as aporte_fsp, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1 and tab0.porcentaje_patrono = 0
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )pension3 ON pension3.num_doc = tab0.num_doc

        /* Tomar aporte_patrono_licnorem de la tabla de aportes - 20150730*/
        left join 
        (
            select 

            tab0.num_doc, 
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_func) else 0 end as aporte, 
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.num_dias) else 0 end as dias,
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
            case when sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1 then max(tab0.tarifa)/100 else 0 end as tarifa,
            sum(tab0.aporte_patrono) as aporte_patrono_a, 
            sum(tab1.aporte_patrono) as aporte_patrono_c

            from no_liquida_aporte tab0

            left join no_liquida_aporte tab1
            on tab1.id_periodo = tab0.id_periodo
            and tab1.id_tipo_doc = tab0.id_tipo_doc
            and tab1.num_doc = tab0.num_doc
            and tab1.id_mae_fondos = tab0.id_mae_fondos
            and tab1.id_concep_nomina = tab0.id_concep_nomina
            and tab1.id_clase_fondo = 2
            and tab1.tipo_planilla = 'A'

            where tab0.id_periodo = $id_periodo 
            and tab0.id_clase_fondo = 2
            and tab0.tipo_planilla = 'C' 

            group by tab0.num_doc
        )salud1 ON salud1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/,
            min(tipapo.no_riesgo) as no_riesgo

            from no_liquida_aporte tab0

            left join no_tipo_aporte tipapo
            on tipapo.id_tipo_aporte = tab0.id_tipo_aporte

            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 3
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )riesgo1 ON riesgo1.num_doc = tab0.num_doc

        left join 
        (
              select 

              tab0.num_doc, 
              case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_func) else 0 end as aporte, 
              case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then sum(tab0.aporte_patrono) else 0 end as aporte_patrono,
              case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.num_dias) else 0 end as dias,
              case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC,
              case when (sum(tab0.aporte_patrono) != sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) and max(tab0.num_dias) != 0 and (sum(tab0.aporte_patrono) < sum(tab1.aporte_patrono) or $tag_ibc_dif = 1) then max(tab0.tarifa)/100 else 0 end as tarifa,
              sum(tab0.aporte_patrono) as aporte_patrono_a, 
              sum(tab1.aporte_patrono) as aporte_patrono_c

              from no_liquida_aporte tab0

              left join no_liquida_aporte tab1
              on tab1.id_periodo = tab0.id_periodo
              and tab1.id_tipo_doc = tab0.id_tipo_doc
              and tab1.num_doc = tab0.num_doc
              and tab1.id_mae_fondos = tab0.id_mae_fondos
              and tab1.id_concep_nomina = tab0.id_concep_nomina
              and tab1.id_clase_fondo = 4
              and tab1.tipo_planilla = 'A'

              where tab0.id_periodo = $id_periodo 
              and tab0.id_clase_fondo = 4
              and tab0.tipo_planilla = 'C' 

              group by tab0.num_doc
        )ccf1 ON ccf1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 5
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )icbf1 ON icbf1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 6
            and tab0.tipo_planilla = 'C'     
            group by tab0.num_doc
        )sena1 ON sena1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 7
            and tab0.tipo_planilla = 'C'       
            group by tab0.num_doc
        )esap1 ON esap1.num_doc = tab0.num_doc

        left join 
        (
            select tab0.num_doc, sum(tab0.aporte_func) AS APORTE, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) AS DIAS, MAX(nvl(tab0.valor_base,0)) AS IBC,
            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
            from no_liquida_aporte tab0
            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 8
            and tab0.tipo_planilla = 'C'       
            group by tab0.num_doc
        )men1 ON men1.num_doc = tab0.num_doc

        left join 
        (
            select
            id_periodo, num_doc,
            --id_concep_nomina,
            sum(cantidad) as cantidad
            from (
                select
                lotehr.total_horas,
                lotehr.id_periodo,
                hrext.id_tipo_doc,
                hrext.num_doc,
                hrext.cantidad,
                tiphr.id_concep_nomina

                from no_lote_hr_extra lotehr

                left join no_hr_extra hrext
                on lotehr.id_lote_hr_extra = hrext.id_lote_hr_extra

                left join no_tipo_hr_extra tiphr
                on tiphr.id_tipo_hr_extra = hrext.id_tipo_hr_extra

                where lotehr.id_periodo = $id_periodo
                and lotehr.estado = 0
            )

            group by
            id_periodo, num_doc--, id_concep_nomina
        )hrextra
        ON hrextra.num_doc = tab0.num_doc


        WHERE tab0.periodo = $id_periodo 
        and (tab0.actual = 1 or
          ( tab0.actual = 0 
            /*
            Se cambia fecha de termina(ultimo dia de trabajo) por fecha de retiro, 
            para tener encuenta si trabajo en el periodo al menos 1 dia - 20130828                    
            */
            and tab5.fecha_retiro != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
            and tab5.fecha_termina
          between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
          and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo) ,'dd/mm/yyyy') ))
          )
        )
        and kardex4.cantidad > 0
        and ( nvl(ccf1.dias,0) + nvl(salud1.dias,0) ) > 0

        /* Omitir terceros que no tiene cambios en CCF - 20231002::LAVILA*/
        and tab0.num_doc not in (

            select 
            tab.num_doc
            from (

                    select  
                    total.num_doc,
                    count(total.tipo_planilla) as cant, 
                    sum(total.aporte_ibc) as total1, 
                    sum(total.IBC) as total2, 
                    sum(total.IBC_a) as total_a, 
                    sum(total.IBC_c) as total_c, 
                    sum(total.IBC_c) - sum(total.IBC_a) as total,
                    case when (sum(total.IBC_c) - sum(total.IBC_a) > 0) then sum(total.IBC_c) else 0 end as total_neg,
                    sum(total.IBC_c) + sum(total.IBC_a) as total_sum 

                    from (
                            select tab0.tipo_planilla,
                            tab0.num_doc, sum(nvl(tab0.valor_base,0)) as aporte_IBC, sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, 
                            MAX(nvl(tab0.valor_base,0)) AS IBC,
                            max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/, 
                          case when tab0.tipo_planilla = 'A' and max(tab0.num_dias) != 0 then max(nvl(tab0.valor_base,0)) else 0 end as ibc_a, 
                          case when tab0.tipo_planilla = 'C' and max(tab0.num_dias) != 0 then MAX(nvl(tab0.valor_base,0)) else 0 end as IBC_c
                            from no_liquida_aporte tab0
                            --se filtra id4-CAJA DE COMPENSACION FAMILIAR en vez de id5 - 20130802
                            where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 4

                            group by tab0.tipo_planilla,tab0.num_doc

                     )total  
                     group by
                    total.num_doc    

            )tab   
            where
            tab.total_neg <= 0
            and tab.total <= 0
            and tab.total_a > 0
            and tab.total_c > 0

        )

)taborder

where
taborder.c39 >= 0 
and ( taborder.c36 != '00' or taborder.c37 != '00' or taborder.c38 != '00' or taborder.c39 != '00' )

order by taborder.c11, taborder.c12, taborder.c13, taborder.c14, taborder.c00, taborder.c22, taborder.c24, taborder.c0

)tab
";

//                 echo $sql;



$st = $consul->execute($sql);
$detalle = $st->fetchAll();

//foreach ($detalle as $detalle) {
//
//    $shtml.=$detalle['C1'] . "" . "" . $detalle['C2'] . "" . $detalle['C3'] . "" . $detalle['C4'] . "" . $detalle['C5'] . "" . $detalle['C6'] . "" . $detalle['C7'] . ""
//            . $detalle['C8'] . "" . $detalle['C9'] . "" . $detalle['C10'] . "" . $detalle['C11'] . "" . $detalle['C12'] . "" . $detalle['C13'] . "" . $detalle['C14'] . ""
//            . $detalle['C15'] . "" . $detalle['C16'] . "" . $detalle['C17'] . "" . $detalle['C18'] . "" . $detalle['C19'] . "" . $detalle['C20'] . "" . $detalle['C21'] . ""
//            . $detalle['C22'] . "" . $detalle['C23'] . "" . $detalle['C24'] . "" . $detalle['C25'] . "" . $detalle['C26'] . "" . $detalle['C27'] . "" . $detalle['C28'] . ""
//            . $detalle['C29'] . "" . $detalle['C30'] . "" . $detalle['C31'] . "" . $detalle['C32'] . "" . $detalle['C33'] . "" . $detalle['C34'] . "" . $detalle['C35'] . ""
//            . $detalle['C36'] . "" . $detalle['C37'] . "" . $detalle['C38'] . "" . $detalle['C39'] . "" . $detalle['C40'] . "" . $detalle['C41'] . "" . $detalle['C42'] . ""
//            . $detalle['C43'] . "" . $detalle['C44'] . "" . $detalle['C45'] . "\n";
//}

/*
 * recorrer arreglo de datos y convertir en csv
 */
$i = 0;
$j = 0;
$sep = ""; //variable global para manejo del separador
$custom_logger->info("Actualizar la diferencia de 100, 200 o 300 pesos");
$num_doc_ini = 0;
$valor_c47_sum = 0; //pension
$valor_c55_sum = 0; //salud
$valor_c51_sum = 0; //fsp 1
$valor_c52_sum = 0; //fsp 2
$valor_c65_sum = 0; //parafiscales
$valor_c67_sum = 0; //parafiscales
$valor_c69_sum = 0; //parafiscales
$valor_c71_sum = 0; //parafiscales
$valor_c73_sum = 0; //parafiscales
$valor_c22 = 'C'; //parafiscales
foreach ($detalle as $rec) {//Filas
    $custom_logger->info("Linea: " . $i++);

    /**
     * Actualizar la diferencia de 100,200 o 300 pesos en los aportes, solo si el periodo esta activo - 20190708
     * Actualizar para pension que no tenga en cuenta FSP segun cambio de (20191115), donde id_clase_fondo = 0 para no tener encuenta - 20210201
     */
    $valor_c22 = $rec['C22'];
    $num_doc_fila = $rec['C4'];
    $valor_c47_fila = $rec['C47']; // + $rec['C51'] + $rec['C52'];Se quita ajustar valores de FSP - 20191115
    $valor_c55_fila = $rec['C55'];
    $valor_c51_fila = $rec['C51']; //Arreglo FSP - 20210201::LAVILA
    $valor_c52_fila = $rec['C52']; //Arreglo FSP - 20210201::LAVILA
    $valor_c65_fila = $rec['C65']; //Arreglo parafiscales - 20210203::LAVILA
    $valor_c67_fila = $rec['C67']; //Arreglo parafiscales - 20210203::LAVILA
    $valor_c69_fila = $rec['C69']; //Arreglo parafiscales - 20210203::LAVILA
    $valor_c71_fila = $rec['C71']; //Arreglo parafiscales - 20210203::LAVILA
    $valor_c73_fila = $rec['C73']; //Arreglo parafiscales - 20210203::LAVILA
    $custom_logger->info("num_doc_ini: " . $num_doc_ini);
    $custom_logger->info("num_doc_fila: " . $num_doc_fila);
    $custom_logger->info("valor_c22: " . $valor_c22);
    $custom_logger->info("valor_c47_fila: " . $valor_c47_fila);
    $custom_logger->info("valor_c55_fila: " . $valor_c55_fila);

    if ($num_doc_ini == $num_doc_fila) {
        //Solo suma campo C - 20211206
        if ($valor_c22 == 'C') {
            $valor_c47_sum += $valor_c47_fila;
            $valor_c55_sum += $valor_c55_fila;
            $valor_c51_sum += $valor_c51_fila;
            $valor_c52_sum += $valor_c52_fila;
            $valor_c65_sum += $valor_c65_fila;
            $valor_c67_sum += $valor_c67_fila;
            $valor_c69_sum += $valor_c69_fila;
            $valor_c71_sum += $valor_c71_fila;
            $valor_c73_sum += $valor_c73_fila;
        }
    } else {

        //Actualiza registro de tercero anterior - PENSION
        $custom_logger->info("Actualiza registro de tercero anterior - PENSION");
        $sql = <<<EOD
update no_liquida_aporte liq set liq.aporte_patrono = nvl('$valor_c47_sum',0) 
    - (liq.aporte_func + nvl((SELECT   sum(aporte_func) FROM no_liquida_aporte 
        where num_doc = $num_doc_ini  and id_periodo = $id_periodo and  id_clase_fondo = 0 and aporte_patrono = 0),0) ) - (liq.aporte_patrono_licnorem)   
where 
liq.id_clase_fondo = 1 and liq.aporte_patrono != 0 and liq.tipo_planilla = 'C' 
and liq.id_periodo in ( SELECT id_periodo fROM no_periodo where id_periodo = $id_periodo and estado = 0 )               
and ( SELECT id_anhos fROM no_periodo where id_periodo = liq.id_periodo  ) in ( SELECT id_anhos fROM no_periodo where id_periodo = $id_periodo  )
and (liq.aporte_func + liq.aporte_patrono + liq.aporte_patrono_licnorem) + nvl((SELECT sum(aporte_func) FROM no_liquida_aporte where num_doc = $num_doc_ini and liq.tipo_planilla = 'C' and id_periodo = $id_periodo and  id_clase_fondo = 1 and aporte_patrono = 0),0) != nvl('$valor_c47_sum',0)
and (nvl('$valor_c47_sum',0) - (liq.aporte_func + liq.aporte_patrono + liq.aporte_patrono_licnorem + nvl(((SELECT   sum(aporte_func) FROM no_liquida_aporte where num_doc = $num_doc_ini  and id_periodo = $id_periodo and  id_clase_fondo = 0 and aporte_patrono = 0)),0) )) <= 300
and (nvl('$valor_c47_sum',0) - (liq.aporte_func + liq.aporte_patrono + liq.aporte_patrono_licnorem + nvl(((SELECT   sum(aporte_func) FROM no_liquida_aporte where num_doc = $num_doc_ini  and id_periodo = $id_periodo and  id_clase_fondo = 0 and aporte_patrono = 0)),0) ))  > 0
and liq.num_doc = $num_doc_ini               
EOD;

        CN_TABLE::executeSQL($sql, true);

        //Actualiza registro de tercero anterior - FSP aporte_func - 20210201::LAVILA
        $custom_logger->info("Actualiza registro de tercero anterior - FSP aporte_func");
        $sql = <<<EOD
update no_liquida_aporte liq set liq.aporte_func = nvl('$valor_c51_sum',0) + nvl('$valor_c52_sum',0) 
where 
liq.id_clase_fondo = 1 and liq.aporte_patrono = 0 and liq.tipo_planilla = 'C' 
and liq.id_periodo in ( SELECT id_periodo fROM no_periodo where id_periodo = $id_periodo and estado = 0 )  
and ( SELECT id_anhos fROM no_periodo where id_periodo = liq.id_periodo  ) in ( SELECT id_anhos fROM no_periodo where id_periodo = $id_periodo  )
and (liq.aporte_func) != nvl('$valor_c51_sum',0) + nvl('$valor_c52_sum',0)
and (nvl('$valor_c51_sum',0) + nvl('$valor_c52_sum',0) - (liq.aporte_func) <= 300)
and (nvl('$valor_c51_sum',0) + nvl('$valor_c52_sum',0) - (liq.aporte_func)  > 0)
and liq.num_doc = $num_doc_ini                 
EOD;

        CN_TABLE::executeSQL($sql, true);

        //Actualiza registro de tercero anterior - FSP valor_base_fsp - 20210201::LAVILA
        $custom_logger->info("Actualiza registro de tercero anterior - FSP valor_base_fsp");
        $sql = <<<EOD
update no_liquida_aporte liq set liq.valor_base_fsp = nvl('$valor_c52_sum',0)
where 
liq.id_clase_fondo = 1 and liq.aporte_patrono = 0 and liq.tipo_planilla = 'C' 
and liq.id_periodo in ( SELECT id_periodo fROM no_periodo where id_periodo = $id_periodo and estado = 0 )  
and ( SELECT id_anhos fROM no_periodo where id_periodo = liq.id_periodo  ) in ( SELECT id_anhos fROM no_periodo where id_periodo = $id_periodo  )
and (liq.valor_base_fsp) != nvl('$valor_c52_sum',0)
and (nvl('$valor_c52_sum',0) - (liq.valor_base_fsp) <= 300)
and (nvl('$valor_c52_sum',0) - (liq.valor_base_fsp)  > 0)
and liq.num_doc = $num_doc_ini                
EOD;

        CN_TABLE::executeSQL($sql, true);

        //Actualiza registro de tercero anterior - SALUD
        $custom_logger->info("Actualiza registro de tercero anterior - SALUD");
        $sql = <<<EOD
update no_liquida_aporte liq set liq.aporte_patrono = nvl('$valor_c55_sum',0) - (liq.aporte_func) - (liq.aporte_patrono_licnorem)   
where 
liq.id_clase_fondo = 2 and liq.tipo_planilla = 'C' 
and liq.id_periodo in ( SELECT id_periodo fROM no_periodo where id_periodo = $id_periodo and estado = 0 )  
and ( SELECT id_anhos fROM no_periodo where id_periodo = liq.id_periodo  ) in ( SELECT id_anhos fROM no_periodo where id_periodo = $id_periodo  )
and (liq.aporte_func + liq.aporte_patrono + liq.aporte_patrono_licnorem) != nvl('$valor_c55_sum',0)
and (nvl('$valor_c55_sum',0) - (liq.aporte_func + liq.aporte_patrono + liq.aporte_patrono_licnorem)) <= 300
and (nvl('$valor_c55_sum',0) - (liq.aporte_func + liq.aporte_patrono + liq.aporte_patrono_licnorem))  > 0
and liq.num_doc = $num_doc_ini                
EOD;

        CN_TABLE::executeSQL($sql, true);

        /*
         * Arreglo parafiscales CAJA DE COMPENSACION FAMILIAR - 20210203::LAVILA
         */
        $custom_logger->info("Actualiza registro de tercero anterior - CAJA");
        $sql = <<<EOD
update no_liquida_aporte liq set liq.aporte_patrono = nvl('$valor_c65_sum',0) - (liq.aporte_func)   
where 
liq.id_clase_fondo = 4 and liq.tipo_planilla = 'C' 
and liq.id_periodo in ( SELECT id_periodo fROM no_periodo where id_periodo = $id_periodo and estado = 0 )  
and ( SELECT id_anhos fROM no_periodo where id_periodo = liq.id_periodo  ) in ( SELECT id_anhos fROM no_periodo where id_periodo = $id_periodo  )
and (liq.aporte_func + liq.aporte_patrono) != nvl('$valor_c65_sum',0)
and (nvl('$valor_c65_sum',0) - (liq.aporte_func + liq.aporte_patrono)) <= 300
and (nvl('$valor_c65_sum',0) - (liq.aporte_func + liq.aporte_patrono))  > 0
and liq.num_doc = $num_doc_ini                
EOD;

        CN_TABLE::executeSQL($sql, true);

        /*
         * Arreglo parafiscales INSTITUTO DE BIENESTAR FAMILIAR - ICBF - 20210203::LAVILA
         */
        $custom_logger->info("Actualiza registro de tercero anterior - ICBF");
        $sql = <<<EOD
update no_liquida_aporte liq set liq.aporte_patrono = nvl('$valor_c69_sum',0) - (liq.aporte_func)   
where 
liq.id_clase_fondo = 5 and liq.tipo_planilla = 'C' 
and liq.id_periodo in ( SELECT id_periodo fROM no_periodo where id_periodo = $id_periodo and estado = 0 )  
and ( SELECT id_anhos fROM no_periodo where id_periodo = liq.id_periodo  ) in ( SELECT id_anhos fROM no_periodo where id_periodo = $id_periodo  )
and (liq.aporte_func + liq.aporte_patrono) != nvl('$valor_c69_sum',0)
and (nvl('$valor_c69_sum',0) - (liq.aporte_func + liq.aporte_patrono)) <= 300
and (nvl('$valor_c69_sum',0) - (liq.aporte_func + liq.aporte_patrono))  > 0
and liq.num_doc = $num_doc_ini                
EOD;

        CN_TABLE::executeSQL($sql, true);

        /*
         * Arreglo parafiscales SENA - 20210203::LAVILA
         */
        $custom_logger->info("Actualiza registro de tercero anterior - SENA");
        $sql = <<<EOD
update no_liquida_aporte liq set liq.aporte_patrono = nvl('$valor_c67_sum',0) - (liq.aporte_func)   
where 
liq.id_clase_fondo = 6 and liq.tipo_planilla = 'C' 
and liq.id_periodo in ( SELECT id_periodo fROM no_periodo where id_periodo = $id_periodo and estado = 0 )  
and ( SELECT id_anhos fROM no_periodo where id_periodo = liq.id_periodo  ) in ( SELECT id_anhos fROM no_periodo where id_periodo = $id_periodo  )
and (liq.aporte_func + liq.aporte_patrono) != nvl('$valor_c67_sum',0)
and (nvl('$valor_c67_sum',0) - (liq.aporte_func + liq.aporte_patrono)) <= 300
and (nvl('$valor_c67_sum',0) - (liq.aporte_func + liq.aporte_patrono))  > 0
and liq.num_doc = $num_doc_ini                
EOD;

        CN_TABLE::executeSQL($sql, true);

        /*
         * Arreglo parafiscales ESAP - 20210203::LAVILA
         */
        $custom_logger->info("Actualiza registro de tercero anterior - ESAP");
        $sql = <<<EOD
update no_liquida_aporte liq set liq.aporte_patrono = nvl('$valor_c71_sum',0) - (liq.aporte_func)   
where 
liq.id_clase_fondo = 7 and liq.tipo_planilla = 'C' 
and liq.id_periodo in ( SELECT id_periodo fROM no_periodo where id_periodo = $id_periodo and estado = 0 )  
and ( SELECT id_anhos fROM no_periodo where id_periodo = liq.id_periodo  ) in ( SELECT id_anhos fROM no_periodo where id_periodo = $id_periodo  )
and (liq.aporte_func + liq.aporte_patrono) != nvl('$valor_c71_sum',0)
and (nvl('$valor_c71_sum',0) - (liq.aporte_func + liq.aporte_patrono)) <= 300
and (nvl('$valor_c71_sum',0) - (liq.aporte_func + liq.aporte_patrono))  > 0
and liq.num_doc = $num_doc_ini                
EOD;

        CN_TABLE::executeSQL($sql, true);

        /*
         * Arreglo parafiscales MINISTERIO DE EDUCACION NACION - MEN - 20210203::LAVILA
         */
        $custom_logger->info("Actualiza registro de tercero anterior - MINISTERIO DE EDUCACION NACION - MEN");
        $sql = <<<EOD
update no_liquida_aporte liq set liq.aporte_patrono = nvl('$valor_c73_sum',0) - (liq.aporte_func)   
where 
liq.id_clase_fondo = 8 and liq.tipo_planilla = 'C' 
and liq.id_periodo in ( SELECT id_periodo fROM no_periodo where id_periodo = $id_periodo and estado = 0 )  
and ( SELECT id_anhos fROM no_periodo where id_periodo = liq.id_periodo  ) in ( SELECT id_anhos fROM no_periodo where id_periodo = $id_periodo  )
and (liq.aporte_func + liq.aporte_patrono) != nvl('$valor_c73_sum',0)
and (nvl('$valor_c73_sum',0) - (liq.aporte_func + liq.aporte_patrono)) <= 300
and (nvl('$valor_c73_sum',0) - (liq.aporte_func + liq.aporte_patrono))  > 0
and liq.num_doc = $num_doc_ini                
EOD;

        CN_TABLE::executeSQL($sql, true);

        //Solo suma campo C - 20211206
        if ($valor_c22 == 'C') {
            $valor_c47_sum = $valor_c47_fila + 0;
            $valor_c55_sum = $valor_c55_fila + 0;
            $valor_c51_sum = $valor_c51_fila + 0;
            $valor_c52_sum = $valor_c52_fila + 0;
            $valor_c65_sum = $valor_c65_fila + 0;
            $valor_c67_sum = $valor_c67_fila + 0;
            $valor_c69_sum = $valor_c69_fila + 0;
            $valor_c71_sum = $valor_c71_fila + 0;
            $valor_c73_sum = $valor_c73_fila + 0;
        } else {
            $valor_c47_sum = 0;
            $valor_c55_sum = 0;
            $valor_c51_sum = 0;
            $valor_c52_sum = 0;
            $valor_c65_sum = 0;
            $valor_c67_sum = 0;
            $valor_c69_sum = 0;
            $valor_c71_sum = 0;
            $valor_c73_sum = 0;
        }
    }
    $num_doc_ini = $rec['C4'];
    $custom_logger->info("valor_c55_sum: " . $valor_c55_sum);

//        $shtml.='"';
    foreach ($rec as $key => $value) {
        if ($j != 0) {
//            if ($value != '/') {
            $shtml .= $sep;
//            }
        }
//        $value = str_replace('Ñ', '#', $value);
//        $value = str_replace('ñ', '#', $value);
//        $value = str_replace('[\n|\r|\n\r]', ' ', $value);
        $shtml .= $value;
        $j++;
    }
//        $shtml.='"';
//        $this->logMessage("Linea: " . $i++);
    //salto de linea para separar totales
    $shtml .= $salto_linea;
    $j = 0;
}

//Para el ultimo registro de tercero - 20210916::LAVILA
if ($num_doc_ini == $num_doc_fila) {
    //Actualiza registro de tercero anterior - PENSION
    $custom_logger->info("Actualiza registro de tercero anterior - PENSION");
    $sql = <<<EOD
update no_liquida_aporte liq set liq.aporte_patrono = nvl('$valor_c47_sum',0) 
    - (liq.aporte_func + nvl((SELECT   sum(aporte_func) FROM no_liquida_aporte 
        where num_doc = $num_doc_ini  and id_periodo = $id_periodo and  id_clase_fondo = 0 and aporte_patrono = 0),0) ) - (liq.aporte_patrono_licnorem)   
where 
liq.id_clase_fondo = 1 and liq.aporte_patrono != 0 and liq.tipo_planilla = 'C' 
and liq.id_periodo in ( SELECT id_periodo fROM no_periodo where id_periodo = $id_periodo and estado = 0 )  
and ( SELECT id_anhos fROM no_periodo where id_periodo = liq.id_periodo  ) in ( SELECT id_anhos fROM no_periodo where id_periodo = $id_periodo  )
and (liq.aporte_func + liq.aporte_patrono + liq.aporte_patrono_licnorem) + nvl((SELECT sum(aporte_func) FROM no_liquida_aporte where num_doc = $num_doc_ini and liq.tipo_planilla = 'C' and id_periodo = $id_periodo and  id_clase_fondo = 1 and aporte_patrono = 0),0) != nvl('$valor_c47_sum',0)
and (nvl('$valor_c47_sum',0) - (liq.aporte_func + liq.aporte_patrono + liq.aporte_patrono_licnorem + nvl(((SELECT   sum(aporte_func) FROM no_liquida_aporte where num_doc = $num_doc_ini  and id_periodo = $id_periodo and  id_clase_fondo = 0 and aporte_patrono = 0)),0) )) <= 300
and (nvl('$valor_c47_sum',0) - (liq.aporte_func + liq.aporte_patrono + liq.aporte_patrono_licnorem + nvl(((SELECT   sum(aporte_func) FROM no_liquida_aporte where num_doc = $num_doc_ini  and id_periodo = $id_periodo and  id_clase_fondo = 0 and aporte_patrono = 0)),0) ))  > 0
and liq.num_doc = $num_doc_ini               
EOD;

    CN_TABLE::executeSQL($sql, true);

    //Actualiza registro de tercero anterior - FSP aporte_func - 20210201::LAVILA
    $custom_logger->info("Actualiza registro de tercero anterior - FSP aporte_func");
    $sql = <<<EOD
update no_liquida_aporte liq set liq.aporte_func = nvl('$valor_c51_sum',0) + nvl('$valor_c52_sum',0) 
where 
liq.id_clase_fondo = 1 and liq.aporte_patrono = 0 and liq.tipo_planilla = 'C' 
and liq.id_periodo in ( SELECT id_periodo fROM no_periodo where id_periodo = $id_periodo and estado = 0 )  
and ( SELECT id_anhos fROM no_periodo where id_periodo = liq.id_periodo  ) in ( SELECT id_anhos fROM no_periodo where id_periodo = $id_periodo  )
and (liq.aporte_func) != nvl('$valor_c51_sum',0) + nvl('$valor_c52_sum',0)
and (nvl('$valor_c51_sum',0) + nvl('$valor_c52_sum',0) - (liq.aporte_func) <= 300)
and (nvl('$valor_c51_sum',0) + nvl('$valor_c52_sum',0) - (liq.aporte_func)  > 0)
and liq.num_doc = $num_doc_ini                 
EOD;

    CN_TABLE::executeSQL($sql, true);

    //Actualiza registro de tercero anterior - FSP valor_base_fsp - 20210201::LAVILA
    $custom_logger->info("Actualiza registro de tercero anterior - FSP valor_base_fsp");
    $sql = <<<EOD
update no_liquida_aporte liq set liq.valor_base_fsp = nvl('$valor_c52_sum',0)
where 
liq.id_clase_fondo = 1 and liq.aporte_patrono = 0 and liq.tipo_planilla = 'C' 
and liq.id_periodo in ( SELECT id_periodo fROM no_periodo where id_periodo = $id_periodo and estado = 0 )  
and ( SELECT id_anhos fROM no_periodo where id_periodo = liq.id_periodo  ) in ( SELECT id_anhos fROM no_periodo where id_periodo = $id_periodo  )
and (liq.valor_base_fsp) != nvl('$valor_c52_sum',0)
and (nvl('$valor_c52_sum',0) - (liq.valor_base_fsp) <= 300)
and (nvl('$valor_c52_sum',0) - (liq.valor_base_fsp)  > 0)
and liq.num_doc = $num_doc_ini                
EOD;

    CN_TABLE::executeSQL($sql, true);

    //Actualiza registro de tercero anterior - SALUD
    $custom_logger->info("Actualiza registro de tercero anterior - SALUD");
    $sql = <<<EOD
update no_liquida_aporte liq set liq.aporte_patrono = nvl('$valor_c55_sum',0) - (liq.aporte_func) - (liq.aporte_patrono_licnorem)   
where 
liq.id_clase_fondo = 2 and liq.tipo_planilla = 'C' 
and liq.id_periodo in ( SELECT id_periodo fROM no_periodo where id_periodo = $id_periodo and estado = 0 )  
and ( SELECT id_anhos fROM no_periodo where id_periodo = liq.id_periodo  ) in ( SELECT id_anhos fROM no_periodo where id_periodo = $id_periodo  )
and (liq.aporte_func + liq.aporte_patrono + liq.aporte_patrono_licnorem) != nvl('$valor_c55_sum',0)
and (nvl('$valor_c55_sum',0) - (liq.aporte_func + liq.aporte_patrono + liq.aporte_patrono_licnorem)) <= 300
and (nvl('$valor_c55_sum',0) - (liq.aporte_func + liq.aporte_patrono + liq.aporte_patrono_licnorem))  > 0
and liq.num_doc = $num_doc_ini                
EOD;

    CN_TABLE::executeSQL($sql, true);

    /*
     * Arreglo parafiscales CAJA DE COMPENSACION FAMILIAR - 20210203::LAVILA
     */
    $custom_logger->info("Actualiza registro de tercero anterior - CAJA");
    $sql = <<<EOD
update no_liquida_aporte liq set liq.aporte_patrono = nvl('$valor_c65_sum',0) - (liq.aporte_func)   
where 
liq.id_clase_fondo = 4 and liq.tipo_planilla = 'C' 
and liq.id_periodo in ( SELECT id_periodo fROM no_periodo where id_periodo = $id_periodo and estado = 0 )  
and ( SELECT id_anhos fROM no_periodo where id_periodo = liq.id_periodo  ) in ( SELECT id_anhos fROM no_periodo where id_periodo = $id_periodo  )
and (liq.aporte_func + liq.aporte_patrono) != nvl('$valor_c65_sum',0)
and (nvl('$valor_c65_sum',0) - (liq.aporte_func + liq.aporte_patrono)) <= 300
and (nvl('$valor_c65_sum',0) - (liq.aporte_func + liq.aporte_patrono))  > 0
and liq.num_doc = $num_doc_ini                
EOD;

    CN_TABLE::executeSQL($sql, true);

    /*
     * Arreglo parafiscales INSTITUTO DE BIENESTAR FAMILIAR - ICBF - 20210203::LAVILA
     */
    $custom_logger->info("Actualiza registro de tercero anterior - ICBF");
    $sql = <<<EOD
update no_liquida_aporte liq set liq.aporte_patrono = nvl('$valor_c69_sum',0) - (liq.aporte_func)   
where 
liq.id_clase_fondo = 5 and liq.tipo_planilla = 'C' 
and liq.id_periodo in ( SELECT id_periodo fROM no_periodo where id_periodo = $id_periodo and estado = 0 )  
and ( SELECT id_anhos fROM no_periodo where id_periodo = liq.id_periodo  ) in ( SELECT id_anhos fROM no_periodo where id_periodo = $id_periodo  )
and (liq.aporte_func + liq.aporte_patrono) != nvl('$valor_c69_sum',0)
and (nvl('$valor_c69_sum',0) - (liq.aporte_func + liq.aporte_patrono)) <= 300
and (nvl('$valor_c69_sum',0) - (liq.aporte_func + liq.aporte_patrono))  > 0
and liq.num_doc = $num_doc_ini                
EOD;

    CN_TABLE::executeSQL($sql, true);

    /*
     * Arreglo parafiscales SENA - 20210203::LAVILA
     */
    $custom_logger->info("Actualiza registro de tercero anterior - SENA");
    $sql = <<<EOD
update no_liquida_aporte liq set liq.aporte_patrono = nvl('$valor_c67_sum',0) - (liq.aporte_func)   
where 
liq.id_clase_fondo = 6 and liq.tipo_planilla = 'C' 
and liq.id_periodo in ( SELECT id_periodo fROM no_periodo where id_periodo = $id_periodo and estado = 0 )  
and ( SELECT id_anhos fROM no_periodo where id_periodo = liq.id_periodo  ) in ( SELECT id_anhos fROM no_periodo where id_periodo = $id_periodo  )
and (liq.aporte_func + liq.aporte_patrono) != nvl('$valor_c67_sum',0)
and (nvl('$valor_c67_sum',0) - (liq.aporte_func + liq.aporte_patrono)) <= 300
and (nvl('$valor_c67_sum',0) - (liq.aporte_func + liq.aporte_patrono))  > 0
and liq.num_doc = $num_doc_ini                
EOD;

    CN_TABLE::executeSQL($sql, true);

    /*
     * Arreglo parafiscales ESAP - 20210203::LAVILA
     */
    $custom_logger->info("Actualiza registro de tercero anterior - ESAP");
    $sql = <<<EOD
update no_liquida_aporte liq set liq.aporte_patrono = nvl('$valor_c71_sum',0) - (liq.aporte_func)   
where 
liq.id_clase_fondo = 7 and liq.tipo_planilla = 'C' 
and liq.id_periodo in ( SELECT id_periodo fROM no_periodo where id_periodo = $id_periodo and estado = 0 )  
and ( SELECT id_anhos fROM no_periodo where id_periodo = liq.id_periodo  ) in ( SELECT id_anhos fROM no_periodo where id_periodo = $id_periodo  )
and (liq.aporte_func + liq.aporte_patrono) != nvl('$valor_c71_sum',0)
and (nvl('$valor_c71_sum',0) - (liq.aporte_func + liq.aporte_patrono)) <= 300
and (nvl('$valor_c71_sum',0) - (liq.aporte_func + liq.aporte_patrono))  > 0
and liq.num_doc = $num_doc_ini                
EOD;

    CN_TABLE::executeSQL($sql, true);

    /*
     * Arreglo parafiscales MINISTERIO DE EDUCACION NACION - MEN - 20210203::LAVILA
     */
    $custom_logger->info("Actualiza registro de tercero anterior - MINISTERIO DE EDUCACION NACION - MEN");
    $sql = <<<EOD
update no_liquida_aporte liq set liq.aporte_patrono = nvl('$valor_c73_sum',0) - (liq.aporte_func)   
where 
liq.id_clase_fondo = 8 and liq.tipo_planilla = 'C' 
and liq.id_periodo in ( SELECT id_periodo fROM no_periodo where id_periodo = $id_periodo and estado = 0 )  
and ( SELECT id_anhos fROM no_periodo where id_periodo = liq.id_periodo  ) in ( SELECT id_anhos fROM no_periodo where id_periodo = $id_periodo  )
and (liq.aporte_func + liq.aporte_patrono) != nvl('$valor_c73_sum',0)
and (nvl('$valor_c73_sum',0) - (liq.aporte_func + liq.aporte_patrono)) <= 300
and (nvl('$valor_c73_sum',0) - (liq.aporte_func + liq.aporte_patrono))  > 0
and liq.num_doc = $num_doc_ini                
EOD;

    CN_TABLE::executeSQL($sql, true);
}


fwrite($archivo, $shtml);
fclose($archivo);

$shtmlAuto .= $shtml;
$shtml = "";

//ARCHIVO R3TOTAPP Total Fondos Pension        
$archivo = fopen("uploads/archivos_banco/r3totapp.csv", "w"); //generacion del nuevo documento txt.
//$shtml = "R301\tR302\tR303\tR304\tR305\tR306\tR307\tR308\tR309\tR310A\tR310\tR311\tR312\tR313\tR314A\tR314,C,6\t\n";


$sql = "
select 

'03' as c1,
lpad(rownum,5,0) as c2,
tab.c3,
tab.C4,
tab.C5,
tab.c6,
tab.c7,
tab.c8,
tab.c9,
tab.c10a,
tab.c10,
tab.c11,
tab.c12,
tab.c13,
tab.c14a,
tab.c14

from (

select 

lpad(tab0.codigo,6,0) as c3,
lpad(tab0.nitocc,16,0) as c4,
digito_verificacion(lpad(tab0.nitocc,16,0)) as c5,
lpad(round(sum(tab0.aporte2),-2),10,0) as c6,--pension
lpad(0,10,0) as c7,
lpad(0,10,0) as c8,
lpad(sum(tab0.aporte3),10,0) as c9,--fsp
lpad(sum(tab0.aporte3),10,0) as c10a,
lpad(0,4,0) as c10,
lpad(0,10,0) as c11,
lpad(0,10,0) as c12,
lpad(0,10,0) as c13,--total
lpad(round(sum(tab0.aporte2) + sum(tab0.aporte3),-2),10,0) as c14a,
LPAD( count (tab0.nitocc),6,0) AS C14

from (

select 

tab0.num_doc,
rpad(NVL(pension1.codigo, ' '),6,' ') AS codigo, 
rpad(nvl(pension1.tipo, ' '),15,' ') as tipo, 
nvl(pension1.nitocc,0) as nitocc,
--nvl(pension1.aporte,0) as aporte,
--nvl(pension1.aporte_patrono,0) as aporte_patrono,
nvl(pension1.aporte_func_c - pension1.aporte_func_a,0)as aporte,
nvl(pension1.aporte_patrono_c - pension1.aporte_patrono_a,0) as aporte_patrono,
nvl(pension2.aporte,0) as aporte2,
nvl(pension2.aporte_patrono,0) as aporte_patrono2,
nvl(pension3.aporte,0) as aporte3,
nvl(pension3.aporte_patrono,0) as aporte_patrono3

from no_estado_func_v tab0

left join centro_operacion tab1 ON tab1.id_cen_op = tab0.id_cen_op
left join departamento tab2 ON tab2.id_depto = tab1.id_depto
left join municipios tab3 ON tab3.codmun = tab1.codmun
left join no_datos_funcionario_v tab4 ON tab4.id_tipo_doc = tab0.id_tipo_doc and tab4.num_doc = tab0.num_doc

--left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
left join (
  SELECT
   aut.*,
   ROW_NUMBER() OVER (
    partition by aut.num_doc
    ORDER BY aut.estado DESC
   ) AS rn
  from no_nombramiento aut
)tab5
on tab5.id_tipo_doc = tab0.id_tipo_doc 
and tab5.num_doc = tab0.num_doc
and tab5.rn = 1

left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp

left join 
(
    select 
    tab0.num_doc, codigo.codigo, codigo.tipo, codigo.nitocc,
    sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/, 
    
      case when tab0.tipo_planilla = 'A' then sum(tab0.aporte_func) else 0 end as aporte_func_a, 
      case when tab0.tipo_planilla = 'C' then sum(tab0.aporte_func) else 0 end as aporte_func_c,     
      case when tab0.tipo_planilla = 'A' then sum(tab0.aporte_patrono) else 0 end as aporte_patrono_a, 
      case when tab0.tipo_planilla = 'C' then sum(tab0.aporte_patrono) else 0 end as aporte_patrono_c, 
      case when tab0.tipo_planilla = 'C' then 1 else 0 end as nitocc_c
      
    from no_liquida_aporte tab0
    left join no_mae_fondos fondo on fondo.id_mae_fondos = tab0.id_mae_fondos
    
    --left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc  
    left join (
      SELECT
       aut.*,
       ROW_NUMBER() OVER (
        partition by aut.nitocc
        ORDER BY aut.nitocc 
       ) as rn
      from no_cod_fondo aut
    )codigo
    on codigo.nitocc = fondo.num_doc
    and codigo.rn = 1
    
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1
    group by tab0.num_doc, codigo.codigo, codigo.tipo, codigo.nitocc, tab0.tipo_planilla
)pension1 ON pension1.num_doc = tab0.num_doc

left join 
(
    select 
    tab0.num_doc, codigo.codigo, codigo.tipo, codigo.nitocc,
    sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    left join no_mae_fondos fondo on fondo.id_mae_fondos = tab0.id_mae_fondos
    left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1 and tab0.porcentaje_patrono > 0 -- and  ( tab0.tarifa = 16 or tab0.tarifa = 26 )
    group by tab0.num_doc, codigo.codigo, codigo.tipo, codigo.nitocc
)pension2 ON pension2.num_doc = tab0.num_doc

left join 
(
    select 
    tab0.num_doc, codigo.codigo, codigo.tipo, codigo.nitocc,
    sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/
    from no_liquida_aporte tab0
    left join no_mae_fondos fondo on fondo.id_mae_fondos = tab0.id_mae_fondos
    left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 1 and tab0.tarifa = 1
    group by tab0.num_doc, codigo.codigo, codigo.tipo, codigo.nitocc
)pension3 ON pension3.num_doc = tab0.num_doc


WHERE tab0.periodo = $id_periodo 
/*
Este usuario se deja quemado para que no salga - 20131022
*/
and (
  case when 
  tab0.num_doc = '52992037' and
  (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo) = '201301'
  then 1
  else 0
  end  
) =  0
and tab0.num_doc not in (select num_doc from no_pension_func where  estado = 1)
and (tab0.actual = 1 or
  ( tab0.actual = 0 
    and tab5.fecha_termina != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo_actual) ,'dd/mm/yyyy') ))
  )
)

)tab0

where tab0.aporte > 0

group by 
tab0.codigo, tab0.tipo, tab0.nitocc

order by
tab0.codigo

)tab

";

$st = $consul->execute($sql);
$detalle = $st->fetchAll();

/*
 * recorrer arreglo de datos y convertir en csv
 */
$i = 0;
$j = 0;
$sep = ""; //variable global para manejo del separador
foreach ($detalle as $rec) {
//        $shtml.='"';
    foreach ($rec as $key => $value) {
        if ($j != 0) {
//            if ($value != '/') {
            $shtml .= $sep;
//            }
        }
//        $value = str_replace('Ñ', '#', $value);
//        $value = str_replace('ñ', '#', $value);
//        $value = str_replace('[\n|\r|\n\r]', ' ', $value);
        $shtml .= $value;
        $j++;
    }
//        $shtml.='"';
//        $this->logMessage("Linea: " . $i++);
    //salto de linea para separar totales
    $shtml .= $salto_linea;
    $j = 0;
}

fwrite($archivo, $shtml);
fclose($archivo);

$shtmlAuto .= $shtml;
$shtml = "";

//ARCHIVO R4TOTAPS Total Fondos Salud        
$archivo = fopen("uploads/archivos_banco/r4totaps.csv", "w"); //generacion del nuevo documento txt.
//$shtml = "R401\tR402\tR403\tR404\tR405\tR406\tR407\tR408\tR409\tR410\tR411\tR412\tR413\tR414\tR415\tR416\tR417\tR418\tR419\tR420\tR421\tR422\tR423\tR424\tR425,C,6\t\n";

$sql = "
select 

'04' as c1,
lpad(rownum,5,0) as c2,
tab.c3,
tab.C4,
tab.C5,
tab.c6,
tab.c7,
tab.c8,
tab.c9,
tab.c10,
tab.c11,
tab.c12,
tab.c13,
tab.c14,
tab.c15,
tab.c16,
tab.c17,
tab.c18,
tab.c19,
tab.c20,
tab.c21,
tab.c22,
tab.c23,
tab.c24,
tab.c25

from (

select 

lpad(tab0.codigo,6,0) as c3,
lpad(tab0.nitocc,16,0) as c4,
digito_verificacion(lpad(tab0.nitocc,16,0)) as c5,
lpad(round(sum(tab0.aporte),-2),10,0) as c6,
lpad(sum(tab0.upc_adicio),10,0) as c7,
LPAD(' ',15,' ') as c8,
lpad(0,10,0) as c9,
LPAD(' ',15,' ') as c10,
lpad(0,10,0) as c11,
lpad(round(sum(tab0.aporte) + 0 + 0,-2) ,10,0) as c12,
lpad(0,4,0) as c13,
lpad(0,10,0) AS C14,
lpad(0,10,0) as c15,
lpad(round(sum(tab0.aporte),-2),10,0) as c16,
lpad(round(sum(tab0.upc_adicio),-2),10,0) as c17,
LPAD(0,10,0) as c18,
lpad(0,10,0) as c19,
lpad(0,10,0) as c20,
lpad(round(sum(tab0.aporte) + 0 + 0,-2) ,10,0) as c21,
lpad(sum(tab0.upc_adicio),10,0) as c22,
lpad(round(sum(tab0.upc_adicio) + sum(tab0.aporte) + 0 + 0,-2),10,0) as c23,
lpad( round((sum(tab0.aporte) * 1 / 100) + 0 + 0) ,10,0) as c24,
LPAD( count (tab0.nitocc),6,0) as c25

from (

select 

tab0.num_doc,
rpad(NVL(salud1.codigo, ' '),6,' ') AS codigo, 
rpad(nvl(salud1.tipo, ' '),15,' ') as tipo, 
nvl(salud1.nitocc,0) as nitocc,
--nvl(salud1.aporte,0) as aporte,
--nvl(salud1.aporte_patrono,0) as aporte_patrono,
nvl(salud1.aporte_func_c - salud1.aporte_func_a,0)as aporte,
nvl(salud1.aporte_patrono_c - salud1.aporte_patrono_a,0) as aporte_patrono,
nvl(salud1.upc_adicio,0) as upc_adicio

from no_estado_func_v tab0

left join centro_operacion tab1 ON tab1.id_cen_op = tab0.id_cen_op
left join departamento tab2 ON tab2.id_depto = tab1.id_depto
left join municipios tab3 ON tab3.codmun = tab1.codmun
left join no_datos_funcionario_v tab4 ON tab4.id_tipo_doc = tab0.id_tipo_doc and tab4.num_doc = tab0.num_doc

--left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
left join (
  SELECT
   aut.*,
   ROW_NUMBER() OVER (
    partition by aut.num_doc
    ORDER BY aut.estado DESC
   ) AS rn
  from no_nombramiento aut
)tab5
on tab5.id_tipo_doc = tab0.id_tipo_doc 
and tab5.num_doc = tab0.num_doc
and tab5.rn = 1

left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp

left join 
(
    select 
    tab0.num_doc, codigo.codigo, codigo.tipo, codigo.nitocc,
    sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.tarifa)/100 as TARIFA, sum(tab0.upc_adicio) as upc_adicio, 
    
      case when tab0.tipo_planilla = 'A' then sum(tab0.aporte_func) else 0 end as aporte_func_a, 
      case when tab0.tipo_planilla = 'C' then sum(tab0.aporte_func) else 0 end as aporte_func_c,     
      case when tab0.tipo_planilla = 'A' then sum(tab0.aporte_patrono) else 0 end as aporte_patrono_a, 
      case when tab0.tipo_planilla = 'C' then sum(tab0.aporte_patrono) else 0 end as aporte_patrono_c, 
      case when tab0.tipo_planilla = 'C' then 1 else 0 end as nitocc_c
    
    from no_liquida_aporte tab0
    left join no_mae_fondos fondo on fondo.id_mae_fondos = tab0.id_mae_fondos
    
    --left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc  
    left join (
      SELECT
       aut.*,
       ROW_NUMBER() OVER (
        partition by aut.nitocc
        ORDER BY aut.nitocc 
       ) as rn
      from no_cod_fondo aut
    )codigo
    on codigo.nitocc = fondo.num_doc
    and codigo.rn = 1
    
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 2 AND codigo.tipo = 'EPS'
    group by tab0.num_doc, codigo.codigo, codigo.tipo, codigo.nitocc, tab0.tipo_planilla
)salud1 ON salud1.num_doc = tab0.num_doc


WHERE tab0.periodo = $id_periodo 
/*
Este usuario se deja quemado para que no salga - 20131022
*/
and (
  case when 
  tab0.num_doc = '52992037' and
  (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo) = '201301'
  then 1
  else 0
  end  
) =  0
and (tab0.actual = 1 or
  ( tab0.actual = 0 
    and tab5.fecha_termina != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo_actual) ,'dd/mm/yyyy') ))
  )
)

)tab0

where tab0.aporte > 0

group by 
tab0.codigo, tab0.tipo, tab0.nitocc

order by
tab0.codigo

)tab
 
";

$st = $consul->execute($sql);
$detalle = $st->fetchAll();

/*
 * recorrer arreglo de datos y convertir en csv
 */
$i = 0;
$j = 0;
$sep = ""; //variable global para manejo del separador
foreach ($detalle as $rec) {
//        $shtml.='"';
    foreach ($rec as $key => $value) {
        if ($j != 0) {
//            if ($value != '/') {
            $shtml .= $sep;
//            }
        }
//        $value = str_replace('Ñ', '#', $value);
//        $value = str_replace('ñ', '#', $value);
//        $value = str_replace('[\n|\r|\n\r]', ' ', $value);
        $shtml .= $value;
        $j++;
    }
//        $shtml.='"';
//        $this->logMessage("Linea: " . $i++);
    //salto de linea para separar totales
    $shtml .= $salto_linea;
    $j = 0;
}

fwrite($archivo, $shtml);
fclose($archivo);

$shtmlAuto .= $shtml;
$shtml = "";

//ARCHIVO R5TOTAPR Total Fondos Riesgos        
$archivo = fopen("uploads/archivos_banco/r5totapr.csv", "w"); //generacion del nuevo documento txt.
//$shtml = "R501\tR502\tR503\tR504\tR505\tR506\tR507\tR508\tR509\tR510\tR511\tR512\tR513\tR514,\tR515\tR516\tR517\tR518\t\n";

/**
 * Solo muestra el registro si hay valor de descuento de autorizacion - 20141125
 */
$sql = "
select 

'05' as c1,
lpad(rownum,5,0) as c2,
tab.c3,
tab.C4,
tab.C5,
tab.c6,
tab.c7,
tab.c8,
tab.c9,
tab.c10,
tab.c11,
tab.c12,
tab.c13,
tab.c14,
tab.c15,
tab.c16,
tab.c17,
tab.c18

from (

select 

lpad(tab0.codigo,6,' ') as c3,
lpad(tab0.nitocc,16,0) as c4,
digito_verificacion(tab0.nitocc) as c5,
lpad(sum(tab0.aporte_patrono),10,0) as c6,
lpad(nvl(tab0.num_autorizacion,' '),15,' ') as c7,
lpad(nvl(tab0.valor_total,0),10,0) as c8,
lpad(nvl(tab0.valor_aporte,0),10,0) as c9,
lpad(sum(tab0.aporte_patrono) - nvl(tab0.valor_total,0) - nvl(tab0.valor_aporte,0),10,0) as c10,
lpad(0,4,0) as c11,
lpad(0,10,0) as c12,
lpad(sum(tab0.aporte_patrono) - nvl(tab0.valor_total,0) - nvl(tab0.valor_aporte,0),10,0) as c13,
lpad(' ',10,' ') as c14,
lpad(0,10,0) as c15,
lpad(sum(tab0.aporte_patrono) - nvl(tab0.valor_total,0) - nvl(tab0.valor_aporte,0),10,0) as c16,
lpad( round((sum(tab0.aporte_patrono) * 1 / 100) ),10,0) as c17,
LPAD( count (tab0.nitocc_c),6,0) as c18

from (

select 
autori.num_autorizacion,
autori.valor_total,
autori.valor_aporte,
tab0.num_doc,
rpad(NVL(riesgo1.codigo, ' '),6,' ') AS codigo, 
rpad(nvl(riesgo1.tipo, ' '),15,' ') as tipo, 
nvl(riesgo1.nitocc,0) as nitocc,
nvl(riesgo1.nitocc_c,0) as nitocc_c,
nvl(riesgo1.aporte,0) as aporte,
--nvl(riesgo1.aporte_patrono,0) as aporte_patrono,
nvl(riesgo1.aporte_patrono_c - riesgo1.aporte_patrono_a,0) as aporte_patrono

from no_estado_func_v tab0

left join centro_operacion tab1 ON tab1.id_cen_op = tab0.id_cen_op
left join departamento tab2 ON tab2.id_depto = tab1.id_depto
left join municipios tab3 ON tab3.codmun = tab1.codmun
left join no_datos_funcionario_v tab4 ON tab4.id_tipo_doc = tab0.id_tipo_doc and tab4.num_doc = tab0.num_doc

--left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
left join (
  SELECT
   aut.*,
   ROW_NUMBER() OVER (
    partition by aut.num_doc
    ORDER BY aut.estado DESC
   ) AS rn
  from no_nombramiento aut
)tab5
on tab5.id_tipo_doc = tab0.id_tipo_doc 
and tab5.num_doc = tab0.num_doc
and tab5.rn = 1

left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp

left join 
(
    select 
    tab0.num_doc, codigo.codigo, codigo.tipo, codigo.nitocc,
    sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/, 
    
      case when tab0.tipo_planilla = 'A' then sum(tab0.aporte_patrono) else 0 end as aporte_patrono_a, 
      case when tab0.tipo_planilla = 'C' then sum(tab0.aporte_patrono) else 0 end as aporte_patrono_c, 
      case when tab0.tipo_planilla = 'C' then 1 else 0 end as nitocc_c
      
    from no_liquida_aporte tab0
    left join no_mae_fondos fondo on fondo.id_mae_fondos = tab0.id_mae_fondos
    
    --left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc  
    left join (
      SELECT
       aut.*,
       ROW_NUMBER() OVER (
        partition by aut.nitocc
        ORDER BY aut.nitocc 
       ) as rn
      from no_cod_fondo aut
    )codigo
    on codigo.nitocc = fondo.num_doc
    and codigo.rn = 1
    
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 3
    group by tab0.num_doc, codigo.codigo, codigo.tipo, codigo.nitocc, tab0.tipo_planilla
)riesgo1 ON riesgo1.num_doc = tab0.num_doc


left join (
select 
tab1.valor as valor_total,
tab1.aporte_eps + tab1.aporte_afp as valor_aporte,
rownum as rn, 
tab.* 

from(

  select 
  autori.* 
  from no_autorizacion autori
  where autori.id_periodo = $id_periodo
  order by 
  autori.fecha_proceso desc, autori.id_autorizacion desc

)tab

join (
  select 
  sum(nvl(aporte_eps,0)) as aporte_eps, 
  sum(nvl(aporte_afp,0)) as aporte_afp, 
  sum(nvl(valor,0)) as valor, 
  id_periodo 
  from no_autorizacion 
  group by   id_periodo
)tab1 on tab1.id_periodo = tab.id_periodo

where
rownum = 1
)autori on autori.rn = 1 

WHERE tab0.periodo = $id_periodo 
/*
Este usuario se deja quemado para que no salga - 20131022
*/
and (
  case when 
  tab0.num_doc = '52992037' and
  (select id_anhos || lpad(id_meses,2,'0') as vigper from no_periodo where id_periodo = $id_periodo) = '201301'
  then 1
  else 0
  end  
) =  0
and (tab0.actual = 1 or
  ( tab0.actual = 0 
    and tab5.fecha_termina != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo_actual) ,'dd/mm/yyyy') ))
  )
)

)tab0

where tab0.aporte_patrono > 0
and tab0.valor_total != 0

group by 
tab0.codigo, tab0.tipo, tab0.nitocc, tab0.num_autorizacion, tab0.valor_total, tab0.valor_aporte

order by
tab0.codigo

)tab
 
";

$st = $consul->execute($sql);
$detalle = $st->fetchAll();

/*
 * recorrer arreglo de datos y convertir en csv
 */
$i = 0;
$j = 0;
$sep = ""; //variable global para manejo del separador
foreach ($detalle as $rec) {
//        $shtml.='"';
    foreach ($rec as $key => $value) {
        if ($j != 0) {
//            if ($value != '/') {
            $shtml .= $sep;
//            }
        }
//        $value = str_replace('Ñ', '#', $value);
//        $value = str_replace('ñ', '#', $value);
//        $value = str_replace('[\n|\r|\n\r]', ' ', $value);
        $shtml .= $value;
        $j++;
    }
//        $shtml.='"';
//        $this->logMessage("Linea: " . $i++);
    //salto de linea para separar totales
    $shtml .= $salto_linea;
    $j = 0;
}

fwrite($archivo, $shtml);
fclose($archivo);

$shtmlAuto .= $shtml;
$shtml = "";


//ARCHIVO R6TOTAPC Total Fondos CCF        
$archivo = fopen("uploads/archivos_banco/r6totapc.csv", "w"); //generacion del nuevo documento txt.
//$shtml = "R601\tR602\tR603\tR604\tR605\tR606\tR607\tR608\tR609\tR610\t\n";

$sql = "
select 

'06' as c1,
lpad(rownum,5,0) as c2,
tab.c3,
tab.C4,
tab.C5,
tab.c6,
tab.c7,
tab.c8,
tab.c9,
tab.c10

from (

select 

lpad(tab0.codigo,6,' ') as c3,
lpad(tab0.nitocc,16,0) as c4,
digito_verificacion(tab0.nitocc) as c5,
lpad(sum(tab0.aporte_patrono),10,0) as c6,
lpad(0,4,0) as c7,
lpad(0,10,0) as c8,
lpad(sum(tab0.aporte_patrono),10,0) as c9,
LPAD( sum (tab0.nitocc_c),6,0) as c10

from (

select 

tab0.num_doc,
rpad(NVL(ccf1.codigo, ' '),6,' ') AS codigo, 
rpad(nvl(ccf1.tipo, ' '),15,' ') as tipo, 
nvl(ccf1.nitocc,0) as nitocc,
nvl(ccf1.nitocc_c,0) as nitocc_c,
nvl(ccf1.aporte,0) as aporte,
nvl(ccf1.aporte_patrono_c - ccf1.aporte_patrono_a,0) as aporte_patrono

from no_estado_func_v tab0

left join centro_operacion tab1 ON tab1.id_cen_op = tab0.id_cen_op
left join departamento tab2 ON tab2.id_depto = tab1.id_depto
left join municipios tab3 ON tab3.codmun = tab1.codmun
left join no_datos_funcionario_v tab4 ON tab4.id_tipo_doc = tab0.id_tipo_doc and tab4.num_doc = tab0.num_doc

--left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
left join (
  SELECT
   aut.*,
   ROW_NUMBER() OVER (
    partition by aut.num_doc
    ORDER BY aut.estado DESC
   ) AS rn
  from no_nombramiento aut
)tab5
on tab5.id_tipo_doc = tab0.id_tipo_doc 
and tab5.num_doc = tab0.num_doc
and tab5.rn = 1

left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp

left join 
(
    select 
    tab0.num_doc, codigo.codigo, codigo.tipo, codigo.nitocc,
    sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/, 
    
      case when tab0.tipo_planilla = 'A' then sum(tab0.aporte_patrono) else 0 end as aporte_patrono_a, 
      case when tab0.tipo_planilla = 'C' then sum(tab0.aporte_patrono) else 0 end as aporte_patrono_c, 
      case when tab0.tipo_planilla = 'C' then 1 else 0 end as nitocc_c
      
    from no_liquida_aporte tab0
    left join no_mae_fondos fondo on fondo.id_mae_fondos = tab0.id_mae_fondos
    
    --left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc  
    left join (
      SELECT
       aut.*,
       ROW_NUMBER() OVER (
        partition by aut.nitocc
        ORDER BY aut.nitocc 
       ) as rn
      from no_cod_fondo aut
    )codigo
    on codigo.nitocc = fondo.num_doc
    and codigo.rn = 1
    
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 4 AND codigo.tipo = 'CCF'
    group by tab0.num_doc, codigo.codigo, codigo.tipo, codigo.nitocc, tab0.tipo_planilla
)ccf1 ON ccf1.num_doc = tab0.num_doc


WHERE tab0.periodo = $id_periodo 
and (tab0.actual = 1 or
  ( tab0.actual = 0 
    and tab5.fecha_termina != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo_actual) ,'dd/mm/yyyy') ))
  )
)

)tab0

where tab0.aporte_patrono > 0
and 1 = 0

group by 
tab0.codigo, tab0.tipo, tab0.nitocc

order by
tab0.codigo

)tab
 
";

$st = $consul->execute($sql);
$detalle = $st->fetchAll();

/*
 * recorrer arreglo de datos y convertir en csv
 */
$i = 0;
$j = 0;
$sep = ""; //variable global para manejo del separador
foreach ($detalle as $rec) {
//        $shtml.='"';
    foreach ($rec as $key => $value) {
        if ($j != 0) {
//            if ($value != '/') {
            $shtml .= $sep;
//            }
        }
//        $value = str_replace('Ñ', '#', $value);
//        $value = str_replace('ñ', '#', $value);
//        $value = str_replace('[\n|\r|\n\r]', ' ', $value);
        $shtml .= $value;
        $j++;
    }
//        $shtml.='"';
//        $this->logMessage("Linea: " . $i++);
    //salto de linea para separar totales
    $shtml .= $salto_linea;
    $j = 0;
}

fwrite($archivo, $shtml);
fclose($archivo);

$shtmlAuto .= $shtml;
$shtml = "";

//ARCHIVO R7TOTAPS Total Fondos SENA        
$archivo = fopen("uploads/archivos_banco/r7totapc.csv", "w"); //generacion del nuevo documento txt.
//$shtml = "R701\tR702\tR703\tR704\tR706\tR707\tR708\tR709\tR710\t\n";

$sql = "
select 

'07' as c1,
lpad(rownum,5,0) as c2,
tab.c3,
tab.C4,
tab.C5,
tab.c6,
tab.c7,
tab.c8,
tab.c9,
tab.c10

from (

select 

lpad(null,6,' ') as c3,
lpad(tab0.nitocc,16,0) as c4,
digito_verificacion(tab0.nitocc) as c5,
lpad(sum(tab0.aporte_patrono),10,0) as c6,
lpad(0,4,0) as c7,
lpad(0,10,0) as c8,
lpad(sum(tab0.aporte_patrono),10,0) as c9,
LPAD( sum (tab0.nitocc_c),6,0) as c10

from (

select 

tab0.num_doc,
rpad(NVL(sena1.codigo, ' '),6,' ') AS codigo, 
rpad(nvl(sena1.tipo, ' '),15,' ') as tipo, 
nvl(sena1.nitocc,0) as nitocc,
nvl(sena1.nitocc_c,0) as nitocc_c,
nvl(sena1.aporte,0) as aporte,
nvl(sena1.aporte_patrono_c - sena1.aporte_patrono_a,0) as aporte_patrono

from no_estado_func_v tab0

left join centro_operacion tab1 ON tab1.id_cen_op = tab0.id_cen_op
left join departamento tab2 ON tab2.id_depto = tab1.id_depto
left join municipios tab3 ON tab3.codmun = tab1.codmun
left join no_datos_funcionario_v tab4 ON tab4.id_tipo_doc = tab0.id_tipo_doc and tab4.num_doc = tab0.num_doc

--left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
left join (
  SELECT
   aut.*,
   ROW_NUMBER() OVER (
    partition by aut.num_doc
    ORDER BY aut.estado DESC
   ) AS rn
  from no_nombramiento aut
)tab5
on tab5.id_tipo_doc = tab0.id_tipo_doc 
and tab5.num_doc = tab0.num_doc
and tab5.rn = 1

left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp

left join 
(
    select 
    tab0.num_doc, codigo.codigo, codigo.tipo, codigo.nitocc,
    sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/, 
    
      case when tab0.tipo_planilla = 'A' then sum(tab0.aporte_patrono) else 0 end as aporte_patrono_a, 
      case when tab0.tipo_planilla = 'C' then sum(tab0.aporte_patrono) else 0 end as aporte_patrono_c, 
      case when tab0.tipo_planilla = 'C' then 1 else 0 end as nitocc_c
      
    from no_liquida_aporte tab0
    left join no_mae_fondos fondo on fondo.id_mae_fondos = tab0.id_mae_fondos
    
    --left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc  
    left join (
      SELECT
       aut.*,
       ROW_NUMBER() OVER (
        partition by aut.nitocc
        ORDER BY aut.nitocc 
       ) as rn
      from no_cod_fondo aut
    )codigo
    on codigo.nitocc = fondo.num_doc
    and codigo.rn = 1
    
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 6
    group by tab0.num_doc, codigo.codigo, codigo.tipo, codigo.nitocc, tab0.tipo_planilla
)sena1 ON sena1.num_doc = tab0.num_doc


WHERE tab0.periodo = $id_periodo 
and (tab0.actual = 1 or
  ( tab0.actual = 0 
    and tab5.fecha_termina != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo_actual) ,'dd/mm/yyyy') ))
  )
)

)tab0

where tab0.aporte_patrono > 0

group by 
tab0.codigo, tab0.tipo, tab0.nitocc

order by
tab0.codigo

)tab
 
";

$st = $consul->execute($sql);
$detalle = $st->fetchAll();

/*
 * recorrer arreglo de datos y convertir en csv
 */
$i = 0;
$j = 0;
$sep = ""; //variable global para manejo del separador
foreach ($detalle as $rec) {
//        $shtml.='"';
    foreach ($rec as $key => $value) {
        if ($j != 0) {
//            if ($value != '/') {
            $shtml .= $sep;
//            }
        }
//        $value = str_replace('Ñ', '#', $value);
//        $value = str_replace('ñ', '#', $value);
//        $value = str_replace('[\n|\r|\n\r]', ' ', $value);
        $shtml .= $value;
        $j++;
    }
//        $shtml.='"';
//        $this->logMessage("Linea: " . $i++);
    //salto de linea para separar totales
    $shtml .= $salto_linea;
    $j = 0;
}

fwrite($archivo, $shtml);
fclose($archivo);

$shtmlAuto .= $shtml;
$shtml = "";

//ARCHIVO R8TOTAPI Total Fondos ICBF        
$archivo = fopen("uploads/archivos_banco/r8totapi.csv", "w"); //generacion del nuevo documento txt.
//$shtml = "R801\tR802\tR803\tR804\tR806\tR807\tR808\tR809\tR810\t\n";

$sql = "
select 

'08' as c1,
lpad(rownum,5,0) as c2,
tab.c3,
tab.C4,
tab.C5,
tab.c6,
tab.c7,
tab.c8,
tab.c9,
tab.c10

from (

select 

lpad(null,6,' ') as c3,
lpad(tab0.nitocc,16,0) as c4,
digito_verificacion(tab0.nitocc) as c5,
lpad(sum(tab0.aporte_patrono),10,0) as c6,
lpad(0,4,0) as c7,
lpad(0,10,0) as c8,
lpad(sum(tab0.aporte_patrono),10,0) as c9,
LPAD( sum (tab0.nitocc_c),6,0) as c10

from (

select 

tab0.num_doc,
rpad(NVL(icbf1.codigo, ' '),6,' ') AS codigo, 
rpad(nvl(icbf1.tipo, ' '),15,' ') as tipo, 
nvl(icbf1.nitocc,0) as nitocc,
nvl(icbf1.nitocc_c,0) as nitocc_c,
nvl(icbf1.aporte,0) as aporte,
nvl(icbf1.aporte_patrono_c - icbf1.aporte_patrono_a,0) as aporte_patrono

from no_estado_func_v tab0

left join centro_operacion tab1 ON tab1.id_cen_op = tab0.id_cen_op
left join departamento tab2 ON tab2.id_depto = tab1.id_depto
left join municipios tab3 ON tab3.codmun = tab1.codmun
left join no_datos_funcionario_v tab4 ON tab4.id_tipo_doc = tab0.id_tipo_doc and tab4.num_doc = tab0.num_doc

--left join no_nombramiento tab5 on tab5.id_tipo_doc = tab0.id_tipo_doc and tab5.num_doc = tab0.num_doc
left join (
  SELECT
   aut.*,
   ROW_NUMBER() OVER (
    partition by aut.num_doc
    ORDER BY aut.estado DESC
   ) AS rn
  from no_nombramiento aut
)tab5
on tab5.id_tipo_doc = tab0.id_tipo_doc 
and tab5.num_doc = tab0.num_doc
and tab5.rn = 1

left join no_dp_v tab6 on tab6.id_dp = tab0.id_dp

left join 
(
    select 
    tab0.num_doc, codigo.codigo, codigo.tipo, codigo.nitocc,
    sum(tab0.aporte_func) as aporte, sum(tab0.aporte_patrono) as aporte_patrono, max(tab0.num_dias) as dias, max(nvl(tab0.valor_base,0)) as ibc,
    max(tab0.tarifa)/100 as TARIFA/*, tab0.aporte_func AS APORTE*/, 
    
      case when tab0.tipo_planilla = 'A' then sum(tab0.aporte_patrono) else 0 end as aporte_patrono_a, 
      case when tab0.tipo_planilla = 'C' then sum(tab0.aporte_patrono) else 0 end as aporte_patrono_c, 
      case when tab0.tipo_planilla = 'C' then 1 else 0 end as nitocc_c
      
    from no_liquida_aporte tab0
    left join no_mae_fondos fondo on fondo.id_mae_fondos = tab0.id_mae_fondos
    
    --left join no_cod_fondo codigo on codigo.nitocc = fondo.num_doc  
    left join (
      SELECT
       aut.*,
       ROW_NUMBER() OVER (
        partition by aut.nitocc
        ORDER BY aut.nitocc 
       ) as rn
      from no_cod_fondo aut
    )codigo
    on codigo.nitocc = fondo.num_doc
    and codigo.rn = 1
    
    where tab0.id_periodo = $id_periodo and tab0.id_clase_fondo = 5
    group by tab0.num_doc, codigo.codigo, codigo.tipo, codigo.nitocc, tab0.tipo_planilla
)icbf1 ON icbf1.num_doc = tab0.num_doc


WHERE tab0.periodo = $id_periodo 
and (tab0.actual = 1 or
  ( tab0.actual = 0 
    and tab5.fecha_termina != to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
    and tab5.fecha_termina
  between to_date('01/'|| (select lpad(id_meses,2,'0') ||'/'||id_anhos from no_periodo where id_periodo = $id_periodo) ,'dd/mm/yyyy')
  and trunc(last_day( TO_DATE('01/'|| (SELECT LPAD(ID_MESES,2,'0') ||'/'||ID_ANHOS FROM NO_PERIODO WHERE ID_PERIODO = $id_periodo_actual) ,'dd/mm/yyyy') ))
  )
)

)tab0

where tab0.aporte_patrono > 0

group by 
tab0.codigo, tab0.tipo, tab0.nitocc

order by
tab0.codigo

)tab
 
";

$st = $consul->execute($sql);
$detalle = $st->fetchAll();

/*
 * recorrer arreglo de datos y convertir en csv
 */
$i = 0;
$j = 0;
$sep = ""; //variable global para manejo del separador
foreach ($detalle as $rec) {
//        $shtml.='"';
    foreach ($rec as $key => $value) {
        if ($j != 0) {
//            if ($value != '/') {
            $shtml .= $sep;
//            }
        }
//        $value = str_replace('Ñ', '#', $value);
//        $value = str_replace('ñ', '#', $value);
//        $value = str_replace('[\n|\r|\n\r]', ' ', $value);
        $shtml .= $value;
        $j++;
    }
//        $shtml.='"';
//        $this->logMessage("Linea: " . $i++);
    //salto de linea para separar totales
    $shtml .= $salto_linea;
    $j = 0;
}

fwrite($archivo, $shtml);
fclose($archivo);

$shtmlAuto .= $shtml;
$shtml = "";

////ARCHIVO R9TOTAPE ?        
//$archivo = fopen("uploads/archivos_banco/r9totape.csv", "w"); //generacion del nuevo documento txt.
//$shtml .= "R901\tR902\tR903\tR904\tR905\tR906\tR907\tR908\t\n";
//fwrite($archivo, $shtml);
//fclose($archivo);
//
////ARCHIVO R10TOTAM ?        
//$archivo = fopen("uploads/archivos_banco/r10totam.csv", "w"); //generacion del nuevo documento txt.
//$shtml .= "R1001\tR1002\tR1003\tR1004\tR1005\tR1006\tR1007\tR1008\t\n";
//fwrite($archivo, $shtml);
//fclose($archivo);
//
////ARCHIVO R11TOTPP ?       
//$archivo = fopen("uploads/archivos_banco/r11totpp.csv", "w"); //generacion del nuevo documento txt.
//$shtml .= "R1101\tR1102\tR1103\tR1104\tR1105\tR1106\tR1107\tR1108\tR1109\tR1110\tR1111\tR1112\tR1113\tR1114\t\n";
//fwrite($archivo, $shtml);
//fclose($archivo);


/*
 * guardar y cerrar archivo
 */
//$shtmlAuto.=$salto_linea;
fwrite($fp, $shtmlAuto);
fclose($fp);


/*
 * salida csv
 */
if ($entidad_cliente == 9) {
    echo "<script>
    window.location='" . "/nomina_pub/web/" . $sfile . "'</script>";
} else {
    echo "<script>
    window.location='" . "/nomina/web/" . $sfile . "'</script>";
}
die();
?>