Para el proceso de AuTOLIQUIDACION 17.08.2017 El Usuario PMIDASOFT De la Empresa CERESCOS S.A.S glo:tipo_liq Beneficiario Periodo 201707 Version MSL02:AUTO5_17 Liq:MnjAlias SYF:PROCESO_WEB Version 2017 MSSQL loc:Debug 1 loc:DebugEMP filtrado inicia CARGARQEMP GLO:FILTRADO loc:debugemp FILTRO del ESE ACTIVOS: SELECT * FROM ESE WHERE ESE.EMP_SS = 'CN' AND ESE.SUCURSAL = 'CE' AND ESE.SERVICIO = 'PE' AND ESE.DOCTO_IDENT = '79114409' AND ESE.ESTADO <> 'R' ORDER BY ESE.DOCTO_IDENT ACTIVOS - EMPRESA CN SERVICIO PE DOCTO_IDENT 79114409 ese:f_vigencia 30.01.2017 cat:f_fin 30.07.2017 ese:sal_rep 16029000 --INICIA CONTINUAACTIVOS DOCTO_IDENT 79114409 SERVICIO PE Tarifa ESV 160 Tarifa 160 tns:UpdateSal2 S sal_bas$ 16029000 ese:sal_rep 16029000 ese:sal_fijo 0 ARP# 0 Tarifa ESV 160 Tarifa 160 sal_bas$ 16029000 ese:sal_rep 16029000 FIN CONTINUAACTIVOS DOCTO_IDENT 79114409 SERVICIO PE sal_bas$ 16029000 loc:tarifa 160 esv:aporte 160 ARP# 0 INICIA CreaAma AMA EMPLEADO 79114409 esv:emp_ss, esv:sucursal.esv:servicio CNCEPE Creando Dato Basicos del Ama GLO:VERIFIQUEALIAS 0 emp:idempleadoor despues de alias en estructura_adm AMA:COD_TIPO 1 AMA:COD_SUBTIPO AMA:PENSIONADO 0 LOC:PENSIONADO_COMP 0 ama:producto AMA:TIPO_COTIZANTE DP1 CTROL EXTRANJERO SERVICIO P EMP:CIUDAD_N 11001 FIN CreaAma A GRABAR EMPLEADO 79114409 AMA:SALARIO 16029000 SAL_BAS$ 16029000 AMA:SAL_BAS 16029000 AMA:emp_ss, AMA:sucursal, AMA:SERVICIO CNCEPE AMA:TARIFA 160 AMA:ANOS 2017 AMA:MESS 08 VA A ver_nov Despues de do activos LOC:ACTIVOSESE 2 INICIA NOVE_PORPRD en Liquidar 201707 FILTRADO SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '07' AND NVS.DOCTO_IDENT = '79114409' AND NVS.EMP_SS = 'CN' AND NVS.SUCURSAL = 'CE' AND NVS.SERVICIO = 'PE' ORDER BY NVS.DOCTO_IDENT,NVS.F_INI RECORDS(SYF:QEMP) 0 NVS:DOCTO_IDENT 79114409 NVS:MES 07 GLO:MES 07 NVS:cod_novedad 07 NVS:cod_novedad 07 pss:noved_ret 02 Autol:CtlNVSAntg S nvs:servicio PE pss:noved_ing 01 NVS:MES 07 GLO:MES 07 BUSCA NPS Autol:CtlNVSAntg S Autol:CtlNVSAntg_O S FIN NOVE_PORPRD - PERIODO 201707 nvs:servicio PE nvs:cod_novedad 07 nvs:valor 4705878 nvs:DOCTO_IDENT 79114409 loc:docto_ident NVS:salario 16029000 sal_bas$ 16029000 NOVE_PORPRD - PERIODO 201707 nvs:servicio PE nvs:cod_novedad 07 nvs:valor 4705878 nvs:DOCTO_IDENT 79114409 loc:docto_ident ese:sal_rep 16029000 FIN NOVE_PORPRD - ANTES DE CREAMA INICIA CreaAma AMA EMPLEADO 79114409 esv:emp_ss, esv:sucursal.esv:servicio CNCEPE ENCUENTRA AMA DOC_IDENT 79114409 esv:emp_ss CN esv:sucursal CE esv:servicio PE RECORDS(SYF:QEMP) 0 NVS:DOCTO_IDENT 79114409 NVS:MES 07 GLO:MES 07 NVS:cod_novedad 11 NVS:cod_novedad 11 pss:noved_ret 02 Autol:CtlNVSAntg S nvs:servicio PE pss:noved_ing 01 NVS:MES 07 GLO:MES 07 BUSCA NPS Autol:CtlNVSAntg S Autol:CtlNVSAntg_O S FIN NOVE_PORPRD - PERIODO 201707 nvs:servicio PE nvs:cod_novedad 11 nvs:valor 3084321.23076923 nvs:DOCTO_IDENT 79114409 loc:docto_ident 79114409 NVS:salario 13365392 sal_bas$ 16029000 NOVE_PORPRD - PERIODO 201707 nvs:servicio PE nvs:cod_novedad 11 nvs:valor 3084321.23076923 nvs:DOCTO_IDENT 79114409 loc:docto_ident 79114409 ese:sal_rep 16029000 RECORDS(SYF:QEMP) 0 NVS:DOCTO_IDENT 79114409 NVS:MES 07 GLO:MES 07 NVS:cod_novedad 11 NVS:cod_novedad 11 pss:noved_ret 02 Autol:CtlNVSAntg S nvs:servicio PE pss:noved_ing 01 NVS:MES 07 GLO:MES 07 BUSCA NPS Autol:CtlNVSAntg S Autol:CtlNVSAntg_O S FIN NOVE_PORPRD - PERIODO 201707 nvs:servicio PE nvs:cod_novedad 11 nvs:valor 2978168 nvs:DOCTO_IDENT 79114409 loc:docto_ident 79114409 NVS:salario 2978168 sal_bas$ 16029000 NOVE_PORPRD - PERIODO 201707 nvs:servicio PE nvs:cod_novedad 11 nvs:valor 2978168 nvs:DOCTO_IDENT 79114409 loc:docto_ident 79114409 ese:sal_rep 16029000 INICIA NOVE_PORPRD en Liquidar 201708 FILTRADO SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '08' AND NVS.DOCTO_IDENT = '79114409' AND NVS.EMP_SS = 'CN' AND NVS.SUCURSAL = 'CE' AND NVS.SERVICIO = 'PE' ORDER BY NVS.DOCTO_IDENT,NVS.F_INI EN ALIASSINPAPA, LOC:EMXTIPO_REL qla:docto_ident 79114409 glo:tipo_liq Beneficiario A-. qla:emp_ss CN qla:sucursal CE qla:servicio PE TOPE CREE Mllg:TOPE_CREE 10 Aplica_CREE 1 Mllg:AGRUP_CREE CREE Autol:VST_Var N TOPE CREE Mllg:TOPE_CREE 10 TOPE CREE Mllg:TOPE_CREE 7377000 VSY:SAL_MIN_LEGA 737700 Mllg:CREE_BASE IBC --------- Inicia Msl02:Auto5_17 ESV:EMP_SS CN ESV:SUCURSAL CE ESV:SERVICIO PE ESS:EMP_SS CN ESS:SAL_MINIMO 1 filtro Mllg:ANO_REDONDEO 2017 AMA:RoundEXTRAnJ N RECORDS(SYF:QEMP) 0 Msl02:Auto5_17-Version 2017 MSSQL *****Tipo de Servicio P Servicio PE LOC:TOPEMAX 18442500 Tarifa SER 160 Tarifa 160 ARPSC# 0 SER:TOPEMAXAPORT 25 SERTOPEMAXAPORT$ 18442500 pss:tope_salmax 25 psstope_salmax$ 18442500 --------INICIO ProcesarAMA - loc:docto_ident esv:SERVICIO PE esv:sucursal CE glo:tipo_liq Beneficiario qla:docto_ident 79114409 ProcesarAMA fILTRADO SELECT AMA.CNSAMA FROM AMA WHERE AMA.ANO = '2017' AND AMA.MES = '07' AND AMA.EMP_SS = 'CN' AND AMA.SUCURSAL = 'CE' AND AMA.SERVICIO = 'PE' AND AMA.DOCTO_IDENT = '79114409' ORDER BY AMA.DOCTO_IDENT --------INICIO Ciclo ProcesarAMA - DEL EMPLEADO 79114409 LOC:FILTRADO SELECT AMA.CNSAMA FROM AMA WHERE AMA.ANO = '2017' AND AMA.MES = '07' AND AMA.EMP_SS = 'CN' AND AMA.SUCURSAL = 'CE' AND AMA.SERVICIO = 'PE' AND AMA.DOCTO_IDENT = '79114409' ORDER BY AMA.DOCTO_IDENT AMA:DOCTO_IDENT 79114409 RECORDS(SYF:QEMP) 0 INICIA BUSCARCOD_ RECORDS(QSER) 3 QSER:SERVICIO PE QSER:TIPO P ama:docto_ident 79114409 QSER:SERVICIO PE QSER:TIPO P ese:emp_ss CN ese:estado ESV:EMP_SS CN ESV:SUCURSAL CE ESV:SERVICIO PE ESV:CODIGO 25-14 QSER:SERVICIO SF QSER:TIPO S ama:docto_ident 79114409 QSER:SERVICIO SF QSER:TIPO S ese:emp_ss CO ese:estado ESV:EMP_SS CO ESV:SUCURSAL CE ESV:SERVICIO SF ESV:CODIGO EPS001 QSER:SERVICIO SJ QSER:TIPO S ama:docto_ident 79114409 FIN BUSCARCOD_ ama:cod_neps ama:cod_nafp Despues de VerAlias salbasalias$ 0 sal_bas$ 0 *****INICIA CARGANDO NOVEDADES REPORTADAS**** RECORDS(QPRD) 2 QPRD:Ano 2017 QPRD:MES 07 SQL para CARGAr NVS SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '07' AND NVS.EMP_SS = 'CN' AND NVS.SUCURSAL = 'CE' AND NVS.SERVICIO = 'PE' AND NVS.DOCTO_IDENT = '79114409' ORDER BY NVS.DOCTO_IDENT -------------------------------------------------- --NVS:MES 07 GLO:MES 07 NVS:cod_novedad 07 pss:noved_ret 02 RETPDSIG# 0 ESE:ESTADO RETPDSIG# 0 -------------------------------------------------- ENCONTRANDO NVS - nvs:servicio PE nvs:cod_novedad 07 nvs:valor 4705878 NVS:DIAS 0 sal_bas$ 0 NVS:SALARIO 16029000 RETPDSIG# 0 CARGANDO NVS - Qnvs:servicio PE qnvs:cod_novedad 07 qnvs:valor 4705878 qnvs:DOCTO_IDENT 79114409 QNVS:DIAS_ATRAS 0 QNVS:DIAS 0 INCATRAS# 0 NVS:SALARIO 16029000 sal_bas$ 0 RETPDSIG# 0 CARGANDO QnvsIR - QnvsIR:servicio PE QnvsIR:cod_novedad 07 QnvsIR:valor 4705878 QnvsIR:DOCTO_IDENT 79114409 ADD QnvsIR:F_INI 1.07.2017 QnvsIR:DIAS 0 QnvsIR:SALARIO 16029000 -------------------------------------------------- --NVS:MES 07 GLO:MES 07 NVS:cod_novedad 11 pss:noved_ret 02 RETPDSIG# 0 ESE:ESTADO RETPDSIG# 0 -------------------------------------------------- ENCONTRANDO NVS - nvs:servicio PE nvs:cod_novedad 11 nvs:valor 3084321.23076923 NVS:DIAS 3 sal_bas$ 0 NVS:SALARIO 13365392 RETPDSIG# 0 CARGANDO NVS - Qnvs:servicio PE qnvs:cod_novedad 11 qnvs:valor 3084321.23076923 qnvs:DOCTO_IDENT 79114409 QNVS:DIAS_ATRAS 0 QNVS:DIAS 3 INCATRAS# 0 NVS:SALARIO 13365392 sal_bas$ 0 RETPDSIG# 0 CARGANDO QnvsIR - QnvsIR:servicio PE QnvsIR:cod_novedad 11 QnvsIR:valor 3084321.23076923 QnvsIR:DOCTO_IDENT 79114409 ADD QnvsIR:F_INI 1.07.2017 QnvsIR:DIAS 3 QnvsIR:SALARIO 13365392 -------------------------------------------------- --NVS:MES 07 GLO:MES 07 NVS:cod_novedad 11 pss:noved_ret 02 RETPDSIG# 0 ESE:ESTADO RETPDSIG# 0 -------------------------------------------------- ENCONTRANDO NVS - nvs:servicio PE nvs:cod_novedad 11 nvs:valor 2978168 NVS:DIAS 3 sal_bas$ 0 NVS:SALARIO 2978168 RETPDSIG# 0 CARGANDO NVS - Qnvs:servicio PE qnvs:cod_novedad 11 qnvs:valor 2978168 qnvs:DOCTO_IDENT 79114409 QNVS:DIAS_ATRAS 0 QNVS:DIAS 3 INCATRAS# 0 NVS:SALARIO 2978168 sal_bas$ 0 RETPDSIG# 0 CARGANDO QnvsIR - QnvsIR:servicio PE QnvsIR:cod_novedad 11 QnvsIR:valor 2978168 QnvsIR:DOCTO_IDENT 79114409 ADD QnvsIR:F_INI 21.07.2017 QnvsIR:DIAS 3 QnvsIR:SALARIO 2978168 FIN CARGANDO NVSINCLMA# 0 QPRD:MES 07 GLO:SERSF SF,SJ LOC:MnjIncAtras N GLO:SERRP PE Records(qnvs) 3 *****INICIA CARGANDO NOVEDADES REPORTADAS**** RECORDS(QPRD) 2 QPRD:Ano 2017 QPRD:MES 08 SQL para CARGAr NVS SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '08' AND NVS.EMP_SS = 'CN' AND NVS.SUCURSAL = 'CE' AND NVS.SERVICIO = 'PE' AND NVS.DOCTO_IDENT = '79114409' ORDER BY NVS.DOCTO_IDENT FIN CARGANDO NVSINCLMA# 0 QPRD:MES 07 GLO:SERSF SF,SJ LOC:MnjIncAtras N GLO:SERRP PE Records(qnvs) 3 Despues de CargarNVS salbasalias$ 0 sal_bas$ 0 Records(QNVS) 3 loc:docto_ident 79114409 sal_bas$ 0 esv:servicio PE incio ProcesaQNVS Records(Qnvs) 3 CICLO QNVS Qnvs:servicio PE qnvs:cod_novedad qnvs:dias 007 qnvs:valor 4705878 qnvs:DOCTO_IDENT 79114409 -- Inicio proces_nv - qnvs:cod_novedad 07 Para qnvs:DOCTO_IDENT 79114409 qnvs:dias 0 qnvs:valor 4705878 LOC:TARIFA 160 salbasalias$ 0 sal_bas$ 0 ese:sal_rep 16029000 qnvs:cod_novedad 07 qnvs:DOCTO_IDENT 79114409 cn_v[nv#] nv# 1 RETPDSIG# 0 pss:noved_ret 02 -- INCATRAS# 0 qnvs:cod_novedad 07 qnvs:dias 0 QNVS:DIAS_ATRAS 0 pss:noved_irp 13 pss:noved_arp 14 pss:noved_irp 13 pss:noved_arp 14 pss:noved_ige 09 pss:noved_lma 10 ---------- INCATRAS# 0 PONERX# 1 qnvs:cod_novedad 07 qnvs:dias 0 QNVS:DIAS_ATRAS 0 pss:noved_irp 13 pss:noved_arp 14 pss:noved_ige 09 pss:noved_lma 10 RETPDSIG# 0 pss:noved_ret 02 ---------- LOC:LETRA X QNVS:COD_NOVEDAD 07 PSS:NOVED_RET 02 qnvs:cod_novedad 07 Autol:NovedadNS 17 qnvs:valor 4705878 valor_nsal$ 0 qnvs:valor 4705878 -- FIN proces_nv qnvs:cod_novedad 07 Para qnvs:DOCTO_IDENT 79114409 dias_sln$ 0 diasAtras_Ige$ 0 diasAtras_lma$ 0 diasAtras_IRP$ 0 diasAtras_ARP$ 0 QNVS:DIAS_ATRAS 0 QNVS:DIAS 0 valor_vst$ 4705878 CICLO QNVS Qnvs:servicio PE qnvs:cod_novedad qnvs:dias 311 qnvs:valor 3084321.23076923 qnvs:DOCTO_IDENT 79114409 -- Inicio proces_nv - qnvs:cod_novedad 11 Para qnvs:DOCTO_IDENT 79114409 qnvs:dias 3 qnvs:valor 3084321.23076923 LOC:TARIFA 160 salbasalias$ 0 sal_bas$ 0 ese:sal_rep 16029000 qnvs:cod_novedad 11 qnvs:DOCTO_IDENT 79114409 cn_v[nv#] nv# 2 RETPDSIG# 0 pss:noved_ret 02 -- INCATRAS# 0 qnvs:cod_novedad 11 qnvs:dias 3 QNVS:DIAS_ATRAS 0 pss:noved_irp 13 pss:noved_arp 14 pss:noved_irp 13 pss:noved_arp 14 pss:noved_ige 09 pss:noved_lma 10 ---------- INCATRAS# 0 PONERX# 1 qnvs:cod_novedad 11 qnvs:dias 3 QNVS:DIAS_ATRAS 0 pss:noved_irp 13 pss:noved_arp 14 pss:noved_ige 09 pss:noved_lma 10 RETPDSIG# 0 pss:noved_ret 02 ---------- LOC:LETRA X QNVS:COD_NOVEDAD 11 PSS:NOVED_RET 02 qnvs:cod_novedad 11 Autol:NovedadNS 17 qnvs:valor 3084321.23076923 valor_nsal$ 0 qnvs:valor 3084321.23076923 -- FIN proces_nv qnvs:cod_novedad 11 Para qnvs:DOCTO_IDENT 79114409 dias_sln$ 0 diasAtras_Ige$ 0 diasAtras_lma$ 0 diasAtras_IRP$ 0 diasAtras_ARP$ 0 QNVS:DIAS_ATRAS 0 QNVS:DIAS 3 valor_vst$ 4705878 CICLO QNVS Qnvs:servicio PE qnvs:cod_novedad qnvs:dias 311 qnvs:valor 2978168 qnvs:DOCTO_IDENT 79114409 -- Inicio proces_nv - qnvs:cod_novedad 11 Para qnvs:DOCTO_IDENT 79114409 qnvs:dias 3 qnvs:valor 2978168 LOC:TARIFA 160 salbasalias$ 0 sal_bas$ 0 ese:sal_rep 16029000 -- INCATRAS# 0 qnvs:cod_novedad 11 qnvs:dias 3 QNVS:DIAS_ATRAS 0 pss:noved_irp 13 pss:noved_arp 14 pss:noved_irp 13 pss:noved_arp 14 pss:noved_ige 09 pss:noved_lma 10 ---------- INCATRAS# 0 PONERX# 1 qnvs:cod_novedad 11 qnvs:dias 3 QNVS:DIAS_ATRAS 0 pss:noved_irp 13 pss:noved_arp 14 pss:noved_ige 09 pss:noved_lma 10 RETPDSIG# 0 pss:noved_ret 02 ---------- LOC:LETRA X QNVS:COD_NOVEDAD 11 PSS:NOVED_RET 02 qnvs:cod_novedad 11 Autol:NovedadNS 17 qnvs:valor 2978168 valor_nsal$ 0 qnvs:valor 2978168 -- FIN proces_nv qnvs:cod_novedad 11 Para qnvs:DOCTO_IDENT 79114409 dias_sln$ 0 diasAtras_Ige$ 0 diasAtras_lma$ 0 diasAtras_IRP$ 0 diasAtras_ARP$ 0 QNVS:DIAS_ATRAS 0 QNVS:DIAS 3 valor_vst$ 4705878 DESPUES DEL CICLO valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 6062489.23076923 dias_ret# 0 dias_tda# 0 loc:tarifa 160 LOC:TOTALSLN 0 LOC:DIAS_SLN 0 ser:tipo P -- Fin ProcesaQNVS qnvs ser:tipo P dias_sln$ 0 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 6062489.23076923 dias_ret# 0 dias_tda# 0 loc:tarifa 160 DESPUES DE ProcesaQNVS xdias# 0 dias_ret# 0 sal_bas$ 0 dias_tda# 0 PROCESARAMA EMPLEADO 79114409 xdias# 0 SER:TOPEMAXAPORT 25 ESV:TOPEMAXAPORT 25 LOC:TOPEMAX 18442500 sal_bas$ 0 ese:estado loc:docto_ident 79114409 loc:tarifa 160 VERIFIQUERETIROYTRASLADOS EMPLEADO 79114409 xdias# 0 ser:aporte 160 esv:aporte 160 ARP# 0 salbasalias$ 0 sal_bas$ 0 TARIFA SER 160 TARIFA DE ESV 160 Tarifa 160 LOC:TOPEMAX 18442500 SER:TOPEMAXAPORT 25 ESV:TOPEMAXAPORT 25 ARP# 0 SERTOPEMAXAPORT$ 18442500 ESVTOPEMAXAPORT$ 18442500 LOC:DOCTO_LIQ 0 Actualizar ama por novedades salbasalias$ 0 sal_bas$ 16029000 loc:codigo_ct LOC:TOPEMAX 18442500 loc:tarifa 160 AMA:Novedad_v datos_ama nret# 0 ------------SALARIOINGRET QNVSINGRE 0 QnvsIR 3 SALPROM$ 0 SALINGRET$ 0 SALARNOV$ 0 sal_bas$ 16029000 Antes de VERICAINGRESOYRETIROS DATOS AMA sumdias# 0 dias_ret# 0 dias_ing# 0 loc:sal_bas 16029000 ser:tiempo_t 0 ama:docto_ident 79114409 VERICAINGRESOYRETIROS sumdias# 0 ning# 0 nret# 0 QNVSINGRE 0 ama:dias_cot 30 ser:tiempo_t 0 Autol:CtlNVSIgRtF S ama:servicio PE Despues de VERICAINGRESOYRETIROS ser:tipo P ama:sal_bas 16029000 sal_bas$ 16029000 ama:docto_ident 79114409 ama:dias_cot 30 dias_c# 0 loc:tarifa 160 INICIO diascambiosal ser:tipo P DIASCAMBIOSAL$ 30 sal_bas$ 16029000 ama:docto_ident 79114409 stotal$ 0 dias_c# 0 ult_sal$ 0 ***Autol:SalBase C sal_bas$ 16029000 sal_base$ 16029000 ese:sal_int N ama:dias_cot 30 pSS:por_sal_int 30 Antes de diasnovedad ser:tipo P IBC 16029000 ama:sal_bas 16029000 sal_bas$ 16029000 ama:docto_ident 79114409 Dias_ibc# 0 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 6062489.23076923 Autol:SalBase C INICIO diasnovedad ser:tipo P INCATRAS# 0 LOC:REVNVNRP N ama:dias_cot 30 Autol:PagPen S valor_arp$ 0 valor_irp$ 0 FIN diasnovedad ser:tipo P INCATRAS# 0 LOC:REVNVNRP N ama:dias_cot 30 valor_vst$ 4705878 despues de diasnovedad DIAS NOVEDAD 6 dias_ibc# 24 dias_cot# 30 Autol:ATAFSP valor_irp$ 0 valor_arp$ 0 ama:dias_cot 30 Antes de Autol:IbcDesTop S ser:tipo P IBC 16029000 dias_ibc# 24 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 6062489.23076923 ama:dias_cot 30 Inicia Ajustar Ibc 16029000 ser:ajusta_min 5 ESSSAL_MINIMO 0 ama:dias_cot 30 sumdias# 0 ARP# 0 dias_ibc# 24 ser:tiempo_t 0 ARPSC# 0 --ESS:SAL_MINIMO 1 VSY:SAL_MIN_LEGA 737700 SERAJUSTAMIN ser:ajusta_min 5 ama:pensionado 0 LOC:PENSIONADO_COMP 0 INICIA MINIMO_INT LOC:sal_minimo 737700 LOC:MnjTopMinSI N ese:sal_int N LOC:SalMinSI 0 ESSSAL_MINIMO 737700 INICIA Ajustadias ARP# 0 ARPSC# 0 sumdias# 0 DIAS_AJ# 30 dias_ibc# 24 Ajuste por 5 ibc$ 16029000 LOC:sal_minimo 737700 ama:dias_cot 30 Ajuste Ibc 16029000 ajustar# 0 ESSSAL_MINIMO 737700 Fin SERAJUSTAMIN Ibc 16029000 ajustar# 0 ama:dias_cot 30 DIAS_AJ# 30 --CalculaIBC INICIO ser:tipo P IBC$ 16029000 dias_ibc# 24 Autol:DiaCotRet N sumdias# 0 ese:SAL_FIJO 0 INCATRAS# 0 dias_cotR# 0 EMP:IND_P_LIQ 1 EMP:VAR_TRA_10 0 tns:UpdateSal2 S 1-.CALCULANDO IBC 16029000 diasibcDvF# 24 INCATRAS# 0 diasibcDv# 24 diasibcDvR# 0 DIASCT# 30 sumdias# 0 valor_irp$ 0 Autol:ATAFSP LOC:REVNVNRP N CALCULANDO IBC SALINGRET$ 0 Autol:SinAusen N 1.1-.CALCULANDO IBC antes de restar asociacion 16029000 LOC:ASOCIACION 0 1.2-.CALCULANDO IBC antes de restar asociacion 16029000 suma_Vlr_nov$ 6062489.23076923 Autol:SinAusen N 1.3-.CALCULANDO IBC DESPUES SIN AUSENCIAS 16029000 suma_Vlr_nov$ 6062489.23076923 SALINGRET$ 0 suma_Vlr_nov$ 6062489.23076923 ese:SAL_FIJO 0 ibc$ 16029000 valor_irp$ 0 LOC:VPS 0 1.4-.CALCULANDO IBC DESPUES 16029000 suma_Vlr_nov$ 6062489.23076923 LOC:VPS 0 LOC:BASENLAB 0 1.6-.CALCULANDO IBC 16029000 DIASCT# 30 diasibcDvF# 24 suma_Vlr_nov$ 6062489.23076923 LOC:VPS 0 1.7-.CALCULANDO IBC 18885689.2307692 DIASCT# 30 diasibcDvF# 24 suma_Vlr_nov$ 6062489.23076923 cambioporfeb# 0 Diafebrero 0 2-.CALCULADO IBC ser:tipo P IBC 18885689.2307692 DIASCT# 30 diasibcDvF# 24 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 6062489.23076923 diasibcDv# 24 Autol:SinAusen N diasibcDvR# 0 suma_Vlr_nov$ 6062489.23076923 LOC:BASENSALINI 18885689.2307692 Autol:ATAFSP ser:tipo P valor_irp$ 0 valor_arp$ 0 2.1-.CALCULADO IBC ser:tipo P IBC 18885689.2307692 INCATRAS# 0 ser:tipo P valor_irp$ 0 valor_arp$ 0 valor_vst$ 4705878 2.2-.SUMA CALCULADO IBC ser:tipo P IBC 23591567.2307692 valor_vst$ 4705878 ser:tipo P valor_irp$ 0 valor_arp$ 0 3-.CalculaIBC Final ser:tipo P IBC + Novedades 23591567.2307692 INCATRAS# 0 valor_vst$ 4705878 valor_irp$ 0 valor_arp$ 0 3.3-.CalculaIBC Final ser:tipo P IBC + BONO 23591567.2307692 BONO LOC:ASOCIACION 0 4-.CalculaIBC Final ser:tipo P IBC + Novedades 23591567.2307692 --base no laborado 0 5.CalculaIBC Final ser:tipo P IBC 23591567 ------------BASENSAL INICIA SER:SERVICIO PE valor_nsal$ 0 LOC:BASENLAB 0 ibc$ 23591567 Tns:PorcNS 0.4 LOC:BASENLAB 0 AUTOL:TipProcNS T AUTOL:FACTPRES_BN N Inicia CalcularTopeMax SER:SERVICIO PE LOC:TOPEMAX 18442500 ESV:TOPEMAXAPORT 25 LOC:BASENLAB 0 IBC$ 23591567 CalcularTopeMax INICIA SER:SERVICIO PE LOC:TOPEMAX 18442500 ibc$ 23591567 ama:dias_cot 30 TOPEMAX$ 0 LOC:FactPresD25M N Autol:TopemxC C TOPEMAX$ 18442500 ibc$ 23591567 **REDONDEAR_TOPEMAX ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442500 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442500 VALOR 18442500 ENTERO 18442500 DECIMAL 0 1. VALOR FINAL 18442500 LOC:VALOR 18442500 FINAL REDONDEO VALOR FINAL 18442500 VALOR ORIGINAL 18442500 TIPO 1 REDONDEAR_TOPEMAX TOPEMAX$ 18442500 LOC:TOPEMAXR 18442500 ULTDIG# 500 LONG# 8 LOC:APLITOPEMAX 0 NUEVO TOPEMAX$ 18442500 --ibc$ 23591567 LOC:IBCRR 23591567 Autol:NuevRedon S TOPEMAX$ 18442500 ********* Entrando funcion O_REDONDEO ***************** VALOR = 23591567 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 23591567 VALOR 23591567 ENTERO 23591567 DECIMAL 0 1. VALOR FINAL 23591567 LOC:VALOR 23591567 FINAL REDONDEO VALOR FINAL 23591567 VALOR ORIGINAL 23591567 TIPO 1 --SER:SERVICIO PE LOC:TOPEMAX 18442500 Autol:NuevRedon S ibc$ 23591567 ama:dias_cot 30 TOPEMAX$ 18442500 Autol:TopemxC C CalcularTopeMax FIN LOC:TOPEMAX 18442500 ibc$ 18442500 ama:sal_bas 16029000 LOC:APLITOPEMAX 1 xxxxxxxxxxxxx Despues de Loc:IbcDesTop ser:tipo P FIN IBC 18442500 ESS:EMP_SSCN Despues de comparar con Tope maximo Maximo 18442500 o tope_salmax$ 0 ESS:REDONDEO_ibc M LOC:REDONDEO 0.0001 loc:tarifa 160 Autol:CtrolRoundMin T ama:dias_cot 30 Autol:Redondeo 0.0001 LOC:OPERADOR 1 valor_vst$ 4705878 ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442500 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442500 VALOR 18442500 ENTERO 18442500 DECIMAL 0 1. VALOR FINAL 18442500 LOC:VALOR 18442500 FINAL REDONDEO VALOR FINAL 18442500 VALOR ORIGINAL 18442500 TIPO 1 antes de CTROL_ROUND --- LOC:IBC 18442500 IBC$ 18442500 ******** qqqqqqqqqqqqqqqqqqqqq CONTROL DE REDONDEO Autol:CtrolRoundMin T LOC:PENSIONADO_COMP 0 Autol:CondPenCom ************* ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442500 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442500 VALOR 18442500 ENTERO 18442500 DECIMAL 0 1. VALOR FINAL 18442500 LOC:VALOR 18442500 FINAL REDONDEO VALOR FINAL 18442500 VALOR ORIGINAL 18442500 TIPO 1 --ESS:SAL_MINIMO 1 ESSSAL_MINIMO 737700 VSY:SAL_MIN_LEGA 737700 --ESS:SAL_MINIMO 1 VSY:SAL_MIN_LEGA 737700 ********* Entrando funcion O_REDONDEO ***************** VALOR = 737700 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 737700 VALOR 737700 ENTERO 737700 DECIMAL 0 1. VALOR FINAL 737700 LOC:VALOR 737700 FINAL REDONDEO VALOR FINAL 737700 VALOR ORIGINAL 737700 TIPO 1 --LOC:SAL_MIN 737700 LOC:SALARIOIBC 18442500 LOC:IBC_MIN 737700 LOC:IBC 18442500 LOC:SALARIOIBC 18442500 ESSSAL_MINIMO 737700 TOME MAXIMO 18442500 LOC:IBC 18442500 AMA:DIAS_COT 30 CTROLMIN# 1 REDONDEA# 1 LOC:CTROLROUND T LOC:SAL_MIN 737700 LOC:SALARIOIBC 18442500 <= ESSSAL_MINIMO 737700 EXIT# 1 ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442500 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442500 VALOR 18442500 ENTERO 18442500 DECIMAL 0 1. VALOR FINAL 18442500 LOC:VALOR 18442500 FINAL REDONDEO VALOR FINAL 18442500 VALOR ORIGINAL 18442500 TIPO 1 LOC:SALARIOIBC 18442500 = LOC:TOPEMAX 18442500 EXIT# 1 VALIDA_BASE ANO 2017 AMA:DIAS_COT 30 ********* Entrando funcion O_REDMIN ***************** SERVICIO = IBC AŅO = 2017 DIAS = 30 TARIFA = 0 Autol:NuevRedon = S ---BUSCA IBC MINIMO PARA EL ANO 2017 DIAS 30 Autol:NuevRedon S INICIA IBC_NUEVO DIAS 30 MINIMO 737700 AŅO 2017 ********* Entrando funcion O_REDONDEO ***************** VALOR = 737700 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 737700 VALOR 737700 ENTERO 737700 DECIMAL 0 1. VALOR FINAL 737700 LOC:VALOR 737700 FINAL REDONDEO VALOR FINAL 737700 VALOR ORIGINAL 737700 TIPO 1 FIN IBC_NUEVO DIAS 30 IBC 737700 FIN BUSCA IBC PARA EL ANO 2017 LOC:IBC 737700 DIAS 30 REDONDEO = 737700 Syf:TipoRedondeo FIN VALIDA_BASE LOC:SAL_MIN 737700 ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442500 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442500 VALOR 18442500 ENTERO 18442500 DECIMAL 0 1. VALOR FINAL 18442500 LOC:VALOR 18442500 FINAL REDONDEO VALOR FINAL 18442500 VALOR ORIGINAL 18442500 TIPO 1 LOC:IBC 18442500 BASEREDONDEAD$ 18442500 LOC:IBC 18442500 LOC:SAL_MIN 737700 LOC:IBC_MIN 737700 EXIT# 0 LOC:PENSIONADO_COMP 0 ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442500 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442500 VALOR 18442500 ENTERO 18442500 DECIMAL 0 1. VALOR FINAL 18442500 LOC:VALOR 18442500 FINAL REDONDEO VALOR FINAL 18442500 VALOR ORIGINAL 18442500 TIPO 1 --REDONDEA# 1 LOC:IBC 18442500 ESS:REDONDEO_ibc M LOC:IBC_MIN 737700 LOC:APLITOPEMAX 1 LOC:PENSIONADO_COMP 0 veo 18442500 LOC:sal_minimo 737700 ese:sal_int N ama:ibc 18442500 ama:sal_bas 16029000 ese:sal_int N ama:sal_bas 16029000 ama:ibc 18442500 AUTOL:CAMB_SALBAS N LOC:sal_minimo 737700 ---IBC AL FINAL DEL REDONDEO 18442500 REDONDEA# 1 CTROLMIN# 1 LOC:IBC 18442500 ama:sal_bas 16029000 BUSCA_DEV DOCTO_IDENT 79114409 LOC:APLIC_CREE 1 SER:TIPO P AGRUPA CREEG Ley50 = CREE AGRUPA CREEG INTegral = VSY:REL_SALIN SI EMP:REL_LABORAL L5 AMA:COD_TIPO 1 AMA:VALOR_NRET 0 AMA:COD_TIPO 1 AMA:PENSIONADO 0 antes de ser:ind_calc I SERVICIO PE AMA:VALOR_NRET 0 LOC:DEVENGADOS 0 SER:TIPOCALCFND T SER:TABLAFND 06 TABLA FONDO 06 TABLA FONDO PENSIONADO AMA:PENSIONADO 0 1 ANTES DE o_TabImp cONVERIR basetabla$ 18442500 ama:ibc 18442500 VSY:SAL_MIN_LEGA 737700 2 ANTES DE o_TabImp cONVERIR basetabla$ 25 ama:ibc 18442500 VSY:SAL_MIN_LEGA 737700 Ibc Base 18442500 basetabla$ 25 TABLA FONDO 06 TIM:Var_Imp_01 2000 tipo de calculo T Valor base para el fondo 18442500 Porc fondo 2 TIM:Var_Imp_01 2000 porc_fondo2$ 0.5 porc_fondo3$ 1.5 ********* Entrando funcion O_REDONDEO ***************** VALOR = 368850 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 368850 VALOR 3688.5 ENTERO 3688 DECIMAL 0.5 1. VALOR FINAL 3689 LOC:VALOR 3688.5 LOC:ENTERO 3688 2. VALOR FINAL 368900 LOC:VALOR 3688.5 FINAL REDONDEO VALOR FINAL 368900 VALOR ORIGINAL 368850 TIPO 2 ********* Entrando funcion O_REDONDEO ***************** VALOR = 92212.5 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 92212.5 VALOR 922.125 ENTERO 922 DECIMAL 0.125 1. VALOR FINAL 923 LOC:VALOR 922.125 LOC:ENTERO 922 2. VALOR FINAL 92300 LOC:VALOR 922.125 FINAL REDONDEO VALOR FINAL 92300 VALOR ORIGINAL 92212.5 TIPO 2 ********* Entrando funcion O_REDONDEO ***************** VALOR = 276637.5 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 276637.5 VALOR 2766.375 ENTERO 2766 DECIMAL 0.375 1. VALOR FINAL 2767 LOC:VALOR 2766.375 LOC:ENTERO 2766 2. VALOR FINAL 276700 LOC:VALOR 2766.375 FINAL REDONDEO VALOR FINAL 276700 VALOR ORIGINAL 276637.5 TIPO 2 VARIABLE Autol:FndSumSubcta S FONDO SOLIDARIDAD 368900 SUBCUENTA SOLIDARIDAD 92300 SUBCUENTA SUBSISTENCIA 276700 LOC:OPERADOR 1 NUEVO VARIABLE Autol:FndSumSubcta S FONDO SOLIDARIDAD 368900 SUBCUENTA SOLIDARIDAD 92300 SUBCUENTA SUBSISTENCIA 276700 NUEVO FONDO SOLIDARIDAD 369000 SUBCUENTA SOLIDARIDAD 92300 SUBCUENTA SUBSISTENCIA 276700 despues de CALCULA_FONDO ess:redondeo_fnd E ama:fondo_soli 369000 AMA:SUBCTA_SOLIDARIDAD 92300 AMA:SUBCTA_SUBSISTENCIA 276700 INICIA REDONDEOCOLOMBIA DOCTO_IDENT 79114409 ama:IBC 18442500 Autol:NuevRedon S ESS:REDONDEO_APT C TARIFA_CREE DOCTO_IDENT 79114409 LOC:APLIC_CREE 1 SER:TIPO P LOC:DEVENGADOS 0 LOC:TOPECREE 7377000 LOC:tarifa 160 LOC:BASICO 16029000 AMA:COD_TIPO 1 Mllg:CREE_BASE IBC AMA:PENSIONADO 0 esv:aporte 160 AMA:IBC 18442500 ESE:SAL_INT N ********* Entrando funcion O_REDONDEO ***************** VALOR = 2950800 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 2950800 VALOR 29508 ENTERO 29508 DECIMAL 0 1. VALOR FINAL 29508 LOC:VALOR 29508 LOC:ENTERO 29508 2. VALOR FINAL 2950800 LOC:VALOR 29508 FINAL REDONDEO VALOR FINAL 2950800 VALOR ORIGINAL 2950800 TIPO 2 INICIA REDONDEOCOLOMBIA AMA:COTIZ_OBL 2950800 LOC:IBC_MIN 737700 LOC:tarifa 160 INICIA REDONDEOCOLOMBIA AMA:COTIZ_OBL 2950800 LOC:APOR_MIN 118032 --CALCULAR APORTE BUSCAR COTIZACION 2950800 AMA:IBC 18442500 TARIFA 0.16 Aporte del minimo 118032 Ibc Minimo 737700 ********* Entrando funcion O_REDONDEO ***************** VALOR = 2950800 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 2950800 VALOR 29508 ENTERO 29508 DECIMAL 0 1. VALOR FINAL 29508 LOC:VALOR 29508 LOC:ENTERO 29508 2. VALOR FINAL 2950800 LOC:VALOR 29508 FINAL REDONDEO VALOR FINAL 2950800 VALOR ORIGINAL 2950800 TIPO 2 --LOC:APORTE 2950800 LOC:DECIMAL 0 LOC:SAL_MIN 737700 --NUEVO LOC:APORTE 2950800 LOC:DECIMAL 0 LOC:SAL_MIN 737700 LOC:tarifa 160 ********* Entrando funcion O_REDONDEO ***************** VALOR = 118032 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 118032 VALOR 1180.32 ENTERO 1180 DECIMAL 0.319999999999936 1. VALOR FINAL 1181 LOC:VALOR 1180.32 LOC:ENTERO 1180 2. VALOR FINAL 118100 LOC:VALOR 1180.32 FINAL REDONDEO VALOR FINAL 118100 VALOR ORIGINAL 118032 TIPO 2 --INICIA VERIFICA_APORTE SER:TIPO P AMA:DIAS_COT 30 AMA:PENSIONADO 0 LOC:TARIFA 160 LOC:APORT_MINX 0 ama:cotiz_obl 2950800 LOC:APORT_MIN 118100 ama:IBC 18442500 LOC:tarifa 160 LOC:IBC_MIN 737700 AMA:PENSIONADO 0 LOC:APLITOPEMAX 1 LOC:APORMAX 0 LOC:PENSIONADO_COMP 0 LOC:TOPEMAXRO 18442500 ********* Entrando funcion O_REDONDEO ***************** VALOR = 2950800 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 2950800 VALOR 29508 ENTERO 29508 DECIMAL 0 1. VALOR FINAL 29508 LOC:VALOR 29508 LOC:ENTERO 29508 2. VALOR FINAL 2950800 LOC:VALOR 29508 FINAL REDONDEO VALOR FINAL 2950800 VALOR ORIGINAL 2950800 TIPO 2 ********* Entrando funcion O_REDONDEO ***************** VALOR = 2950800 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 2950800 VALOR 2950800 ENTERO 2950800 DECIMAL 0 1. VALOR FINAL 2950800 LOC:VALOR 2950800 FINAL REDONDEO VALOR FINAL 2950800 VALOR ORIGINAL 2950800 TIPO 1 **APORTE_MAX LOC:TOPEMAXRO 18442500 LOC:APORT_MAX 2950800 LOC:APORT_MAXR 2950800 LOC:APORT_MAXA 2950800 LOC:tarifa 160 LOC:APLITOPEMAX 1 LOC:APORMAX 0 LOC:APORT_MIN 118100 LOC:APORT_MAX 2950800 LOC:APORTE 2950800 LOC:APORT_MIN 118100 LOC:APORT_MIN 118100 LOC:APORT_MAX 2950800 -- despues de VERIFICA_APORTE LOC:APORTE 2950800 LOC:IBC 18442500 TARIFA 0.16 LOC:APORT_MIN 118100 CTROLMIN# 1 LOC:APORMAX 0 LOC:APORMAX 0 Antes de ESS:REDONDEO_APT E RED_APOR# 1 ama:IBC 18442500 LOC:tarifa 160 LOC:REDONDEO 0.0001 LOC:PENSIONADO_COMP 0 LOC:APORTE 2950800 ********* Entrando funcion O_REDONDEO ***************** VALOR = 2950800 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 2950800 VALOR 29508 ENTERO 29508 DECIMAL 0 1. VALOR FINAL 29508 LOC:VALOR 29508 LOC:ENTERO 29508 2. VALOR FINAL 2950800 LOC:VALOR 29508 FINAL REDONDEO VALOR FINAL 2950800 VALOR ORIGINAL 2950800 TIPO 2 Despues de ESS:REDONDEO_APT E ama:cotiz_obl 2950800 ama:IBC 18442500 LOC:APORT_MIN 118100 RED_APOR# 1 ess:emp_ss CN OPERADOR 1 LOC:APORTE 2950800 COTIZACION OBLIGATORIA AL FINAL DEL REDONDEO 2950800 RED_APOR# 1 CTROLMIN# 1 LOC:IBC 18442500 RED_APOR# 1 SAL_VARIABLE DOCTO_IDENT 79114409 AMA:SAL_BAS 16029000 ESE:SAL_FIJO 0 TNS:UpdateSal2 S --LOC:BASENSALF 0 NOVEDAD X X NOVEDAD_V 07 11 ESE:SAL_FIJO 0 Autol:VST_Var N DESPUES LOC:BASENSALF 0 NOVEDAD X X NOVEDAD_V 07 11 ** ESE:SAL_FIJO 0 AMA:TARIFA 160 AMA:COTIZ_OBL 2950800 SERVICIO PE SER:TIPO P AMA:DOCTO_IDENT 79114409 AMA:IBC 18442500 AMA:SAL_BAS 16029000 ama:valor_vst 4705878 valor_vst$ 4705878 tns:UpdateSal2 S AMA:DIAS_COT 30 --------FIN ProcesarAMA se modifica el empleado 79114409 con admon: CN sucursal: CE servicio: PE FILTRO del ESE ACTIVOS: SELECT * FROM ESE WHERE ESE.EMP_SS = 'CO' AND ESE.SUCURSAL = 'CE' AND ESE.SERVICIO = 'SF' AND ESE.DOCTO_IDENT = '79114409' AND ESE.ESTADO <> 'R' ORDER BY ESE.DOCTO_IDENT ACTIVOS - EMPRESA CO SERVICIO SF DOCTO_IDENT 79114409 ese:f_vigencia 30.01.2017 cat:f_fin 30.07.2017 ese:sal_rep 16029000 --INICIA CONTINUAACTIVOS DOCTO_IDENT 79114409 SERVICIO SF Tarifa ESV 125 Tarifa 125 tns:UpdateSal2 S sal_bas$ 16029000 ese:sal_rep 16029000 ese:sal_fijo 0 ARP# 0 Tarifa ESV 125 Tarifa 125 sal_bas$ 16029000 ese:sal_rep 16029000 FIN CONTINUAACTIVOS DOCTO_IDENT 79114409 SERVICIO SF sal_bas$ 16029000 loc:tarifa 125 esv:aporte 125 ARP# 0 INICIA CreaAma AMA EMPLEADO 79114409 esv:emp_ss, esv:sucursal.esv:servicio COCESF Creando Dato Basicos del Ama GLO:VERIFIQUEALIAS 0 emp:idempleadoor despues de alias en estructura_adm AMA:COD_TIPO 1 AMA:COD_SUBTIPO AMA:PENSIONADO 0 LOC:PENSIONADO_COMP 0 ama:producto AMA:TIPO_COTIZANTE DP1 CTROL EXTRANJERO SERVICIO S EMP:CIUDAD_N 11001 FIN CreaAma A GRABAR EMPLEADO 79114409 AMA:SALARIO 16029000 SAL_BAS$ 16029000 AMA:SAL_BAS 16029000 AMA:emp_ss, AMA:sucursal, AMA:SERVICIO COCESF AMA:TARIFA 125 AMA:ANOS 2017 AMA:MESS 08 VA A ver_nov Despues de do activos LOC:ACTIVOSESE 2 INICIA NOVE_PORPRD en Liquidar 201707 FILTRADO SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '07' AND NVS.DOCTO_IDENT = '79114409' AND NVS.EMP_SS = 'CO' AND NVS.SUCURSAL = 'CE' AND NVS.SERVICIO = 'SF' ORDER BY NVS.DOCTO_IDENT,NVS.F_INI RECORDS(SYF:QEMP) 0 NVS:DOCTO_IDENT 79114409 NVS:MES 07 GLO:MES 07 NVS:cod_novedad 07 NVS:cod_novedad 07 pss:noved_ret 02 Autol:CtlNVSAntg S nvs:servicio SF pss:noved_ing 01 NVS:MES 07 GLO:MES 07 BUSCA NPS Autol:CtlNVSAntg S Autol:CtlNVSAntg_O S FIN NOVE_PORPRD - PERIODO 201707 nvs:servicio SF nvs:cod_novedad 07 nvs:valor 4705878 nvs:DOCTO_IDENT 79114409 loc:docto_ident NVS:salario 16029000 sal_bas$ 16029000 NOVE_PORPRD - PERIODO 201707 nvs:servicio SF nvs:cod_novedad 07 nvs:valor 4705878 nvs:DOCTO_IDENT 79114409 loc:docto_ident ese:sal_rep 16029000 FIN NOVE_PORPRD - ANTES DE CREAMA INICIA CreaAma AMA EMPLEADO 79114409 esv:emp_ss, esv:sucursal.esv:servicio COCESF ENCUENTRA AMA DOC_IDENT 79114409 esv:emp_ss CO esv:sucursal CE esv:servicio SF RECORDS(SYF:QEMP) 0 NVS:DOCTO_IDENT 79114409 NVS:MES 07 GLO:MES 07 NVS:cod_novedad 11 NVS:cod_novedad 11 pss:noved_ret 02 Autol:CtlNVSAntg S nvs:servicio SF pss:noved_ing 01 NVS:MES 07 GLO:MES 07 BUSCA NPS Autol:CtlNVSAntg S Autol:CtlNVSAntg_O S FIN NOVE_PORPRD - PERIODO 201707 nvs:servicio SF nvs:cod_novedad 11 nvs:valor 3084321.23076923 nvs:DOCTO_IDENT 79114409 loc:docto_ident 79114409 NVS:salario 13365392 sal_bas$ 16029000 NOVE_PORPRD - PERIODO 201707 nvs:servicio SF nvs:cod_novedad 11 nvs:valor 3084321.23076923 nvs:DOCTO_IDENT 79114409 loc:docto_ident 79114409 ese:sal_rep 16029000 RECORDS(SYF:QEMP) 0 NVS:DOCTO_IDENT 79114409 NVS:MES 07 GLO:MES 07 NVS:cod_novedad 11 NVS:cod_novedad 11 pss:noved_ret 02 Autol:CtlNVSAntg S nvs:servicio SF pss:noved_ing 01 NVS:MES 07 GLO:MES 07 BUSCA NPS Autol:CtlNVSAntg S Autol:CtlNVSAntg_O S FIN NOVE_PORPRD - PERIODO 201707 nvs:servicio SF nvs:cod_novedad 11 nvs:valor 2978168 nvs:DOCTO_IDENT 79114409 loc:docto_ident 79114409 NVS:salario 2978168 sal_bas$ 16029000 NOVE_PORPRD - PERIODO 201707 nvs:servicio SF nvs:cod_novedad 11 nvs:valor 2978168 nvs:DOCTO_IDENT 79114409 loc:docto_ident 79114409 ese:sal_rep 16029000 INICIA NOVE_PORPRD en Liquidar 201708 FILTRADO SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '08' AND NVS.DOCTO_IDENT = '79114409' AND NVS.EMP_SS = 'CO' AND NVS.SUCURSAL = 'CE' AND NVS.SERVICIO = 'SF' ORDER BY NVS.DOCTO_IDENT,NVS.F_INI EN ALIASSINPAPA, LOC:EMXTIPO_REL qla:docto_ident 79114409 glo:tipo_liq Beneficiario A-. qla:emp_ss CO qla:sucursal CE qla:servicio SF TOPE CREE Mllg:TOPE_CREE 10 Aplica_CREE 1 Mllg:AGRUP_CREE CREE Autol:VST_Var N TOPE CREE Mllg:TOPE_CREE 10 TOPE CREE Mllg:TOPE_CREE 7377000 VSY:SAL_MIN_LEGA 737700 Mllg:CREE_BASE IBC --------- Inicia Msl02:Auto5_17 ESV:EMP_SS CO ESV:SUCURSAL CE ESV:SERVICIO SF ESS:EMP_SS CO ESS:SAL_MINIMO 1 filtro Mllg:ANO_REDONDEO 2017 AMA:RoundEXTRAnJ N RECORDS(SYF:QEMP) 0 Msl02:Auto5_17-Version 2017 MSSQL *****Tipo de Servicio S Servicio SF LOC:TOPEMAX 18442500 Tarifa SER 125 Tarifa 125 ARPSC# 0 SER:TOPEMAXAPORT 25 SERTOPEMAXAPORT$ 18442500 pss:tope_salmax 25 psstope_salmax$ 18442500 --------INICIO ProcesarAMA - loc:docto_ident esv:SERVICIO SF esv:sucursal CE glo:tipo_liq Beneficiario qla:docto_ident 79114409 ProcesarAMA fILTRADO SELECT AMA.CNSAMA FROM AMA WHERE AMA.ANO = '2017' AND AMA.MES = '07' AND AMA.EMP_SS = 'CO' AND AMA.SUCURSAL = 'CE' AND AMA.SERVICIO = 'SF' AND AMA.DOCTO_IDENT = '79114409' ORDER BY AMA.DOCTO_IDENT --------INICIO Ciclo ProcesarAMA - DEL EMPLEADO 79114409 LOC:FILTRADO SELECT AMA.CNSAMA FROM AMA WHERE AMA.ANO = '2017' AND AMA.MES = '07' AND AMA.EMP_SS = 'CO' AND AMA.SUCURSAL = 'CE' AND AMA.SERVICIO = 'SF' AND AMA.DOCTO_IDENT = '79114409' ORDER BY AMA.DOCTO_IDENT AMA:DOCTO_IDENT 79114409 RECORDS(SYF:QEMP) 0 INICIA BUSCARCOD_ RECORDS(QSER) 3 QSER:SERVICIO PE QSER:TIPO P ama:docto_ident 79114409 QSER:SERVICIO PE QSER:TIPO P ese:emp_ss CN ese:estado ESV:EMP_SS CN ESV:SUCURSAL CE ESV:SERVICIO PE ESV:CODIGO 25-14 QSER:SERVICIO SF QSER:TIPO S ama:docto_ident 79114409 QSER:SERVICIO SF QSER:TIPO S ese:emp_ss CO ese:estado ESV:EMP_SS CO ESV:SUCURSAL CE ESV:SERVICIO SF ESV:CODIGO EPS001 QSER:SERVICIO SJ QSER:TIPO S ama:docto_ident 79114409 FIN BUSCARCOD_ ama:cod_neps ama:cod_nafp Despues de VerAlias salbasalias$ 0 sal_bas$ 0 *****INICIA CARGANDO NOVEDADES REPORTADAS**** RECORDS(QPRD) 2 QPRD:Ano 2017 QPRD:MES 07 SQL para CARGAr NVS SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '07' AND NVS.EMP_SS = 'CO' AND NVS.SUCURSAL = 'CE' AND NVS.SERVICIO = 'SF' AND NVS.DOCTO_IDENT = '79114409' ORDER BY NVS.DOCTO_IDENT -------------------------------------------------- --NVS:MES 07 GLO:MES 07 NVS:cod_novedad 07 pss:noved_ret 02 RETPDSIG# 0 ESE:ESTADO RETPDSIG# 0 -------------------------------------------------- ENCONTRANDO NVS - nvs:servicio SF nvs:cod_novedad 07 nvs:valor 4705878 NVS:DIAS 0 sal_bas$ 0 NVS:SALARIO 16029000 RETPDSIG# 0 CARGANDO NVS - Qnvs:servicio SF qnvs:cod_novedad 07 qnvs:valor 4705878 qnvs:DOCTO_IDENT 79114409 QNVS:DIAS_ATRAS 0 QNVS:DIAS 0 INCATRAS# 0 NVS:SALARIO 16029000 sal_bas$ 0 RETPDSIG# 0 CARGANDO QnvsIR - QnvsIR:servicio SF QnvsIR:cod_novedad 07 QnvsIR:valor 4705878 QnvsIR:DOCTO_IDENT 79114409 ADD QnvsIR:F_INI 1.07.2017 QnvsIR:DIAS 0 QnvsIR:SALARIO 16029000 -------------------------------------------------- --NVS:MES 07 GLO:MES 07 NVS:cod_novedad 11 pss:noved_ret 02 RETPDSIG# 0 ESE:ESTADO RETPDSIG# 0 -------------------------------------------------- ENCONTRANDO NVS - nvs:servicio SF nvs:cod_novedad 11 nvs:valor 3084321.23076923 NVS:DIAS 3 sal_bas$ 0 NVS:SALARIO 13365392 RETPDSIG# 0 CARGANDO NVS - Qnvs:servicio SF qnvs:cod_novedad 11 qnvs:valor 3084321.23076923 qnvs:DOCTO_IDENT 79114409 QNVS:DIAS_ATRAS 0 QNVS:DIAS 3 INCATRAS# 0 NVS:SALARIO 13365392 sal_bas$ 0 RETPDSIG# 0 CARGANDO QnvsIR - QnvsIR:servicio SF QnvsIR:cod_novedad 11 QnvsIR:valor 3084321.23076923 QnvsIR:DOCTO_IDENT 79114409 ADD QnvsIR:F_INI 1.07.2017 QnvsIR:DIAS 3 QnvsIR:SALARIO 13365392 -------------------------------------------------- --NVS:MES 07 GLO:MES 07 NVS:cod_novedad 11 pss:noved_ret 02 RETPDSIG# 0 ESE:ESTADO RETPDSIG# 0 -------------------------------------------------- ENCONTRANDO NVS - nvs:servicio SF nvs:cod_novedad 11 nvs:valor 2978168 NVS:DIAS 3 sal_bas$ 0 NVS:SALARIO 2978168 RETPDSIG# 0 CARGANDO NVS - Qnvs:servicio SF qnvs:cod_novedad 11 qnvs:valor 2978168 qnvs:DOCTO_IDENT 79114409 QNVS:DIAS_ATRAS 0 QNVS:DIAS 3 INCATRAS# 0 NVS:SALARIO 2978168 sal_bas$ 0 RETPDSIG# 0 CARGANDO QnvsIR - QnvsIR:servicio SF QnvsIR:cod_novedad 11 QnvsIR:valor 2978168 QnvsIR:DOCTO_IDENT 79114409 ADD QnvsIR:F_INI 21.07.2017 QnvsIR:DIAS 3 QnvsIR:SALARIO 2978168 FIN CARGANDO NVSINCLMA# 0 QPRD:MES 07 GLO:SERSF SF,SJ LOC:MnjIncAtras N GLO:SERRP SF Records(qnvs) 3 *****INICIA CARGANDO NOVEDADES REPORTADAS**** RECORDS(QPRD) 2 QPRD:Ano 2017 QPRD:MES 08 SQL para CARGAr NVS SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '08' AND NVS.EMP_SS = 'CO' AND NVS.SUCURSAL = 'CE' AND NVS.SERVICIO = 'SF' AND NVS.DOCTO_IDENT = '79114409' ORDER BY NVS.DOCTO_IDENT FIN CARGANDO NVSINCLMA# 0 QPRD:MES 07 GLO:SERSF SF,SJ LOC:MnjIncAtras N GLO:SERRP SF Records(qnvs) 3 Despues de CargarNVS salbasalias$ 0 sal_bas$ 0 Records(QNVS) 3 loc:docto_ident 79114409 sal_bas$ 0 esv:servicio SF incio ProcesaQNVS Records(Qnvs) 3 CICLO QNVS Qnvs:servicio SF qnvs:cod_novedad qnvs:dias 007 qnvs:valor 4705878 qnvs:DOCTO_IDENT 79114409 -- Inicio proces_nv - qnvs:cod_novedad 07 Para qnvs:DOCTO_IDENT 79114409 qnvs:dias 0 qnvs:valor 4705878 LOC:TARIFA 125 salbasalias$ 0 sal_bas$ 0 ese:sal_rep 16029000 qnvs:cod_novedad 07 qnvs:DOCTO_IDENT 79114409 cn_v[nv#] nv# 1 RETPDSIG# 0 pss:noved_ret 02 -- INCATRAS# 0 qnvs:cod_novedad 07 qnvs:dias 0 QNVS:DIAS_ATRAS 0 pss:noved_irp 13 pss:noved_arp 14 pss:noved_irp 13 pss:noved_arp 14 pss:noved_ige 09 pss:noved_lma 10 ---------- INCATRAS# 0 PONERX# 1 qnvs:cod_novedad 07 qnvs:dias 0 QNVS:DIAS_ATRAS 0 pss:noved_irp 13 pss:noved_arp 14 pss:noved_ige 09 pss:noved_lma 10 RETPDSIG# 0 pss:noved_ret 02 ---------- LOC:LETRA X QNVS:COD_NOVEDAD 07 PSS:NOVED_RET 02 qnvs:cod_novedad 07 Autol:NovedadNS 17 qnvs:valor 4705878 valor_nsal$ 0 qnvs:valor 4705878 -- FIN proces_nv qnvs:cod_novedad 07 Para qnvs:DOCTO_IDENT 79114409 dias_sln$ 0 diasAtras_Ige$ 0 diasAtras_lma$ 0 diasAtras_IRP$ 0 diasAtras_ARP$ 0 QNVS:DIAS_ATRAS 0 QNVS:DIAS 0 valor_vst$ 4705878 CICLO QNVS Qnvs:servicio SF qnvs:cod_novedad qnvs:dias 311 qnvs:valor 3084321.23076923 qnvs:DOCTO_IDENT 79114409 -- Inicio proces_nv - qnvs:cod_novedad 11 Para qnvs:DOCTO_IDENT 79114409 qnvs:dias 3 qnvs:valor 3084321.23076923 LOC:TARIFA 125 salbasalias$ 0 sal_bas$ 0 ese:sal_rep 16029000 qnvs:cod_novedad 11 qnvs:DOCTO_IDENT 79114409 cn_v[nv#] nv# 2 RETPDSIG# 0 pss:noved_ret 02 -- INCATRAS# 0 qnvs:cod_novedad 11 qnvs:dias 3 QNVS:DIAS_ATRAS 0 pss:noved_irp 13 pss:noved_arp 14 pss:noved_irp 13 pss:noved_arp 14 pss:noved_ige 09 pss:noved_lma 10 ---------- INCATRAS# 0 PONERX# 1 qnvs:cod_novedad 11 qnvs:dias 3 QNVS:DIAS_ATRAS 0 pss:noved_irp 13 pss:noved_arp 14 pss:noved_ige 09 pss:noved_lma 10 RETPDSIG# 0 pss:noved_ret 02 ---------- LOC:LETRA X QNVS:COD_NOVEDAD 11 PSS:NOVED_RET 02 qnvs:cod_novedad 11 Autol:NovedadNS 17 qnvs:valor 3084321.23076923 valor_nsal$ 0 qnvs:valor 3084321.23076923 -- FIN proces_nv qnvs:cod_novedad 11 Para qnvs:DOCTO_IDENT 79114409 dias_sln$ 0 diasAtras_Ige$ 0 diasAtras_lma$ 0 diasAtras_IRP$ 0 diasAtras_ARP$ 0 QNVS:DIAS_ATRAS 0 QNVS:DIAS 3 valor_vst$ 4705878 CICLO QNVS Qnvs:servicio SF qnvs:cod_novedad qnvs:dias 311 qnvs:valor 2978168 qnvs:DOCTO_IDENT 79114409 -- Inicio proces_nv - qnvs:cod_novedad 11 Para qnvs:DOCTO_IDENT 79114409 qnvs:dias 3 qnvs:valor 2978168 LOC:TARIFA 125 salbasalias$ 0 sal_bas$ 0 ese:sal_rep 16029000 -- INCATRAS# 0 qnvs:cod_novedad 11 qnvs:dias 3 QNVS:DIAS_ATRAS 0 pss:noved_irp 13 pss:noved_arp 14 pss:noved_irp 13 pss:noved_arp 14 pss:noved_ige 09 pss:noved_lma 10 ---------- INCATRAS# 0 PONERX# 1 qnvs:cod_novedad 11 qnvs:dias 3 QNVS:DIAS_ATRAS 0 pss:noved_irp 13 pss:noved_arp 14 pss:noved_ige 09 pss:noved_lma 10 RETPDSIG# 0 pss:noved_ret 02 ---------- LOC:LETRA X QNVS:COD_NOVEDAD 11 PSS:NOVED_RET 02 qnvs:cod_novedad 11 Autol:NovedadNS 17 qnvs:valor 2978168 valor_nsal$ 0 qnvs:valor 2978168 -- FIN proces_nv qnvs:cod_novedad 11 Para qnvs:DOCTO_IDENT 79114409 dias_sln$ 0 diasAtras_Ige$ 0 diasAtras_lma$ 0 diasAtras_IRP$ 0 diasAtras_ARP$ 0 QNVS:DIAS_ATRAS 0 QNVS:DIAS 3 valor_vst$ 4705878 LOC:TOTALSLN 0 LOC:DIAS_SLN 0 valor_sln$ 0 dias_sln$ 0 DESPUES DEL CICLO valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 6062489.23076923 dias_ret# 0 dias_tda# 0 loc:tarifa 125 LOC:TOTALSLN 0 LOC:DIAS_SLN 0 ser:tipo S -- Fin ProcesaQNVS qnvs ser:tipo S dias_sln$ 0 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 6062489.23076923 dias_ret# 0 dias_tda# 0 loc:tarifa 125 DESPUES DE ProcesaQNVS xdias# 0 dias_ret# 0 sal_bas$ 0 dias_tda# 0 PROCESARAMA EMPLEADO 79114409 xdias# 0 SER:TOPEMAXAPORT 25 ESV:TOPEMAXAPORT 25 LOC:TOPEMAX 18442500 sal_bas$ 0 ese:estado loc:docto_ident 79114409 loc:tarifa 125 VERIFIQUERETIROYTRASLADOS EMPLEADO 79114409 xdias# 0 ser:aporte 125 esv:aporte 125 ARP# 0 salbasalias$ 0 sal_bas$ 0 TARIFA SER 125 TARIFA DE ESV 125 Tarifa 125 LOC:TOPEMAX 18442500 SER:TOPEMAXAPORT 25 ESV:TOPEMAXAPORT 25 ARP# 0 SERTOPEMAXAPORT$ 18442500 ESVTOPEMAXAPORT$ 18442500 LOC:DOCTO_LIQ 0 Actualizar ama por novedades salbasalias$ 0 sal_bas$ 16029000 loc:codigo_ct LOC:TOPEMAX 18442500 loc:tarifa 125 AMA:Novedad_v datos_ama nret# 0 ------------SALARIOINGRET QNVSINGRE 0 QnvsIR 3 SALPROM$ 0 SALINGRET$ 0 SALARNOV$ 0 sal_bas$ 16029000 Antes de VERICAINGRESOYRETIROS DATOS AMA sumdias# 0 dias_ret# 0 dias_ing# 0 loc:sal_bas 16029000 ser:tiempo_t 0 ama:docto_ident 79114409 VERICAINGRESOYRETIROS sumdias# 0 ning# 0 nret# 0 QNVSINGRE 0 ama:dias_cot 30 ser:tiempo_t 0 Autol:CtlNVSIgRtF S ama:servicio SF Despues de VERICAINGRESOYRETIROS ser:tipo S ama:sal_bas 16029000 sal_bas$ 16029000 ama:docto_ident 79114409 ama:dias_cot 30 dias_c# 0 loc:tarifa 125 INICIO diascambiosal ser:tipo S DIASCAMBIOSAL$ 30 sal_bas$ 16029000 ama:docto_ident 79114409 stotal$ 0 dias_c# 0 ult_sal$ 0 ***Autol:SalBase C sal_bas$ 16029000 sal_base$ 16029000 ese:sal_int N ama:dias_cot 30 pSS:por_sal_int 30 Antes de diasnovedad ser:tipo S IBC 16029000 ama:sal_bas 16029000 sal_bas$ 16029000 ama:docto_ident 79114409 Dias_ibc# 0 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 6062489.23076923 Autol:SalBase C INICIO diasnovedad ser:tipo S INCATRAS# 0 LOC:REVNVNRP N ama:dias_cot 30 Autol:PagPen S valor_arp$ 0 valor_irp$ 0 FIN diasnovedad ser:tipo S INCATRAS# 0 LOC:REVNVNRP N ama:dias_cot 30 valor_vst$ 4705878 despues de diasnovedad DIAS NOVEDAD 6 dias_ibc# 24 dias_cot# 30 Autol:ATAFSP valor_irp$ 0 valor_arp$ 0 ama:dias_cot 30 Antes de Autol:IbcDesTop S ser:tipo S IBC 16029000 dias_ibc# 24 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 6062489.23076923 ama:dias_cot 30 Inicia Ajustar Ibc 16029000 ser:ajusta_min 5 ESSSAL_MINIMO 0 ama:dias_cot 30 sumdias# 0 ARP# 0 dias_ibc# 24 ser:tiempo_t 0 ARPSC# 0 --ESS:SAL_MINIMO 1 VSY:SAL_MIN_LEGA 737700 SERAJUSTAMIN ser:ajusta_min 5 ama:pensionado 0 LOC:PENSIONADO_COMP 0 INICIA MINIMO_INT LOC:sal_minimo 737700 LOC:MnjTopMinSI N ese:sal_int N LOC:SalMinSI 0 ESSSAL_MINIMO 737700 INICIA Ajustadias ARP# 0 ARPSC# 0 sumdias# 0 DIAS_AJ# 30 dias_ibc# 24 Ajuste por 5 ibc$ 16029000 LOC:sal_minimo 737700 ama:dias_cot 30 Ajuste Ibc 16029000 ajustar# 0 ESSSAL_MINIMO 737700 Fin SERAJUSTAMIN Ibc 16029000 ajustar# 0 ama:dias_cot 30 DIAS_AJ# 30 --CalculaIBC INICIO ser:tipo S IBC$ 16029000 dias_ibc# 24 Autol:DiaCotRet N sumdias# 0 ese:SAL_FIJO 0 INCATRAS# 0 dias_cotR# 0 EMP:IND_P_LIQ 1 EMP:VAR_TRA_10 0 tns:UpdateSal2 S 1-.CALCULANDO IBC 16029000 diasibcDvF# 24 INCATRAS# 0 diasibcDv# 24 diasibcDvR# 0 DIASCT# 30 sumdias# 0 valor_irp$ 0 Autol:ATAFSP LOC:REVNVNRP N CALCULANDO IBC SALINGRET$ 0 Autol:SinAusen N 1.1-.CALCULANDO IBC antes de restar asociacion 16029000 LOC:ASOCIACION 0 1.2-.CALCULANDO IBC antes de restar asociacion 16029000 suma_Vlr_nov$ 6062489.23076923 Autol:SinAusen N 1.3-.CALCULANDO IBC DESPUES SIN AUSENCIAS 16029000 suma_Vlr_nov$ 6062489.23076923 SALINGRET$ 0 suma_Vlr_nov$ 6062489.23076923 ese:SAL_FIJO 0 ibc$ 16029000 valor_irp$ 0 LOC:VPS 0 1.4-.CALCULANDO IBC DESPUES 16029000 suma_Vlr_nov$ 6062489.23076923 LOC:VPS 0 LOC:BASENLAB 0 1.6-.CALCULANDO IBC 16029000 DIASCT# 30 diasibcDvF# 24 suma_Vlr_nov$ 6062489.23076923 LOC:VPS 0 1.7-.CALCULANDO IBC 18885689.2307692 DIASCT# 30 diasibcDvF# 24 suma_Vlr_nov$ 6062489.23076923 cambioporfeb# 0 Diafebrero 0 2-.CALCULADO IBC ser:tipo S IBC 18885689.2307692 DIASCT# 30 diasibcDvF# 24 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 6062489.23076923 diasibcDv# 24 Autol:SinAusen N diasibcDvR# 0 suma_Vlr_nov$ 6062489.23076923 LOC:BASENSALINI 18885689.2307692 Autol:ATAFSP ser:tipo S valor_irp$ 0 valor_arp$ 0 2.1-.CALCULADO IBC ser:tipo S IBC 18885689.2307692 INCATRAS# 0 ser:tipo S valor_irp$ 0 valor_arp$ 0 valor_vst$ 4705878 2.2-.SUMA CALCULADO IBC ser:tipo S IBC 23591567.2307692 valor_vst$ 4705878 ser:tipo S valor_irp$ 0 valor_arp$ 0 3-.CalculaIBC Final ser:tipo S IBC + Novedades 23591567.2307692 INCATRAS# 0 valor_vst$ 4705878 valor_irp$ 0 valor_arp$ 0 3.3-.CalculaIBC Final ser:tipo S IBC + BONO 23591567.2307692 BONO LOC:ASOCIACION 0 4-.CalculaIBC Final ser:tipo S IBC + Novedades 23591567.2307692 --base no laborado 0 5.CalculaIBC Final ser:tipo S IBC 23591567 ------------BASENSAL INICIA SER:SERVICIO SF valor_nsal$ 0 LOC:BASENLAB 0 ibc$ 23591567 Tns:PorcNS 0.4 LOC:BASENLAB 0 AUTOL:TipProcNS T AUTOL:FACTPRES_BN N Inicia CalcularTopeMax SER:SERVICIO SF LOC:TOPEMAX 18442500 ESV:TOPEMAXAPORT 25 LOC:BASENLAB 0 IBC$ 23591567 CalcularTopeMax INICIA SER:SERVICIO SF LOC:TOPEMAX 18442500 ibc$ 23591567 ama:dias_cot 30 TOPEMAX$ 0 LOC:FactPresD25M N Autol:TopemxC C TOPEMAX$ 18442500 ibc$ 23591567 **REDONDEAR_TOPEMAX ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442500 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442500 VALOR 18442500 ENTERO 18442500 DECIMAL 0 1. VALOR FINAL 18442500 LOC:VALOR 18442500 FINAL REDONDEO VALOR FINAL 18442500 VALOR ORIGINAL 18442500 TIPO 1 REDONDEAR_TOPEMAX TOPEMAX$ 18442500 LOC:TOPEMAXR 18442500 ULTDIG# 500 LONG# 8 LOC:APLITOPEMAX 0 NUEVO TOPEMAX$ 18442500 --ibc$ 23591567 LOC:IBCRR 23591567 Autol:NuevRedon S TOPEMAX$ 18442500 ********* Entrando funcion O_REDONDEO ***************** VALOR = 23591567 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 23591567 VALOR 23591567 ENTERO 23591567 DECIMAL 0 1. VALOR FINAL 23591567 LOC:VALOR 23591567 FINAL REDONDEO VALOR FINAL 23591567 VALOR ORIGINAL 23591567 TIPO 1 --SER:SERVICIO SF LOC:TOPEMAX 18442500 Autol:NuevRedon S ibc$ 23591567 ama:dias_cot 30 TOPEMAX$ 18442500 Autol:TopemxC C CalcularTopeMax FIN LOC:TOPEMAX 18442500 ibc$ 18442500 ama:sal_bas 16029000 LOC:APLITOPEMAX 1 xxxxxxxxxxxxx Despues de Loc:IbcDesTop ser:tipo S FIN IBC 18442500 ESS:EMP_SSCO Despues de comparar con Tope maximo Maximo 18442500 o tope_salmax$ 0 ESS:REDONDEO_ibc M LOC:REDONDEO 0.0001 loc:tarifa 125 Autol:CtrolRoundMin T ama:dias_cot 30 Autol:Redondeo 0.0001 LOC:OPERADOR 1 valor_vst$ 4705878 ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442500 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442500 VALOR 18442500 ENTERO 18442500 DECIMAL 0 1. VALOR FINAL 18442500 LOC:VALOR 18442500 FINAL REDONDEO VALOR FINAL 18442500 VALOR ORIGINAL 18442500 TIPO 1 antes de CTROL_ROUND --- LOC:IBC 18442500 IBC$ 18442500 ******** qqqqqqqqqqqqqqqqqqqqq CONTROL DE REDONDEO Autol:CtrolRoundMin T LOC:PENSIONADO_COMP 0 Autol:CondPenCom ************* ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442500 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442500 VALOR 18442500 ENTERO 18442500 DECIMAL 0 1. VALOR FINAL 18442500 LOC:VALOR 18442500 FINAL REDONDEO VALOR FINAL 18442500 VALOR ORIGINAL 18442500 TIPO 1 --ESS:SAL_MINIMO 1 ESSSAL_MINIMO 737700 VSY:SAL_MIN_LEGA 737700 --ESS:SAL_MINIMO 1 VSY:SAL_MIN_LEGA 737700 ********* Entrando funcion O_REDONDEO ***************** VALOR = 737700 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 737700 VALOR 737700 ENTERO 737700 DECIMAL 0 1. VALOR FINAL 737700 LOC:VALOR 737700 FINAL REDONDEO VALOR FINAL 737700 VALOR ORIGINAL 737700 TIPO 1 --LOC:SAL_MIN 737700 LOC:SALARIOIBC 18442500 LOC:IBC_MIN 737700 LOC:IBC 18442500 LOC:SALARIOIBC 18442500 ESSSAL_MINIMO 737700 TOME MAXIMO 18442500 LOC:IBC 18442500 AMA:DIAS_COT 30 CTROLMIN# 1 REDONDEA# 1 LOC:CTROLROUND T LOC:SAL_MIN 737700 LOC:SALARIOIBC 18442500 <= ESSSAL_MINIMO 737700 EXIT# 1 ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442500 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442500 VALOR 18442500 ENTERO 18442500 DECIMAL 0 1. VALOR FINAL 18442500 LOC:VALOR 18442500 FINAL REDONDEO VALOR FINAL 18442500 VALOR ORIGINAL 18442500 TIPO 1 LOC:SALARIOIBC 18442500 = LOC:TOPEMAX 18442500 EXIT# 1 VALIDA_BASE ANO 2017 AMA:DIAS_COT 30 ********* Entrando funcion O_REDMIN ***************** SERVICIO = IBC AŅO = 2017 DIAS = 30 TARIFA = 0 Autol:NuevRedon = S ---BUSCA IBC MINIMO PARA EL ANO 2017 DIAS 30 Autol:NuevRedon S INICIA IBC_NUEVO DIAS 30 MINIMO 737700 AŅO 2017 ********* Entrando funcion O_REDONDEO ***************** VALOR = 737700 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 737700 VALOR 737700 ENTERO 737700 DECIMAL 0 1. VALOR FINAL 737700 LOC:VALOR 737700 FINAL REDONDEO VALOR FINAL 737700 VALOR ORIGINAL 737700 TIPO 1 FIN IBC_NUEVO DIAS 30 IBC 737700 FIN BUSCA IBC PARA EL ANO 2017 LOC:IBC 737700 DIAS 30 REDONDEO = 737700 Syf:TipoRedondeo FIN VALIDA_BASE LOC:SAL_MIN 737700 ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442500 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442500 VALOR 18442500 ENTERO 18442500 DECIMAL 0 1. VALOR FINAL 18442500 LOC:VALOR 18442500 FINAL REDONDEO VALOR FINAL 18442500 VALOR ORIGINAL 18442500 TIPO 1 LOC:IBC 18442500 BASEREDONDEAD$ 18442500 LOC:IBC 18442500 LOC:SAL_MIN 737700 LOC:IBC_MIN 737700 EXIT# 0 LOC:PENSIONADO_COMP 0 ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442500 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442500 VALOR 18442500 ENTERO 18442500 DECIMAL 0 1. VALOR FINAL 18442500 LOC:VALOR 18442500 FINAL REDONDEO VALOR FINAL 18442500 VALOR ORIGINAL 18442500 TIPO 1 --REDONDEA# 1 LOC:IBC 18442500 ESS:REDONDEO_ibc M LOC:IBC_MIN 737700 LOC:APLITOPEMAX 1 LOC:PENSIONADO_COMP 0 veo 18442500 LOC:sal_minimo 737700 ese:sal_int N ama:ibc 18442500 ama:sal_bas 16029000 ese:sal_int N ama:sal_bas 16029000 ama:ibc 18442500 AUTOL:CAMB_SALBAS N LOC:sal_minimo 737700 ---IBC AL FINAL DEL REDONDEO 18442500 REDONDEA# 1 CTROLMIN# 1 LOC:IBC 18442500 ama:sal_bas 16029000 BUSCA_DEV DOCTO_IDENT 79114409 LOC:APLIC_CREE 1 SER:TIPO S AGRUPA CREEG Ley50 = CREE AGRUPA CREEG INTegral = VSY:REL_SALIN SI EMP:REL_LABORAL L5 AMA:COD_TIPO 1 AMA:VALOR_NRET 0 AMA:COD_TIPO 1 AMA:PENSIONADO 0 AGRUPA CREE EN CREE AGRUPA CREEG L50 CREE AGRUPA CREEG INT CREE VSY:REL_SALIN SI EMP:REL_LABORAL L5 FILTRADO MLQ BUSCAR DEVENGADOS EMPLEADO 79114409- SELECT SUM(CASE CAD.SIGNO WHEN '+' THEN MLQ.VALOR * CAD.PORCENT / 100 ELSE (MLQ.VALOR * CAD.PORCENT / 100) * -1 END) FROM MLQ,CAD WHERE MLQ.CONCEPTO = CAD.CONCEPTO AND MLQ.ANO = '2017' AND MLQ.MES = '07' AND MLQ.EMPLEADO = '79114409' AND MLQ.ESTADO <> '1' AND CAD.AGRUPACION = 'CREE' DEVENGADOS 20507246 FILTRADO LQE BUSCAR DEVENGADOS SELECT SUM(CASE CAD.SIGNO WHEN '+' THEN LQD.VALOR * CAD.PORCENT / 100 ELSE (LQD.VALOR * CAD.PORCENT / 100) * -1 END) FROM LQD,LQE,FPF,CAD WHERE LQD.CNS_LQE = LQE.CNS AND LQD.CONCEPTO = CAD.CONCEPTO AND LQE.FORMAPAGO = FPF.FORMAPAGO AND LQE.PER_PRO_ACUM LIKE '201707%' AND LQD.EMPLEADO = '79114409' AND LQE.ESTADO = '2' AND FPF.TIPO_PAGO = 'A' AND CAD.AGRUPACION = 'CREE' DEVENGADOS DEFINITIVA 0 DEVENGADOS TOTALES 20507246 AMA:SAL_BAS 16029000 Autol:SalBase C VSY:REL_SALIN SI EMP:REL_LABORAL L5 EMP:FACT_PREST 0 Mllg:CREE_BASE IBC LOC:DEVENGADOS 20507246 LOC:BASICO 16029000 AMA:IBC 18442500 -ENTRO POR IBC O IBCI NUEVO DEVENGADOS EMPLEADO 79114409 LOC:DEVENGADOS 20507246 LOC:BASICO 16029000 AMA:SALARIO 16029000 -Mllg:CREE_BASE IBC AMA:IBC 18442500 LOC:DEVENGADOS 20507246 -NUEVO DEVENGADOS EMPLEADO 79114409 LOC:DEVENGADOS 20507246 LOC:BASICO 16029000 AMA:SALARIO 16029000 -Mllg:CREE_BASE IBC AMA:IBC 18442500 LOC:DEVENGADOS 20507246 AMA:VALOR_NRET 20507246 LOC:DEVENGADOS 20507246 antes de ser:ind_calc G SERVICIO SF AMA:VALOR_NRET 20507246 LOC:DEVENGADOS 20507246 INICIA REDONDEOCOLOMBIA DOCTO_IDENT 79114409 ama:IBC 18442500 Autol:NuevRedon S ESS:REDONDEO_APT C TARIFA_CREE DOCTO_IDENT 79114409 LOC:APLIC_CREE 1 SER:TIPO S LOC:DEVENGADOS 20507246 LOC:TOPECREE 7377000 LOC:tarifa 125 LOC:BASICO 16029000 AMA:COD_TIPO 1 Mllg:CREE_BASE IBC AMA:PENSIONADO 0 esv:aporte 125 AMA:IBC 18442500 ESE:SAL_INT N ********* Entrando funcion O_REDONDEO ***************** VALOR = 2305312.5 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 2305312.5 VALOR 23053.125 ENTERO 23053 DECIMAL 0.125 1. VALOR FINAL 23054 LOC:VALOR 23053.125 LOC:ENTERO 23053 2. VALOR FINAL 2305400 LOC:VALOR 23053.125 FINAL REDONDEO VALOR FINAL 2305400 VALOR ORIGINAL 2305312.5 TIPO 2 INICIA REDONDEOCOLOMBIA AMA:COTIZ_OBL 2305400 LOC:IBC_MIN 737700 LOC:tarifa 125 INICIA REDONDEOCOLOMBIA AMA:COTIZ_OBL 2305400 LOC:APOR_MIN 92213 --CALCULAR APORTE BUSCAR COTIZACION 2305400 AMA:IBC 18442500 TARIFA 0.125 Aporte del minimo 92213 Ibc Minimo 737700 ********* Entrando funcion O_REDONDEO ***************** VALOR = 2305312.5 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 2305312.5 VALOR 23053.125 ENTERO 23053 DECIMAL 0.125 1. VALOR FINAL 23054 LOC:VALOR 23053.125 LOC:ENTERO 23053 2. VALOR FINAL 2305400 LOC:VALOR 23053.125 FINAL REDONDEO VALOR FINAL 2305400 VALOR ORIGINAL 2305312.5 TIPO 2 --LOC:APORTE 2305400 LOC:DECIMAL 0 LOC:SAL_MIN 737700 --NUEVO LOC:APORTE 2305400 LOC:DECIMAL 0 LOC:SAL_MIN 737700 LOC:tarifa 125 ********* Entrando funcion O_REDONDEO ***************** VALOR = 92212.5 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 92212.5 VALOR 922.125 ENTERO 922 DECIMAL 0.125 1. VALOR FINAL 923 LOC:VALOR 922.125 LOC:ENTERO 922 2. VALOR FINAL 92300 LOC:VALOR 922.125 FINAL REDONDEO VALOR FINAL 92300 VALOR ORIGINAL 92212.5 TIPO 2 --INICIA VERIFICA_APORTE SER:TIPO S AMA:DIAS_COT 30 AMA:PENSIONADO 0 LOC:TARIFA 125 LOC:APORT_MINX 0 ama:cotiz_obl 2305400 LOC:APORT_MIN 92300 ama:IBC 18442500 LOC:tarifa 125 LOC:IBC_MIN 737700 AMA:PENSIONADO 0 LOC:APLITOPEMAX 1 LOC:APORMAX 0 LOC:PENSIONADO_COMP 0 LOC:TOPEMAXRO 18442500 ********* Entrando funcion O_REDONDEO ***************** VALOR = 2305312.5 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 2305312.5 VALOR 23053.125 ENTERO 23053 DECIMAL 0.125 1. VALOR FINAL 23054 LOC:VALOR 23053.125 LOC:ENTERO 23053 2. VALOR FINAL 2305400 LOC:VALOR 23053.125 FINAL REDONDEO VALOR FINAL 2305400 VALOR ORIGINAL 2305312.5 TIPO 2 ********* Entrando funcion O_REDONDEO ***************** VALOR = 2305312.5 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 2305312.5 VALOR 2305312.5 ENTERO 2305312 DECIMAL 0.5 1. VALOR FINAL 2305313 LOC:VALOR 2305312.5 FINAL REDONDEO VALOR FINAL 2305313 VALOR ORIGINAL 2305312.5 TIPO 1 **APORTE_MAX LOC:TOPEMAXRO 18442500 LOC:APORT_MAX 2305400 LOC:APORT_MAXR 2305313 LOC:APORT_MAXA 2305313 LOC:tarifa 125 LOC:APLITOPEMAX 1 LOC:APORMAX 0 LOC:APORT_MIN 92300 LOC:APORT_MAX 2305400 LOC:APORTE 2305400 LOC:APORT_MIN 92300 LOC:APORT_MIN 92300 LOC:APORT_MAX 2305400 -- despues de VERIFICA_APORTE LOC:APORTE 2305400 LOC:IBC 18442500 TARIFA 0.125 LOC:APORT_MIN 92300 CTROLMIN# 1 LOC:APORMAX 0 LOC:APORMAX 0 Antes de ESS:REDONDEO_APT E RED_APOR# 1 ama:IBC 18442500 LOC:tarifa 125 LOC:REDONDEO 0.0001 LOC:PENSIONADO_COMP 0 LOC:APORTE 2305400 ********* Entrando funcion O_REDONDEO ***************** VALOR = 2305312.5 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 2305312.5 VALOR 23053.125 ENTERO 23053 DECIMAL 0.125 1. VALOR FINAL 23054 LOC:VALOR 23053.125 LOC:ENTERO 23053 2. VALOR FINAL 2305400 LOC:VALOR 23053.125 FINAL REDONDEO VALOR FINAL 2305400 VALOR ORIGINAL 2305312.5 TIPO 2 Despues de ESS:REDONDEO_APT E ama:cotiz_obl 2305400 ama:IBC 18442500 LOC:APORT_MIN 92300 RED_APOR# 1 ess:emp_ss CO OPERADOR 1 LOC:APORTE 2305400 COTIZACION OBLIGATORIA AL FINAL DEL REDONDEO 2305400 RED_APOR# 1 CTROLMIN# 1 LOC:IBC 18442500 RED_APOR# 1 SAL_VARIABLE DOCTO_IDENT 79114409 AMA:SAL_BAS 16029000 ESE:SAL_FIJO 0 TNS:UpdateSal2 S --LOC:BASENSALF 0 NOVEDAD X X NOVEDAD_V 07 11 ESE:SAL_FIJO 0 Autol:VST_Var N DESPUES LOC:BASENSALF 0 NOVEDAD X X NOVEDAD_V 07 11 ** ESE:SAL_FIJO 0 AMA:TARIFA 125 AMA:COTIZ_OBL 2305400 SERVICIO SF SER:TIPO S AMA:DOCTO_IDENT 79114409 AMA:IBC 18442500 AMA:SAL_BAS 16029000 ama:valor_vst 4705878 valor_vst$ 4705878 tns:UpdateSal2 S AMA:DIAS_COT 30 --------FIN ProcesarAMA se modifica el empleado 79114409 con admon: CO sucursal: CE servicio: SF FILTRO del ESE ACTIVOS: SELECT * FROM ESE WHERE ESE.EMP_SS = 'SR' AND ESE.SUCURSAL = 'CE' AND ESE.SERVICIO = 'RP' AND ESE.DOCTO_IDENT = '79114409' AND ESE.ESTADO <> 'R' ORDER BY ESE.DOCTO_IDENT ACTIVOS - EMPRESA SR SERVICIO RP DOCTO_IDENT 79114409 ese:f_vigencia 30.01.2017 cat:f_fin 30.07.2017 ese:sal_rep 16029000 --INICIA CONTINUAACTIVOS DOCTO_IDENT 79114409 SERVICIO RP Tarifa ESV 69 Tarifa 69 tns:UpdateSal2 S sal_bas$ 16029000 ese:sal_rep 16029000 ese:sal_fijo 0 ARP# 1 Tarifa ESV 69 Tarifa 69 sal_bas$ 16029000 ese:sal_rep 16029000 ctr:aporte 24.36 ese:codigo_ct 03 Tarifa 69 ARP_ Activos ese:codigo_ct 03 ctr:aporte 24.36 loc:codigo_ct 03 loc:tarifa 24.36 FIN CONTINUAACTIVOS DOCTO_IDENT 79114409 SERVICIO RP sal_bas$ 16029000 loc:tarifa 24.36 esv:aporte 69 ARP# 1 INICIA CreaAma AMA EMPLEADO 79114409 esv:emp_ss, esv:sucursal.esv:servicio SRCERP Creando Dato Basicos del Ama GLO:VERIFIQUEALIAS 0 emp:idempleadoor despues de alias en estructura_adm AMA:COD_TIPO 1 AMA:COD_SUBTIPO AMA:PENSIONADO 0 LOC:PENSIONADO_COMP 0 ama:producto AMA:TIPO_COTIZANTE DP1 CTROL EXTRANJERO SERVICIO R EMP:CIUDAD_N 11001 FIN CreaAma A GRABAR EMPLEADO 79114409 AMA:SALARIO 16029000 SAL_BAS$ 16029000 AMA:SAL_BAS 16029000 AMA:emp_ss, AMA:sucursal, AMA:SERVICIO SRCERP AMA:TARIFA 24.36 AMA:ANOS 2017 AMA:MESS 08 VA A ver_nov Despues de do activos LOC:ACTIVOSESE 2 INICIA NOVE_PORPRD en Liquidar 201707 FILTRADO SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '07' AND NVS.DOCTO_IDENT = '79114409' AND NVS.EMP_SS = 'SR' AND NVS.SUCURSAL = 'CE' AND NVS.SERVICIO = 'RP' ORDER BY NVS.DOCTO_IDENT,NVS.F_INI RECORDS(SYF:QEMP) 0 NVS:DOCTO_IDENT 79114409 NVS:MES 07 GLO:MES 07 NVS:cod_novedad 07 NVS:cod_novedad 07 pss:noved_ret 02 Autol:CtlNVSAntg S nvs:servicio RP pss:noved_ing 01 NVS:MES 07 GLO:MES 07 BUSCA NPS Autol:CtlNVSAntg S Autol:CtlNVSAntg_O S FIN NOVE_PORPRD - PERIODO 201707 nvs:servicio RP nvs:cod_novedad 07 nvs:valor 4705878 nvs:DOCTO_IDENT 79114409 loc:docto_ident NVS:salario 16029000 sal_bas$ 16029000 NOVE_PORPRD - PERIODO 201707 nvs:servicio RP nvs:cod_novedad 07 nvs:valor 4705878 nvs:DOCTO_IDENT 79114409 loc:docto_ident ese:sal_rep 16029000 FIN NOVE_PORPRD - ANTES DE CREAMA INICIA CreaAma AMA EMPLEADO 79114409 esv:emp_ss, esv:sucursal.esv:servicio SRCERP ENCUENTRA AMA DOC_IDENT 79114409 esv:emp_ss SR esv:sucursal CE esv:servicio RP RECORDS(SYF:QEMP) 0 NVS:DOCTO_IDENT 79114409 NVS:MES 07 GLO:MES 07 NVS:cod_novedad 11 NVS:cod_novedad 11 pss:noved_ret 02 Autol:CtlNVSAntg S nvs:servicio RP pss:noved_ing 01 NVS:MES 07 GLO:MES 07 BUSCA NPS Autol:CtlNVSAntg S Autol:CtlNVSAntg_O S FIN NOVE_PORPRD - PERIODO 201707 nvs:servicio RP nvs:cod_novedad 11 nvs:valor 3084321.23076923 nvs:DOCTO_IDENT 79114409 loc:docto_ident 79114409 NVS:salario 13365392 sal_bas$ 16029000 NOVE_PORPRD - PERIODO 201707 nvs:servicio RP nvs:cod_novedad 11 nvs:valor 3084321.23076923 nvs:DOCTO_IDENT 79114409 loc:docto_ident 79114409 ese:sal_rep 16029000 RECORDS(SYF:QEMP) 0 NVS:DOCTO_IDENT 79114409 NVS:MES 07 GLO:MES 07 NVS:cod_novedad 11 NVS:cod_novedad 11 pss:noved_ret 02 Autol:CtlNVSAntg S nvs:servicio RP pss:noved_ing 01 NVS:MES 07 GLO:MES 07 BUSCA NPS Autol:CtlNVSAntg S Autol:CtlNVSAntg_O S FIN NOVE_PORPRD - PERIODO 201707 nvs:servicio RP nvs:cod_novedad 11 nvs:valor 2978168 nvs:DOCTO_IDENT 79114409 loc:docto_ident 79114409 NVS:salario 2978168 sal_bas$ 16029000 NOVE_PORPRD - PERIODO 201707 nvs:servicio RP nvs:cod_novedad 11 nvs:valor 2978168 nvs:DOCTO_IDENT 79114409 loc:docto_ident 79114409 ese:sal_rep 16029000 INICIA NOVE_PORPRD en Liquidar 201708 FILTRADO SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '08' AND NVS.DOCTO_IDENT = '79114409' AND NVS.EMP_SS = 'SR' AND NVS.SUCURSAL = 'CE' AND NVS.SERVICIO = 'RP' ORDER BY NVS.DOCTO_IDENT,NVS.F_INI EN ALIASSINPAPA, LOC:EMXTIPO_REL qla:docto_ident 79114409 glo:tipo_liq Beneficiario A-. qla:emp_ss SR qla:sucursal CE qla:servicio RP TOPE CREE Mllg:TOPE_CREE 10 Aplica_CREE 1 Mllg:AGRUP_CREE CREE Autol:VST_Var N TOPE CREE Mllg:TOPE_CREE 10 TOPE CREE Mllg:TOPE_CREE 7377000 VSY:SAL_MIN_LEGA 737700 Mllg:CREE_BASE IBC --------- Inicia Msl02:Auto5_17 ESV:EMP_SS SR ESV:SUCURSAL CE ESV:SERVICIO RP ESS:EMP_SS SR ESS:SAL_MINIMO 1 filtro Mllg:ANO_REDONDEO 2017 AMA:RoundEXTRAnJ N RECORDS(SYF:QEMP) 0 Msl02:Auto5_17-Version 2017 MSSQL *****Tipo de Servicio R Servicio RP LOC:TOPEMAX 18442500 Tarifa SER 69 Tarifa 69 ARPSC# 1 SER:TOPEMAXAPORT 25 SERTOPEMAXAPORT$ 18442500 pss:tope_salmax 25 psstope_salmax$ 18442500 --------INICIO ProcesarAMA - loc:docto_ident esv:SERVICIO RP esv:sucursal CE glo:tipo_liq Beneficiario qla:docto_ident 79114409 ProcesarAMA fILTRADO SELECT AMA.CNSAMA FROM AMA WHERE AMA.ANO = '2017' AND AMA.MES = '07' AND AMA.EMP_SS = 'SR' AND AMA.SUCURSAL = 'CE' AND AMA.SERVICIO = 'RP' AND AMA.DOCTO_IDENT = '79114409' ORDER BY AMA.DOCTO_IDENT --------INICIO Ciclo ProcesarAMA - DEL EMPLEADO 79114409 LOC:FILTRADO SELECT AMA.CNSAMA FROM AMA WHERE AMA.ANO = '2017' AND AMA.MES = '07' AND AMA.EMP_SS = 'SR' AND AMA.SUCURSAL = 'CE' AND AMA.SERVICIO = 'RP' AND AMA.DOCTO_IDENT = '79114409' ORDER BY AMA.DOCTO_IDENT AMA:DOCTO_IDENT 79114409 RECORDS(SYF:QEMP) 0 INICIA BUSCARCOD_ RECORDS(QSER) 3 QSER:SERVICIO PE QSER:TIPO P ama:docto_ident 79114409 QSER:SERVICIO PE QSER:TIPO P ese:emp_ss CN ese:estado ESV:EMP_SS CN ESV:SUCURSAL CE ESV:SERVICIO PE ESV:CODIGO 25-14 QSER:SERVICIO SF QSER:TIPO S ama:docto_ident 79114409 QSER:SERVICIO SF QSER:TIPO S ese:emp_ss CO ese:estado ESV:EMP_SS CO ESV:SUCURSAL CE ESV:SERVICIO SF ESV:CODIGO EPS001 QSER:SERVICIO SJ QSER:TIPO S ama:docto_ident 79114409 FIN BUSCARCOD_ ama:cod_neps ama:cod_nafp Despues de VerAlias salbasalias$ 0 sal_bas$ 0 *****INICIA CARGANDO NOVEDADES REPORTADAS**** RECORDS(QPRD) 2 QPRD:Ano 2017 QPRD:MES 07 SQL para CARGAr NVS SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '07' AND NVS.EMP_SS = 'SR' AND NVS.SUCURSAL = 'CE' AND NVS.SERVICIO = 'RP' AND NVS.DOCTO_IDENT = '79114409' ORDER BY NVS.DOCTO_IDENT -------------------------------------------------- --NVS:MES 07 GLO:MES 07 NVS:cod_novedad 07 pss:noved_ret 02 RETPDSIG# 0 ESE:ESTADO RETPDSIG# 0 -------------------------------------------------- ENCONTRANDO NVS - nvs:servicio RP nvs:cod_novedad 07 nvs:valor 4705878 NVS:DIAS 0 sal_bas$ 0 NVS:SALARIO 16029000 RETPDSIG# 0 CARGANDO NVS - Qnvs:servicio RP qnvs:cod_novedad 07 qnvs:valor 4705878 qnvs:DOCTO_IDENT 79114409 QNVS:DIAS_ATRAS 0 QNVS:DIAS 0 INCATRAS# 0 NVS:SALARIO 16029000 sal_bas$ 0 RETPDSIG# 0 CARGANDO QnvsIR - QnvsIR:servicio RP QnvsIR:cod_novedad 07 QnvsIR:valor 4705878 QnvsIR:DOCTO_IDENT 79114409 ADD QnvsIR:F_INI 1.07.2017 QnvsIR:DIAS 0 QnvsIR:SALARIO 16029000 -------------------------------------------------- --NVS:MES 07 GLO:MES 07 NVS:cod_novedad 11 pss:noved_ret 02 RETPDSIG# 0 ESE:ESTADO RETPDSIG# 0 -------------------------------------------------- ENCONTRANDO NVS - nvs:servicio RP nvs:cod_novedad 11 nvs:valor 3084321.23076923 NVS:DIAS 3 sal_bas$ 0 NVS:SALARIO 13365392 RETPDSIG# 0 CARGANDO NVS - Qnvs:servicio RP qnvs:cod_novedad 11 qnvs:valor 3084321.23076923 qnvs:DOCTO_IDENT 79114409 QNVS:DIAS_ATRAS 0 QNVS:DIAS 3 INCATRAS# 0 NVS:SALARIO 13365392 sal_bas$ 0 RETPDSIG# 0 CARGANDO QnvsIR - QnvsIR:servicio RP QnvsIR:cod_novedad 11 QnvsIR:valor 3084321.23076923 QnvsIR:DOCTO_IDENT 79114409 ADD QnvsIR:F_INI 1.07.2017 QnvsIR:DIAS 3 QnvsIR:SALARIO 13365392 -------------------------------------------------- --NVS:MES 07 GLO:MES 07 NVS:cod_novedad 11 pss:noved_ret 02 RETPDSIG# 0 ESE:ESTADO RETPDSIG# 0 -------------------------------------------------- ENCONTRANDO NVS - nvs:servicio RP nvs:cod_novedad 11 nvs:valor 2978168 NVS:DIAS 3 sal_bas$ 0 NVS:SALARIO 2978168 RETPDSIG# 0 CARGANDO NVS - Qnvs:servicio RP qnvs:cod_novedad 11 qnvs:valor 2978168 qnvs:DOCTO_IDENT 79114409 QNVS:DIAS_ATRAS 0 QNVS:DIAS 3 INCATRAS# 0 NVS:SALARIO 2978168 sal_bas$ 0 RETPDSIG# 0 CARGANDO QnvsIR - QnvsIR:servicio RP QnvsIR:cod_novedad 11 QnvsIR:valor 2978168 QnvsIR:DOCTO_IDENT 79114409 ADD QnvsIR:F_INI 21.07.2017 QnvsIR:DIAS 3 QnvsIR:SALARIO 2978168 FIN CARGANDO NVSINCLMA# 0 QPRD:MES 07 GLO:SERSF SF,SJ LOC:MnjIncAtras N GLO:SERRP RP Records(qnvs) 3 *****INICIA CARGANDO NOVEDADES REPORTADAS**** RECORDS(QPRD) 2 QPRD:Ano 2017 QPRD:MES 08 SQL para CARGAr NVS SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '08' AND NVS.EMP_SS = 'SR' AND NVS.SUCURSAL = 'CE' AND NVS.SERVICIO = 'RP' AND NVS.DOCTO_IDENT = '79114409' ORDER BY NVS.DOCTO_IDENT FIN CARGANDO NVSINCLMA# 0 QPRD:MES 07 GLO:SERSF SF,SJ LOC:MnjIncAtras N GLO:SERRP RP Records(qnvs) 3 Despues de CargarNVS salbasalias$ 0 sal_bas$ 0 Records(QNVS) 3 loc:docto_ident 79114409 sal_bas$ 0 esv:servicio RP incio ProcesaQNVS Records(Qnvs) 3 CICLO QNVS Qnvs:servicio RP qnvs:cod_novedad qnvs:dias 007 qnvs:valor 4705878 qnvs:DOCTO_IDENT 79114409 -- Inicio proces_nv - qnvs:cod_novedad 07 Para qnvs:DOCTO_IDENT 79114409 qnvs:dias 0 qnvs:valor 4705878 LOC:TARIFA 69 salbasalias$ 0 sal_bas$ 0 ese:sal_rep 16029000 qnvs:cod_novedad 07 qnvs:DOCTO_IDENT 79114409 cn_v[nv#] nv# 1 RETPDSIG# 0 pss:noved_ret 02 -- INCATRAS# 0 qnvs:cod_novedad 07 qnvs:dias 0 QNVS:DIAS_ATRAS 0 pss:noved_irp 13 pss:noved_arp 14 pss:noved_irp 13 pss:noved_arp 14 pss:noved_ige 09 pss:noved_lma 10 ---------- INCATRAS# 0 PONERX# 1 qnvs:cod_novedad 07 qnvs:dias 0 QNVS:DIAS_ATRAS 0 pss:noved_irp 13 pss:noved_arp 14 pss:noved_ige 09 pss:noved_lma 10 RETPDSIG# 0 pss:noved_ret 02 ---------- LOC:LETRA X QNVS:COD_NOVEDAD 07 PSS:NOVED_RET 02 qnvs:cod_novedad 07 Autol:NovedadNS 17 qnvs:valor 4705878 valor_nsal$ 0 qnvs:valor 4705878 -- FIN proces_nv qnvs:cod_novedad 07 Para qnvs:DOCTO_IDENT 79114409 dias_sln$ 0 diasAtras_Ige$ 0 diasAtras_lma$ 0 diasAtras_IRP$ 0 diasAtras_ARP$ 0 QNVS:DIAS_ATRAS 0 QNVS:DIAS 0 valor_vst$ 4705878 CICLO QNVS Qnvs:servicio RP qnvs:cod_novedad qnvs:dias 311 qnvs:valor 3084321.23076923 qnvs:DOCTO_IDENT 79114409 -- Inicio proces_nv - qnvs:cod_novedad 11 Para qnvs:DOCTO_IDENT 79114409 qnvs:dias 3 qnvs:valor 3084321.23076923 LOC:TARIFA 69 salbasalias$ 0 sal_bas$ 0 ese:sal_rep 16029000 qnvs:cod_novedad 11 qnvs:DOCTO_IDENT 79114409 cn_v[nv#] nv# 2 RETPDSIG# 0 pss:noved_ret 02 -- INCATRAS# 0 qnvs:cod_novedad 11 qnvs:dias 3 QNVS:DIAS_ATRAS 0 pss:noved_irp 13 pss:noved_arp 14 pss:noved_irp 13 pss:noved_arp 14 pss:noved_ige 09 pss:noved_lma 10 ---------- INCATRAS# 0 PONERX# 1 qnvs:cod_novedad 11 qnvs:dias 3 QNVS:DIAS_ATRAS 0 pss:noved_irp 13 pss:noved_arp 14 pss:noved_ige 09 pss:noved_lma 10 RETPDSIG# 0 pss:noved_ret 02 ---------- LOC:LETRA X QNVS:COD_NOVEDAD 11 PSS:NOVED_RET 02 qnvs:cod_novedad 11 Autol:NovedadNS 17 qnvs:valor 3084321.23076923 valor_nsal$ 0 qnvs:valor 3084321.23076923 -- FIN proces_nv qnvs:cod_novedad 11 Para qnvs:DOCTO_IDENT 79114409 dias_sln$ 0 diasAtras_Ige$ 0 diasAtras_lma$ 0 diasAtras_IRP$ 0 diasAtras_ARP$ 0 QNVS:DIAS_ATRAS 0 QNVS:DIAS 3 valor_vst$ 4705878 CICLO QNVS Qnvs:servicio RP qnvs:cod_novedad qnvs:dias 311 qnvs:valor 2978168 qnvs:DOCTO_IDENT 79114409 -- Inicio proces_nv - qnvs:cod_novedad 11 Para qnvs:DOCTO_IDENT 79114409 qnvs:dias 3 qnvs:valor 2978168 LOC:TARIFA 69 salbasalias$ 0 sal_bas$ 0 ese:sal_rep 16029000 -- INCATRAS# 0 qnvs:cod_novedad 11 qnvs:dias 3 QNVS:DIAS_ATRAS 0 pss:noved_irp 13 pss:noved_arp 14 pss:noved_irp 13 pss:noved_arp 14 pss:noved_ige 09 pss:noved_lma 10 ---------- INCATRAS# 0 PONERX# 1 qnvs:cod_novedad 11 qnvs:dias 3 QNVS:DIAS_ATRAS 0 pss:noved_irp 13 pss:noved_arp 14 pss:noved_ige 09 pss:noved_lma 10 RETPDSIG# 0 pss:noved_ret 02 ---------- LOC:LETRA X QNVS:COD_NOVEDAD 11 PSS:NOVED_RET 02 qnvs:cod_novedad 11 Autol:NovedadNS 17 qnvs:valor 2978168 valor_nsal$ 0 qnvs:valor 2978168 -- FIN proces_nv qnvs:cod_novedad 11 Para qnvs:DOCTO_IDENT 79114409 dias_sln$ 0 diasAtras_Ige$ 0 diasAtras_lma$ 0 diasAtras_IRP$ 0 diasAtras_ARP$ 0 QNVS:DIAS_ATRAS 0 QNVS:DIAS 3 valor_vst$ 4705878 DESPUES DEL CICLO valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 6062489.23076923 dias_ret# 0 dias_tda# 0 loc:tarifa 69 LOC:TOTALSLN 0 LOC:DIAS_SLN 0 ser:tipo R -- Fin ProcesaQNVS qnvs ser:tipo R dias_sln$ 0 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 6062489.23076923 dias_ret# 0 dias_tda# 0 loc:tarifa 69 DESPUES DE ProcesaQNVS xdias# 0 dias_ret# 0 sal_bas$ 0 dias_tda# 0 PROCESARAMA EMPLEADO 79114409 xdias# 0 SER:TOPEMAXAPORT 25 ESV:TOPEMAXAPORT 25 LOC:TOPEMAX 18442500 sal_bas$ 0 ese:estado loc:docto_ident 79114409 loc:tarifa 69 VERIFIQUERETIROYTRASLADOS EMPLEADO 79114409 xdias# 0 ser:aporte 69 esv:aporte 69 ARP# 1 salbasalias$ 0 sal_bas$ 0 TARIFA SER 69 TARIFA DE ESV 69 Tarifa 69 LOC:TOPEMAX 18442500 SER:TOPEMAXAPORT 25 ESV:TOPEMAXAPORT 25 ARP# 1 SERTOPEMAXAPORT$ 18442500 ESVTOPEMAXAPORT$ 18442500 LOC:DOCTO_LIQ 0 ARP_ ProcesarAMA ese:codigo_ct 03 ctr:aporte 24.36 loc:codigo_ct 03 loc:tarifa 24.36 sal_bas$ 16029000 Actualizar ama por novedades salbasalias$ 0 sal_bas$ 16029000 loc:codigo_ct 03 LOC:TOPEMAX 18442500 loc:tarifa 24.36 AMA:Novedad_v datos_ama nret# 0 ------------SALARIOINGRET QNVSINGRE 0 QnvsIR 3 SALPROM$ 0 SALINGRET$ 0 SALARNOV$ 0 sal_bas$ 16029000 Antes de VERICAINGRESOYRETIROS DATOS AMA sumdias# 0 dias_ret# 0 dias_ing# 0 loc:sal_bas 16029000 ser:tiempo_t 0 ama:docto_ident 79114409 VERICAINGRESOYRETIROS sumdias# 0 ning# 0 nret# 0 QNVSINGRE 0 ama:dias_cot 30 ser:tiempo_t 0 Autol:CtlNVSIgRtF S ama:servicio RP Despues de VERICAINGRESOYRETIROS ser:tipo R ama:sal_bas 16029000 sal_bas$ 16029000 ama:docto_ident 79114409 ama:dias_cot 30 dias_c# 0 loc:tarifa 24.36 INICIO diascambiosal ser:tipo R DIASCAMBIOSAL$ 30 sal_bas$ 16029000 ama:docto_ident 79114409 stotal$ 0 dias_c# 0 ult_sal$ 0 ***Autol:SalBase C sal_bas$ 16029000 sal_base$ 16029000 ese:sal_int N ama:dias_cot 30 pSS:por_sal_int 30 Antes de diasnovedad ser:tipo R IBC 16029000 ama:sal_bas 16029000 sal_bas$ 16029000 ama:docto_ident 79114409 Dias_ibc# 0 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 6062489.23076923 Autol:SalBase C INICIO diasnovedad ser:tipo R INCATRAS# 0 LOC:REVNVNRP N ama:dias_cot 30 Autol:PagPen S valor_arp$ 0 valor_irp$ 0 diasnovedad ser:tipo R dias_rst# 6 INCATRAS# 0 diasAtras_IRP$ 0 diasAtras_ARP$ 0 dias_sln$ 0 diasAtras_Ige$ 0 dias_lma$ 0 dias_vac$ 6 diasAtras_lma$ 0 dias_irp# 0 dias_arp# 0 dias_sln$ 0 dias_ige$ 0 dias_lma$ 0 dias_vac$ 6 LOC:BASENLAB 6062489.23076923 despues de dias_rst# ser:tipo R dias_rst# 6 dias_cot# 24 ama:dias_cot 24 dias_rstR# 0 dias_cotR# 0 ndisrst# 6 FIN diasnovedad ser:tipo R INCATRAS# 0 LOC:REVNVNRP N ama:dias_cot 24 valor_vst$ 4705878 despues de diasnovedad DIAS NOVEDAD 0 dias_ibc# 24 dias_cot# 24 Autol:ATAFSP valor_irp$ 0 valor_arp$ 0 ama:dias_cot 24 Antes de Autol:IbcDesTop S ser:tipo R IBC 16029000 dias_ibc# 24 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 0 ama:dias_cot 24 Inicia Ajustar Ibc 16029000 ser:ajusta_min 5 ESSSAL_MINIMO 0 ama:dias_cot 24 sumdias# 0 ARP# 1 dias_ibc# 24 ser:tiempo_t 0 ARPSC# 1 --ESS:SAL_MINIMO 1 VSY:SAL_MIN_LEGA 737700 SERAJUSTAMIN ser:ajusta_min 5 ama:pensionado 0 LOC:PENSIONADO_COMP 0 INICIA MINIMO_INT LOC:sal_minimo 737700 LOC:MnjTopMinSI N ese:sal_int N LOC:SalMinSI 0 ESSSAL_MINIMO 737700 INICIA Ajustadias ARP# 1 ARPSC# 1 sumdias# 0 DIAS_AJ# 24 dias_ibc# 24 Ajustadias ibcmes$ 0 ibc$ 16029000 DIAS_AJ# 24 ibcmes$ 20036250 LOC:sal_minimo 737700 Fin SERAJUSTAMIN Ibc 16029000 ajustar# 1 ama:dias_cot 24 DIAS_AJ# 24 --CalculaIBC INICIO ser:tipo R IBC$ 16029000 dias_ibc# 24 Autol:DiaCotRet N sumdias# 0 ese:SAL_FIJO 0 INCATRAS# 0 dias_cotR# 0 EMP:IND_P_LIQ 1 EMP:VAR_TRA_10 0 tns:UpdateSal2 S 1-.CALCULANDO IBC 16029000 diasibcDvF# 24 INCATRAS# 0 diasibcDv# 24 diasibcDvR# 0 DIASCT# 30 sumdias# 0 valor_irp$ 0 Autol:ATAFSP LOC:REVNVNRP N CALCULANDO IBC SALINGRET$ 0 Autol:SinAusen N 1.1-.CALCULANDO IBC antes de restar asociacion 16029000 LOC:ASOCIACION 0 1.2-.CALCULANDO IBC antes de restar asociacion 16029000 suma_Vlr_nov$ 0 Autol:SinAusen N 1.3-.CALCULANDO IBC DESPUES SIN AUSENCIAS 16029000 suma_Vlr_nov$ 0 SALINGRET$ 0 suma_Vlr_nov$ 0 ese:SAL_FIJO 0 ibc$ 16029000 valor_irp$ 0 LOC:VPS 0 1.4-.CALCULANDO IBC DESPUES 16029000 suma_Vlr_nov$ 0 LOC:VPS 0 LOC:BASENLAB 6062489.23076923 1.6-.CALCULANDO IBC 16029000 DIASCT# 30 diasibcDvF# 24 suma_Vlr_nov$ 0 LOC:VPS 0 1.7-.CALCULANDO IBC 12823200 DIASCT# 30 diasibcDvF# 24 suma_Vlr_nov$ 0 cambioporfeb# 0 Diafebrero 0 2-.CALCULADO IBC ser:tipo R IBC 12823200 DIASCT# 30 diasibcDvF# 24 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 0 diasibcDv# 24 Autol:SinAusen N diasibcDvR# 0 suma_Vlr_nov$ 0 LOC:BASENSALINI 12823200 Autol:ATAFSP ser:tipo R valor_irp$ 0 valor_arp$ 0 2.1-.CALCULADO IBC ser:tipo R IBC 12823200 INCATRAS# 0 ser:tipo R valor_irp$ 0 valor_arp$ 0 valor_vst$ 4705878 2.2-.SUMA CALCULADO IBC ser:tipo R IBC 17529078 valor_vst$ 4705878 ser:tipo R valor_irp$ 0 valor_arp$ 0 3-.CalculaIBC Final ser:tipo R IBC + Novedades 17529078 INCATRAS# 0 valor_vst$ 4705878 valor_irp$ 0 valor_arp$ 0 3.3-.CalculaIBC Final ser:tipo R IBC + BONO 17529078 BONO LOC:ASOCIACION 0 4-.CalculaIBC Final ser:tipo R IBC + Novedades 17529078 --base no laborado 6062489.23076923 5.CalculaIBC Final ser:tipo R IBC 17529078 ------------BASENSAL INICIA SER:SERVICIO RP valor_nsal$ 0 LOC:BASENLAB 6062489.23076923 ibc$ 17529078 Tns:PorcNS 0.4 LOC:BASENLAB 6062489.23076923 AUTOL:TipProcNS T AUTOL:FACTPRES_BN N Inicia CalcularTopeMax SER:SERVICIO RP LOC:TOPEMAX 18442500 ESV:TOPEMAXAPORT 25 LOC:BASENLAB 6062489.23076923 IBC$ 17529078 CalcularTopeMax INICIA SER:SERVICIO RP LOC:TOPEMAX 18442500 ibc$ 17529078 ama:dias_cot 24 TOPEMAX$ 0 LOC:FactPresD25M N Autol:TopemxC C TOPEMAX$ 14754000 ibc$ 17529078 NUEVO IBC PARA RIESGOS 23591567.2307692 NOVEDADES LOC:BASENLAB 6062489.23076923 **REDONDEAR_TOPEMAX ********* Entrando funcion O_REDONDEO ***************** VALOR = 14754000 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 14754000 VALOR 14754000 ENTERO 14754000 DECIMAL 0 1. VALOR FINAL 14754000 LOC:VALOR 14754000 FINAL REDONDEO VALOR FINAL 14754000 VALOR ORIGINAL 14754000 TIPO 1 REDONDEAR_TOPEMAX TOPEMAX$ 14754000 LOC:TOPEMAXR 14754000 ULTDIG# 0 LONG# 8 LOC:APLITOPEMAX 0 NUEVO TOPEMAX$ 14754000 --ibc$ 23591567.2307692 LOC:IBCRR 23591567.2307692 Autol:NuevRedon S TOPEMAX$ 14754000 ********* Entrando funcion O_REDONDEO ***************** VALOR = 23591567.2307692 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 23591567.2307692 VALOR 23591567.2307692 ENTERO 23591567 DECIMAL 0.230769231915474 1. VALOR FINAL 23591568 LOC:VALOR 23591567.2307692 FINAL REDONDEO VALOR FINAL 23591568 VALOR ORIGINAL 23591567.2307692 TIPO 1 --SER:SERVICIO RP LOC:TOPEMAX 18442500 Autol:NuevRedon S ibc$ 23591568 ama:dias_cot 24 TOPEMAX$ 14754000 Autol:TopemxC C CalcularTopeMax FIN LOC:TOPEMAX 18442500 ibc$ 14754000 ama:sal_bas 16029000 LOC:APLITOPEMAX 1 NUEVO IBC PARA RIESGOS DESPUES DE TOPE 8691510.76923077 NOVEDADES LOC:BASENLAB 6062489.23076923 xxxxxxxxxxxxx Despues de Loc:IbcDesTop ser:tipo R FIN IBC 8691510.76923077 ESS:EMP_SSSR Despues de comparar con Tope maximo Maximo 18442500 o tope_salmax$ 0 ESS:REDONDEO_ibc M LOC:REDONDEO 0.0001 loc:tarifa 24.36 Autol:CtrolRoundMin T ama:dias_cot 24 Autol:Redondeo 0.0001 LOC:OPERADOR 1 valor_vst$ 4705878 ********* Entrando funcion O_REDONDEO ***************** VALOR = 8691510.76923077 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 8691510.76923077 VALOR 8691510.76923077 ENTERO 8691510 DECIMAL 0.769230769947171 1. VALOR FINAL 8691511 LOC:VALOR 8691510.76923077 FINAL REDONDEO VALOR FINAL 8691511 VALOR ORIGINAL 8691510.76923077 TIPO 1 antes de CTROL_ROUND --- LOC:IBC 8691511 IBC$ 8691511 ******** qqqqqqqqqqqqqqqqqqqqq CONTROL DE REDONDEO Autol:CtrolRoundMin T LOC:PENSIONADO_COMP 0 Autol:CondPenCom ************* ********* Entrando funcion O_REDONDEO ***************** VALOR = 10864388.75 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 10864388.75 VALOR 10864388.75 ENTERO 10864388 DECIMAL 0.75 1. VALOR FINAL 10864389 LOC:VALOR 10864388.75 FINAL REDONDEO VALOR FINAL 10864389 VALOR ORIGINAL 10864388.75 TIPO 1 --ESS:SAL_MINIMO 1 ESSSAL_MINIMO 737700 VSY:SAL_MIN_LEGA 737700 --ESS:SAL_MINIMO 1 VSY:SAL_MIN_LEGA 737700 ********* Entrando funcion O_REDONDEO ***************** VALOR = 590160 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 590160 VALOR 590160 ENTERO 590160 DECIMAL 0 1. VALOR FINAL 590160 LOC:VALOR 590160 FINAL REDONDEO VALOR FINAL 590160 VALOR ORIGINAL 590160 TIPO 1 --LOC:SAL_MIN 590160 LOC:SALARIOIBC 10864389 LOC:IBC_MIN 590160 LOC:IBC 8691511 LOC:SALARIOIBC 10864389 ESSSAL_MINIMO 737700 TOME MAXIMO 18442500 LOC:IBC 8691511 AMA:DIAS_COT 24 CTROLMIN# 1 REDONDEA# 1 LOC:CTROLROUND T LOC:SAL_MIN 590160 LOC:SALARIOIBC 10864389 <= ESSSAL_MINIMO 737700 EXIT# 1 ********* Entrando funcion O_REDONDEO ***************** VALOR = 10864389 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 10864389 VALOR 10864389 ENTERO 10864389 DECIMAL 0 1. VALOR FINAL 10864389 LOC:VALOR 10864389 FINAL REDONDEO VALOR FINAL 10864389 VALOR ORIGINAL 10864389 TIPO 1 LOC:SALARIOIBC 10864389 = LOC:TOPEMAX 18442500 EXIT# 1 VALIDA_BASE ANO 2017 AMA:DIAS_COT 24 ********* Entrando funcion O_REDMIN ***************** SERVICIO = IBC AŅO = 2017 DIAS = 24 TARIFA = 0 Autol:NuevRedon = S ---BUSCA IBC MINIMO PARA EL ANO 2017 DIAS 24 Autol:NuevRedon S INICIA IBC_NUEVO DIAS 24 MINIMO 737700 AŅO 2017 ********* Entrando funcion O_REDONDEO ***************** VALOR = 590160 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 590160 VALOR 590160 ENTERO 590160 DECIMAL 0 1. VALOR FINAL 590160 LOC:VALOR 590160 FINAL REDONDEO VALOR FINAL 590160 VALOR ORIGINAL 590160 TIPO 1 FIN IBC_NUEVO DIAS 24 IBC 590160 FIN BUSCA IBC PARA EL ANO 2017 LOC:IBC 590160 DIAS 24 REDONDEO = 590160 Syf:TipoRedondeo FIN VALIDA_BASE LOC:SAL_MIN 590160 ********* Entrando funcion O_REDONDEO ***************** VALOR = 8691511 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 8691511 VALOR 8691511 ENTERO 8691511 DECIMAL 0 1. VALOR FINAL 8691511 LOC:VALOR 8691511 FINAL REDONDEO VALOR FINAL 8691511 VALOR ORIGINAL 8691511 TIPO 1 LOC:IBC 8691511 BASEREDONDEAD$ 8691511 LOC:IBC 8691511 LOC:SAL_MIN 590160 LOC:IBC_MIN 590160 EXIT# 1 LOC:PENSIONADO_COMP 0 ********* Entrando funcion O_REDONDEO ***************** VALOR = 8691511 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 8691511 VALOR 8691511 ENTERO 8691511 DECIMAL 0 1. VALOR FINAL 8691511 LOC:VALOR 8691511 FINAL REDONDEO VALOR FINAL 8691511 VALOR ORIGINAL 8691511 TIPO 1 --REDONDEA# 1 LOC:IBC 8691511 ESS:REDONDEO_ibc M LOC:IBC_MIN 590160 LOC:APLITOPEMAX 1 LOC:PENSIONADO_COMP 0 veo 8691511 LOC:sal_minimo 737700 ese:sal_int N ama:ibc 8691511 ama:sal_bas 16029000 ese:sal_int N ama:sal_bas 16029000 ama:ibc 8691511 AUTOL:CAMB_SALBAS N LOC:sal_minimo 737700 ---IBC AL FINAL DEL REDONDEO 8691511 REDONDEA# 1 CTROLMIN# 1 LOC:IBC 8691511 ama:sal_bas 16029000 BUSCA_DEV DOCTO_IDENT 79114409 LOC:APLIC_CREE 1 SER:TIPO R AGRUPA CREEG Ley50 = CREE AGRUPA CREEG INTegral = VSY:REL_SALIN SI EMP:REL_LABORAL L5 AMA:COD_TIPO 1 AMA:VALOR_NRET 0 AMA:COD_TIPO 1 AMA:PENSIONADO 0 antes de ser:ind_calc G SERVICIO RP AMA:VALOR_NRET 0 LOC:DEVENGADOS 0 INICIA REDONDEOCOLOMBIA DOCTO_IDENT 79114409 ama:IBC 8691511 Autol:NuevRedon S ESS:REDONDEO_APT C TARIFA_CREE DOCTO_IDENT 79114409 LOC:APLIC_CREE 1 SER:TIPO R LOC:DEVENGADOS 0 LOC:TOPECREE 7377000 LOC:tarifa 24.36 LOC:BASICO 16029000 AMA:COD_TIPO 1 Mllg:CREE_BASE IBC AMA:PENSIONADO 0 esv:aporte 69 AMA:IBC 8691511 ESE:SAL_INT N ********* Entrando funcion O_REDONDEO ***************** VALOR = 211725.20796 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 211725.20796 VALOR 2117.2520796 ENTERO 2117 DECIMAL 0.252079599999888 1. VALOR FINAL 2118 LOC:VALOR 2117.2520796 LOC:ENTERO 2117 2. VALOR FINAL 211800 LOC:VALOR 2117.2520796 FINAL REDONDEO VALOR FINAL 211800 VALOR ORIGINAL 211725.20796 TIPO 2 INICIA REDONDEOCOLOMBIA AMA:COTIZ_OBL 211800 LOC:IBC_MIN 590160 LOC:tarifa 24.36 INICIA REDONDEOCOLOMBIA AMA:COTIZ_OBL 211800 LOC:APOR_MIN 14376 --CALCULAR APORTE BUSCAR COTIZACION 211800 AMA:IBC 8691511 TARIFA 0.02436 Aporte del minimo 14376 Ibc Minimo 590160 ********* Entrando funcion O_REDONDEO ***************** VALOR = 211725.20796 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 211725.20796 VALOR 2117.2520796 ENTERO 2117 DECIMAL 0.252079599999888 1. VALOR FINAL 2118 LOC:VALOR 2117.2520796 LOC:ENTERO 2117 2. VALOR FINAL 211800 LOC:VALOR 2117.2520796 FINAL REDONDEO VALOR FINAL 211800 VALOR ORIGINAL 211725.20796 TIPO 2 --LOC:APORTE 211800 LOC:DECIMAL 0 LOC:SAL_MIN 590160 --NUEVO LOC:APORTE 211800 LOC:DECIMAL 0 LOC:SAL_MIN 590160 LOC:tarifa 24.36 ********* Entrando funcion O_REDONDEO ***************** VALOR = 14376.2976 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 14376.2976 VALOR 143.762976 ENTERO 143 DECIMAL 0.762976000000009 1. VALOR FINAL 144 LOC:VALOR 143.762976 LOC:ENTERO 143 2. VALOR FINAL 14400 LOC:VALOR 143.762976 FINAL REDONDEO VALOR FINAL 14400 VALOR ORIGINAL 14376.2976 TIPO 2 --INICIA VERIFICA_APORTE SER:TIPO R AMA:DIAS_COT 24 AMA:PENSIONADO 0 LOC:TARIFA 24.36 LOC:APORT_MINX 0 ama:cotiz_obl 211800 LOC:APORT_MIN 14400 ama:IBC 8691511 LOC:tarifa 24.36 LOC:IBC_MIN 590160 AMA:PENSIONADO 0 LOC:APLITOPEMAX 1 LOC:APORMAX 0 LOC:PENSIONADO_COMP 0 LOC:TOPEMAXRO 14754000 ********* Entrando funcion O_REDONDEO ***************** VALOR = 359407.44 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 359407.44 VALOR 3594.0744 ENTERO 3594 DECIMAL 0.0743999999999687 1. VALOR FINAL 3595 LOC:VALOR 3594.0744 LOC:ENTERO 3594 2. VALOR FINAL 359500 LOC:VALOR 3594.0744 FINAL REDONDEO VALOR FINAL 359500 VALOR ORIGINAL 359407.44 TIPO 2 ********* Entrando funcion O_REDONDEO ***************** VALOR = 211725.20796 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 211725.20796 VALOR 211725.20796 ENTERO 211725 DECIMAL 0.20795999999973 1. VALOR FINAL 211726 LOC:VALOR 211725.20796 FINAL REDONDEO VALOR FINAL 211726 VALOR ORIGINAL 211725.20796 TIPO 1 **APORTE_MAX LOC:TOPEMAXRO 14754000 LOC:APORT_MAX 359500 LOC:APORT_MAXR 211726 LOC:APORT_MAXA 211726 LOC:tarifa 24.36 LOC:APLITOPEMAX 1 LOC:APORMAX 0 LOC:APORT_MIN 14400 LOC:APORT_MAX 359500 LOC:APORTE 211800 LOC:APORT_MIN 14400 LOC:APORT_MIN 14400 LOC:APORT_MAX 359500 -- despues de VERIFICA_APORTE LOC:APORTE 211800 LOC:IBC 8691511 TARIFA 0.02436 LOC:APORT_MIN 14400 CTROLMIN# 1 LOC:APORMAX 0 LOC:APORMAX 0 Antes de ESS:REDONDEO_APT E RED_APOR# 1 ama:IBC 8691511 LOC:tarifa 24.36 LOC:REDONDEO 0.0001 LOC:PENSIONADO_COMP 0 LOC:APORTE 211800 ********* Entrando funcion O_REDONDEO ***************** VALOR = 211725.20796 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 211725.20796 VALOR 2117.2520796 ENTERO 2117 DECIMAL 0.252079599999888 1. VALOR FINAL 2118 LOC:VALOR 2117.2520796 LOC:ENTERO 2117 2. VALOR FINAL 211800 LOC:VALOR 2117.2520796 FINAL REDONDEO VALOR FINAL 211800 VALOR ORIGINAL 211725.20796 TIPO 2 Despues de ESS:REDONDEO_APT E ama:cotiz_obl 211800 ama:IBC 8691511 LOC:APORT_MIN 14400 RED_APOR# 1 ess:emp_ss SR OPERADOR 1 LOC:APORTE 211800 COTIZACION OBLIGATORIA AL FINAL DEL REDONDEO 211800 RED_APOR# 1 CTROLMIN# 1 LOC:IBC 8691511 RED_APOR# 1 SAL_VARIABLE DOCTO_IDENT 79114409 AMA:SAL_BAS 16029000 ESE:SAL_FIJO 0 TNS:UpdateSal2 S --LOC:BASENSALF 0 NOVEDAD X X NOVEDAD_V 07 11 ESE:SAL_FIJO 0 Autol:VST_Var N DESPUES LOC:BASENSALF 0 NOVEDAD X X NOVEDAD_V 07 11 ** ESE:SAL_FIJO 0 AMA:TARIFA 24.36 AMA:COTIZ_OBL 211800 SERVICIO RP SER:TIPO R AMA:DOCTO_IDENT 79114409 AMA:IBC 8691511 AMA:SAL_BAS 16029000 ama:valor_vst 4705878 valor_vst$ 4705878 tns:UpdateSal2 S AMA:DIAS_COT 24 --------FIN ProcesarAMA se modifica el empleado 79114409 con admon: SR sucursal: CE servicio: RP ANTES DE actibcama Autol:EmpSSActIbc S UPDATE AMA UPDATE AMA SET IBC = AM.IBC FROM AMA , ( SELECT AO.* FROM AMA AO WHERE AO.ANO = '2017' AND AO.MES = '07' AND AO.SERVICIO IN ( SELECT SERVICIO FROM SER WHERE TIPO = 'P') AND DOCTO_IDENT IN ( SELECT DOCTO_IDENT FROM AMA A2 WHERE A2.ANO = '2017' AND A2.MES = '07' AND A2.SERVICIO IN (SELECT SERVICIO FROM SER WHERE TIPO = 'S') AND A2.IBC <> AO.IBC AND A2.DOCTO_IDENT = AO.DOCTO_IDENT AND AO.IBC > 0 AND A2.DIAS_COT = AO.DIAS_COT)) AS AM WHERE AMA.ANO = '2017' AND AMA.MES = '07' AND AMA.DOCTO_IDENT = AM.DOCTO_IDENT AND AMA.SERVICIO IN (SELECT SERVICIO FROM SER WHERE TIPO = 'S' ) AND AMA.SUCURSAL = AM.SUCURSAL