SET NOCOUNT ON
GO
IF OBJECT_ID('dbo.fn_fco_salario_pens') IS NOT NULL
    DROP FUNCTION dbo.fn_fco_salario_pens
GO
CREATE FUNCTION dbo.fn_fco_salario_pens  
(    
    @pch_compania char(4),    
    @pch_trabajador char(10),    
    @pch_periodo char(6),
    @pti_tipo_pension tinyint,
    @pch_compartida char(1)
)    
RETURNS decimal(9,0)    
-- JCL. Junio de 2005    
-- Devuelve el salario a un período dado    
-- Debido a la solicitud de Grasco se requiere recibir como parámetro el tipo de pensión
-- Por ello no sirvió más la función fn_fco_salario y tuvo que crearse esta
-- JCL FEB-07-07. Otra vez cambia el requerimiento, ahora si es compartida entonces no ajustar :@
AS    
BEGIN    
    DECLARE @vdc_salario decimal(15,6), @vdc_sal_min decimal(15,6)  
    
    SELECT TOP 1 @vdc_salario = salario    
    FROM historico_sueldos x    
    WHERE x.compania = @pch_compania AND x.trabajador = @pch_trabajador     
      AND @pch_periodo >= CONVERT(char(6), x.fecha, 112)    
    ORDER BY CONVERT(char(8), x.fecha, 112) + RTRIM(x.secuencia) DESC    
    
    SELECT @vdc_sal_min = real  
    FROM parametros_rh  
    WHERE compania = @pch_compania  
      AND parametro_rh = 'Sal_Minimo'  
  
    IF ISNULL(@vdc_sal_min, 0) > 0  AND @pti_tipo_pension IN (1, 8, 9, 12, 15) AND @pch_compartida = 'N'
        IF @vdc_salario < @vdc_sal_min SET @vdc_salario = @vdc_sal_min  

    If ISNULL(@vdc_sal_min, 0) > 0  
        IF @vdc_salario > 25 * @vdc_sal_min SET @vdc_salario = 25 * @vdc_sal_min
  
    RETURN ISNULL(ROUND(@vdc_salario,0), 0)    
END    
GO
GRANT EXECUTE ON dbo.fn_fco_salario_pens TO PUBLIC
GO
IF OBJECT_ID('dbo.fco_pi_pens_proc') IS NOT NULL
    DROP TABLE dbo.fco_pi_pens_proc
GO
CREATE TABLE dbo.fco_pi_pens_proc
(
    compania char(4) NOT NULL,
    anio smallint NOT NULL,
    mes tinyint NOT NULL,
    sucursal char(10) NOT NULL,
    procesar bit NOT NULL,
    CONSTRAINT pk_fco_pi_pens_proc PRIMARY KEY NONCLUSTERED (compania, anio, mes, sucursal)
)
GO
GRANT ALL ON dbo.fco_pi_pens_proc TO PUBLIC
GO
IF OBJECT_ID('dbo.fco_pi_pens_rt1') IS NOT NULL
    DROP TABLE dbo.fco_pi_pens_rt1
GO
CREATE TABLE dbo.fco_pi_pens_rt1
-- Planilla Integrada Pensionados Registro Tipo 1: Datos Generales del Aportante
(
    compania char(4) NOT NULL,
    anio smallint NOT NULL,
    mes tinyint NOT NULL,
    sucursal varchar(10) NOT NULL,
    secuencia smallint NOT NULL,
    razon_social varchar(200) NOT NULL,
    tipo_documento char(2) NOT NULL,
    nro_id varchar(16) NOT NULL,
    dv char(1) NOT NULL,
    forma_presentacion char(1) NOT NULL,
    nombre_sucursal varchar(40) NOT NULL,
    periodo char(6) NOT NULL,
    periodo_salud char(6) NOT NULL,
    nro_radicacion varchar(10) NOT NULL,
    fecha_pago smalldatetime NOT NULL,
    nro_pensionados smallint NOT NULL,
    valor_nomina decimal(12) NOT NULL,
    tipo_pagador tinyint NOT NULL, -- 1 Empleador 2 AFP 3 Pagador
    operador char(2) NOT NULL,
    sit_periodo tinyint NOT NULL DEFAULT 1,
    CONSTRAINT pk_fco_pi_pens_rt1 PRIMARY KEY NONCLUSTERED (compania, anio, mes, sucursal)
)
GO
GRANT ALL ON dbo.fco_pi_pens_rt1 TO PUBLIC
GO
IF OBJECT_ID('dbo.fco_pi_pens_rt2') IS NOT NULL
    DROP TABLE dbo.fco_pi_pens_rt2
GO
CREATE TABLE dbo.fco_pi_pens_rt2
-- Planilla Integrada Pensionados Registro Tipo 2: Liquidación Detallada de Aportes
(
    -- Llave primaria
    compania char(4) NOT NULL,
    anio smallint NOT NULL,
    mes tinyint NOT NULL,
    sucursal varchar(10) NOT NULL,
    trabajador char(10) NOT NULL,
    -- Variables de novedades generales
    secuencia char(7) NOT NULL,
    -- Datos del Pensionado
    pens_ape1 varchar(20) NOT NULL,
    pens_ape2 varchar(30) NOT NULL,
    pens_nom1 varchar(20) NOT NULL,
    pens_nom2 varchar(30) NOT NULL,
    pens_tdoc char(2) NOT NULL,
    pens_id varchar(16) NOT NULL,

    tipo_pension tinyint NOT NULL,
    pension_compartida char(1) NOT NULL,

    -- Datos del Causante
    caus_ape1 varchar(20) NOT NULL,
    caus_ape2 varchar(30) NOT NULL,
    caus_nom1 varchar(20) NOT NULL,
    caus_nom2 varchar(30) NOT NULL,
    caus_tdoc char(2) NOT NULL,
    caus_id varchar(16) NOT NULL,

    tipo_pensionado char(1) NOT NULL,
    residente_en_exterior char(1) NOT NULL,
    departamento char(2) NOT NULL,
    municipio char(3) NOT NULL,    
    situa_en_exterior char(1) NOT NULL,

    -- (Novedades)
    nov_ING char(1) NOT NULL,
    nov_RET char(1) NOT NULL,
    nov_TDE char(1) NOT NULL,
    nov_TAE char(1) NOT NULL,
    nov_TDP char(1) NOT NULL,
    nov_TAP char(1) NOT NULL,
    nov_VSP char(1) NOT NULL,
    nov_SUS char(1) NOT NULL,
    -- (Fin Novedades)

    cod_AFP char(10) NOT NULL,
    cod_AFP_Tras varchar(6) NOT NULL,
    cod_EPS char(10) NOT NULL,
    cod_EPS_Tras varchar(6) NOT NULL,
    cod_CCF char(10) NOT NULL,
    dias_AFP tinyint NOT NULL,
    dias_FSP tinyint NOT NULL,
    dias_EPS tinyint NOT NULL,
    dias_CCF tinyint NOT NULL,
    mesada decimal(9) NOT NULL,

    -- Sistema General de Pensiones
    tarifa_AFP decimal(6,5) NOT NULL,
    aporte_AFP decimal(9) NOT NULL,
    voluntario_AFP decimal(9) NOT NULL,
    aporte_total_AFP AS aporte_AFP + voluntario_AFP,
    valor_no_retenido decimal(9) NOT NULL,
    -- Fondo de Solidaridad Pensional
    aporte_FSP_sol decimal(9) NOT NULL,
    aporte_FSP_sub decimal(9) NOT NULL,
    tarifa_FSP decimal(6,5) NOT NULL,
    -- Sistema General de EPS
    tarifa_EPS decimal(6,5) NOT NULL,
    aporte_EPS decimal(9) NOT NULL,
    UPC_adicional decimal(9) NOT NULL,
    -- Cajas de Compensación Familiar
    tarifa_CCF decimal(6,5) NOT NULL,
    aporte_CCF decimal(9) NOT NULL,
    origen tinyint NOT NULL, -- 1 Normal, 2 Fantasma, 3 Editada manualmente
    eliminada bit NOT NULL DEFAULT 0
    CONSTRAINT pk_fco_pi_pens_rt2 PRIMARY KEY NONCLUSTERED (compania, anio, mes, sucursal, trabajador)
)
GO
GRANT ALL ON dbo.fco_pi_pens_rt2 TO PUBLIC
GO

IF OBJECT_ID('dbo.fco_pi_pens_temp') IS NOT NULL
    DROP TABLE dbo.fco_pi_pens_temp
GO
CREATE TABLE dbo.fco_pi_pens_temp
(
    random smallint NOT NULL,
    compania char(4) NOT NULL,
    trabajador char(10) NOT NULL, 
    sucursal char(10) NOT NULL,
    relacion_laboral char(10) NULL, 
    fecha_ingreso smalldatetime NULL, 
    fecha_baja smalldatetime NULL, 
    clave_unica varchar(25) NULL,
    nombre varchar(100) NOT NULL,
    registro_fiscal varchar(20) NULL,
    secuencia smallint NOT NULL,
    CONSTRAINT pk_fco_pi_pens_temp
    PRIMARY KEY NONCLUSTERED (random, compania, trabajador)
)
GO
GRANT ALL ON fco_pi_pens_temp TO PUBLIC
GO
alter table criterios_valores_col alter column descripcion varchar(100) not null
go
IF OBJECT_ID('dbo.fn_fco_tarifa_FSP') IS NOT NULL
    DROP FUNCTION dbo.fn_fco_tarifa_FSP
GO
CREATE FUNCTION dbo.fn_fco_tarifa_FSP
(
    @pch_compania char(4), 
    @pch_trabajador char(10), 
    @psi_anio smallint,
    @pti_mes tinyint,
    @pdc_valor decimal(19,6), -- mesada para los pensionados
    @pbi_pensionado bit = 1
)
RETURNS decimal(6,5)
AS
BEGIN
    DECLARE 
        @vdc_tarifa decimal(6,5),
        @vdc_sal_min decimal(16,6),
        @vdc_salarios decimal(5,2) -- Cantidad de Salarios Mínimos
        
    SELECT @vdc_sal_min = real FROM parametros_rh
    WHERE compania = @pch_compania AND parametro_rh = 'Sal_Minimo' AND secuencia_parametro = 1
      AND Convert(char(6), fecha, 112) <= Rtrim(@psi_anio) + Right('00' + RTrim(@pti_mes), 2)

    IF @vdc_sal_min IS NULL
        SELECT TOP 1 @vdc_sal_min = salario_minimo FROM hist_sal_min_zona
        WHERE zona = 'A' AND Convert(char(6), fecha, 112) <= Rtrim(@psi_anio) + Right('00' + RTrim(@pti_mes), 2)
        ORDER BY fecha Desc
    
    IF IsNull(@vdc_sal_min, 0) = 0 
        SET @vdc_salarios = 0
    ELSE
        SET @vdc_salarios = @pdc_valor / @vdc_sal_min

    SELECT @vdc_tarifa = porcentaje FROM impuestos
    WHERE impuesto = 5
      AND @vdc_salarios BETWEEN limite_inferior AND limite_superior
    
    RETURN ISNULL(@vdc_tarifa, 0)
END
GO
GRANT EXECUTE ON dbo.fn_fco_tarifa_FSP TO PUBLIC
GO
IF OBJECT_ID('dbo.vw_fco_pensionados') IS NOT NULL
    DROP VIEW dbo.vw_fco_pensionados
GO
CREATE VIEW dbo.vw_fco_pensionados
AS
SELECT compania, trabajador, fecha_ingreso, fecha_baja, causa_baja, relacion_laboral, clase_nomina, sistema_antiguedad, sit_trabajador
FROM trabajadores_grales tg
WHERE EXISTS (SELECT 1 FROM aut_companias x WHERE x.compania = tg.compania AND x.usuario = SYSTEM_USER)
AND EXISTS (SELECT 1 FROM rel_usu_clase_nom x WHERE x.clase_nomina = tg.clase_nomina AND x.usuario = SYSTEM_USER)
AND NOT EXISTS (SELECT 1 FROM rel_trab_agr x INNER JOIN rel_usu_agr_trab y ON x.agrupacion = y.agrupacion AND x.dato = y.dato 
                WHERE x.compania = tg.compania AND y.usuario = SYSTEM_USER)
AND EXISTS (SELECT 1 FROM rel_trab_agr x WHERE x.compania = tg.compania AND x.trabajador = tg.trabajador
            AND x.agrupacion = ISNULL((SELECT x.dato FROM vw_fdt_parametros x  
                          WHERE x.pais = 'COL' AND x.compania = tg.compania  
                            AND x.parametro = 'autoliq' AND x.secuencia = 41), 'TIPO_COTIZ') AND x.dato = '99')
GO
GRANT SELECT ON dbo.vw_fco_pensionados TO PUBLIC
GO

IF OBJECT_ID('dbo.vw_fco_info_pensionados') IS NOT NULL
    DROP VIEW dbo.vw_fco_info_pensionados
GO
CREATE VIEW dbo.vw_fco_info_pensionados
AS
SELECT 
    p.compania, p.trabajador, 
    tipo_pension = isnull(CASE WHEN IsNumeric(Left(dato_09, 2)) = 1 THEN Convert(tinyint, Left(dato_09, 2)) ELSE 1 END, 1),
    compartida = isnull(CASE WHEN UPPER(LEFT(dato_03, 1)) = 'S' THEN 'S' ELSE 'N' END,'N'),
    caus_ape1 = isnull(dato_05, ''),
    caus_ape2 = isnull(dato_07, ''),
    caus_nom1 = isnull(dato_06, ''),
    caus_nom2 = isnull(dato_08, ''),
    caus_tdoc = isnull(LEFT(dato_02, 2), ''),
    caus_id = isnull(LEFT(RTRIM(FLOOR(dato_11)), 16), 0),
    tipo_pensionado = isnull(CASE WHEN IsNumeric(Left(dato_10, 2)) = 1 THEN Convert(tinyint, Left(dato_10, 2)) ELSE 1 END,1),
    residente_en_exterior = isnull(CASE WHEN UPPER(LEFT(dato_01, 1)) = 'S' THEN 'S' ELSE 'N' END,'N'),
    situa_en_exterior = isnull(CASE WHEN UPPER(LEFT(dato_04, 1)) = 'S' THEN 'S' ELSE 'N' END,'N')
FROM vw_fco_pensionados p 
LEFT JOIN inf_soc_trabajador i ON i.trabajador = p.trabajador AND i.indice_inf_soc = 'PENSIONADO' AND i.secuencia = 1
GO
GRANT SELECT ON dbo.vw_fco_info_pensionados TO PUBLIC
GO

IF OBJECT_ID('dbo.vw_fco_pi_pens_det') IS NOT NULL
    DROP VIEW dbo.vw_fco_pi_pens_det
GO
CREATE VIEW dbo.vw_fco_pi_pens_det
AS
SELECT 
    a.compania, a.anio, a.mes, a.sucursal, a.trabajador, a.secuencia, 
    a.pens_ape1, a.pens_ape2, a.pens_nom1, a.pens_nom2, a.pens_tdoc, a.pens_id, 
    a.tipo_pension, 
    tipo_pension_des = IsNull((Select x.descripcion From criterios_valores_col x Where x.campo = 'tipo_pension' AND x.item = a.tipo_pension), ''),
    a.pension_compartida, 
    a.caus_ape1, a.caus_ape2, a.caus_nom1, a.caus_nom2, a.caus_tdoc, a.caus_id, 
    a.tipo_pensionado, 
    tipo_pensionado_des = IsNull((Select x.descripcion From criterios_valores_col x Where x.campo = 'tipo_pensionado' AND x.item = a.tipo_pensionado), ''),
    a.residente_en_exterior, 
    a.departamento,
    departamento_des = IsNull((Select x.nombre From fco_departamentos x Where x.codigo = a.departamento), ''),
    a.municipio, 
    municipio_des = IsNull((Select x.nombre From fco_ciudades x Where x.cod_dpto = a.departamento and x.codigo = a.municipio), ''),
    a.situa_en_exterior, 
    a.nov_ING, a.nov_RET, a.nov_TDE, a.nov_TAE, a.nov_TDP, a.nov_TAP, a.nov_VSP, a.nov_SUS, 
    a.mesada, 

    a.cod_EPS, 
    LTRIM((SELECT eps.cod_super FROM fco_administradoras eps 
                           WHERE eps.tipo = 'EPS' AND eps.codigo = a.cod_EPS)) AS eps_cod_super,
    (SELECT eps.descripcion FROM vw_fco_administradoras eps 
     WHERE eps.compania = a.compania AND eps.tipo = 'EPS' AND eps.codigo = a.cod_EPS) AS eps_nombre,

    a.cod_EPS_Tras, 
    LTRIM((SELECT neps.cod_super FROM fco_administradoras neps 
                           WHERE neps.tipo = 'EPS' AND neps.codigo = a.cod_EPS_Tras)) AS neps_cod_super,
    (SELECT neps.descripcion FROM vw_fco_administradoras neps 
     WHERE neps.compania = a.compania AND neps.tipo = 'EPS' AND neps.codigo = a.cod_EPS_Tras) AS neps_nombre,

    a.dias_EPS, a.tarifa_EPS, a.aporte_EPS, a.UPC_adicional, 

    a.cod_AFP, 
    LTRIM((SELECT afp.cod_super FROM fco_administradoras afp 
                           WHERE afp.tipo = 'AFP' AND afp.codigo = a.cod_AFP)) AS afp_cod_super,
    (SELECT afp.descripcion FROM vw_fco_administradoras afp
     WHERE afp.compania = a.compania AND afp.tipo = 'AFP' AND afp.codigo = a.cod_AFP) AS afp_nombre,

    a.cod_AFP_Tras, 
    LTRIM((SELECT nafp.cod_super FROM fco_administradoras nafp 
                           WHERE nafp.tipo = 'AFP' AND nafp.codigo = a.cod_AFP_Tras)) AS nafp_cod_super,
    (SELECT nafp.descripcion FROM vw_fco_administradoras nafp
     WHERE nafp.compania = a.compania AND nafp.tipo = 'AFP' AND nafp.codigo = a.cod_AFP_Tras) AS nafp_nombre,

    a.dias_AFP, a.tarifa_AFP, a.aporte_AFP, a.voluntario_AFP, a.aporte_total_AFP, a.valor_no_retenido, 
    a.dias_FSP, a.aporte_FSP_sol, a.aporte_FSP_sub, a.tarifa_FSP, 

    a.cod_CCF, 
    LTRIM((SELECT ccf.cod_super FROM fco_administradoras ccf
                           WHERE ccf.tipo = 'CCF' AND ccf.codigo = a.cod_CCF)) AS ccf_cod_super,
    (SELECT ccf.descripcion FROM vw_fco_administradoras ccf
     WHERE ccf.compania = a.compania AND ccf.tipo = 'CCF' AND ccf.codigo = a.cod_CCF) AS ccf_nombre,

    a.dias_CCF, a.tarifa_CCF, a.aporte_CCF, a.origen, a.eliminada,    

    suc_nombre = (Select suc.descripcion From vw_fco_sucursales suc Where suc.compania = a.compania AND suc.sucursal = a.sucursal)

FROM fco_pi_pens_rt2 a
WHERE aporte_EPS + aporte_AFP + aporte_CCF <> 0
-- CONDICIONES DE SEGURIDAD
AND EXISTS (SELECT 1 FROM aut_companias x WHERE x.compania = a.compania AND x.usuario = SYSTEM_USER)
AND EXISTS (SELECT 1 FROM trabajadores_grales tg INNER JOIN rel_usu_clase_nom cn ON tg.clase_nomina = cn.clase_nomina
            WHERE tg.compania = a.compania AND tg.trabajador = a.trabajador AND cn.usuario = SYSTEM_USER)
AND NOT EXISTS (SELECT 1 FROM rel_trab_agr rta INNER JOIN rel_usu_agr_trab x ON rta.agrupacion = x.agrupacion AND rta.dato = x.dato
                WHERE rta.compania = a.compania AND rta.trabajador = a.trabajador AND x.usuario = SYSTEM_USER)
GO
GRANT SELECT ON dbo.vw_fco_pi_pens_det TO PUBLIC
GO

IF OBJECT_ID('dbo.vw_fco_pi_pens_proc') IS NOT NULL
    DROP VIEW dbo.vw_fco_pi_pens_proc
GO
CREATE VIEW dbo.vw_fco_pi_pens_proc
AS
SELECT a.compania, a.anio, a.mes, a.sucursal, ISNULL(suc.descripcion, '(Consolidado)') suc_des, 
CONVERT(tinyint,procesar) procesar, sit_periodo = 
ISNULL((SELECT MAX(sit_periodo) FROM fco_integrada_cab x
        WHERE x.compania = a.compania AND x.anio = a.anio AND x.mes = a.mes), 1)
FROM fco_pi_pens_proc a
LEFT JOIN vw_fco_sucursales suc ON suc.compania = a.compania AND suc.sucursal = a.sucursal
AND
(   (a.sucursal = '') 
 OR (a.sucursal IN 
     (SELECT sucursal FROM vw_fco_sucursales_cia 
      WHERE (   (clase_nomina = '--')
             OR (clase_nomina IN (SELECT clase_nomina FROM rel_usu_clase_nom
                                  WHERE usuario = SYSTEM_USER))
            ) 
      )
     )
)
GO
GRANT SELECT ON dbo.vw_fco_pi_pens_proc TO PUBLIC
GO
IF OBJECT_ID('dbo.vw_fco_pi_pens_rt1') IS NOT NULL
    DROP VIEW dbo.vw_fco_pi_pens_rt1
GO
CREATE VIEW dbo.vw_fco_pi_pens_rt1
AS
/*************************************************************************/
-- Modulo Fiscal Colombiano 2.0 ADAM V3
-- Descripcion: Archivo Plano Planilla Integrada Pensionados Registro Tipo 1
-- Autor: Juan Carlos Leguizamon
-- Fecha: Julio 2006
-- Revisiones:
/*************************************************************************/
SELECT
    compania, anio, mes, sucursal,
    '01' + RIGHT('00000' + RTRIM(secuencia), 5) + CONVERT(char(150), razon_social) +
    tipo_documento + CONVERT(char(16), nro_id) + dv + 
    ISNULL((select forma_presentacion from vw_fco_companias x where x.compania = a.compania), 'C') + -- JCL Ajuste Dic-07-06
    sucursal + CONVERT(char(40), nombre_sucursal) + 
    Left(periodo, 4) + '-' + Right(periodo, 2) + -- JCL Ajuste de junio 21/06
    Left(periodo_salud, 4) + '-' + Right(periodo_salud, 2) + -- JCL Ajuste de junio 21/06
    Right('0000000000' + nro_radicacion, 10) + -- CONVERT(char(10), nro_radicacion) + JCL Ajuste Nov-07-06
    Convert(char(10), getdate(), 120) + -- JCL Ajuste de junio 21/06
    RIGHT('0000000' + RTRIM(nro_pensionados), 7) + 
    RIGHT('000000000000' + RTRIM(valor_nomina), 12) + '1' +
    '00' AS registro1 --operador AS registro1 -- JCL Ajuste de Nov-07-06
FROM fco_pi_pens_rt1 a
GO
GRANT SELECT ON dbo.vw_fco_pi_pens_rt1 TO PUBLIC
GO
IF OBJECT_ID('dbo.vw_fco_pi_pens_rt2') IS NOT NULL
    DROP VIEW dbo.vw_fco_pi_pens_rt2
GO
CREATE VIEW dbo.vw_fco_pi_pens_rt2
AS
/*************************************************************************/
-- Modulo Fiscal Colombiano 2.0 ADAM V3
-- Descripcion: Archivo Plano Planilla Integrada Pensionados Registro Tipo 2
-- Autor: Juan Carlos Leguizamon
-- Fecha: Julio 2006
-- Revisiones:
/*************************************************************************/
SELECT
    compania, anio, mes, sucursal, trabajador, secuencia, 
    registro2 =
    '02' + 
    secuencia + 
    dbo.fn_fco_valida_nombre(Convert(char(20), pens_ape1)) +
    dbo.fn_fco_valida_nombre(Convert(char(30), pens_ape2)) +
    dbo.fn_fco_valida_nombre(Convert(char(20), pens_nom1)) +
    dbo.fn_fco_valida_nombre(Convert(char(30), pens_nom2)) +
    pens_tdoc +
    CONVERT(char(16), pens_id) + 
    RIGHT('00' + RTRIM(tipo_pension), 2) + 
    pension_compartida +
    dbo.fn_fco_valida_nombre(Convert(char(20), caus_ape1)) +
    dbo.fn_fco_valida_nombre(Convert(char(30), caus_ape2)) +
    dbo.fn_fco_valida_nombre(Convert(char(20), caus_nom1)) +
    dbo.fn_fco_valida_nombre(Convert(char(30), caus_nom2)) +
    caus_tdoc +
    CONVERT(char(16), caus_id) +
    tipo_pensionado +
    residente_en_exterior + 
    departamento + 
    municipio + 
    situa_en_exterior +
    nov_ING + nov_RET + nov_TDE + nov_TAE + nov_TDP + nov_TAP + nov_VSP + nov_SUS + 
    dbo.fn_fco_cod_super('AFP', cod_AFP) + 
    dbo.fn_fco_cod_super('AFP', cod_AFP_Tras) + -- JCL Dic-05-06
    dbo.fn_fco_cod_super('EPS', cod_EPS) + 
    dbo.fn_fco_cod_super('EPS', cod_EPS_Tras) + -- JCL Dic-05-06
    dbo.fn_fco_cod_super('CCF', cod_CCF) + 
    RIGHT('00' + RTRIM(dias_AFP), 2) + 
    RIGHT('00' + RTRIM(dias_FSP), 2) + 
    RIGHT('00' + RTRIM(dias_EPS), 2) + 
    RIGHT('00' + RTRIM(dias_CCF), 2) + 
    RIGHT('000000000' + RTRIM(mesada), 9) + 
    LEFT(RTRIM(tarifa_AFP) + '0000000', 7) +
    RIGHT('000000000' + RTRIM(aporte_AFP), 9) + 
    RIGHT('000000000' + RTRIM(voluntario_AFP), 9) + 
    RIGHT('000000000' + RTRIM(aporte_total_AFP), 9) + 
    RIGHT('000000000' + RTRIM(valor_no_retenido), 9) + 
    RIGHT('0000000' + RTRIM(aporte_FSP_sol), 7) + 
    RIGHT('0000000' + RTRIM(aporte_FSP_sub), 7) + 
    RIGHT('0000000' + RTRIM(aporte_FSP_sol + aporte_FSP_sub), 7) +  -- jcl nov-07-06
    --LEFT(RTRIM(tarifa_FSP) + '0000000', 7) + -- jcl nov-07-06
    LEFT(RTRIM(tarifa_EPS) + '0000000', 7) + 
    RIGHT('000000000' + RTRIM(aporte_EPS), 9) + 
    RIGHT('000000000' + RTRIM(UPC_adicional), 9) + 
    LEFT(RTRIM(tarifa_CCF) + '0000000', 7) +
    RIGHT('000000000' + RTRIM(aporte_CCF), 9)
FROM fco_pi_pens_rt2
WHERE eliminada = 0
AND aporte_EPS + aporte_AFP + aporte_CCF <> 0
GO
GRANT SELECT ON dbo.vw_fco_pi_pens_rt2 TO PUBLIC
GO
IF OBJECT_ID('dbo.vw_fco_periodos_pens') IS NOT NULL
    DROP VIEW dbo.vw_fco_periodos_pens
GO
CREATE VIEW dbo.vw_fco_periodos_pens
AS
SELECT DISTINCT compania, periodo = Rtrim(anio) + '-' + Right('00' + RTrim(mes), 2), sit_periodo FROM fco_pi_pens_rt1
GO
GRANT SELECT ON dbo.vw_fco_periodos_pens TO PUBLIC
GO
ALTER TRIGGER trinsinf_soc_trabajador on dbo.inf_soc_trabajador 
FOR INSERT, UPDATE 
NOT FOR REPLICATION 
AS 
/**********************************************************/ 
/* Nombre fisico: t0057.tri */ 
/* Autor: Fernando Diaz Medina */ 
/* Fecha: 26/Dic/96 */ 
/* Proyecto: ADAMv3 */ 
/**********************************************************/ 
-- Reprogramado por JCL en Julio 14/06 
-- DATA TECNOLOGIA LTDA.
DECLARE 
    @i_flag_int TINYINT, 
    @i_dato_int DECIMAL(19,6), 
    @i_flag_char TINYINT, 
    @i_dato_char VARCHAR(255), 
    @i_flag_date TINYINT, 
    @i_dato_date SMALLDATETIME, 
    @i_flag_number TINYINT, 
    @i_dato_number DECIMAL(19,6), 
    @i_fin TINYINT, 
    @i_trabajador CHAR(10), 
    @i_status_char TINYINT, 
    @i_status_int TINYINT, 
    @i_status_number TINYINT, 
    @i_status_date TINYINT, 
    @i_indice CHAR(10), 
    @i_dato_01 VARCHAR(255), 
    @i_dato_02 VARCHAR(255), 
    @i_dato_03 VARCHAR(255), 
    @i_dato_04 VARCHAR(255), 
    @i_dato_05 VARCHAR(255), 
    @i_dato_06 VARCHAR(255), 
    @i_dato_07 VARCHAR(255), 
    @i_dato_08 VARCHAR(255), 
    @i_dato_09 VARCHAR(255), 
    @i_dato_10 VARCHAR(255), 
    @i_dato_11 DECIMAL(19,6), 
    @i_dato_12 DECIMAL(19,6), 
    @i_dato_13 DECIMAL(19,6), 
    @i_dato_14 DECIMAL(19,6), 
    @i_dato_15 DECIMAL(19,6), 
    @i_dato_16 DECIMAL(19,6), 
    @i_dato_17 DECIMAL(19,6), 
    @i_dato_18 DECIMAL(19,6), 
    @i_dato_19 DECIMAL(19,6), 
    @i_dato_20 DECIMAL(19,6), 
    @i_dato_21 SMALLDATETIME, 
    @i_dato_22 SMALLDATETIME, 
    @i_dato_23 SMALLDATETIME, 
    @i_dato_24 SMALLDATETIME, 
    @i_dato_25 SMALLDATETIME, 
    @d_dato_01 VARCHAR(255), 
    @d_dato_02 VARCHAR(255), 
    @d_dato_03 VARCHAR(255), 
    @d_dato_04 VARCHAR(255), 
    @d_dato_05 VARCHAR(255), 
    @d_dato_06 VARCHAR(255), 
    @d_dato_07 VARCHAR(255), 
    @d_dato_08 VARCHAR(255), 
    @d_dato_09 VARCHAR(255), 
    @d_dato_10 VARCHAR(255), 
    @d_dato_11 DECIMAL(19,6), 
    @d_dato_12 DECIMAL(19,6), 
    @d_dato_13 DECIMAL(19,6), 
    @d_dato_14 DECIMAL(19,6), 
    @d_dato_15 DECIMAL(19,6), 
    @d_dato_16 DECIMAL(19,6), 
    @d_dato_17 DECIMAL(19,6), 
    @d_dato_18 DECIMAL(19,6), 
    @d_dato_19 DECIMAL(19,6), 
    @d_dato_20 DECIMAL(19,6), 
    @d_dato_21 SMALLDATETIME, 
    @d_dato_22 SMALLDATETIME, 
    @d_dato_23 SMALLDATETIME, 
    @d_dato_24 SMALLDATETIME, 
    @d_dato_25 SMALLDATETIME, 
    @i_fecha SMALLDATETIME 
 
IF @@rowcount = 0 
    RETURN
 
/* Existencia de campos foráneos */ 
IF NOT EXISTS(SELECT 1 FROM trabajadores t INNER JOIN inserted i ON t.trabajador = i.trabajador)
BEGIN
    RAISERROR ('No existe el trabajador especificado [trabajadores]', 16, 1)
    ROLLBACK TRANSACTION
    RETURN
END
IF NOT EXISTS(SELECT 1 FROM indices_inf_soc x INNER JOIN inserted i ON x.indice_inf_soc = i.indice_inf_soc)
BEGIN
    RAISERROR ('No existe el índice de inf. socioeconómica especificado [inf_soc_trabajador]', 16, 1)
    ROLLBACK TRANSACTION 
    RETURN 
END 

/* Seguridad por Clase de Nómina */ 
IF EXISTS(SELECT 1 FROM inserted i INNER JOIN trabajadores_grales tg ON tg.trabajador = i.trabajador
          WHERE tg.clase_nomina IS NOT NULL
            AND NOT EXISTS(SELECT 1 FROM rel_usu_clase_nom r WHERE tg.clase_nomina = r.clase_nomina AND r.usuario = system_user))
BEGIN 
    RAISERROR ('El usuario no tiene autoridad para la clase de nómina a la que pertenece el trabajador [inf_soc_trabajador]', 16, 1)
    ROLLBACK TRANSACTION 
    RETURN 
END
 
/* Seguridad por Apartado */
IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN trabajadores_grales tg ON tg.trabajador = i.trabajador
              INNER JOIN aut_apartados a ON a.compania = tg.compania
              WHERE a.usuario = system_user and a.num_apartado = 8 and a.nivel_seguridad > 1)
BEGIN 
    RAISERROR ('El usuario no tiene autoridad para modificar información socioeconómica en esta compañía', 16, 1)
    ROLLBACK TRANSACTION 
    RETURN 
END 
 
/* Seguridad por Agrupaciones de trabajador */ 
IF EXISTS
(SELECT 1 FROM inserted i
 INNER JOIN rel_trab_agr rta ON i.trabajador = rta.trabajador 
 INNER JOIN rel_agr_companias rac ON rta.compania = rac.compania AND rac.agrupacion = rta.agrupacion
 INNER JOIN rel_usu_agr_trab ruat ON rta.agrupacion = ruat.agrupacion AND rta.dato = ruat.dato
 WHERE ruat.usuario = system_user ) 
BEGIN 
    RAISERROR ('El usuario no tiene autoridad para el dato de agrupación al que pertenece el trabajador [inf_soc_trabajador]', 16, 1)
    ROLLBACK TRANSACTION 
    RETURN 
END 
 
/**** Si tipo_indice = 3 (Interpersonal) ****/  
/**** Verifica que exista el trabajador = la Persona Relacionada ****/ 
IF EXISTS
(SELECT 1 FROM inserted 
 WHERE (trabajador_persona IS NULL and persona_relacionada IS NOT NULL) 
    OR (trabajador_persona IS NOT NULL and persona_relacionada IS NULL)) 
BEGIN 
    RAISERROR ('No se ha especificado trabajador_persona o bien persona_relacionada. [inf_soc_trabajador]', 16, 1)
    ROLLBACK TRANSACTION 
    RETURN 
END 
 
IF EXISTS
(SELECT 1 FROM inserted i
 INNER JOIN indices_inf_soc iis ON i.indice_inf_soc = iis.indice_inf_soc
 WHERE i.trabajador_persona = 2 AND iis.tipo_indice = 3 
   AND NOT EXISTS
       (SELECT 1 FROM personas_relacionada pr
        WHERE i.trabajador = pr.trabajador 
          AND i.persona_relacionada = pr.persona_relacionada)
) 
BEGIN 
    RAISERROR ('No existe la persona relacionada con el trabajador [inf_soc_trabajador]', 16, 1)
    ROLLBACK TRANSACTION 
    RETURN 
END 
 
IF EXISTS
(SELECT 1 FROM inserted i
 INNER JOIN indices_inf_soc iis ON i.indice_inf_soc = iis.indice_inf_soc
 WHERE i.trabajador_persona = 1 AND iis.tipo_indice = 3 
   AND NOT EXISTS (SELECT 1 FROM trabajadores t WHERE i.trabajador = t.trabajador)
) 
BEGIN 
    RAISERROR ('No existe el trabajador relacionado con el trabajador [inf_soc_trabajador]' , 16, 1)
    ROLLBACK TRANSACTION 
    RETURN 
END 
 
-- ****************************************************************************************************
--  VALIDACIONES NUEVAS
--  JCL. JULIO 15/06
--  EVITAR QUE METAN BASURA EN CAMPOS DE SELECCION
-- ****************************************************************************************************
Declare @vch_indice char(10), 
        @vvc_des varchar(20)

--*********
-- CAMPO 01
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 1 AND i.dato_01 IS NOT NULL AND i.dato_01 <> '')
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 1 AND i.dato_01 = d.dato_01)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS 
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 1 AND i.dato_01 = d.dato_01)

        SELECT @vvc_des = des_col_01 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 02
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 2 AND i.dato_02 IS NOT NULL AND i.dato_02 <> '')
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 2 AND i.dato_02 = d.dato_01)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc
        FROM inserted i WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 2 AND i.dato_02 = d.dato_01)

        SELECT @vvc_des = des_col_02 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 03
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 3 AND i.dato_03 IS NOT NULL AND i.dato_03 <> '')
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 3 AND i.dato_03 = d.dato_01)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 3 AND i.dato_03 = d.dato_01)

        SELECT @vvc_des = des_col_03 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 04
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 4 AND i.dato_04 IS NOT NULL AND i.dato_04 <> '')
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 4 AND i.dato_04 = d.dato_01)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 4 AND i.dato_04 = d.dato_01)

        SELECT @vvc_des = des_col_04 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 05
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 5 AND i.dato_05 IS NOT NULL AND i.dato_05 <> '')
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 5 AND i.dato_05 = d.dato_01)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 5 AND i.dato_05 = d.dato_01)

        SELECT @vvc_des = des_col_05 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 06
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 6 AND i.dato_06 IS NOT NULL AND i.dato_06 <> '')
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 6 AND i.dato_06 = d.dato_01)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 6 AND i.dato_06 = d.dato_01)

        SELECT @vvc_des = des_col_06 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 07
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 7 AND i.dato_07 IS NOT NULL AND i.dato_07 <> '')
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 7 AND i.dato_07 = d.dato_01)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 7 AND i.dato_07 = d.dato_01)

        SELECT @vvc_des = des_col_07 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 08
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 8 AND i.dato_08 IS NOT NULL AND i.dato_08 <> '')
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 8 AND i.dato_08 = d.dato_01)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 8 AND i.dato_08 = d.dato_01)

        SELECT @vvc_des = des_col_08 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 09
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 9 AND i.dato_09 IS NOT NULL AND i.dato_09 <> '')
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 9 AND i.dato_09 = d.dato_01)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 9 AND i.dato_09 = d.dato_01)

        SELECT @vvc_des = des_col_09 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 10
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 10 AND i.dato_10 IS NOT NULL AND i.dato_10 <> '')
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 10 AND i.dato_10 = d.dato_01)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 10 AND i.dato_10 = d.dato_01)

        SELECT @vvc_des = des_col_10 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 11
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 11 AND i.dato_11 IS NOT NULL AND i.dato_11 <> 0)
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 11 AND i.dato_11 = d.dato_02)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 11 AND i.dato_11 = d.dato_02)

        SELECT @vvc_des = des_col_11 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 12
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 12 AND i.dato_12 IS NOT NULL AND i.dato_12 <> 0)
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 12 AND i.dato_12 = d.dato_02)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 12 AND i.dato_12 = d.dato_02)

        SELECT @vvc_des = des_col_12 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 13
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 13 AND i.dato_13 IS NOT NULL AND i.dato_13 <> 0)
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 13 AND i.dato_13 = d.dato_02)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 13 AND i.dato_13 = d.dato_02)

        SELECT @vvc_des = des_col_13 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 14
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 14 AND i.dato_14 IS NOT NULL AND i.dato_14 <> 0)
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 14 AND i.dato_14 = d.dato_03)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 14 AND i.dato_14 = d.dato_03)

        SELECT @vvc_des = des_col_14 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 15
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 15 AND i.dato_15 IS NOT NULL AND i.dato_15 <> 0)
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 15 AND i.dato_15 = d.dato_03)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 15 AND i.dato_15 = d.dato_03)

        SELECT @vvc_des = des_col_15 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 16
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 16 AND i.dato_16 IS NOT NULL AND i.dato_16 <> 0)
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 16 AND i.dato_16 = d.dato_03)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 16 AND i.dato_16 = d.dato_03)

        SELECT @vvc_des = des_col_16 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 16
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 16 AND i.dato_16 IS NOT NULL AND i.dato_16 <> 0)
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 16 AND i.dato_16 = d.dato_03)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 16 AND i.dato_16 = d.dato_03)

        SELECT @vvc_des = des_col_16 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 17
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 17 AND i.dato_17 IS NOT NULL AND i.dato_17 <> 0)
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 17 AND i.dato_17 = d.dato_03)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 17 AND i.dato_17 = d.dato_03)

        SELECT @vvc_des = des_col_17 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 18
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 18 AND i.dato_18 IS NOT NULL AND i.dato_18 <> 0)
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 18 AND i.dato_18 = d.dato_03)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 18 AND i.dato_18 = d.dato_03)

        SELECT @vvc_des = des_col_18 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 19
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 19 AND i.dato_19 IS NOT NULL AND i.dato_19 <> 0)
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 19 AND i.dato_19 = d.dato_03)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 19 AND i.dato_19 = d.dato_03)

        SELECT @vvc_des = des_col_19 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 20
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 20 AND i.dato_20 IS NOT NULL AND i.dato_20 <> 0)
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 20 AND i.dato_20 = d.dato_03)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 20 AND i.dato_20 = d.dato_03)

        SELECT @vvc_des = des_col_20 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 21
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 21 AND i.dato_21 IS NOT NULL AND i.dato_21 <> '')
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 21 AND i.dato_21 = d.dato_04)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 21 AND i.dato_21 = d.dato_04)

        SELECT @vvc_des = des_col_21 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 22
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 22 AND i.dato_22 IS NOT NULL AND i.dato_22 <> '')
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 22 AND i.dato_22 = d.dato_04)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 22 AND i.dato_22 = d.dato_04)

        SELECT @vvc_des = des_col_22 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 23
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 23 AND i.dato_23 IS NOT NULL AND i.dato_23 <> '')
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 23 AND i.dato_23 = d.dato_04)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 23 AND i.dato_23 = d.dato_04)

        SELECT @vvc_des = des_col_23 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 24
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 24 AND i.dato_24 IS NOT NULL AND i.dato_24 <> '')
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 24 AND i.dato_24 = d.dato_04)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 24 AND i.dato_24 = d.dato_04)

        SELECT @vvc_des = des_col_24 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

--*********
-- CAMPO 25
-- ********
IF EXISTS
(SELECT 1 FROM datos_ind_inf_soc d 
 INNER JOIN inserted i ON i.indice_inf_soc = d.indice_inf_soc
 WHERE d.num_col = 25 AND i.dato_25 IS NOT NULL AND i.dato_25 <> '')
Begin
    IF NOT EXISTS(SELECT 1 FROM inserted i INNER JOIN datos_ind_inf_soc d ON i.indice_inf_soc = d.indice_inf_soc
                  WHERE d.num_col = 25 AND i.dato_25 = d.dato_04)
    BEGIN
        SELECT TOP 1 @vch_indice = i.indice_inf_soc FROM inserted i
        WHERE NOT EXISTS
        (SELECT 1 FROM datos_ind_inf_soc d WHERE i.indice_inf_soc = d.indice_inf_soc AND d.num_col = 25 AND i.dato_25 = d.dato_04)

        SELECT @vvc_des = des_col_25 FROM indices_inf_soc WHERE indice_inf_soc = @vch_indice

        RAISERROR ('El dato digitado para %s no es válido, seleccione uno de la lista', 16, 1, @vvc_des)
        ROLLBACK TRANSACTION
        RETURN
    END 
End

/*Actualización de Historial_laboral*/ 
IF EXISTS 
(SELECT 1 FROM parametros_rh p
 INNER JOIN inserted i ON i.indice_inf_soc = p.alfanumerico
 WHERE p.compania = '0' AND p.parametro_rh = 'Inc_HL_ID')
BEGIN
-- Esta parte del programa se dejó igual... está diseñada para un solo registro, no para inserts o updates masivos
SELECT @i_flag_int    = 0,    
       @i_dato_int    = NULL,    
       @i_flag_char   = 0,    
       @i_dato_char   = NULL,    
       @i_flag_date   = 0,    
       @i_dato_date   = NULL,    
       @i_flag_number = 0,    
       @i_dato_number = NULL,    
       @i_fin = 0,    
       @i_status_char = 0,    
       @i_status_int  = 0,    
       @i_status_number = 0,    
       @i_status_date = 0,    
       @i_indice = ' '    
    
select @i_fecha = getdate()    
    
select @i_dato_01 = i.dato_01, @i_dato_02 = i.dato_02, @i_dato_03 = i.dato_03, @i_dato_04 = i.dato_04, @i_dato_05 = i.dato_05,       
       @i_dato_06 = i.dato_06, @i_dato_07 = i.dato_07, @i_dato_08 = i.dato_08, @i_dato_09 = i.dato_09, @i_dato_10 = i.dato_10,       
       @i_dato_11 = i.dato_11, @i_dato_12 = i.dato_12, @i_dato_13 = i.dato_13, @i_dato_14 = i.dato_14, @i_dato_15 = i.dato_15,      
       @i_dato_16 = i.dato_16, @i_dato_17 = i.dato_17, @i_dato_18 = i.dato_18, @i_dato_19 = i.dato_19, @i_dato_20 = i.dato_20,       
       @i_dato_21 = i.dato_21, @i_dato_22 = i.dato_22, @i_dato_23 = i.dato_23, @i_dato_24 = i.dato_24, @i_dato_25 = i.dato_25,       
       @i_trabajador = i.trabajador, @i_indice = i.indice_inf_soc    
from inserted i    
    
select @d_dato_01 = d.dato_01, @d_dato_02 = d.dato_02, @d_dato_03 = d.dato_03, @d_dato_04 = d.dato_04, @d_dato_05 = d.dato_05,       
       @d_dato_06 = d.dato_06, @d_dato_07 = d.dato_07, @d_dato_08 = d.dato_08, @d_dato_09 = d.dato_09, @d_dato_10 = d.dato_10,       
       @d_dato_11 = d.dato_11, @d_dato_12 = d.dato_12, @d_dato_13 = d.dato_13, @d_dato_14 = d.dato_14, @d_dato_15 = d.dato_15,      
       @d_dato_16 = d.dato_16, @d_dato_17 = d.dato_17, @d_dato_18 = d.dato_18, @d_dato_19 = d.dato_19, @d_dato_20 = d.dato_20,       
       @d_dato_21 = d.dato_21, @d_dato_22 = d.dato_22, @d_dato_23 = d.dato_23, @d_dato_24 = d.dato_24, @d_dato_25 = d.dato_25    
from deleted d    
    
WHILE @i_fin = 0     
BEGIN    
if @i_dato_char is null and @i_flag_char < 1     
begin    
   if @i_dato_01 is not null and @d_dato_01 is null    
      select @i_status_char = 1       
   else if @i_dato_01 is null and @d_dato_01 is not null    
           select @i_status_char = 2      
   else if @i_dato_01 is not null and @d_dato_01 is not null and @i_dato_01 <> @d_dato_01    
      select @i_status_char = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 1    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 1))    
      begin    
       select @i_dato_char = @i_dato_01    
       select @i_flag_char = 1    
      end    
end    
if @i_dato_char is null and @i_flag_char < 2     
begin    
   if @i_dato_02 is not null and @d_dato_02 is null    
      select @i_status_char = 1       
   else if @i_dato_02 is null and @d_dato_02 is not null    
           select @i_status_char = 2      
   else if @i_dato_02 is not null and @d_dato_02 is not null and @i_dato_02 <> @d_dato_02    
      select @i_status_char = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 2    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 2))    
      begin    
       select @i_dato_char = @i_dato_02    
       select @i_flag_char = 2    
      end    
end    
if @i_dato_char is null and @i_flag_char < 3     
begin    
   if @i_dato_03 is not null and @d_dato_03 is null    
      select @i_status_char = 1       
   else if @i_dato_03 is null and @d_dato_03 is not null    
           select @i_status_char = 2      
   else if @i_dato_03 is not null and @d_dato_03 is not null and @i_dato_03 <> @d_dato_03    
      select @i_status_char = 3    
      
if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 3    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 3))    
      begin    
       select @i_dato_char = @i_dato_03    
       select @i_flag_char = 3    
      end    
end    
if @i_dato_char is null and @i_flag_char < 4     
begin    
   if @i_dato_04 is not null and @d_dato_04 is null    
      select @i_status_char = 1       
   else if @i_dato_04 is null and @d_dato_04 is not null    
           select @i_status_char = 2      
   else if @i_dato_04 is not null and @d_dato_04 is not null and @i_dato_04 <> @d_dato_04    
      select @i_status_char = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 4    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 4))    
      begin    
       select @i_dato_char = @i_dato_04    
       select @i_flag_char = 4    
      end    
end    
if @i_dato_char is null and @i_flag_char < 5     
begin    
   if @i_dato_05 is not null and @d_dato_05 is null    
      select @i_status_char = 1       
   else if @i_dato_05 is null and @d_dato_05 is not null    
           select @i_status_char = 2      
   else if @i_dato_05 is not null and @d_dato_05 is not null and @i_dato_05 <> @d_dato_05    
      select @i_status_char = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 5    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 5))    
      begin    
       select @i_dato_char = @i_dato_05    
       select @i_flag_char = 5    
      end    
end    
if @i_dato_char is null and @i_flag_char < 6     
begin    
   if @i_dato_06 is not null and @d_dato_06 is null    
      select @i_status_char = 1       
   else if @i_dato_06 is null and @d_dato_06 is not null    
           select @i_status_char = 2      
   else if @i_dato_06 is not null and @d_dato_06 is not null and @i_dato_06 <> @d_dato_06    
      select @i_status_char = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 6    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
 and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 6))    
      begin    
       select @i_dato_char = @i_dato_06    
       select @i_flag_char = 6    
      end    
end    
if @i_dato_char is null and @i_flag_char < 7     
begin    
   if @i_dato_07 is not null and @d_dato_07 is null    
      select @i_status_char = 1       
   else if @i_dato_07 is null and @d_dato_07 is not null    
           select @i_status_char = 2      
   else if @i_dato_07 is not null and @d_dato_07 is not null and @i_dato_07 <> @d_dato_07    
      select @i_status_char = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 7    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 7))                  
      begin    
       select @i_dato_char = @i_dato_07    
       select @i_flag_char = 7    
      end    
end    
if @i_dato_char is null and @i_flag_char < 8     
begin    
   if @i_dato_08 is not null and @d_dato_08 is null    
      select @i_status_char = 1       
   else if @i_dato_08 is null and @d_dato_08 is not null    
           select @i_status_char = 2      
   else if @i_dato_08 is not null and @d_dato_08 is not null and @i_dato_08 <> @d_dato_08    
      select @i_status_char = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 8    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                           from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 8))                  
      begin    
       select @i_dato_char = @i_dato_08    
       select @i_flag_char = 8    
      end    
end    
if @i_dato_char is null and @i_flag_char < 9     
begin    
   if @i_dato_09 is not null and @d_dato_09 is null    
      select @i_status_char = 1       
   else if @i_dato_09 is null and @d_dato_09 is not null    
           select @i_status_char = 2      
   else if @i_dato_09 is not null and @d_dato_09 is not null and @i_dato_09 <> @d_dato_09    
      select @i_status_char = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 9    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 9))                  
      begin    
       select @i_dato_char = @i_dato_09    
       select @i_flag_char = 9    
      end    
end    
if @i_dato_char is null and @i_flag_char < 10     
begin    
   if @i_dato_10 is not null and @d_dato_10 is null    
      select @i_status_char = 1       
   else if @i_dato_10 is null and @d_dato_10 is not null    
           select @i_status_char = 2      
   else if @i_dato_10 is not null and @d_dato_10 is not null and @i_dato_10 <> @d_dato_10    
      select @i_status_char = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 10    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 10))                  
      begin    
       select @i_dato_char = @i_dato_10    
       select @i_flag_char = 10    
      end    
end    
if @i_dato_int is null and @i_flag_int < 1     
begin    
   if @i_dato_11 is not null and @d_dato_11 is null or @d_dato_11 = 0    
      select @i_status_int = 1       
   else if (@i_dato_11 is null or @i_dato_11 = 0) and @d_dato_11 is not null    
           select @i_status_int = 2      
   else if @i_dato_11 is not null and @d_dato_11 is not null and @i_dato_11 <> @d_dato_11    
      select @i_status_int = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 11    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 11))                  
      begin    
       select @i_dato_int = @i_dato_11    
       select @i_flag_int = 1    
      end    
end    
if @i_dato_int is null and @i_flag_int < 2     
begin    
   if @i_dato_12 is not null and @d_dato_12 is null or @d_dato_12 = 0    
      select @i_status_int = 1       
   else if (@i_dato_12 is null or @i_dato_12 = 0) and @d_dato_12 is not null    
           select @i_status_int = 2      
   else if @i_dato_12 is not null and @d_dato_12 is not null and @i_dato_12 <> @d_dato_12    
      select @i_status_int = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))     
                and rh.entero = 12    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 12))                  
      begin    
       select @i_dato_int = @i_dato_12    
       select @i_flag_int = 2    
      end    
end    
if @i_dato_int is null and @i_flag_int < 3     
begin    
   if @i_dato_13 is not null and @d_dato_13 is null or @d_dato_13 = 0    
      select @i_status_int = 1       
   else if (@i_dato_13 is null or @i_dato_13 = 0) and @d_dato_13 is not null    
           select @i_status_int = 2      
   else if @i_dato_13 is not null and @d_dato_13 is not null and @i_dato_13 <> @d_dato_13    
      select @i_status_int = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
         and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 13    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 13))                  
      begin    
       select @i_dato_int = @i_dato_13    
       select @i_flag_int = 3    
      end    
end    
if @i_dato_number is null and @i_flag_number < 1     
begin    
   if @i_dato_14 is not null and @d_dato_14 is null or @d_dato_14 = 0    
      select @i_status_number = 1       
   else if (@i_dato_14 is null or @i_dato_14 = 0) and @d_dato_14 is not null    
           select @i_status_number = 2      
   else if @i_dato_14 is not null and @d_dato_14 is not null and @i_dato_14 <> @d_dato_14    
      select @i_status_number = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 14    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 14))                  
      begin    
       select @i_dato_number = @i_dato_14    
       select @i_flag_number = 1    
end    
end    
if @i_dato_number is null and @i_flag_number < 2     
begin    
   if @i_dato_15 is not null and @d_dato_15 is null or @d_dato_15 = 0    
      select @i_status_number = 1       
   else if (@i_dato_15 is null or @i_dato_15 = 0) and @d_dato_15 is not null    
           select @i_status_number = 2      
   else if @i_dato_15 is not null and @d_dato_15 is not null and @i_dato_15 <> @d_dato_15    
      select @i_status_number = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 15    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 15))                  
      begin    
       select @i_dato_number = @i_dato_15    
       select @i_flag_number = 2    
      end    
end    
if @i_dato_number is null and @i_flag_number < 3     
begin    
   if @i_dato_16 is not null and @d_dato_16 is null or @d_dato_16 = 0    
      select @i_status_number = 1       
   else if (@i_dato_16 is null or @i_dato_16 = 0) and @d_dato_16 is not null    
           select @i_status_number = 2      
   else if @i_dato_16 is not null and @d_dato_16 is not null and @i_dato_16 <> @d_dato_16    
      select @i_status_number = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 16    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'                                 
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 16))                  
      begin    
       select @i_dato_number = @i_dato_16    
       select @i_flag_number = 3    
      end    
end    
if @i_dato_number is null and @i_flag_number < 4     
begin    
   if @i_dato_17 is not null and @d_dato_17 is null or @d_dato_17 = 0    
      select @i_status_number = 1       
   else if (@i_dato_17 is null or @i_dato_17 = 0) and @d_dato_17 is not null    
           select @i_status_number = 2      
   else if @i_dato_17 is not null and @d_dato_17 is not null and @i_dato_17 <> @d_dato_17    
      select @i_status_number = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 17    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 17))                  
      begin    
       select @i_dato_number = @i_dato_17    
       select @i_flag_number = 4    
      end    
end     
if @i_dato_number is null and @i_flag_number < 5    
begin    
   if @i_dato_18 is not null and @d_dato_18 is null or @d_dato_18 = 0    
     select @i_status_number = 1       
   else if (@i_dato_18 is null or @i_dato_18 = 0) and @d_dato_18 is not null    
           select @i_status_number = 2      
   else if @i_dato_18 is not null and @d_dato_18 is not null and @i_dato_18 <> @d_dato_18    
      select @i_status_number = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 18    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 18))                  
      begin    
       select @i_dato_number = @i_dato_18    
       select @i_flag_number = 5    
      end    
end    
if @i_dato_number is null and @i_flag_number < 6    
begin    
   if @i_dato_19 is not null and @d_dato_19 is null or @d_dato_19 = 0    
      select @i_status_number = 1       
   else if (@i_dato_19 is null or @i_dato_19 = 0) and @d_dato_19 is not null    
           select @i_status_number = 2      
   else if @i_dato_19 is not null and @d_dato_19 is not null and @i_dato_19 <> @d_dato_19    
      select @i_status_number = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 19    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 19))                  
      begin    
       select @i_dato_number = @i_dato_19    
       select @i_flag_number = 6    
      end    
end    
if @i_dato_number is null and @i_flag_number < 7    
begin    
   if @i_dato_20 is not null and @d_dato_20 is null or @d_dato_20 = 0    
      select @i_status_number = 1       
   else if (@i_dato_20 is null or @i_dato_20 = 0) and @d_dato_20 is not null    
           select @i_status_number = 2      
   else if @i_dato_20 is not null and @d_dato_20 is not null and @i_dato_20 <> @d_dato_20    
      select @i_status_number = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 20    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 20))                  
      begin    
       select @i_dato_number = @i_dato_20    
       select @i_flag_number = 7    
      end    
end    
if @i_dato_date is null and @i_flag_date < 1    
begin    
   if @i_dato_21 is not null and @d_dato_21 is null    
      select @i_status_date = 1       
   else if @i_dato_21 is null and @d_dato_21 is not null    
           select @i_status_date = 2      
   else if @i_dato_21 is not null and @d_dato_21 is not null and @i_dato_21 <> @d_dato_21    
      select @i_status_date = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 21    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 21))                  
      begin    
       select @i_dato_date = @i_dato_21    
       select @i_flag_date = 1    
      end    
end    
if @i_dato_date is null and @i_flag_date < 2    
begin    
   if @i_dato_22 is not null and @d_dato_22 is null    
      select @i_status_date = 1       
   else if @i_dato_22 is null and @d_dato_22 is not null    
           select @i_status_date = 2      
   else if @i_dato_22 is not null and @d_dato_22 is not null and @i_dato_22 <> @d_dato_22    
      select @i_status_date = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 22    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 22))                  
      begin    
       select @i_dato_date = @i_dato_22    
       select @i_flag_date = 2    
      end    
end    
if @i_dato_date is null and @i_flag_date < 3    
begin    
   if @i_dato_23 is not null and @d_dato_23 is null    
      select @i_status_date = 1       
   else if @i_dato_23 is null and @d_dato_23 is not null    
           select @i_status_date = 2      
   else if @i_dato_23 is not null and @d_dato_23 is not null and @i_dato_23 <> @d_dato_23    
      select @i_status_date = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 23    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 23))                  
      begin    
       select @i_dato_date = @i_dato_23    
       select @i_flag_date = 3    
      end    
end    
if @i_dato_date is null and @i_flag_date < 4    
begin    
   if @i_dato_24 is not null and @d_dato_24 is null    
      select @i_status_date = 1       
   else if @i_dato_24 is null and @d_dato_24 is not null    
           select @i_status_date = 2      
   else if @i_dato_24 is not null and @d_dato_24 is not null and @i_dato_24 <> @d_dato_24    
      select @i_status_date = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 24    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 24))                  
      begin    
       select @i_dato_date = @i_dato_24    
       select @i_flag_date = 4    
      end    
end    
if @i_dato_date is null and @i_flag_date < 5    
begin    
   if @i_dato_25 is not null and @d_dato_25 is null    
      select @i_status_date = 1       
   else if @i_dato_25 is null and @d_dato_25 is not null    
           select @i_status_date = 2      
   else if @i_dato_25 is not null and @d_dato_25 is not null and @i_dato_25 <> @d_dato_25    
      select @i_status_date = 3    
      
      if exists(select 1 from parametros_rh rh, inserted i    
                where rh.compania = '0'    
                and rh.parametro_rh = 'Inc_HL_ID'    
                and rh.alfanumerico = ltrim(rtrim(@i_indice))    
                and rh.entero = 25    
                and rh.secuencia_parametro = (select max(secuencia_parametro)    
                                              from parametros_rh    
                                              where compania = '0'    
                                              and parametro_rh = 'Inc_HL_ID'    
                                              and alfanumerico = ltrim(rtrim(@i_indice))    
                                              and entero = 25))                  
      begin    
       select @i_dato_date = @i_dato_25    
       select @i_flag_date = 5    
      end    
end    
  
    -- JCL NOV. 24/04 EVITA ERROR DE NO EXISTE LA REGLA DE HISTORIAL LABORAL    
    IF EXISTS(SELECT 1 FROM parametros_rh WHERE parametro_rh = 'Inc_HL_ID' AND alfanumerico = @i_indice AND compania = '0')     
    -- END JCL  
        if  @i_status_char = 2 or @i_status_int = 2 or @i_status_number = 2 or @i_status_date = 2     
             begin    
                 exec sp_alta_historial_laboral '0', @i_trabajador, 'ID', @i_indice, @i_fecha, NULL,    
                 'Baja dato inf. socioeconómica', @i_dato_int, @i_dato_number, @i_dato_date,     
                 @i_dato_char, NULL ,NULL,NULL    
             end    
    
   if @i_dato_char is not null or @i_dato_number is not null or @i_dato_date is not null or @i_dato_int is not null    
     begin    
      if @i_status_char = 1 or @i_status_int = 1 or @i_status_number = 1 or @i_status_date = 1     
      begin          
         exec sp_alta_historial_laboral '0', @i_trabajador, 'ID', @i_indice, @i_fecha, NULL,    
         'Alta dato inf. socioeconómica', @i_dato_int, @i_dato_number, @i_dato_date,    
         @i_dato_char, NULL     
      end        
      else if  @i_status_char = 3 or @i_status_int = 3 or @i_status_number = 3 or @i_status_date = 3     
        begin                  
       exec sp_alta_historial_laboral '0', @i_trabajador, 'ID', @i_indice, @i_fecha, NULL,    
                 'Cambio dato inf. socioeconómica',@i_dato_int, @i_dato_number, @i_dato_date,    
                 @i_dato_char, NULL     
        end        
    
      select @i_dato_char = NULL    
      select @i_dato_number = NULL    
      select @i_dato_int = NULL    
      select @i_dato_date = NULL       
      select @i_status_char = 0    
      select @i_status_number = 0    
      select @i_status_int = 0    
      select @i_status_date = 0    
     end    
   else    
      select @i_fin = 1    
    
end    
     
END -- Actualizar historial laboral
 
/* Evita cambio de llave */ 
 
if (update(trabajador) or update(indice_inf_soc) or update(secuencia)) and exists(SELECT * FROM deleted) 
BEGIN 
    RAISERROR ('El usuario ha intentado actualizar campo llave [inf_soc_trabajador]', 16, 1)
    ROLLBACK TRANSACTION 
    RETURN 
END 

go
DELETE criterios_valores_col WHERE campo = 'tipo_pension'
GO
INSERT INTO criterios_valores_col (campo, item, descripcion) SELECT 'tipo_pension', 1, 'Vejez'
INSERT INTO criterios_valores_col (campo, item, descripcion) SELECT 'tipo_pension', 2, 'Sobrevivencia vitalicia riesgo común'
INSERT INTO criterios_valores_col (campo, item, descripcion) SELECT 'tipo_pension', 3, 'Sobrevivencia temporal riesgo común'
INSERT INTO criterios_valores_col (campo, item, descripcion) SELECT 'tipo_pension', 4, 'Sobrevivencia vitalicia riesgo común, cónyuge o compañera (o) menor de 30 años sin hijos'
INSERT INTO criterios_valores_col (campo, item, descripcion) SELECT 'tipo_pension', 5, 'Sobrevivencia vitalicia por riesgo profesional'
INSERT INTO criterios_valores_col (campo, item, descripcion) SELECT 'tipo_pension', 6, 'Sobrevivencia temporal riesgo profesional'
INSERT INTO criterios_valores_col (campo, item, descripcion) SELECT 'tipo_pension', 7, 'Sobrevivencia temporal riesgo profesional cónyuge o compañera (o) menor de 30 años sin hijos'
INSERT INTO criterios_valores_col (campo, item, descripcion) SELECT 'tipo_pension', 8, 'Invalidez riesgo común'
INSERT INTO criterios_valores_col (campo, item, descripcion) SELECT 'tipo_pension', 9, 'Invalidez riesgo profesional'
INSERT INTO criterios_valores_col (campo, item, descripcion) SELECT 'tipo_pension', 10, 'Jubilación'
INSERT INTO criterios_valores_col (campo, item, descripcion) SELECT 'tipo_pension', 11, 'Jubilación para compartir'
INSERT INTO criterios_valores_col (campo, item, descripcion) SELECT 'tipo_pension', 12, 'Sanción'
INSERT INTO criterios_valores_col (campo, item, descripcion) SELECT 'tipo_pension', 13, 'Convencional'
INSERT INTO criterios_valores_col (campo, item, descripcion) SELECT 'tipo_pension', 14, 'Convencional para compartir'
INSERT INTO criterios_valores_col (campo, item, descripcion) SELECT 'tipo_pension', 15, 'Gracia'
GO
DELETE criterios_valores_col WHERE campo = 'tipo_pensionado'
GO
INSERT INTO criterios_valores_col (campo, item, descripcion) SELECT 'tipo_pensionado', 1, 'Régimen de prima media con tope 25 smlmv'
INSERT INTO criterios_valores_col (campo, item, descripcion) SELECT 'tipo_pensionado', 2, 'Régimen de prima media sin tope máximo'
INSERT INTO criterios_valores_col (campo, item, descripcion) SELECT 'tipo_pensionado', 3, 'Régimen de ahorro individual'
INSERT INTO criterios_valores_col (campo, item, descripcion) SELECT 'tipo_pensionado', 4, 'Pensionado de Riesgos Profesionales'


GO
SET NOCOUNT ON
/*
delete rel_usu_ind_inf_soc where indice_inf_soc = 'PENSIONADO'
delete rel_ind_inf_soc_cias where indice_inf_soc = 'PENSIONADO'
delete datos_ind_inf_soc where indice_inf_soc = 'PENSIONADO'
delete indices_inf_soc where indice_inf_soc = 'PENSIONADO'
if object_id('AP_REL_INDICES_INF_SOC') is not null delete AP_REL_INDICES_INF_SOC where indice_inf_soc = 'PENSIONADO'
*/

IF NOT EXISTS(SELECT * FROM indices_inf_soc WHERE indice_inf_soc = 'PENSIONADO')
    INSERT INTO indices_inf_soc
    (indice_inf_soc, descripcion, abreviatura, tipo_indice, des_col_01, des_col_02, des_col_03, 
     des_col_04, des_col_05, des_col_06, des_col_07, des_col_08, des_col_09, des_col_10, 
     des_col_11, orden_columnas)
    SELECT 'PENSIONADO', 'FCO-Info Pensionados Planilla Unica', 'PENSIONADO', 1, 'Reside en Exterior', 'Tipo Id.Causante', 'Compartida', 
    'Pago Exterior', 'Pri.Ape.Causante', 'Pri.Nom.Causante', 'Seg.Ape.Causante', 'Seg.Nom.Causante', 'Tipo Pensión', 'Tipo Pensionado',
    'Nro.Id. Causante', 'dato_09*dato_03*dato_10*dato_04*dato_01*dato_02*dato_11*dato_05*dato_07*dato_06*dato_08'
go
IF NOT EXISTS(SELECT 1 FROM datos_ind_inf_soc WHERE indice_inf_soc = 'PENSIONADO')
Begin
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 1,1,'S'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 1,2,'N'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 2,1,'CC Cedula'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 2,2,'CE C.Extr.'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 2,3,'TI Tarj.Id'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 2,4,'RC Reg.Civ'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 2,5,'PA Passpor'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 3,1,'S'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 3,2,'N'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 4,1,'S'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 4,2,'N'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 9,1,'01 Vejez'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 9,2,'02 Sobrevivencia vitalicia riesgo común'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 9,3,'03 Sobrevivencia temporal riesgo común'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 9,4,'04 Sobrevivencia vitalicia riesgo común,'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 9,5,'05 Sobrevivencia vitalicia rc Conyuge'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 9,6,'06 Sobrevivencia temporal riesgo profesi'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 9,7,'07 Sobrevivencia temporal RP Conyuge'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 9,8,'08 Invalidez riesgo común'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 9,9,'09 Invalidez riesgo profesional'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 9,10,'10 Jubilación'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 9,11,'11 Jubilación para compartir'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 9,12,'12 Sanción'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 9,13,'13 Convencional'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 9,14,'14 Convencional para compartir'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 9,15,'15 Gracia'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 10,1,'01 Régimen de prima media con tope 25 sm'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 10,2,'02 Régimen de prima media sin tope máxim'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 10,3,'03 Régimen de ahorro individual'
    INSERT INTO datos_ind_inf_soc (indice_inf_soc, num_col, secuencia, dato_01) SELECT 'PENSIONADO', 10,4,'04 Pensionado de Riesgos Profesionales'
End
go
IF NOT EXISTS(SELECT 1 FROM rel_ind_inf_soc_cias WHERE indice_inf_soc = 'PENSIONADO')
    INSERT INTO rel_ind_inf_soc_cias (indice_inf_soc, compania) SELECT 'PENSIONADO', compania FROM companias
go
IF EXISTS(SELECT 1 FROM sysobjects WHERE name = 'rel_usu_ind_inf_soc')
    IF NOT EXISTS(SELECT 1 FROM rel_usu_ind_inf_soc WHERE indice_inf_soc = 'PENSIONADO')
        INSERT INTO rel_usu_ind_inf_soc (indice_inf_soc, usuario) SELECT 'PENSIONADO', 'adam'
go
print '***Importante*** No olvide autorizar a los usuarios adecuados para el indice PENSIONADO'
GO
IF OBJECT_ID('dbo.sp_fco_del_pi_pens_proc') IS NOT NULL
    DROP PROCEDURE dbo.sp_fco_del_pi_pens_proc 
GO
CREATE PROCEDURE dbo.sp_fco_del_pi_pens_proc
(
    @pch_compania char(4),
    @psi_anio smallint,
    @pti_mes tinyint,
    @pch_sucursal char(10)
)
AS
/*************************************************************************/
-- Modulo Fiscal Colombiano 2.0 ADAM V3
-- Descripcion: Baja de Procesos de Planilla Integrada Pensionados
-- Autor: Juan Carlos Leguizamon
-- Fecha: Julio 2005
-- Revisiones:
/*************************************************************************/
BEGIN
    IF NOT EXISTS(SELECT 1 FROM fco_pi_pens_proc
              WHERE compania = @pch_compania AND anio = @psi_anio
                AND mes = @pti_mes AND sucursal = ISNULL(@pch_sucursal, ''))
    BEGIN
        RAISERROR ('El registro a eliminar no existe', 16, 1)
        RETURN
    END

    DELETE fco_pi_pens_proc
    WHERE compania = @pch_compania
      AND anio = @psi_anio
      AND mes = @pti_mes
      AND sucursal = ISNULL(@pch_sucursal, '')
END
GO
GRANT EXECUTE ON dbo.sp_fco_del_pi_pens_proc TO PUBLIC
GO
IF OBJECT_ID('dbo.sp_fco_ins_pi_pens_proc') IS NOT NULL
    DROP PROCEDURE dbo.sp_fco_ins_pi_pens_proc 
GO
CREATE PROCEDURE dbo.sp_fco_ins_pi_pens_proc
(
    @pch_compania char(4),
    @psi_anio smallint,
    @pti_mes tinyint,
    @pch_sucursal char(10) /* '0'. Todas, ''. Consolidado */
)
AS
/*************************************************************************/
-- Modulo Fiscal Colombiano 2.0 ADAM V3
-- Descripcion: Alta de Procesos de Planilla Integrada Pensionados
-- Autor: Juan Carlos Leguizamon
-- Fecha: Julio 2006
-- Revisiones:
/*************************************************************************/
BEGIN
    IF @pch_sucursal = '0'
    BEGIN
        INSERT INTO fco_pi_pens_proc (compania, anio, mes, sucursal, procesar)
        SELECT @pch_compania, @psi_anio, @pti_mes, s.sucursal, 0
        FROM vw_fco_sucursales s
        WHERE compania = @pch_compania
          AND ISNULL(s.autoliquida, 1) = 1
          AND NOT EXISTS
            (SELECT 1 FROM fco_pi_pens_proc x 
             WHERE x.compania = @pch_compania AND x.anio = @psi_anio AND x.mes = @pti_mes 
               AND x.sucursal = s.sucursal)
    END
    ELSE
    BEGIN
        IF EXISTS(SELECT 1 FROM fco_pi_pens_proc 
                  WHERE compania = @pch_compania AND anio = @psi_anio 
                    AND mes = @pti_mes AND sucursal = @pch_sucursal)
        BEGIN
            RAISERROR ('El registro a insertar en [fco_pi_pens_proc] ya existe', 16, 1)
            RETURN
        END
        INSERT INTO fco_pi_pens_proc (compania, anio, mes, sucursal, procesar)
        SELECT @pch_compania, @psi_anio, @pti_mes, @pch_sucursal, 0
    END
END
GO
GRANT EXECUTE ON dbo.sp_fco_ins_pi_pens_proc TO PUBLIC
GO
IF OBJECT_ID('dbo.sp_fco_upd_pi_pens_proc') IS NOT NULL
    DROP PROCEDURE dbo.sp_fco_upd_pi_pens_proc 
GO
CREATE PROCEDURE dbo.sp_fco_upd_pi_pens_proc
(
    @pch_compania char(4),
    @psi_anio smallint,
    @pti_mes tinyint,
    @pch_sucursal char(10),
    @pbi_procesar bit
)
AS
/*************************************************************************/
-- Modulo Fiscal Colombiano 2.0 ADAM V3
-- Descripcion: Cambio de Procesos de Planilla Integrada Pensionados
-- Autor: Juan Carlos Leguizamon
-- Fecha: Julio 2006
-- Revisiones:
/*************************************************************************/
BEGIN
    IF NOT EXISTS(SELECT 1 FROM fco_pi_pens_proc
              WHERE compania = @pch_compania AND anio = @psi_anio
                AND mes = @pti_mes AND sucursal = @pch_sucursal)
    BEGIN
        RAISERROR ('El registro a modificar no existe', 16, 1)
        RETURN
    END

    UPDATE fco_pi_pens_proc
    SET procesar = @pbi_procesar
    WHERE compania = @pch_compania
      AND anio = @psi_anio
      AND mes = @pti_mes
      AND sucursal = @pch_sucursal
END
GO
GRANT EXECUTE ON dbo.sp_fco_upd_pi_pens_proc TO PUBLIC
GO
IF OBJECT_ID('dbo.sp_fco_upd_pi_pens_det_afp') IS NOT NULL
    DROP PROCEDURE dbo.sp_fco_upd_pi_pens_det_afp
GO
CREATE PROCEDURE dbo.sp_fco_upd_pi_pens_det_afp
-- JCL FEB-05-07 Revision de los IsNull(, '') en campos numéricos, se cambian a IsNull(, 0)
(
    @pch_compania char(4), 
    @psi_anio smallint, 
    @pti_mes tinyint, 
    @pvc_sucursal varchar(10), 
    @pch_trabajador char(10), 
    @pvc_pens_ape1 varchar(20), 
    @pvc_pens_ape2 varchar(30), 
    @pvc_pens_nom1 varchar(20), 
    @pvc_pens_nom2 varchar(30), 
    @pch_pens_tdoc char(2), 
    @pvc_pens_id varchar(16), 
    @pti_tipo_pension tinyint, 
    @pch_pension_compartida char(1), 
    @pvc_caus_ape1 varchar(20), 
    @pvc_caus_ape2 varchar(30), 
    @pvc_caus_nom1 varchar(20), 
    @pvc_caus_nom2 varchar(30), 
    @pch_caus_tdoc char(2), 
    @pvc_caus_id varchar(16), 
    @pch_tipo_pensionado char(1), 
    @pch_residente_en_exterior char(1), 
    @pch_departamento char(2), 
    @pch_municipio char(3), 
    @pch_situa_en_exterior char(1), 
    @pch_nov_ING char(1), 
    @pch_nov_RET char(1), 
    @pch_nov_TDE char(1), 
    @pch_nov_TAE char(1), 
    @pch_nov_TDP char(1), 
    @pch_nov_TAP char(1), 
    @pch_nov_VSP char(1), 
    @pch_nov_SUS char(1), 
    @pch_cod_AFP char(10),
    @pvc_cod_AFP_Tras varchar(6), 
    @pti_dias_AFP tinyint, 
    @pti_dias_FSP tinyint, 
    @pdc_mesada decimal(9), 
    @pdc_tarifa_AFP decimal(6,5),
    @pdc_aporte_AFP decimal(9),
    @pdc_voluntario_AFP decimal(9),
    @pdc_valor_no_retenido decimal(9),
    @pdc_aporte_FSP_sol decimal(9),
    @pdc_aporte_FSP_sub decimal(9),
    @pdc_tarifa_FSP decimal(6,5)
)
AS
BEGIN
    UPDATE fco_pi_pens_rt2
    SET pens_ape1 = IsNull(@pvc_pens_ape1, ''), 
        pens_ape2 = IsNull(@pvc_pens_ape2, ''),
        pens_nom1 = IsNull(@pvc_pens_nom1, ''),
        pens_nom2 = IsNull(@pvc_pens_nom2, ''),
        pens_tdoc = IsNull(@pch_pens_tdoc, ''),
        pens_id = IsNull(@pvc_pens_id, ''),
        tipo_pension = IsNull(@pti_tipo_pension, 1),
        pension_compartida = IsNull(@pch_pension_compartida, ''),
        caus_ape1 = IsNull(@pvc_caus_ape1, ''),
        caus_ape2 = IsNull(@pvc_caus_ape2, ''),
        caus_nom1 = IsNull(@pvc_caus_nom1, ''),
        caus_nom2 = IsNull(@pvc_caus_nom2, ''),
        caus_tdoc = IsNull(@pch_caus_tdoc, ''),
        caus_id = IsNull(@pvc_caus_id, ''),
        tipo_pensionado = IsNull(@pch_tipo_pensionado, ''),
        residente_en_exterior = IsNull(@pch_residente_en_exterior, ''),
        departamento = IsNull(@pch_departamento, ''),
        municipio = IsNull(@pch_municipio, ''),
        situa_en_exterior = IsNull(@pch_situa_en_exterior, ''),
        nov_ING = IsNull(@pch_nov_ING, ''),
        nov_RET = IsNull(@pch_nov_RET, ''),
        nov_TDE = IsNull(@pch_nov_TDE, ''),
        nov_TAE = IsNull(@pch_nov_TAE, ''),
        nov_TDP = IsNull(@pch_nov_TDP, ''),
        nov_TAP = IsNull(@pch_nov_TAP, ''),
        nov_VSP = IsNull(@pch_nov_VSP, ''),
        nov_SUS = IsNull(@pch_nov_SUS, ''),
        cod_AFP = IsNull(@pch_cod_AFP, ''),
        cod_AFP_Tras = IsNull(@pvc_cod_AFP_Tras, ''),
        dias_AFP = IsNull(@pti_dias_AFP, 0),
        dias_FSP = IsNull(@pti_dias_FSP, 0),
        mesada = IsNull(@pdc_mesada, 0),
        tarifa_AFP = IsNull(@pdc_tarifa_AFP, 0),
        aporte_AFP = IsNull(@pdc_aporte_AFP, 0),
        voluntario_AFP = IsNull(@pdc_voluntario_AFP, 0),
        valor_no_retenido = IsNull(@pdc_valor_no_retenido, 0),
        aporte_FSP_sol = IsNull(@pdc_aporte_FSP_sol, 0),
        aporte_FSP_sub = IsNull(@pdc_aporte_FSP_sub, 0),
        tarifa_FSP = IsNull(@pdc_tarifa_FSP, 0)
    WHERE compania = @pch_compania
      AND anio = @psi_anio
      AND mes = @pti_mes
      AND sucursal = ISNULL(@pvc_sucursal, '')
      AND trabajador = @pch_trabajador
END
GO
GRANT EXECUTE ON dbo.sp_fco_upd_pi_pens_det_afp TO PUBLIC
GO
IF OBJECT_ID('dbo.sp_fco_upd_pi_pens_det_ccf') IS NOT NULL
    DROP PROCEDURE dbo.sp_fco_upd_pi_pens_det_ccf
GO
CREATE PROCEDURE dbo.sp_fco_upd_pi_pens_det_ccf
(
    @pch_compania char(4), 
    @psi_anio smallint, 
    @pti_mes tinyint, 
    @pvc_sucursal varchar(10), 
    @pch_trabajador char(10), 
    @pvc_pens_ape1 varchar(20), 
    @pvc_pens_ape2 varchar(30), 
    @pvc_pens_nom1 varchar(20), 
    @pvc_pens_nom2 varchar(30), 
    @pch_pens_tdoc char(2), 
    @pvc_pens_id varchar(16), 
    @pti_tipo_pension tinyint, 
    @pch_pension_compartida char(1), 
    @pvc_caus_ape1 varchar(20), 
    @pvc_caus_ape2 varchar(30), 
    @pvc_caus_nom1 varchar(20), 
    @pvc_caus_nom2 varchar(30), 
    @pch_caus_tdoc char(2), 
    @pvc_caus_id varchar(16), 
    @pch_tipo_pensionado char(1), 
    @pch_residente_en_exterior char(1), 
    @pch_departamento char(2), 
    @pch_municipio char(3), 
    @pch_situa_en_exterior char(1), 
    @pch_nov_ING char(1), 
    @pch_nov_RET char(1), 
    @pch_nov_TDE char(1), 
    @pch_nov_TAE char(1), 
    @pch_nov_TDP char(1), 
    @pch_nov_TAP char(1), 
    @pch_nov_VSP char(1), 
    @pch_nov_SUS char(1), 
    @pch_cod_CCF char(10),
    @pti_dias_CCF tinyint,
    @pdc_mesada decimal(9), 
    @pdc_tarifa_CCF decimal(6,5),
    @pdc_aporte_CCF decimal(9)
)
AS
BEGIN
    UPDATE fco_pi_pens_rt2
    SET pens_ape1 = IsNull(@pvc_pens_ape1, ''), 
        pens_ape2 = IsNull(@pvc_pens_ape2, ''),
        pens_nom1 = IsNull(@pvc_pens_nom1, ''),
        pens_nom2 = IsNull(@pvc_pens_nom2, ''),
        pens_tdoc = IsNull(@pch_pens_tdoc, ''),
        pens_id = IsNull(@pvc_pens_id, ''),
        tipo_pension = IsNull(@pti_tipo_pension, 0),
        pension_compartida = IsNull(@pch_pension_compartida, ''),
        caus_ape1 = IsNull(@pvc_caus_ape1, ''),
        caus_ape2 = IsNull(@pvc_caus_ape2, ''),
        caus_nom1 = IsNull(@pvc_caus_nom1, ''),
        caus_nom2 = IsNull(@pvc_caus_nom2, ''),
        caus_tdoc = IsNull(@pch_caus_tdoc, ''),
        caus_id = IsNull(@pvc_caus_id, ''),
        tipo_pensionado = IsNull(@pch_tipo_pensionado, ''),
        residente_en_exterior = IsNull(@pch_residente_en_exterior, ''),
        departamento = IsNull(@pch_departamento, ''),
        municipio = IsNull(@pch_municipio, ''),
        situa_en_exterior = IsNull(@pch_situa_en_exterior, ''),
        nov_ING = IsNull(@pch_nov_ING, ''),
        nov_RET = IsNull(@pch_nov_RET, ''),
        nov_TDE = IsNull(@pch_nov_TDE, ''),
        nov_TAE = IsNull(@pch_nov_TAE, ''),
        nov_TDP = IsNull(@pch_nov_TDP, ''),
        nov_TAP = IsNull(@pch_nov_TAP, ''),
        nov_VSP = IsNull(@pch_nov_VSP, ''),
        nov_SUS = IsNull(@pch_nov_SUS, ''),
        cod_CCF = IsNull(@pch_cod_CCF, ''),
        dias_CCF = IsNull(@pti_dias_CCF, 0),
        mesada = IsNull(@pdc_mesada, ''),
        tarifa_CCF = IsNull(@pdc_tarifa_CCF, 0), 
        aporte_CCF = IsNull(@pdc_aporte_CCF, 0)
    WHERE compania = @pch_compania
      AND anio = @psi_anio
      AND mes = @pti_mes
      AND sucursal = ISNULL(@pvc_sucursal, '')
      AND trabajador = @pch_trabajador
END
GO
GRANT EXECUTE ON dbo.sp_fco_upd_pi_pens_det_ccf TO PUBLIC
GO
IF OBJECT_ID('dbo.sp_fco_upd_pi_pens_det_eps') IS NOT NULL
    DROP PROCEDURE dbo.sp_fco_upd_pi_pens_det_eps
GO
CREATE PROCEDURE dbo.sp_fco_upd_pi_pens_det_eps
-- JCL FEB-05-07 Revision de los IsNull(, '') en campos numéricos, se cambian a IsNull(, 0)
(
    @pch_compania char(4), 
    @psi_anio smallint, 
    @pti_mes tinyint, 
    @pvc_sucursal varchar(10), 
    @pch_trabajador char(10), 
    @pvc_pens_ape1 varchar(20), 
    @pvc_pens_ape2 varchar(30), 
    @pvc_pens_nom1 varchar(20), 
    @pvc_pens_nom2 varchar(30), 
    @pch_pens_tdoc char(2), 
    @pvc_pens_id varchar(16), 
    @pti_tipo_pension tinyint, 
    @pch_pension_compartida char(1), 
    @pvc_caus_ape1 varchar(20), 
    @pvc_caus_ape2 varchar(30), 
    @pvc_caus_nom1 varchar(20), 
    @pvc_caus_nom2 varchar(30), 
    @pch_caus_tdoc char(2), 
    @pvc_caus_id varchar(16), 
    @pch_tipo_pensionado char(1), 
    @pch_residente_en_exterior char(1), 
    @pch_departamento char(2), 
    @pch_municipio char(3), 
    @pch_situa_en_exterior char(1), 
    @pch_nov_ING char(1), 
    @pch_nov_RET char(1), 
    @pch_nov_TDE char(1), 
    @pch_nov_TAE char(1), 
    @pch_nov_TDP char(1), 
    @pch_nov_TAP char(1), 
    @pch_nov_VSP char(1), 
    @pch_nov_SUS char(1), 
    @pch_cod_EPS char(10), 
    @pvc_cod_EPS_Tras varchar(6), 
    @pti_dias_EPS tinyint, 
    @pdc_mesada decimal(9), 
    @pdc_tarifa_EPS decimal(6,5), 
    @pdc_aporte_EPS decimal(9),
    @pdc_UPC_adicional decimal(9)
)
AS
BEGIN
    UPDATE fco_pi_pens_rt2
    SET pens_ape1 = IsNull(@pvc_pens_ape1, ''), 
        pens_ape2 = IsNull(@pvc_pens_ape2, ''),
        pens_nom1 = IsNull(@pvc_pens_nom1, ''),
        pens_nom2 = IsNull(@pvc_pens_nom2, ''),
        pens_tdoc = IsNull(@pch_pens_tdoc, ''),
        pens_id = IsNull(@pvc_pens_id, ''),
        tipo_pension = IsNull(@pti_tipo_pension, 1),
        pension_compartida = IsNull(@pch_pension_compartida, ''),
        caus_ape1 = IsNull(@pvc_caus_ape1, ''),
        caus_ape2 = IsNull(@pvc_caus_ape2, ''),
        caus_nom1 = IsNull(@pvc_caus_nom1, ''),
        caus_nom2 = IsNull(@pvc_caus_nom2, ''),
        caus_tdoc = IsNull(@pch_caus_tdoc, ''),
        caus_id = IsNull(@pvc_caus_id, ''),
        tipo_pensionado = IsNull(@pch_tipo_pensionado, ''),
        residente_en_exterior = IsNull(@pch_residente_en_exterior, ''),
        departamento = IsNull(@pch_departamento, ''),
        municipio = IsNull(@pch_municipio, ''),
        situa_en_exterior = IsNull(@pch_situa_en_exterior, ''),
        nov_ING = IsNull(@pch_nov_ING, ''),
        nov_RET = IsNull(@pch_nov_RET, ''),
        nov_TDE = IsNull(@pch_nov_TDE, ''),
        nov_TAE = IsNull(@pch_nov_TAE, ''),
        nov_TDP = IsNull(@pch_nov_TDP, ''),
        nov_TAP = IsNull(@pch_nov_TAP, ''),
        nov_VSP = IsNull(@pch_nov_VSP, ''),
        nov_SUS = IsNull(@pch_nov_SUS, ''),
        cod_EPS = IsNull(@pch_cod_EPS, ''),
        cod_EPS_Tras = IsNull(@pvc_cod_EPS_Tras, ''),
        dias_EPS = IsNull(@pti_dias_EPS, 0),
        mesada = IsNull(@pdc_mesada, 0),
        tarifa_EPS = IsNull(@pdc_tarifa_EPS, 0),
        aporte_EPS = IsNull(@pdc_aporte_EPS, 0),
        UPC_adicional = IsNull(@pdc_UPC_adicional, 0)
    WHERE compania = @pch_compania
      AND anio = @psi_anio
      AND mes = @pti_mes
      AND sucursal = ISNULL(@pvc_sucursal, '')
      AND trabajador = @pch_trabajador
END
GO
GRANT EXECUTE ON dbo.sp_fco_upd_pi_pens_det_eps TO PUBLIC
GO

-- ************************************************************************************************ --
-- Operación FCO5016 Archivo Planilla Integrada para Pensionados
-- ************************************************************************************************ --
IF NOT EXISTS(SELECT 1 FROM operaciones WHERE operacion = 'FCO5016')
BEGIN
    DELETE rel_oper_menus WHERE ejecuta_operacion = 'FCO5016';
    DELETE rel_oper_modulos WHERE operacion = 'FCO5016';
    DELETE operaciones WHERE operacion = 'FCO5016';
    DELETE aut_operaciones WHERE operacion = 'FCO5016';
    
    INSERT INTO operaciones (operacion, descripcion_ope, icono, tipo_operacion) 
    VALUES ('FCO5016', 'Generar Archivo Planilla Integrada (Pensionados)', 7, 1);
    
    INSERT INTO rel_oper_menus (modulo, menu, secuencia, tipo_llamada, ejecuta_menu, ejecuta_operacion) 
    SELECT 'F1', 50, IsNull(max(secuencia),0) + 1, 2, null, 'FCO5016' from rel_oper_menus WHERE modulo='F1' and menu = 50;
    
    INSERT INTO rel_oper_modulos (operacion, modulo)  VALUES ('FCO5016','F1');
    INSERT INTO aut_operaciones (usuario, operacion, nivel_seguridad) VALUES ('ADAM','FCO5016',4);
    INSERT INTO aut_operaciones (usuario, operacion, nivel_seguridad)
    SELECT usuario, 'FCO5016', nivel_seguridad FROM aut_operaciones  WHERE usuario <> 'ADAM' AND operacion = 'MF3020'
END
go

-- ************************************************************************************************ --
-- Operación FCO2096 Control Planilla Integrada Pensionados
-- ************************************************************************************************ --
IF NOT EXISTS(SELECT 1 FROM operaciones WHERE operacion = 'FCO2096')
BEGIN
    DELETE rel_oper_menus WHERE ejecuta_operacion = 'FCO2096';
    DELETE rel_oper_modulos WHERE operacion = 'FCO2096';
    DELETE operaciones WHERE operacion = 'FCO2096';
    DELETE aut_operaciones WHERE operacion = 'FCO2096';
    
    INSERT INTO operaciones (operacion, descripcion_ope, icono, tipo_operacion)  
    VALUES ('FCO2096', 'Control Planilla Integrada Pensionados', 2, 1);
    
    INSERT INTO rel_oper_menus (modulo, menu, secuencia, tipo_llamada, ejecuta_menu, ejecuta_operacion) 
    SELECT 'F1', 20, IsNull(max(secuencia),0) + 1, 2, null, 'FCO2096' from rel_oper_menus WHERE modulo='F1' and menu = 20;
    
    INSERT INTO rel_oper_modulos (operacion, modulo)  VALUES ('FCO2096','F1');
    
    INSERT INTO aut_operaciones (usuario, operacion, nivel_seguridad) VALUES ('ADAM','FCO2096',4);
    INSERT INTO aut_operaciones (usuario, operacion, nivel_seguridad)
    SELECT usuario, 'FCO2096', nivel_seguridad FROM aut_operaciones  WHERE usuario <> 'ADAM' AND operacion = 'MF2090'
END

go
IF OBJECT_ID('dbo.sp_fco_planilla_integrada_pens') IS NOT NULL
    DROP PROCEDURE dbo.sp_fco_planilla_integrada_pens
GO
CREATE PROCEDURE dbo.sp_fco_planilla_integrada_pens    
(    
    @pch_compania char(4),    
    @psi_anio smallint,    
    @pti_mes tinyint,    
    @pch_sucursal char(10),  -- Nunca llega NULL    
    @pbi_regenerar bit    
)    
AS    
/*************************************************************************/    
-- Modulo Fiscal Colombiano 2.0 ADAM V3    
-- Descripcion: Planilla Integrada para Pensionados
-- Autor: Juan Carlos Leguizamon    
-- Fecha: Julio 2006
-- Revisiones:    
-- Oct-04-06. Redondear Mesada 
-- Nov-07-06. Tarifa CCF en cero, cuando aporte sea cero 
-- Dic-05-06. Códigos de Traslado en la tabla deben ser los internos (y en el archivo los "super")
-- Dic-07-06. Se cambia de lugar la suma de la mesada para el valor total en el registro 1
/*************************************************************************/    
BEGIN    
    SET NOCOUNT ON    
    
    -- Declaración de Variables    
    DECLARE     
        @vch_periodo char(6),    
        @vch_agt_TDO char(10),     -- Tipo Documento    
        @vch_agt_AFP char(10),     -- Fondo de Pensiones    
        @vch_agt_EPS char(10),     -- EPS    
        @vch_var_SaT char(2),      -- Variable Salud Trabajador    
        @vch_var_SaE char(2),      -- Variable Salud Empleador    
        @vch_var_PeT char(2),      -- Variable Pensión Trabajador    
        @vch_var_PeE char(2),      -- Variable Pensión Empleador    
        @vch_var_CCF char(2),      -- Variable Aporte CCF    
        @vdc_tar_EPS decimal(6,5), -- Tarifa Salud    
        @vdc_tar_AFP decimal(6,5), -- Tarifa Pensión    
        @vdc_tar_CCF decimal(6,5), -- Tarifa Cajas de Compensación    
        @vch_agr_SUS char(3),      -- /* Suspensión */    
        @vch_agr_AVP_T char(3),    -- /* Aporte Voluntario (al Fondo de Pensiones) - Trabajador */     
        @vch_agr_AFP_IBC char(3),  -- /* IBC Pensión */     
        @vch_agr_AFP_Cot char(3),  -- /* Cotización a Pensión */    
        @vch_agr_FSP char(3),      -- /* Fondo de Solidaridad Pensional */    
        @vch_agr_VNR char(3),      -- /* Valor No Retenido por Aportes Voluntarios */    
        @vch_agr_EPS_IBC char(3),  -- /* IBC Salud */     
        @vch_agr_EPS_Cot char(3),  -- /* Cotización a Salud */    
        @vch_agr_UPC char(3),      -- /* UPC Adicional */    
        @vch_agr_CCF_IBC char(3),  -- /* IBC Cajas de Compensación */     
        @vti_CCF_tipo tinyint,     -- /* Tipo de Dato Cotizacion CCF */    
        @vch_CCF_Cot char(5),      -- /* Cotización a la Caja de Compensación Familiar */    
        @vsi_empleados smallint,   -- /* Total de Empleados */    
        @vdc_nomina decimal(12),   -- /* Total Nómina */    
        @vti_orden tinyint,        -- /* Orden de los Trabajadores en el medio */    
        @vsi_random smallint,      -- /* Valor randómico para manejo de procesos simultáneos */    
        @vsi_handicap smallint,    -- /* Por si se suceden procesos simultáneos */    
        @vsi_secuencia smallint,   -- /* Se utiliza en la parte "fantasmal" */    
        @vti_tipo_IBC_CCF tinyint, -- /* Tipo de dato que almacena el IBC de la CCF, concepto o agrupación */   
        @vsi_IBC_CCF smallint,     -- /* Concepto que guarda el IBC para la CCF */  
        @vti_FSP_Sol_tipo tinyint, -- /* Tipo de parametro para la subcuenta de solidaridad del FSP */ --JCL.Jul.18/06--
        @vch_FSP_Sol char(5),      -- /* Concepto para la subcuenta de solidaridad del FSP */  --JCL.Jun.02/06--  
        @vti_FSP_Sub_tipo tinyint, -- /* Tipo de parametro para la subcuenta de subsistencia del FSP */ --JCL.Jul.18/06--
        @vch_FSP_Sub char(5)       -- /* Concepto para la subcuenta de subsistencia del FSP */  --JCL.Jun.02/06--  
  
    -- Llenado de variables generales    
    SET @vch_periodo = RTRIM(@psi_anio) + RIGHT('00' + RTRIM(@pti_mes),2)    
    
    -- Recuperación de Parámetros    
    SELECT @vch_agr_AFP_IBC = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'autoliq' AND secuencia = 02    
    SELECT @vch_agr_AFP_Cot = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'autoliq' AND secuencia = 03    
    SELECT @vch_agr_FSP = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'autoliq' AND secuencia = 04    
    SELECT @vch_agr_EPS_Cot = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'autoliq' AND secuencia = 05    
    SELECT @vch_agr_AVP_T = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'autoliq' AND secuencia = 13    
    SELECT @vch_agr_UPC = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'autoliq' AND secuencia = 15    
    SELECT @vch_agr_EPS_IBC = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'autoliq' AND secuencia = 16    
    SELECT @vch_agr_SUS = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'autoliq' AND secuencia = 18        
    SELECT @vch_agr_VNR = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'autoliq' AND secuencia = 19    
    SELECT @vch_agt_EPS = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'autoliq' AND secuencia = 21    
    SELECT @vch_agt_AFP = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'autoliq' AND secuencia = 22          
    SELECT @vch_var_SaT = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'autoliq' AND secuencia = 25    
    SELECT @vch_var_SaE = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'autoliq' AND secuencia = 26    
    SELECT @vch_var_PeT = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'autoliq' AND secuencia = 27    
    SELECT @vch_var_PeE = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'autoliq' AND secuencia = 28    
    SELECT @vch_agt_TDO = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'autoliq' AND secuencia = 29      
    SELECT @vti_orden = CASE WHEN ISNUMERIC(dato) = 1 THEN dato ELSE 2 END FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'autoliq' AND secuencia = 37    
    SET @vti_orden = ISNULL(@vti_orden, 2)    
  
    SELECT @vti_FSP_Sol_tipo = tipo, @vch_FSP_Sol = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'autoliq' AND secuencia = 45 --JCL.Jul.18/06--
    SELECT @vti_FSP_Sub_tipo = tipo, @vch_FSP_Sub = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'autoliq' AND secuencia = 46 --JCL.Jul.18/06--
  
    SELECT @vti_CCF_tipo = tipo, @vch_CCF_Cot = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'parafiscal' AND secuencia = 2    
    SELECT @vti_tipo_IBC_CCF = tipo FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'parafiscal' AND secuencia = 06    
    IF ISNULL(@vti_tipo_IBC_CCF, 2) <> 0  
        SELECT @vch_agr_CCF_IBC = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'parafiscal' AND secuencia = 06    
    ELSE  
        SELECT @vsi_IBC_CCF = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'parafiscal' AND secuencia = 06    
    SELECT @vch_var_CCF = dato FROM vw_fdt_parametros WHERE pais = 'COL' AND compania = @pch_compania AND parametro = 'parafiscal' AND secuencia = 9    
          
    -- Recuperación de Tarifas o Porcentajes    
    SET @vdc_tar_EPS = ISNULL(dbo.fn_fco_var_nom(@pch_compania, @vch_var_SaT, 0) + dbo.fn_fco_var_nom(@pch_compania, @vch_var_SaE, 0), 0.12)   
    SET @vdc_tar_AFP = ISNULL(dbo.fn_fco_var_nom(@pch_compania, @vch_var_PeT, 0) + dbo.fn_fco_var_nom(@pch_compania, @vch_var_PeE, 0), 0.155)    
    SET @vdc_tar_CCF = ISNULL(dbo.fn_fco_var_nom(@pch_compania, @vch_var_CCF, 0), 0.04)    
    
    -- Proceso Principal        
    IF @pbi_regenerar = 1 OR NOT EXISTS(SELECT 1 FROM fco_pi_pens_rt1    
                                        WHERE compania = @pch_compania    
                                          AND anio = @psi_anio    
                                          AND mes = @pti_mes    
                                          AND (sucursal = @pch_sucursal OR @pch_sucursal = ''))    
    BEGIN /*1*/    
        /* Borrar datos de procesos anteriores */      
        DELETE fco_pi_pens_rt2
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')  
  
        DELETE fco_pi_pens_rt1    
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')  
      
        /* Registro Tipo 1. Parte 1: DATOS GENERALES DEL APORTANTE */    
        INSERT INTO fco_pi_pens_rt1   
        (compania, anio, mes, sucursal, secuencia, razon_social, tipo_documento, nro_id, dv, forma_presentacion, 
         nombre_sucursal, periodo, periodo_salud, nro_radicacion, fecha_pago, nro_pensionados, valor_nomina, tipo_pagador, operador) 
        SELECT
            @pch_compania, @psi_anio, @pti_mes, @pch_sucursal,
            ISNULL((SELECT MAX(secuencia) + 1 FROM fco_pi_pens_rt1 x
                    WHERE x.compania = @pch_compania AND x.anio = @psi_anio AND x.mes = @pti_mes), 1),
            cias.nombre_cia,
            ISNULL(LEFT(cda.tipo_id,2), ''),
            ISNULL(
                CASE WHEN LEN(ISNULL(dbo.fn_solonum(registro_fiscal), '')) = 0
                    THEN ''
                    ELSE LEFT(LEFT(dbo.fn_solonum(registro_fiscal), LEN(dbo.fn_solonum(registro_fiscal))-1), 16)
                END, ''),
            dv = ISNULL(RIGHT(dbo.fn_solonum(registro_fiscal), 1), ''),
            fp = CASE WHEN LTRIM(RTRIM(@pch_sucursal)) = '' THEN 'C' ELSE 'S' END,
            ns = ISNULL(suc.descripcion, ''),
            RTRIM(@psi_anio) + RIGHT('00' + RTRIM(@pti_mes), 2),
            CASE WHEN @pti_mes = 12
                 THEN RTRIM(@psi_anio + 1) + '01'
                 ELSE RTRIM(@psi_anio) + RIGHT('00' + RTRIM(@pti_mes + 1), 2)
            END,
            nr = '',
            fecha = GETDATE(),
            np = 0, -- Todavia no se sabe
            vn = 0, -- Todavia no se sabe
            1, -- Tipo de Pagador
            operador = '00' -- Asignado por el Sistema
        FROM companias cias
        LEFT JOIN fco_cias_datos_adi cda ON cda.compania = cias.compania
        LEFT JOIN fco_sucursales suc ON suc.compania  = cias.compania AND suc.sucursal = @pch_sucursal
        WHERE cias.compania = @pch_compania
        
        /* Registro Tipo 2: LIQUIDACION DETALLADA DE APORTES */    
        /* RT2 Parte 1.  Seleccion de Trabajadores */    
        SELECT @vsi_random = FLOOR(RAND( (DATEPART(mm, GETDATE()) * 100000 )    
           + (DATEPART(ss, GETDATE()) * 1000 )    
           + DATEPART(ms, GETDATE()) ) * 32567) + 1    
      
        DELETE fco_pi_pens_temp WHERE random = @vsi_random    
    
        IF @vti_orden = 1
        BEGIN
            SELECT tg.compania, tg.trabajador, ISNULL(SUC.dato, '') sucursal, tg.relacion_laboral, tg.fecha_ingreso, tg.fecha_baja,
                   isnull(t.clave_unica, '0') clave_unica, t.nombre, t.registro_fiscal, IDENTITY(smallint, 1, 1) secuencia
            INTO #fco_pi_pens_temp1
            FROM trabajadores_grales tg WITH (NOLOCK)
            INNER JOIN trabajadores t ON tg.trabajador = t.trabajador
            INNER JOIN vw_fco_div_trabajador SUC ON SUC.compania = tg.compania AND SUC.trabajador = tg.trabajador
            WHERE tg.compania = @pch_compania
              AND CONVERT(char(6), tg.fecha_ingreso, 112) <= @vch_periodo
              AND (tg.fecha_baja IS NULL OR CONVERT(char(6), tg.fecha_baja, 112) >= @vch_periodo)
              AND (SUC.dato = @pch_sucursal OR @pch_sucursal = '')
              AND EXISTS
                (SELECT 1 FROM vw_fco_tipo_cotiz tcot
                 WHERE tcot.compania = tg.compania
                   AND tcot.trabajador = tg.trabajador
                   AND tcot.tipo_cotizante = '99')
            ORDER BY CONVERT(decimal, dbo.fn_solonum(isnull(t.clave_unica, '0')))
            
            INSERT INTO fco_pi_pens_temp     
            (random, compania, trabajador, sucursal, relacion_laboral, fecha_ingreso, fecha_baja, clave_unica,    
             nombre, registro_fiscal, secuencia)  
            SELECT @vsi_random, * FROM #fco_pi_pens_temp1  
  
            DROP TABLE #fco_pi_pens_temp1  
        END  
  
        IF @vti_orden = 3    
        BEGIN  
            SELECT tg.compania, tg.trabajador, ISNULL(SUC.dato, '') sucursal, tg.relacion_laboral, tg.fecha_ingreso, tg.fecha_baja,     
                   isnull(t.clave_unica, '0') clave_unica, t.nombre, t.registro_fiscal, IDENTITY(smallint, 1, 1) secuencia  
            INTO #fco_pi_pens_temp2  
            FROM trabajadores_grales tg WITH (NOLOCK)
            INNER JOIN trabajadores t ON tg.trabajador = t.trabajador    
            INNER JOIN vw_fco_div_trabajador SUC ON SUC.compania = tg.compania AND SUC.trabajador = tg.trabajador    
            WHERE tg.compania = @pch_compania    
              AND CONVERT(char(6), tg.fecha_ingreso, 112) <= @vch_periodo    
              AND (tg.fecha_baja IS NULL OR CONVERT(char(6), tg.fecha_baja, 112) >= @vch_periodo)    
              AND (SUC.dato = @pch_sucursal OR @pch_sucursal = '')    
              AND EXISTS 
                (SELECT 1 FROM vw_fco_tipo_cotiz tcot 
                 WHERE tcot.compania = tg.compania 
                   AND tcot.trabajador = tg.trabajador 
                   AND tcot.tipo_cotizante = '99')
            ORDER BY isnull(t.clave_unica, '0')
  
            INSERT INTO fco_pi_pens_temp     
            (random, compania, trabajador, sucursal, relacion_laboral, fecha_ingreso, fecha_baja, clave_unica,    
             nombre, registro_fiscal, secuencia)  
            SELECT @vsi_random, * FROM #fco_pi_pens_temp2  
      
            DROP TABLE #fco_pi_pens_temp2  
        END  
  
        IF @vti_orden NOT IN (1,3) -- Por Nombre    
        BEGIN  
            SELECT tg.compania, tg.trabajador, ISNULL(SUC.dato, '') sucursal, tg.relacion_laboral, tg.fecha_ingreso, tg.fecha_baja,     
             isnull(t.clave_unica, '0') clave_unica, t.nombre, t.registro_fiscal, IDENTITY(smallint, 1, 1) secuencia  
            INTO #fco_pi_pens_temp3  
            FROM trabajadores_grales tg WITH (NOLOCK)   
            INNER JOIN trabajadores t ON tg.trabajador = t.trabajador    
            INNER JOIN vw_fco_div_trabajador SUC ON SUC.compania = tg.compania AND SUC.trabajador = tg.trabajador    
            WHERE tg.compania = @pch_compania    
              AND CONVERT(char(6), tg.fecha_ingreso, 112) <= @vch_periodo    
              AND (tg.fecha_baja IS NULL OR CONVERT(char(6), tg.fecha_baja, 112) >= @vch_periodo)    
              AND (SUC.dato = @pch_sucursal OR @pch_sucursal = '')    
              AND EXISTS 
                (SELECT 1 FROM vw_fco_tipo_cotiz tcot 
                 WHERE tcot.compania = tg.compania 
                   AND tcot.trabajador = tg.trabajador 
                   AND tcot.tipo_cotizante = '99')
            ORDER BY t.nombre    
    
            INSERT INTO fco_pi_pens_temp  
            (random, compania, trabajador, sucursal, relacion_laboral, fecha_ingreso, fecha_baja, clave_unica,    
             nombre, registro_fiscal, secuencia)  
            SELECT @vsi_random, * FROM #fco_pi_pens_temp3  
      
            DROP TABLE #fco_pi_pens_temp3  
        END  
  
        SELECT @vsi_handicap = MIN(secuencia) FROM fco_pi_pens_temp WHERE random = @vsi_random            
        
        /* Datos Basicos por Trabajador */    
        INSERT INTO fco_pi_pens_rt2    
        (compania, anio, mes, sucursal, trabajador, secuencia, 
         pens_ape1, pens_ape2, pens_nom1, pens_nom2, pens_tdoc, pens_id, 
         tipo_pension, pension_compartida, 
         caus_ape1, caus_ape2, caus_nom1, caus_nom2, caus_tdoc, caus_id, 
         tipo_pensionado, residente_en_exterior, departamento, municipio, situa_en_exterior, 
         nov_ING, nov_RET, nov_TDE, nov_TAE, nov_TDP, nov_TAP, nov_VSP, nov_SUS, 
         cod_AFP, cod_AFP_Tras, cod_EPS, cod_EPS_Tras, cod_CCF, 
         dias_AFP, dias_FSP, dias_EPS, dias_CCF, mesada, 
         tarifa_AFP, aporte_AFP, voluntario_AFP, valor_no_retenido, aporte_FSP_sol, aporte_FSP_sub, tarifa_FSP, 
         tarifa_EPS, aporte_EPS, UPC_adicional, tarifa_CCF, aporte_CCF, origen)
        SELECT     
            @pch_compania, @psi_anio, @pti_mes, tg.sucursal, tg.trabajador, RIGHT('0000000' + RTRIM(tg.secuencia - @vsi_handicap + 1), 7),
            LEFT(dbo.fn_ape1(tg.nombre), 20), LEFT(dbo.fn_ape2(tg.nombre), 30), LEFT(dbo.fn_nom1(tg.nombre), 20), LEFT(dbo.fn_nom2(tg.nombre), 30),
            td = LEFT(ISNULL(td.dato, 'CC'), 2),
            CASE WHEN LEFT(ISNULL(td.dato, 'CC'), 2) = 'NI'
                 THEN CASE WHEN LEN(LTRIM(RTRIM(tg.registro_fiscal))) > 1
                           THEN LEFT(LEFT(LTRIM(RTRIM(tg.registro_fiscal)), LEN(LTRIM(RTRIM(tg.registro_fiscal))) - 1), 16)
                           ELSE ''
                 END
                 ELSE LEFT(LTRIM(IsNull(tg.clave_unica, '0')), 16)
            END,
            pen.tipo_pension, pen.compartida,
            pen.caus_ape1, pen.caus_ape2, pen.caus_nom1, pen.caus_nom2, pen.caus_tdoc, 
            case when isnull(pen.caus_id, 0) = 0 then ' ' else pen.caus_id end, 
            pen.tipo_pensionado, pen.residente_en_exterior, 
            IsNull(mun.dpto_tra, IsNull(ccf.departamento, '')), IsNull(mun.muni_tra, IsNull(ccf.municipio, '')), pen.situa_en_exterior, 
            ING = CASE WHEN CONVERT(char(6), tg.fecha_ingreso, 112) = @vch_periodo THEN 'X' ELSE '' END,    
            RET = CASE WHEN CONVERT(char(6), tg.fecha_baja, 112)    = @vch_periodo THEN 'X' ELSE '' END,    
            TDE = '', TAE = '', TDP = '', TAP = '', VSP = '', SUS = '', 
            cod_AFP = ISNULL(AFP.dato, ''), cod_AFP_Tras = '', cod_EPS = ISNULL(EPS.dato, ''), cod_EPS_Tras = '', cod_CCF = ISNULL(ccf.ccf, ''),     
            dias_AFP = 0, dias_FSP = 0, dias_EPS = 0, dias_CCF = 0, 
            mesada = dbo.fn_fco_salario_pens(tg.compania, tg.trabajador, @vch_periodo, pen.tipo_pension, pen.compartida),   
            @vdc_tar_AFP, aporte_AFP = 0, voluntario_AFP = 0, valor_no_retenido = 0, aporte_FSP_sol = 0, aporte_FSP_sub = 0, tarifa_FSP = 0,
            @vdc_tar_EPS, aporte_EPS = 0, UPC_Adicional = 0, @vdc_tar_CCF, aporte_CCF = 0, 1
        FROM fco_pi_pens_temp tg    
        INNER JOIN vw_fco_info_pensionados pen ON pen.compania = tg.compania AND pen.trabajador = tg.trabajador  
        INNER JOIN vw_fco_ccf_trabajador ccf ON ccf.compania = tg.compania AND ccf.trabajador = tg.trabajador    
        LEFT JOIN vw_fco_muni_tra mun ON mun.compania = tg.compania AND mun.trabajador = tg.trabajador
        LEFT JOIN rel_trab_agr td ON td.agrupacion = @vch_agt_TDO AND td.compania = tg.compania AND td.trabajador = tg.trabajador    
        LEFT JOIN rel_trab_agr AFP ON AFP.agrupacion = @vch_agt_AFP AND AFP.compania = tg.compania AND AFP.trabajador = tg.trabajador    
        LEFT JOIN rel_trab_agr EPS ON EPS.agrupacion = @vch_agt_EPS AND EPS.compania = tg.compania AND EPS.trabajador = tg.trabajador    
        WHERE random = @vsi_random
        
        DELETE fco_pi_pens_temp WHERE random = @vsi_random    
  
        /* Corregir el departamento y el municipio - prevalece la agrupación de trabajador sobre el dato de la CCF */  
        UPDATE fco_pi_pens_rt2  
        SET departamento = dpto_tra, municipio = muni_tra  
        FROM vw_fco_muni_tra x  
        WHERE fco_pi_pens_rt2.compania = @pch_compania AND fco_pi_pens_rt2.anio = @psi_anio AND fco_pi_pens_rt2.mes = @pti_mes   
          AND (fco_pi_pens_rt2.sucursal = @pch_sucursal OR @pch_sucursal = '')  
          AND fco_pi_pens_rt2.compania = x.compania  
          AND fco_pi_pens_rt2.trabajador = x.trabajador            
  
        /* RT2 Parte 3. Novedad RET. El caso normal esta contemplado en el Insert anterior */    
        /*** RET: Retiros en el mismo periodo de ingreso. SOLO PASA EN AVIDESA ***/    
        UPDATE fco_pi_pens_rt2    
        SET nov_RET = 'X'    
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')  
          AND EXISTS (SELECT 1 FROM historial_laboral x     
                      WHERE x.compania = fco_pi_pens_rt2.compania    
                        AND x.trabajador = fco_pi_pens_rt2.trabajador    
                        AND x.codigo_incidencia = '0000000002'    
                        AND CONVERT(char(6), x.valor_03, 112) = @vch_periodo)    
    
        /* Novedad TDE. INGRESO A ESTA EPS (TRASLADO DESDE OTRA EPS) */    
        UPDATE fco_pi_pens_rt2    
        SET nov_TDE = 'X'    
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')  
          AND nov_ING <> 'X'    
          AND EXISTS (SELECT 1 FROM vw_fco_hist_traslados_eps x    
                      WHERE x.compania = fco_pi_pens_rt2.compania    
                        AND x.trabajador = fco_pi_pens_rt2.trabajador    
                        AND CONVERT(char(6), x.fecha_alta, 112) = @vch_periodo)    
    
        /* Novedad TAE. RETIRO DE ESTA EPS (TRASLADO A OTRA EPS) */    
        UPDATE fco_pi_pens_rt2    
        SET nov_TAE = 'X'    
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')  
          AND EXISTS (SELECT 1 FROM fco_traslados_EPS x    
                      WHERE x.compania = fco_pi_pens_rt2.compania    
                        AND x.trabajador = fco_pi_pens_rt2.trabajador    
                        AND CONVERT(char(6), x.fecha_cambio, 112) = @vch_periodo)    
            
        /* Novedad TDP. INGRESO A ESTA AFP (TRASLADO DESDE OTRA AFP) */    
        UPDATE fco_pi_pens_rt2    
        SET nov_TDP = 'X'    
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')  
          AND nov_ING <> 'X'    
          AND EXISTS (SELECT 1 FROM vw_fco_hist_traslados_fpo x    
                      WHERE x.compania = fco_pi_pens_rt2.compania    
                        AND x.trabajador = fco_pi_pens_rt2.trabajador    
                        AND CONVERT(char(6), x.fecha_alta, 112) = @vch_periodo)    
    
        /* Novedad TAP. RETIRO DE ESTA AFP (TRASLADO A OTRA AFP) */    
        UPDATE fco_pi_pens_rt2    
        SET nov_TAP = 'X'    
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')  
          AND EXISTS (SELECT 1 FROM fco_traslados_FPO x    
                      WHERE x.compania = fco_pi_pens_rt2.compania    
                        AND x.trabajador = fco_pi_pens_rt2.trabajador    
                        AND CONVERT(char(6), x.fecha_cambio, 112) = @vch_periodo)    
    
        /* Novedad VSP. VARIACION PERMANENTE DE SALARIO */    
        UPDATE fco_pi_pens_rt2    
        SET nov_VSP = 'X'    
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')  
          AND nov_ING <> 'X'    
          AND EXISTS (SELECT 1 FROM vw_fco_sueldos x    
                      WHERE x.compania = fco_pi_pens_rt2.compania    
                        AND x.trabajador = fco_pi_pens_rt2.trabajador    
                        AND CONVERT(char(6), x.fecha, 112) = @vch_periodo)    
                    
        /* Novedad SUS. SUSPENSIÓN TEMPORAL CONTRATO Y LICENCIA NO REMUNERADA */    
        UPDATE fco_pi_pens_rt2    
        SET nov_SUS = 'X'    
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
          AND EXISTS (SELECT 1 FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_agr_SUS, @psi_anio, @pti_mes) x    
                      WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.tiempo <> 0)    
    
        /* Nueva AFP (Fondo de Pensiones al cual se traslada) */    -- Dic-05-06
        UPDATE fco_pi_pens_rt2    
        SET cod_AFP_Tras = t.FPO_nueva
        FROM fco_traslados_fpo t 
        WHERE fco_pi_pens_rt2.compania = t.compania    
          AND fco_pi_pens_rt2.trabajador = t.trabajador    
          AND fco_pi_pens_rt2.compania = @pch_compania    
          AND fco_pi_pens_rt2.anio = @psi_anio     
          AND fco_pi_pens_rt2.mes = @pti_mes     
          AND (fco_pi_pens_rt2.sucursal = @pch_sucursal OR @pch_sucursal = '')  
          AND CONVERT(char(6), t.fecha_cambio, 112) = @vch_periodo    
    
        /* Nueva EPS (EPS al cual se traslada) */  -- Dic-05-06
        UPDATE fco_pi_pens_rt2    
        SET cod_EPS_Tras = t.EPS_nueva
        FROM fco_traslados_eps t 
        WHERE fco_pi_pens_rt2.compania = t.compania    
          AND fco_pi_pens_rt2.trabajador = t.trabajador    
          AND fco_pi_pens_rt2.compania = @pch_compania    
          AND fco_pi_pens_rt2.anio = @psi_anio     
          AND fco_pi_pens_rt2.mes = @pti_mes     
          AND (fco_pi_pens_rt2.sucursal = @pch_sucursal OR @pch_sucursal = '')  
          AND CONVERT(char(6), t.fecha_cambio, 112) = @vch_periodo    
            
        /* Días cotizados a pensión e IBC */    
        UPDATE fco_pi_pens_rt2    
        SET dias_AFP = (SELECT CASE WHEN tiempo > 30 THEN 30 ELSE CASE WHEN tiempo < 0 THEN 0 ELSE tiempo END END    
                       FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_agr_AFP_IBC, @psi_anio, @pti_mes) x    
                      WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
          AND EXISTS (SELECT 1 FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_agr_AFP_IBC, @psi_anio, @pti_mes) x    
                      WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
            
        /* Días cotizados a salud e IBC */    
        UPDATE fco_pi_pens_rt2    
        SET dias_EPS = (SELECT CASE WHEN tiempo > 30 THEN 30 ELSE CASE WHEN tiempo < 0 THEN 0 ELSE tiempo END END
                      FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_agr_EPS_IBC, @psi_anio, @pti_mes) x    
                      WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
          AND EXISTS (SELECT 1 FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_agr_EPS_IBC, @psi_anio, @pti_mes) x    
                      WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
           
        /* IBC caja de compensación */    
        IF ISNULL(@vti_tipo_IBC_CCF, 2) <> 0  
            UPDATE fco_pi_pens_rt2    
            SET dias_CCF = (SELECT CASE WHEN tiempo > 30 THEN 30 ELSE CASE WHEN tiempo < 0 THEN 0 ELSE tiempo END END
                        FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_agr_CCF_IBC, @psi_anio, @pti_mes) x    
                      WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)
            WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
              AND EXISTS (SELECT 1 FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_agr_CCF_IBC, @psi_anio, @pti_mes) x    
                          WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
        ELSE  
            UPDATE fco_pi_pens_rt2    
            SET dias_CCF = (SELECT CASE WHEN tiempo > 30 THEN 30 ELSE CASE WHEN tiempo < 0 THEN 0 ELSE tiempo END END
                           FROM dbo.fntb_acum_mes_cnc(@pch_compania, @vsi_IBC_CCF, @psi_anio, @pti_mes) x    
                          WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
            WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
              AND EXISTS (SELECT 1 FROM dbo.fntb_acum_mes_cnc(@pch_compania, @vsi_IBC_CCF, @psi_anio, @pti_mes) x    
                          WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
            
        /* Aporte o Cotización Obligatoria a Pensión */    
        UPDATE fco_pi_pens_rt2    
        SET aporte_AFP =     
            (SELECT Round((importe - 1)/100,0)*100 FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_agr_AFP_Cot, @psi_anio, @pti_mes) x    
              WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
         AND EXISTS (SELECT 1 FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_agr_AFP_Cot, @psi_anio, @pti_mes) x    
                      WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
            
        /* Aporte Voluntario del Trabajador a Pensión */    
        UPDATE fco_pi_pens_rt2    
        SET voluntario_AFP =     
            (SELECT importe FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_agr_AVP_T, @psi_anio, @pti_mes) x    
              WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
          AND EXISTS (SELECT 1 FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_agr_AVP_T, @psi_anio, @pti_mes) x    
                      WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
              
        /* Aporte Fondo de Solidaridad Pensional */  
        /* Aporte Fondo de Solidaridad Pensional subcuenta de Solidaridad */  --JCL.Jul.18/06--  
        IF @vti_FSP_Sol_tipo = 0  --Es un concepto
        BEGIN
            IF ISNUMERIC(@vch_FSP_Sol) = 1
                UPDATE fco_pi_pens_rt2    
                SET aporte_FSP_sol =   
                        (SELECT SUM(importe) FROM dbo.fntb_acum_mes_cnc(@pch_compania, @vch_FSP_Sol, @psi_anio, @pti_mes) x    
                         WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
                WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
                  AND EXISTS (SELECT 1 FROM dbo.fntb_acum_mes_cnc(@pch_compania, @vch_FSP_Sol, @psi_anio, @pti_mes) x    
                              WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
        END
        ELSE --Es una Agrupación de Conceptos
            UPDATE fco_pi_pens_rt2    
            SET aporte_FSP_sol =     
                (SELECT importe FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_FSP_Sol, @psi_anio, @pti_mes) x    
                  WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
            WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
              AND EXISTS (SELECT 1 FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_FSP_Sol, @psi_anio, @pti_mes) x    
                          WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    

        /* Aporte Fondo de Solidaridad Pensional subcuenta de Subsistencia */  --JCL.Jul.18/06--    
        IF @vti_FSP_Sub_tipo = 0  --Es un concepto
        BEGIN
            IF ISNUMERIC(@vch_FSP_Sub) = 1
                UPDATE fco_pi_pens_rt2    
                SET aporte_FSP_sub =   
                        (SELECT SUM(importe) FROM dbo.fntb_acum_mes_cnc(@pch_compania, @vch_FSP_Sub, @psi_anio, @pti_mes) x    
                         WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
                WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
                  AND EXISTS (SELECT 1 FROM dbo.fntb_acum_mes_cnc(@pch_compania, @vch_FSP_Sub, @psi_anio, @pti_mes) x    
                              WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
        END
        ELSE --Es una Agrupación de Conceptos
            UPDATE fco_pi_pens_rt2    
            SET aporte_FSP_sub =     
                (SELECT importe FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_FSP_Sub, @psi_anio, @pti_mes) x    
                  WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
            WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
              AND EXISTS (SELECT 1 FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_FSP_Sub, @psi_anio, @pti_mes) x    
                          WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
          
        /* Tarifa de FSP */
        UPDATE fco_pi_pens_rt2
        SET tarifa_FSP = dbo.fn_fco_tarifa_FSP(compania, trabajador, @psi_anio, @pti_mes, mesada, 1)
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
          AND aporte_FSP_sol + aporte_FSP_sub + mesada > 0

        /* Valor no retenido por aportes voluntarios */    
        UPDATE fco_pi_pens_rt2    
        SET valor_no_retenido =     
            (SELECT importe FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_agr_VNR, @psi_anio, @pti_mes) x    
              WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
          AND EXISTS (SELECT 1 FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_agr_VNR, @psi_anio, @pti_mes) x    
                      WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
    
        /* Aporte o Cotización Obligatoria a Salud */    
        UPDATE fco_pi_pens_rt2    
        SET aporte_EPS =     
            (SELECT Round((importe - 1)/100,0)*100 FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_agr_EPS_Cot, @psi_anio, @pti_mes) x    
              WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
          AND EXISTS (SELECT 1 FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_agr_EPS_Cot, @psi_anio, @pti_mes) x    
                      WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
    
        /* UPC Adicional */    
        UPDATE fco_pi_pens_rt2    
        SET UPC_adicional =     
            (SELECT importe FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_agr_UPC, @psi_anio, @pti_mes) x    
              WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
          AND EXISTS (SELECT 1 FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_agr_UPC, @psi_anio, @pti_mes) x    
                      WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
        
        /* Aporte o Cotización Obligatoria a la Caja de Compensación Familiar */    
        IF @vti_CCF_tipo = 0    
        BEGIN    
            IF ISNUMERIC(@vch_CCF_Cot) = 1    
                UPDATE fco_pi_pens_rt2    
                SET aporte_CCF =     
                    (SELECT importe FROM dbo.fntb_acum_mes_cnc(@pch_compania, @vch_CCF_Cot, @psi_anio, @pti_mes) x    
                      WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
                WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
                  AND EXISTS (SELECT 1 FROM dbo.fntb_acum_mes_cnc(@pch_compania, @vch_CCF_Cot, @psi_anio, @pti_mes) x    
                              WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
        END    
        ELSE    
            UPDATE fco_pi_pens_rt2    
            SET aporte_CCF =     
                (SELECT importe FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_CCF_Cot, @psi_anio, @pti_mes) x    
                  WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
            WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
              AND EXISTS (SELECT 1 FROM dbo.fntb_acum_mes_agr(@pch_compania, @vch_CCF_Cot, @psi_anio, @pti_mes) x    
                          WHERE x.trabajador = fco_pi_pens_rt2.trabajador AND x.importe <> 0)    
    
        /* Redondeos (IBC al múltiplo de mil más cercano, Aportes al múltiplo de cien más cercano) */    
        UPDATE fco_pi_pens_rt2    
        SET aporte_AFP = Round((aporte_AFP - 1)/100,0)*100,    
            voluntario_AFP = Round((voluntario_AFP - 1)/100,0)*100,    
            aporte_FSP_sol = Round((aporte_FSP_sol - 1)/100,0)*100,    
            aporte_FSP_sub = Round((aporte_FSP_sub - 1)/100,0)*100,    
            aporte_EPS = Round((aporte_EPS - 1)/100,0)*100,
			mesada = Round((mesada - 1)/1000,0)*1000
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
                
        UPDATE fco_pi_pens_rt2    
        SET tarifa_ccf = 0
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
          AND aporte_CCF = 0

        UPDATE fco_pi_pens_rt2    
        SET tarifa_AFP = 0, dias_AFP = 0, aporte_AFP = 0
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
          AND tipo_pension not in (4, 7, 11, 14)               

        DELETE fco_pi_pens_rt2  
        WHERE compania = @pch_compania  
          AND anio = @psi_anio  
          AND mes = @pti_mes  
          AND (sucursal = @pch_sucursal OR @pch_sucursal = '')  
          AND aporte_EPS + aporte_AFP + aporte_CCF = 0  

        /* TOTAL DE LA NOMINA */    
        SELECT @vdc_nomina = SUM(IsNull(mesada, 0))  
        FROM fco_pi_pens_rt2  
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')  

        UPDATE fco_pi_pens_rt1    
        SET valor_nomina = ISNULL(@vdc_nomina, 0)    
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')                  
                          
        /* TOTAL DE EMPLEADOS */    
        SELECT @vsi_empleados = COUNT(*)    
        FROM fco_pi_pens_rt2    
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
    
        UPDATE fco_pi_pens_rt1    
        SET nro_pensionados = ISNULL(@vsi_empleados, 0)    
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
    
        /* RENUMERACION DE LA SECUENCIA */   
        SELECT compania cia, trabajador tra, IDENTITY(smallint, 1, 1) sec  
        INTO #renumera  
        FROM fco_pi_pens_rt2  
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
        ORDER BY secuencia  
  
        UPDATE fco_pi_pens_rt2  
        SET secuencia = RIGHT('0000000' + RTRIM(sec), 7)  
        FROM #renumera  
        WHERE compania = @pch_compania AND anio = @psi_anio AND mes = @pti_mes AND (sucursal = @pch_sucursal OR @pch_sucursal = '')    
          AND compania = cia  
          AND trabajador = tra  
  
        DROP TABLE #renumera  
            
    END /*1*/    
END    
GO
GRANT EXECUTE ON dbo.sp_fco_planilla_integrada_pens TO PUBLIC
GO

