Para el proceso de AuTOLIQUIDACION 28.08.2017 El Usuario MGUTIERREZ De la Empresa GRUPO GRAL S.A.S. glo:tipo_liq Beneficiario Periodo 201708 Version MSL02:AUTO5_17 Liq:MnjAlias SYF:PROCESO_WEB Version 2017 MSSQL loc:Debug 1 loc:DebugEMP 10272902 filtrado inicia CARGARQEMP GLO:FILTRADO loc:debugemp 10272902 FILTRO del ESE ACTIVOS: SELECT * FROM ESE WHERE ESE.EMP_SS = 'CN' AND ESE.SUCURSAL = 'DG' AND ESE.SERVICIO = 'PE' AND ESE.DOCTO_IDENT = '10272902' AND ESE.ESTADO <> 'R' ORDER BY ESE.DOCTO_IDENT ACTIVOS - EMPRESA CN SERVICIO PE DOCTO_IDENT 10272902 ese:f_vigencia 1.04.2017 cat:f_fin 30.08.2017 ese:sal_rep 17380000 --INICIA CONTINUAACTIVOS DOCTO_IDENT 10272902 SERVICIO PE Tarifa ESV 160 Tarifa 160 tns:UpdateSal2 S sal_bas$ 17380000 ese:sal_rep 17380000 ese:sal_fijo 0 ARP# 0 Tarifa ESV 160 Tarifa 160 sal_bas$ 17380000 ese:sal_rep 17380000 FIN CONTINUAACTIVOS DOCTO_IDENT 10272902 SERVICIO PE sal_bas$ 17380000 loc:tarifa 160 esv:aporte 160 ARP# 0 INICIA CreaAma AMA EMPLEADO 10272902 esv:emp_ss, esv:sucursal.esv:servicio CNDGPE 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 AUINEX AMA:TIPO_COTIZANTE DP1 CTROL EXTRANJERO SERVICIO P EMP:CIUDAD_N 17001 FIN CreaAma A GRABAR EMPLEADO 10272902 AMA:SALARIO 17380000 SAL_BAS$ 17380000 AMA:SAL_BAS 17380000 AMA:emp_ss, AMA:sucursal, AMA:SERVICIO CNDGPE AMA:TARIFA 160 AMA:ANOS 2017 AMA:MESS 09 VA A ver_nov Despues de do activos LOC:ACTIVOSESE 2 INICIA NOVE_PORPRD en Liquidar 201708 FILTRADO SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '08' AND NVS.DOCTO_IDENT = '10272902' AND NVS.EMP_SS = 'CN' AND NVS.SUCURSAL = 'DG' AND NVS.SERVICIO = 'PE' ORDER BY NVS.DOCTO_IDENT,NVS.F_INI RECORDS(SYF:QEMP) 0 NVS:DOCTO_IDENT 10272902 NVS:MES 08 GLO:MES 08 NVS:cod_novedad 07 NVS:cod_novedad 07 pss:noved_ret 02 Autol:CtlNVSAntg S nvs:servicio PE pss:noved_ing 01 NVS:MES 08 GLO:MES 08 BUSCA NPS Autol:CtlNVSAntg S Autol:CtlNVSAntg_O S FIN NOVE_PORPRD - PERIODO 201708 nvs:servicio PE nvs:cod_novedad 07 nvs:valor 3540108 nvs:DOCTO_IDENT 10272902 loc:docto_ident NVS:salario 17380000 sal_bas$ 17380000 NOVE_PORPRD - PERIODO 201708 nvs:servicio PE nvs:cod_novedad 07 nvs:valor 3540108 nvs:DOCTO_IDENT 10272902 loc:docto_ident ese:sal_rep 17380000 FIN NOVE_PORPRD - ANTES DE CREAMA INICIA CreaAma AMA EMPLEADO 10272902 esv:emp_ss, esv:sucursal.esv:servicio CNDGPE ENCUENTRA AMA DOC_IDENT 10272902 esv:emp_ss CN esv:sucursal DG esv:servicio PE RECORDS(SYF:QEMP) 0 NVS:DOCTO_IDENT 10272902 NVS:MES 08 GLO:MES 08 NVS:cod_novedad 11 NVS:cod_novedad 11 pss:noved_ret 02 Autol:CtlNVSAntg S nvs:servicio PE pss:noved_ing 01 NVS:MES 08 GLO:MES 08 BUSCA NPS Autol:CtlNVSAntg S Autol:CtlNVSAntg_O S FIN NOVE_PORPRD - PERIODO 201708 nvs:servicio PE nvs:cod_novedad 11 nvs:valor 12910047.5 nvs:DOCTO_IDENT 10272902 loc:docto_ident 10272902 NVS:salario 18442925 sal_bas$ 17380000 NOVE_PORPRD - PERIODO 201708 nvs:servicio PE nvs:cod_novedad 11 nvs:valor 12910047.5 nvs:DOCTO_IDENT 10272902 loc:docto_ident 10272902 ese:sal_rep 17380000 INICIA NOVE_PORPRD en Liquidar 201709 FILTRADO SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '09' AND NVS.DOCTO_IDENT = '10272902' AND NVS.EMP_SS = 'CN' AND NVS.SUCURSAL = 'DG' AND NVS.SERVICIO = 'PE' ORDER BY NVS.DOCTO_IDENT,NVS.F_INI EN ALIASSINPAPA, LOC:EMXTIPO_REL qla:docto_ident 10272902 glo:tipo_liq Beneficiario A-. qla:emp_ss CN qla:sucursal DG 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 7377170 VSY:SAL_MIN_LEGA 737717 Mllg:CREE_BASE IBC --------- Inicia Msl02:Auto5_17 ESV:EMP_SS CN ESV:SUCURSAL DG 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 18442925 Tarifa SER 160 Tarifa 160 ARPSC# 0 SER:TOPEMAXAPORT 25 SERTOPEMAXAPORT$ 18442925 pss:tope_salmax 25 psstope_salmax$ 18442925 --------INICIO ProcesarAMA - loc:docto_ident esv:SERVICIO PE esv:sucursal DG glo:tipo_liq Beneficiario qla:docto_ident 10272902 ProcesarAMA fILTRADO SELECT AMA.CNSAMA FROM AMA WHERE AMA.ANO = '2017' AND AMA.MES = '08' AND AMA.EMP_SS = 'CN' AND AMA.SUCURSAL = 'DG' AND AMA.SERVICIO = 'PE' AND AMA.DOCTO_IDENT = '10272902' ORDER BY AMA.DOCTO_IDENT --------INICIO Ciclo ProcesarAMA - DEL EMPLEADO 10272902 LOC:FILTRADO SELECT AMA.CNSAMA FROM AMA WHERE AMA.ANO = '2017' AND AMA.MES = '08' AND AMA.EMP_SS = 'CN' AND AMA.SUCURSAL = 'DG' AND AMA.SERVICIO = 'PE' AND AMA.DOCTO_IDENT = '10272902' ORDER BY AMA.DOCTO_IDENT AMA:DOCTO_IDENT 10272902 RECORDS(SYF:QEMP) 0 INICIA BUSCARCOD_ RECORDS(QSER) 3 QSER:SERVICIO PE QSER:TIPO P ama:docto_ident 10272902 QSER:SERVICIO PE QSER:TIPO P ese:emp_ss CN ese:estado ESV:EMP_SS CN ESV:SUCURSAL DG ESV:SERVICIO PE ESV:CODIGO QSER:SERVICIO SF QSER:TIPO S ama:docto_ident 10272902 QSER:SERVICIO SF QSER:TIPO S ese:emp_ss SN ese:estado ESV:EMP_SS SN ESV:SUCURSAL DG ESV:SERVICIO SF ESV:CODIGO QSER:SERVICIO SJ QSER:TIPO S ama:docto_ident 10272902 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 08 SQL para CARGAr NVS SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '08' AND NVS.EMP_SS = 'CN' AND NVS.SUCURSAL = 'DG' AND NVS.SERVICIO = 'PE' AND NVS.DOCTO_IDENT = '10272902' ORDER BY NVS.DOCTO_IDENT -------------------------------------------------- --NVS:MES 08 GLO:MES 08 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 3540108 NVS:DIAS 9 sal_bas$ 0 NVS:SALARIO 17380000 RETPDSIG# 0 CARGANDO NVS - Qnvs:servicio PE qnvs:cod_novedad 07 qnvs:valor 3540108 qnvs:DOCTO_IDENT 10272902 QNVS:DIAS_ATRAS 0 QNVS:DIAS 9 INCATRAS# 0 NVS:SALARIO 17380000 sal_bas$ 0 RETPDSIG# 0 CARGANDO QnvsIR - QnvsIR:servicio PE QnvsIR:cod_novedad 07 QnvsIR:valor 3540108 QnvsIR:DOCTO_IDENT 10272902 ADD QnvsIR:F_INI 1.08.2017 QnvsIR:DIAS 9 QnvsIR:SALARIO 17380000 -------------------------------------------------- --NVS:MES 08 GLO:MES 08 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 12910047.5 NVS:DIAS 21 sal_bas$ 0 NVS:SALARIO 18442925 RETPDSIG# 0 CARGANDO NVS - Qnvs:servicio PE qnvs:cod_novedad 11 qnvs:valor 12910047.5 qnvs:DOCTO_IDENT 10272902 QNVS:DIAS_ATRAS 0 QNVS:DIAS 21 INCATRAS# 0 NVS:SALARIO 18442925 sal_bas$ 0 RETPDSIG# 0 CARGANDO QnvsIR - QnvsIR:servicio PE QnvsIR:cod_novedad 11 QnvsIR:valor 12910047.5 QnvsIR:DOCTO_IDENT 10272902 ADD QnvsIR:F_INI 4.08.2017 QnvsIR:DIAS 21 QnvsIR:SALARIO 18442925 FIN CARGANDO NVSINCLMA# 0 QPRD:MES 08 GLO:SERSF SF,SJ LOC:MnjIncAtras N GLO:SERRP PE Records(qnvs) 2 *****INICIA CARGANDO NOVEDADES REPORTADAS**** RECORDS(QPRD) 2 QPRD:Ano 2017 QPRD:MES 09 SQL para CARGAr NVS SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '09' AND NVS.EMP_SS = 'CN' AND NVS.SUCURSAL = 'DG' AND NVS.SERVICIO = 'PE' AND NVS.DOCTO_IDENT = '10272902' ORDER BY NVS.DOCTO_IDENT FIN CARGANDO NVSINCLMA# 0 QPRD:MES 08 GLO:SERSF SF,SJ LOC:MnjIncAtras N GLO:SERRP PE Records(qnvs) 2 Despues de CargarNVS salbasalias$ 0 sal_bas$ 0 Records(QNVS) 2 loc:docto_ident 10272902 sal_bas$ 0 esv:servicio PE incio ProcesaQNVS Records(Qnvs) 2 CICLO QNVS Qnvs:servicio PE qnvs:cod_novedad qnvs:dias 907 qnvs:valor 3540108 qnvs:DOCTO_IDENT 10272902 -- Inicio proces_nv - qnvs:cod_novedad 07 Para qnvs:DOCTO_IDENT 10272902 qnvs:dias 9 qnvs:valor 3540108 LOC:TARIFA 160 salbasalias$ 0 sal_bas$ 0 ese:sal_rep 17380000 qnvs:cod_novedad 07 qnvs:DOCTO_IDENT 10272902 cn_v[nv#] nv# 1 RETPDSIG# 0 pss:noved_ret 02 -- INCATRAS# 0 qnvs:cod_novedad 07 qnvs:dias 9 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 9 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 3540108 valor_nsal$ 0 qnvs:valor 3540108 -- FIN proces_nv qnvs:cod_novedad 07 Para qnvs:DOCTO_IDENT 10272902 dias_sln$ 0 diasAtras_Ige$ 0 diasAtras_lma$ 0 diasAtras_IRP$ 0 diasAtras_ARP$ 0 QNVS:DIAS_ATRAS 0 QNVS:DIAS 9 valor_vst$ 3540108 CICLO QNVS Qnvs:servicio PE qnvs:cod_novedad qnvs:dias 2111 qnvs:valor 12910047.5 qnvs:DOCTO_IDENT 10272902 -- Inicio proces_nv - qnvs:cod_novedad 11 Para qnvs:DOCTO_IDENT 10272902 qnvs:dias 21 qnvs:valor 12910047.5 LOC:TARIFA 160 salbasalias$ 0 sal_bas$ 0 ese:sal_rep 17380000 qnvs:cod_novedad 11 qnvs:DOCTO_IDENT 10272902 cn_v[nv#] nv# 2 RETPDSIG# 0 pss:noved_ret 02 -- INCATRAS# 0 qnvs:cod_novedad 11 qnvs:dias 21 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 21 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 12910047.5 valor_nsal$ 0 qnvs:valor 12910047.5 -- FIN proces_nv qnvs:cod_novedad 11 Para qnvs:DOCTO_IDENT 10272902 dias_sln$ 0 diasAtras_Ige$ 0 diasAtras_lma$ 0 diasAtras_IRP$ 0 diasAtras_ARP$ 0 QNVS:DIAS_ATRAS 0 QNVS:DIAS 21 valor_vst$ 3540108 DESPUES DEL CICLO valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 12910047.5 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$ 12910047.5 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 10272902 xdias# 0 SER:TOPEMAXAPORT 25 ESV:TOPEMAXAPORT 25 LOC:TOPEMAX 18442925 sal_bas$ 0 ese:estado loc:docto_ident 10272902 loc:tarifa 160 VERIFIQUERETIROYTRASLADOS EMPLEADO 10272902 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 18442925 SER:TOPEMAXAPORT 25 ESV:TOPEMAXAPORT 25 ARP# 0 SERTOPEMAXAPORT$ 18442925 ESVTOPEMAXAPORT$ 18442925 LOC:DOCTO_LIQ 0 Actualizar ama por novedades salbasalias$ 0 sal_bas$ 17380000 loc:codigo_ct LOC:TOPEMAX 18442925 loc:tarifa 160 AMA:Novedad_v datos_ama nret# 0 ------------SALARIOINGRET QNVSINGRE 0 QnvsIR 2 SALPROM$ 0 SALINGRET$ 0 SALARNOV$ 0 sal_bas$ 17380000 Antes de VERICAINGRESOYRETIROS DATOS AMA sumdias# 0 dias_ret# 0 dias_ing# 0 loc:sal_bas 17380000 ser:tiempo_t 0 ama:docto_ident 10272902 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 17380000 sal_bas$ 17380000 ama:docto_ident 10272902 ama:dias_cot 30 dias_c# 0 loc:tarifa 160 INICIO diascambiosal ser:tipo P DIASCAMBIOSAL$ 30 sal_bas$ 17380000 ama:docto_ident 10272902 stotal$ 0 dias_c# 0 ult_sal$ 0 ***Autol:SalBase C sal_bas$ 17380000 sal_base$ 17380000 ese:sal_int S ama:dias_cot 30 pSS:por_sal_int 30 Salario integral tipo Salario (C-con factor/S-Sin factor) Autol:SalBase C sal_bas$ 17380000 Autol:BasicoFeb N Antes de diasnovedad ser:tipo P IBC 12166000 ama:sal_bas 17380000 sal_bas$ 12166000 ama:docto_ident 10272902 Dias_ibc# 0 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 12910047.5 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$ 3540108 despues de diasnovedad DIAS NOVEDAD 21 dias_ibc# 9 dias_cot# 30 Autol:ATAFSP S valor_irp$ 0 valor_arp$ 0 ama:dias_cot 30 Antes de Autol:IbcDesTop ser:tipo P IBC 12166000 dias_ibc# 9 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 12910047.5 ama:dias_cot 30 --CalculaIBC INICIO ser:tipo P IBC$ 12166000 dias_ibc# 9 Autol:DiaCotRet T 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 12166000 diasibcDvF# 9 INCATRAS# 0 diasibcDv# 9 diasibcDvR# 0 DIASCT# 30 sumdias# 0 valor_irp$ 0 Autol:ATAFSP S LOC:REVNVNRP N CALCULANDO IBC SALINGRET$ 0 Autol:SinAusen N 1.1-.CALCULANDO IBC antes de restar asociacion 12166000 LOC:ASOCIACION 0 1.2-.CALCULANDO IBC antes de restar asociacion 12166000 suma_Vlr_nov$ 12910047.5 Autol:SinAusen N 1.3-.CALCULANDO IBC DESPUES SIN AUSENCIAS 12166000 suma_Vlr_nov$ 12910047.5 SALINGRET$ 0 suma_Vlr_nov$ 12910047.5 ese:SAL_FIJO 0 ibc$ 12166000 valor_irp$ 0 LOC:VPS 0 1.4-.CALCULANDO IBC DESPUES 12166000 suma_Vlr_nov$ 12910047.5 LOC:VPS 0 LOC:BASENLAB 0 1.6-.CALCULANDO IBC 12166000 DIASCT# 30 diasibcDvF# 9 suma_Vlr_nov$ 12910047.5 LOC:VPS 0 1.7-.CALCULANDO IBC 16559847.5 DIASCT# 30 diasibcDvF# 9 suma_Vlr_nov$ 12910047.5 cambioporfeb# 0 Diafebrero 0 2-.CALCULADO IBC ser:tipo P IBC 16559847.5 DIASCT# 30 diasibcDvF# 9 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 12910047.5 diasibcDv# 9 Autol:SinAusen N diasibcDvR# 0 suma_Vlr_nov$ 12910047.5 LOC:BASENSALINI 16559847.5 Autol:ATAFSP S ser:tipo P valor_irp$ 0 valor_arp$ 0 2.1-.CALCULADO IBC ser:tipo P IBC 16559847.5 INCATRAS# 0 ser:tipo P valor_irp$ 0 valor_arp$ 0 valor_vst$ 3540108 2.2-.SUMA CALCULADO IBC ser:tipo P IBC 20099955.5 valor_vst$ 3540108 ser:tipo P valor_irp$ 0 valor_arp$ 0 3-.CalculaIBC Final ser:tipo P IBC + Novedades 20099955.5 INCATRAS# 0 valor_vst$ 3540108 valor_irp$ 0 valor_arp$ 0 3.3-.CalculaIBC Final ser:tipo P IBC + BONO 20099955.5 BONO LOC:ASOCIACION 0 4-.CalculaIBC Final ser:tipo P IBC + Novedades 20099955.5 --base no laborado 0 5.CalculaIBC Final ser:tipo P IBC 20099956 ------------BASENSAL INICIA SER:SERVICIO PE valor_nsal$ 0 LOC:BASENLAB 0 ibc$ 20099956 Tns:PorcNS 0.4 LOC:BASENLAB 0 AUTOL:TipProcNS T AUTOL:FACTPRES_BN N Inicia Ajustar Ibc 20099956 ser:ajusta_min 5 ESSSAL_MINIMO 0 ama:dias_cot 30 sumdias# 0 ARP# 0 dias_ibc# 9 ser:tiempo_t 0 ARPSC# 0 --ESS:SAL_MINIMO 1 VSY:SAL_MIN_LEGA 737717 SERAJUSTAMIN ser:ajusta_min 5 ama:pensionado 0 LOC:PENSIONADO_COMP 0 INICIA MINIMO_INT LOC:sal_minimo 737717 LOC:MnjTopMinSI N ese:sal_int S LOC:SalMinSI 0 ESSSAL_MINIMO 737717 INICIA Ajustadias ARP# 0 ARPSC# 0 sumdias# 0 DIAS_AJ# 30 dias_ibc# 9 Ajuste por 5 ibc$ 20099956 LOC:sal_minimo 737717 ama:dias_cot 30 Ajuste Ibc 20099956 ajustar# 0 ESSSAL_MINIMO 737717 Fin SERAJUSTAMIN Ibc 20099956 ajustar# 0 ama:dias_cot 30 DIAS_AJ# 30 Inicia CalcularTopeMax SER:SERVICIO PE LOC:TOPEMAX 18442925 ESV:TOPEMAXAPORT 25 LOC:BASENLAB 0 IBC$ 20099956 CalcularTopeMax INICIA SER:SERVICIO PE LOC:TOPEMAX 18442925 ibc$ 20099956 ama:dias_cot 30 TOPEMAX$ 0 LOC:FactPresD25M N Autol:TopemxC S TOPEMAX$ 18442925 ibc$ 20099956 **REDONDEAR_TOPEMAX REDONDEAR_TOPEMAX TOPEMAX$ 18442925 LOC:TOPEMAXR 18442925 ULTDIG# 925 LONG# 8 LOC:APLITOPEMAX 0 NUEVO TOPEMAX$ 18442925 --ibc$ 20099956 LOC:IBCRR 20099956 Autol:NuevRedon S TOPEMAX$ 18442925 ********* Entrando funcion O_REDONDEO ***************** VALOR = 20099956 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 20099956 VALOR 20099956 ENTERO 20099956 DECIMAL 0 1. VALOR FINAL 20099956 LOC:VALOR 20099956 FINAL REDONDEO VALOR FINAL 20099956 VALOR ORIGINAL 20099956 TIPO 1 --SER:SERVICIO PE LOC:TOPEMAX 18442925 Autol:NuevRedon S ibc$ 20099956 ama:dias_cot 30 TOPEMAX$ 18442925 Autol:TopemxC S CalcularTopeMax FIN LOC:TOPEMAX 18442925 ibc$ 18442925 ama:sal_bas 17380000 LOC:APLITOPEMAX 1 Autol:SalBaseTope xxxxxxxxxxxxx Despues de Loc:IbcDesTop ser:tipo P FIN IBC 18442925 ESS:EMP_SSCN Despues de comparar con Tope maximo Maximo 18442925 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$ 3540108 ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442925 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442925 VALOR 18442925 ENTERO 18442925 DECIMAL 0 1. VALOR FINAL 18442925 LOC:VALOR 18442925 FINAL REDONDEO VALOR FINAL 18442925 VALOR ORIGINAL 18442925 TIPO 1 antes de CTROL_ROUND --- LOC:IBC 18442925 IBC$ 18442925 ******** qqqqqqqqqqqqqqqqqqqqq CONTROL DE REDONDEO Autol:CtrolRoundMin T LOC:PENSIONADO_COMP 0 Autol:CondPenCom ************* ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442925 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442925 VALOR 18442925 ENTERO 18442925 DECIMAL 0 1. VALOR FINAL 18442925 LOC:VALOR 18442925 FINAL REDONDEO VALOR FINAL 18442925 VALOR ORIGINAL 18442925 TIPO 1 --ESS:SAL_MINIMO 1 ESSSAL_MINIMO 737717 VSY:SAL_MIN_LEGA 737717 --ESS:SAL_MINIMO 1 VSY:SAL_MIN_LEGA 737717 ********* Entrando funcion O_REDONDEO ***************** VALOR = 737717 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 737717 VALOR 737717 ENTERO 737717 DECIMAL 0 1. VALOR FINAL 737717 LOC:VALOR 737717 FINAL REDONDEO VALOR FINAL 737717 VALOR ORIGINAL 737717 TIPO 1 --LOC:SAL_MIN 737717 LOC:SALARIOIBC 18442925 LOC:IBC_MIN 737717 LOC:IBC 18442925 LOC:SALARIOIBC 18442925 ESSSAL_MINIMO 737717 TOME MAXIMO 18442925 LOC:IBC 18442925 AMA:DIAS_COT 30 CTROLMIN# 1 REDONDEA# 1 LOC:CTROLROUND T LOC:SAL_MIN 737717 LOC:SALARIOIBC 18442925 <= ESSSAL_MINIMO 737717 EXIT# 1 ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442925 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442925 VALOR 18442925 ENTERO 18442925 DECIMAL 0 1. VALOR FINAL 18442925 LOC:VALOR 18442925 FINAL REDONDEO VALOR FINAL 18442925 VALOR ORIGINAL 18442925 TIPO 1 LOC:SALARIOIBC 18442925 = LOC:TOPEMAX 18442925 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 737717 AŅO 2017 ********* Entrando funcion O_REDONDEO ***************** VALOR = 737717 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 737717 VALOR 737717 ENTERO 737717 DECIMAL 0 1. VALOR FINAL 737717 LOC:VALOR 737717 FINAL REDONDEO VALOR FINAL 737717 VALOR ORIGINAL 737717 TIPO 1 FIN IBC_NUEVO DIAS 30 IBC 737717 FIN BUSCA IBC PARA EL ANO 2017 LOC:IBC 737717 DIAS 30 REDONDEO = 737717 Syf:TipoRedondeo FIN VALIDA_BASE LOC:SAL_MIN 737717 ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442925 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442925 VALOR 18442925 ENTERO 18442925 DECIMAL 0 1. VALOR FINAL 18442925 LOC:VALOR 18442925 FINAL REDONDEO VALOR FINAL 18442925 VALOR ORIGINAL 18442925 TIPO 1 LOC:IBC 18442925 BASEREDONDEAD$ 18442925 LOC:IBC 18442925 LOC:SAL_MIN 737717 LOC:IBC_MIN 737717 EXIT# 0 LOC:PENSIONADO_COMP 0 ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442925 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442925 VALOR 18442925 ENTERO 18442925 DECIMAL 0 1. VALOR FINAL 18442925 LOC:VALOR 18442925 FINAL REDONDEO VALOR FINAL 18442925 VALOR ORIGINAL 18442925 TIPO 1 --REDONDEA# 1 LOC:IBC 18442925 ESS:REDONDEO_ibc M LOC:IBC_MIN 737717 LOC:APLITOPEMAX 1 LOC:PENSIONADO_COMP 0 veo 18442925 LOC:sal_minimo 737717 ese:sal_int S ama:ibc 18442925 ama:sal_bas 17380000 ese:sal_int S ama:sal_bas 17380000 ama:ibc 18442925 AUTOL:CAMB_SALBAS N LOC:sal_minimo 737717 ---DESPUES DE ese:sal_int ama:ibc 18442925 ama:sal_bas 17380000 ---IBC AL FINAL DEL REDONDEO 18442925 REDONDEA# 1 CTROLMIN# 1 LOC:IBC 18442925 ama:sal_bas 17380000 BUSCA_DEV DOCTO_IDENT 10272902 LOC:APLIC_CREE 1 SER:TIPO P AGRUPA CREEG Ley50 = CREE AGRUPA CREEG INTegral = VSY:REL_SALIN SI EMP:REL_LABORAL SI 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$ 18442925 ama:ibc 18442925 VSY:SAL_MIN_LEGA 737717 2 ANTES DE o_TabImp cONVERIR basetabla$ 25 ama:ibc 18442925 VSY:SAL_MIN_LEGA 737717 Ibc Base 18442925 basetabla$ 25 TABLA FONDO 06 TIM:Var_Imp_01 2000 tipo de calculo T Valor base para el fondo 18442925 Porc fondo 2 TIM:Var_Imp_01 2000 porc_fondo2$ 0.5 porc_fondo3$ 1.5 ********* Entrando funcion O_REDONDEO ***************** VALOR = 368858.5 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 368858.5 VALOR 3688.585 ENTERO 3688 DECIMAL 0.585000000000036 1. VALOR FINAL 3689 LOC:VALOR 3688.585 LOC:ENTERO 3688 2. VALOR FINAL 368900 LOC:VALOR 3688.585 FINAL REDONDEO VALOR FINAL 368900 VALOR ORIGINAL 368858.5 TIPO 2 ********* Entrando funcion O_REDONDEO ***************** VALOR = 92214.625 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 92214.625 VALOR 922.14625 ENTERO 922 DECIMAL 0.146250000000009 1. VALOR FINAL 923 LOC:VALOR 922.14625 LOC:ENTERO 922 2. VALOR FINAL 92300 LOC:VALOR 922.14625 FINAL REDONDEO VALOR FINAL 92300 VALOR ORIGINAL 92214.625 TIPO 2 ********* Entrando funcion O_REDONDEO ***************** VALOR = 276643.875 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 276643.875 VALOR 2766.43875 ENTERO 2766 DECIMAL 0.4387499999998 1. VALOR FINAL 2767 LOC:VALOR 2766.43875 LOC:ENTERO 2766 2. VALOR FINAL 276700 LOC:VALOR 2766.43875 FINAL REDONDEO VALOR FINAL 276700 VALOR ORIGINAL 276643.875 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 10272902 ama:IBC 18442925 Autol:NuevRedon S ESS:REDONDEO_APT C TARIFA_CREE DOCTO_IDENT 10272902 LOC:APLIC_CREE 1 SER:TIPO P LOC:DEVENGADOS 0 LOC:TOPECREE 7377170 LOC:tarifa 160 LOC:BASICO 17380000 AMA:COD_TIPO 1 Mllg:CREE_BASE IBC AMA:PENSIONADO 0 esv:aporte 160 AMA:IBC 18442925 ESE:SAL_INT S ********* Entrando funcion O_REDONDEO ***************** VALOR = 2950868 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 2950868 VALOR 29508.68 ENTERO 29508 DECIMAL 0.680000000000291 1. VALOR FINAL 29509 LOC:VALOR 29508.68 LOC:ENTERO 29508 2. VALOR FINAL 2950900 LOC:VALOR 29508.68 FINAL REDONDEO VALOR FINAL 2950900 VALOR ORIGINAL 2950868 TIPO 2 INICIA REDONDEOCOLOMBIA AMA:COTIZ_OBL 2950900 LOC:IBC_MIN 737717 LOC:tarifa 160 INICIA REDONDEOCOLOMBIA AMA:COTIZ_OBL 2950900 LOC:APOR_MIN 118035 --CALCULAR APORTE BUSCAR COTIZACION 2950900 AMA:IBC 18442925 TARIFA 0.16 Aporte del minimo 118035 Ibc Minimo 737717 ********* Entrando funcion O_REDONDEO ***************** VALOR = 2950868 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 2950868 VALOR 29508.68 ENTERO 29508 DECIMAL 0.680000000000291 1. VALOR FINAL 29509 LOC:VALOR 29508.68 LOC:ENTERO 29508 2. VALOR FINAL 2950900 LOC:VALOR 29508.68 FINAL REDONDEO VALOR FINAL 2950900 VALOR ORIGINAL 2950868 TIPO 2 --LOC:APORTE 2950900 LOC:DECIMAL 0 LOC:SAL_MIN 737717 --NUEVO LOC:APORTE 2950900 LOC:DECIMAL 0 LOC:SAL_MIN 737717 LOC:tarifa 160 ********* Entrando funcion O_REDONDEO ***************** VALOR = 118034.72 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 118034.72 VALOR 1180.3472 ENTERO 1180 DECIMAL 0.34719999999993 1. VALOR FINAL 1181 LOC:VALOR 1180.3472 LOC:ENTERO 1180 2. VALOR FINAL 118100 LOC:VALOR 1180.3472 FINAL REDONDEO VALOR FINAL 118100 VALOR ORIGINAL 118034.72 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 2950900 LOC:APORT_MIN 118100 ama:IBC 18442925 LOC:tarifa 160 LOC:IBC_MIN 737717 AMA:PENSIONADO 0 LOC:APLITOPEMAX 1 LOC:APORMAX 0 LOC:PENSIONADO_COMP 0 LOC:TOPEMAXRO 18442925 ********* Entrando funcion O_REDONDEO ***************** VALOR = 2950868 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 2950868 VALOR 29508.68 ENTERO 29508 DECIMAL 0.680000000000291 1. VALOR FINAL 29509 LOC:VALOR 29508.68 LOC:ENTERO 29508 2. VALOR FINAL 2950900 LOC:VALOR 29508.68 FINAL REDONDEO VALOR FINAL 2950900 VALOR ORIGINAL 2950868 TIPO 2 ********* Entrando funcion O_REDONDEO ***************** VALOR = 2950868 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 2950868 VALOR 2950868 ENTERO 2950868 DECIMAL 0 1. VALOR FINAL 2950868 LOC:VALOR 2950868 FINAL REDONDEO VALOR FINAL 2950868 VALOR ORIGINAL 2950868 TIPO 1 **APORTE_MAX LOC:TOPEMAXRO 18442925 LOC:APORT_MAX 2950900 LOC:APORT_MAXR 2950868 LOC:APORT_MAXA 2950868 LOC:tarifa 160 LOC:APLITOPEMAX 1 LOC:APORMAX 0 LOC:APORT_MIN 118100 LOC:APORT_MAX 2950900 LOC:APORTE 2950900 LOC:APORT_MIN 118100 LOC:APORT_MIN 118100 LOC:APORT_MAX 2950900 -- despues de VERIFICA_APORTE LOC:APORTE 2950900 LOC:IBC 18442925 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 18442925 LOC:tarifa 160 LOC:REDONDEO 0.0001 LOC:PENSIONADO_COMP 0 LOC:APORTE 2950900 ********* Entrando funcion O_REDONDEO ***************** VALOR = 2950868 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 2950868 VALOR 29508.68 ENTERO 29508 DECIMAL 0.680000000000291 1. VALOR FINAL 29509 LOC:VALOR 29508.68 LOC:ENTERO 29508 2. VALOR FINAL 2950900 LOC:VALOR 29508.68 FINAL REDONDEO VALOR FINAL 2950900 VALOR ORIGINAL 2950868 TIPO 2 Despues de ESS:REDONDEO_APT E ama:cotiz_obl 2950900 ama:IBC 18442925 LOC:APORT_MIN 118100 RED_APOR# 1 ess:emp_ss CN OPERADOR 1 LOC:APORTE 2950900 COTIZACION OBLIGATORIA AL FINAL DEL REDONDEO 2950900 RED_APOR# 1 CTROLMIN# 1 LOC:IBC 18442925 RED_APOR# 1 SAL_VARIABLE DOCTO_IDENT 10272902 AMA:SAL_BAS 17380000 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 2950900 SERVICIO PE SER:TIPO P AMA:DOCTO_IDENT 10272902 AMA:IBC 18442925 AMA:SAL_BAS 17380000 ama:valor_vst 3540108 valor_vst$ 3540108 tns:UpdateSal2 S AMA:DIAS_COT 30 --------FIN ProcesarAMA se modifica el empleado 10272902 con admon: CN sucursal: DG servicio: PE FILTRO del ESE ACTIVOS: SELECT * FROM ESE WHERE ESE.EMP_SS = 'CR' AND ESE.SUCURSAL = 'DG' AND ESE.SERVICIO = 'RP' AND ESE.DOCTO_IDENT = '10272902' AND ESE.ESTADO <> 'R' ORDER BY ESE.DOCTO_IDENT ACTIVOS - EMPRESA CR SERVICIO RP DOCTO_IDENT 10272902 ese:f_vigencia 1.04.2017 cat:f_fin 30.08.2017 ese:sal_rep 17380000 --INICIA CONTINUAACTIVOS DOCTO_IDENT 10272902 SERVICIO RP Tarifa ESV 0 Tarifa 69 tns:UpdateSal2 S sal_bas$ 17380000 ese:sal_rep 17380000 ese:sal_fijo 0 ARP# 1 Tarifa ESV 0 Tarifa 69 sal_bas$ 17380000 ese:sal_rep 17380000 ctr:aporte 10.44 ese:codigo_ct 02 Tarifa 69 ARP_ Activos ese:codigo_ct 02 ctr:aporte 10.44 loc:codigo_ct 02 loc:tarifa 10.44 FIN CONTINUAACTIVOS DOCTO_IDENT 10272902 SERVICIO RP sal_bas$ 17380000 loc:tarifa 10.44 esv:aporte 0 ARP# 1 INICIA CreaAma AMA EMPLEADO 10272902 esv:emp_ss, esv:sucursal.esv:servicio CRDGRP 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 AUINEX AMA:TIPO_COTIZANTE DP1 CTROL EXTRANJERO SERVICIO R EMP:CIUDAD_N 17001 FIN CreaAma A GRABAR EMPLEADO 10272902 AMA:SALARIO 17380000 SAL_BAS$ 17380000 AMA:SAL_BAS 17380000 AMA:emp_ss, AMA:sucursal, AMA:SERVICIO CRDGRP AMA:TARIFA 10.44 AMA:ANOS 2017 AMA:MESS 09 VA A ver_nov Despues de do activos LOC:ACTIVOSESE 2 INICIA NOVE_PORPRD en Liquidar 201708 FILTRADO SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '08' AND NVS.DOCTO_IDENT = '10272902' AND NVS.EMP_SS = 'CR' AND NVS.SUCURSAL = 'DG' AND NVS.SERVICIO = 'RP' ORDER BY NVS.DOCTO_IDENT,NVS.F_INI RECORDS(SYF:QEMP) 0 NVS:DOCTO_IDENT 10272902 NVS:MES 08 GLO:MES 08 NVS:cod_novedad 07 NVS:cod_novedad 07 pss:noved_ret 02 Autol:CtlNVSAntg S nvs:servicio RP pss:noved_ing 01 NVS:MES 08 GLO:MES 08 BUSCA NPS Autol:CtlNVSAntg S Autol:CtlNVSAntg_O S FIN NOVE_PORPRD - PERIODO 201708 nvs:servicio RP nvs:cod_novedad 07 nvs:valor 3540108 nvs:DOCTO_IDENT 10272902 loc:docto_ident NVS:salario 17380000 sal_bas$ 17380000 NOVE_PORPRD - PERIODO 201708 nvs:servicio RP nvs:cod_novedad 07 nvs:valor 3540108 nvs:DOCTO_IDENT 10272902 loc:docto_ident ese:sal_rep 17380000 FIN NOVE_PORPRD - ANTES DE CREAMA INICIA CreaAma AMA EMPLEADO 10272902 esv:emp_ss, esv:sucursal.esv:servicio CRDGRP ENCUENTRA AMA DOC_IDENT 10272902 esv:emp_ss CR esv:sucursal DG esv:servicio RP RECORDS(SYF:QEMP) 0 NVS:DOCTO_IDENT 10272902 NVS:MES 08 GLO:MES 08 NVS:cod_novedad 11 NVS:cod_novedad 11 pss:noved_ret 02 Autol:CtlNVSAntg S nvs:servicio RP pss:noved_ing 01 NVS:MES 08 GLO:MES 08 BUSCA NPS Autol:CtlNVSAntg S Autol:CtlNVSAntg_O S FIN NOVE_PORPRD - PERIODO 201708 nvs:servicio RP nvs:cod_novedad 11 nvs:valor 12910047.5 nvs:DOCTO_IDENT 10272902 loc:docto_ident 10272902 NVS:salario 18442925 sal_bas$ 17380000 NOVE_PORPRD - PERIODO 201708 nvs:servicio RP nvs:cod_novedad 11 nvs:valor 12910047.5 nvs:DOCTO_IDENT 10272902 loc:docto_ident 10272902 ese:sal_rep 17380000 INICIA NOVE_PORPRD en Liquidar 201709 FILTRADO SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '09' AND NVS.DOCTO_IDENT = '10272902' AND NVS.EMP_SS = 'CR' AND NVS.SUCURSAL = 'DG' AND NVS.SERVICIO = 'RP' ORDER BY NVS.DOCTO_IDENT,NVS.F_INI EN ALIASSINPAPA, LOC:EMXTIPO_REL qla:docto_ident 10272902 glo:tipo_liq Beneficiario A-. qla:emp_ss CR qla:sucursal DG 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 7377170 VSY:SAL_MIN_LEGA 737717 Mllg:CREE_BASE IBC --------- Inicia Msl02:Auto5_17 ESV:EMP_SS CR ESV:SUCURSAL DG ESV:SERVICIO RP ESS:EMP_SS CR 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 18442925 Tarifa SER 69 Tarifa 69 ARPSC# 1 SER:TOPEMAXAPORT 25 SERTOPEMAXAPORT$ 18442925 pss:tope_salmax 25 psstope_salmax$ 18442925 --------INICIO ProcesarAMA - loc:docto_ident esv:SERVICIO RP esv:sucursal DG glo:tipo_liq Beneficiario qla:docto_ident 10272902 ProcesarAMA fILTRADO SELECT AMA.CNSAMA FROM AMA WHERE AMA.ANO = '2017' AND AMA.MES = '08' AND AMA.EMP_SS = 'CR' AND AMA.SUCURSAL = 'DG' AND AMA.SERVICIO = 'RP' AND AMA.DOCTO_IDENT = '10272902' ORDER BY AMA.DOCTO_IDENT --------INICIO Ciclo ProcesarAMA - DEL EMPLEADO 10272902 LOC:FILTRADO SELECT AMA.CNSAMA FROM AMA WHERE AMA.ANO = '2017' AND AMA.MES = '08' AND AMA.EMP_SS = 'CR' AND AMA.SUCURSAL = 'DG' AND AMA.SERVICIO = 'RP' AND AMA.DOCTO_IDENT = '10272902' ORDER BY AMA.DOCTO_IDENT AMA:DOCTO_IDENT 10272902 RECORDS(SYF:QEMP) 0 INICIA BUSCARCOD_ RECORDS(QSER) 3 QSER:SERVICIO PE QSER:TIPO P ama:docto_ident 10272902 QSER:SERVICIO PE QSER:TIPO P ese:emp_ss CN ese:estado ESV:EMP_SS CN ESV:SUCURSAL DG ESV:SERVICIO PE ESV:CODIGO QSER:SERVICIO SF QSER:TIPO S ama:docto_ident 10272902 QSER:SERVICIO SF QSER:TIPO S ese:emp_ss SN ese:estado ESV:EMP_SS SN ESV:SUCURSAL DG ESV:SERVICIO SF ESV:CODIGO QSER:SERVICIO SJ QSER:TIPO S ama:docto_ident 10272902 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 08 SQL para CARGAr NVS SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '08' AND NVS.EMP_SS = 'CR' AND NVS.SUCURSAL = 'DG' AND NVS.SERVICIO = 'RP' AND NVS.DOCTO_IDENT = '10272902' ORDER BY NVS.DOCTO_IDENT -------------------------------------------------- --NVS:MES 08 GLO:MES 08 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 3540108 NVS:DIAS 9 sal_bas$ 0 NVS:SALARIO 17380000 RETPDSIG# 0 CARGANDO NVS - Qnvs:servicio RP qnvs:cod_novedad 07 qnvs:valor 3540108 qnvs:DOCTO_IDENT 10272902 QNVS:DIAS_ATRAS 0 QNVS:DIAS 9 INCATRAS# 0 NVS:SALARIO 17380000 sal_bas$ 0 RETPDSIG# 0 CARGANDO QnvsIR - QnvsIR:servicio RP QnvsIR:cod_novedad 07 QnvsIR:valor 3540108 QnvsIR:DOCTO_IDENT 10272902 ADD QnvsIR:F_INI 1.08.2017 QnvsIR:DIAS 9 QnvsIR:SALARIO 17380000 -------------------------------------------------- --NVS:MES 08 GLO:MES 08 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 12910047.5 NVS:DIAS 21 sal_bas$ 0 NVS:SALARIO 18442925 RETPDSIG# 0 CARGANDO NVS - Qnvs:servicio RP qnvs:cod_novedad 11 qnvs:valor 12910047.5 qnvs:DOCTO_IDENT 10272902 QNVS:DIAS_ATRAS 0 QNVS:DIAS 21 INCATRAS# 0 NVS:SALARIO 18442925 sal_bas$ 0 RETPDSIG# 0 CARGANDO QnvsIR - QnvsIR:servicio RP QnvsIR:cod_novedad 11 QnvsIR:valor 12910047.5 QnvsIR:DOCTO_IDENT 10272902 ADD QnvsIR:F_INI 4.08.2017 QnvsIR:DIAS 21 QnvsIR:SALARIO 18442925 FIN CARGANDO NVSINCLMA# 0 QPRD:MES 08 GLO:SERSF SF,SJ LOC:MnjIncAtras N GLO:SERRP RP Records(qnvs) 2 *****INICIA CARGANDO NOVEDADES REPORTADAS**** RECORDS(QPRD) 2 QPRD:Ano 2017 QPRD:MES 09 SQL para CARGAr NVS SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '09' AND NVS.EMP_SS = 'CR' AND NVS.SUCURSAL = 'DG' AND NVS.SERVICIO = 'RP' AND NVS.DOCTO_IDENT = '10272902' ORDER BY NVS.DOCTO_IDENT FIN CARGANDO NVSINCLMA# 0 QPRD:MES 08 GLO:SERSF SF,SJ LOC:MnjIncAtras N GLO:SERRP RP Records(qnvs) 2 Despues de CargarNVS salbasalias$ 0 sal_bas$ 0 Records(QNVS) 2 loc:docto_ident 10272902 sal_bas$ 0 esv:servicio RP incio ProcesaQNVS Records(Qnvs) 2 CICLO QNVS Qnvs:servicio RP qnvs:cod_novedad qnvs:dias 907 qnvs:valor 3540108 qnvs:DOCTO_IDENT 10272902 -- Inicio proces_nv - qnvs:cod_novedad 07 Para qnvs:DOCTO_IDENT 10272902 qnvs:dias 9 qnvs:valor 3540108 LOC:TARIFA 69 salbasalias$ 0 sal_bas$ 0 ese:sal_rep 17380000 qnvs:cod_novedad 07 qnvs:DOCTO_IDENT 10272902 cn_v[nv#] nv# 1 RETPDSIG# 0 pss:noved_ret 02 -- INCATRAS# 0 qnvs:cod_novedad 07 qnvs:dias 9 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 9 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 3540108 valor_nsal$ 0 qnvs:valor 3540108 -- FIN proces_nv qnvs:cod_novedad 07 Para qnvs:DOCTO_IDENT 10272902 dias_sln$ 0 diasAtras_Ige$ 0 diasAtras_lma$ 0 diasAtras_IRP$ 0 diasAtras_ARP$ 0 QNVS:DIAS_ATRAS 0 QNVS:DIAS 9 valor_vst$ 3540108 CICLO QNVS Qnvs:servicio RP qnvs:cod_novedad qnvs:dias 2111 qnvs:valor 12910047.5 qnvs:DOCTO_IDENT 10272902 -- Inicio proces_nv - qnvs:cod_novedad 11 Para qnvs:DOCTO_IDENT 10272902 qnvs:dias 21 qnvs:valor 12910047.5 LOC:TARIFA 69 salbasalias$ 0 sal_bas$ 0 ese:sal_rep 17380000 qnvs:cod_novedad 11 qnvs:DOCTO_IDENT 10272902 cn_v[nv#] nv# 2 RETPDSIG# 0 pss:noved_ret 02 -- INCATRAS# 0 qnvs:cod_novedad 11 qnvs:dias 21 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 21 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 12910047.5 valor_nsal$ 0 qnvs:valor 12910047.5 -- FIN proces_nv qnvs:cod_novedad 11 Para qnvs:DOCTO_IDENT 10272902 dias_sln$ 0 diasAtras_Ige$ 0 diasAtras_lma$ 0 diasAtras_IRP$ 0 diasAtras_ARP$ 0 QNVS:DIAS_ATRAS 0 QNVS:DIAS 21 valor_vst$ 3540108 DESPUES DEL CICLO valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 12910047.5 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$ 12910047.5 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 10272902 xdias# 0 SER:TOPEMAXAPORT 25 ESV:TOPEMAXAPORT 0 LOC:TOPEMAX 18442925 sal_bas$ 0 ese:estado loc:docto_ident 10272902 loc:tarifa 69 VERIFIQUERETIROYTRASLADOS EMPLEADO 10272902 xdias# 0 ser:aporte 69 esv:aporte 0 ARP# 1 salbasalias$ 0 sal_bas$ 0 TARIFA SER 69 TARIFA DE ESV 0 Tarifa 69 LOC:TOPEMAX 18442925 SER:TOPEMAXAPORT 25 ESV:TOPEMAXAPORT 0 ARP# 1 SERTOPEMAXAPORT$ 18442925 ESVTOPEMAXAPORT$ 0 LOC:DOCTO_LIQ 0 ARP_ ProcesarAMA ese:codigo_ct 02 ctr:aporte 10.44 loc:codigo_ct 02 loc:tarifa 10.44 sal_bas$ 17380000 Actualizar ama por novedades salbasalias$ 0 sal_bas$ 17380000 loc:codigo_ct 02 LOC:TOPEMAX 18442925 loc:tarifa 10.44 AMA:Novedad_v datos_ama nret# 0 ------------SALARIOINGRET QNVSINGRE 0 QnvsIR 2 SALPROM$ 0 SALINGRET$ 0 SALARNOV$ 0 sal_bas$ 17380000 Antes de VERICAINGRESOYRETIROS DATOS AMA sumdias# 0 dias_ret# 0 dias_ing# 0 loc:sal_bas 17380000 ser:tiempo_t 0 ama:docto_ident 10272902 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 17380000 sal_bas$ 17380000 ama:docto_ident 10272902 ama:dias_cot 30 dias_c# 0 loc:tarifa 10.44 INICIO diascambiosal ser:tipo R DIASCAMBIOSAL$ 30 sal_bas$ 17380000 ama:docto_ident 10272902 stotal$ 0 dias_c# 0 ult_sal$ 0 ***Autol:SalBase C sal_bas$ 17380000 sal_base$ 17380000 ese:sal_int S ama:dias_cot 30 pSS:por_sal_int 30 Salario integral tipo Salario (C-con factor/S-Sin factor) Autol:SalBase C sal_bas$ 17380000 Autol:BasicoFeb N Antes de diasnovedad ser:tipo R IBC 12166000 ama:sal_bas 17380000 sal_bas$ 12166000 ama:docto_ident 10272902 Dias_ibc# 0 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 12910047.5 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# 21 INCATRAS# 0 diasAtras_IRP$ 0 diasAtras_ARP$ 0 dias_sln$ 0 diasAtras_Ige$ 0 dias_lma$ 0 dias_vac$ 21 diasAtras_lma$ 0 dias_irp# 0 dias_arp# 0 dias_sln$ 0 dias_ige$ 0 dias_lma$ 0 dias_vac$ 21 LOC:BASENLAB 12910047.5 despues de dias_rst# ser:tipo R dias_rst# 21 dias_cot# 9 ama:dias_cot 9 dias_rstR# 0 dias_cotR# 0 ndisrst# 21 FIN diasnovedad ser:tipo R INCATRAS# 0 LOC:REVNVNRP N ama:dias_cot 9 valor_vst$ 3540108 despues de diasnovedad DIAS NOVEDAD 0 dias_ibc# 9 dias_cot# 9 Autol:ATAFSP S valor_irp$ 0 valor_arp$ 0 ama:dias_cot 9 Antes de Autol:IbcDesTop ser:tipo R IBC 12166000 dias_ibc# 9 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 0 ama:dias_cot 9 --CalculaIBC INICIO ser:tipo R IBC$ 12166000 dias_ibc# 9 Autol:DiaCotRet T 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 12166000 diasibcDvF# 9 INCATRAS# 0 diasibcDv# 9 diasibcDvR# 0 DIASCT# 30 sumdias# 0 valor_irp$ 0 Autol:ATAFSP S LOC:REVNVNRP N CALCULANDO IBC SALINGRET$ 0 Autol:SinAusen N 1.1-.CALCULANDO IBC antes de restar asociacion 12166000 LOC:ASOCIACION 0 1.2-.CALCULANDO IBC antes de restar asociacion 12166000 suma_Vlr_nov$ 0 Autol:SinAusen N 1.3-.CALCULANDO IBC DESPUES SIN AUSENCIAS 12166000 suma_Vlr_nov$ 0 SALINGRET$ 0 suma_Vlr_nov$ 0 ese:SAL_FIJO 0 ibc$ 12166000 valor_irp$ 0 LOC:VPS 0 1.4-.CALCULANDO IBC DESPUES 12166000 suma_Vlr_nov$ 0 LOC:VPS 0 LOC:BASENLAB 12910047.5 1.6-.CALCULANDO IBC 12166000 DIASCT# 30 diasibcDvF# 9 suma_Vlr_nov$ 0 LOC:VPS 0 1.7-.CALCULANDO IBC 3649800 DIASCT# 30 diasibcDvF# 9 suma_Vlr_nov$ 0 cambioporfeb# 0 Diafebrero 0 2-.CALCULADO IBC ser:tipo R IBC 3649800 DIASCT# 30 diasibcDvF# 9 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 0 diasibcDv# 9 Autol:SinAusen N diasibcDvR# 0 suma_Vlr_nov$ 0 LOC:BASENSALINI 3649800 Autol:ATAFSP S ser:tipo R valor_irp$ 0 valor_arp$ 0 2.1-.CALCULADO IBC ser:tipo R IBC 3649800 INCATRAS# 0 ser:tipo R valor_irp$ 0 valor_arp$ 0 valor_vst$ 3540108 2.2-.SUMA CALCULADO IBC ser:tipo R IBC 7189908 valor_vst$ 3540108 ser:tipo R valor_irp$ 0 valor_arp$ 0 3-.CalculaIBC Final ser:tipo R IBC + Novedades 7189908 INCATRAS# 0 valor_vst$ 3540108 valor_irp$ 0 valor_arp$ 0 3.3-.CalculaIBC Final ser:tipo R IBC + BONO 7189908 BONO LOC:ASOCIACION 0 4-.CalculaIBC Final ser:tipo R IBC + Novedades 7189908 --base no laborado 12910047.5 5.CalculaIBC Final ser:tipo R IBC 7189908 ------------BASENSAL INICIA SER:SERVICIO RP valor_nsal$ 0 LOC:BASENLAB 12910047.5 ibc$ 7189908 Tns:PorcNS 0.4 LOC:BASENLAB 12910047.5 AUTOL:TipProcNS T AUTOL:FACTPRES_BN N Inicia Ajustar Ibc 7189908 ser:ajusta_min 5 ESSSAL_MINIMO 0 ama:dias_cot 9 sumdias# 0 ARP# 1 dias_ibc# 9 ser:tiempo_t 0 ARPSC# 1 --ESS:SAL_MINIMO 1 VSY:SAL_MIN_LEGA 737717 SERAJUSTAMIN ser:ajusta_min 5 ama:pensionado 0 LOC:PENSIONADO_COMP 0 INICIA MINIMO_INT LOC:sal_minimo 737717 LOC:MnjTopMinSI N ese:sal_int S LOC:SalMinSI 0 ESSSAL_MINIMO 737717 INICIA Ajustadias ARP# 1 ARPSC# 1 sumdias# 0 DIAS_AJ# 9 dias_ibc# 9 Ajustadias ibcmes$ 0 ibc$ 7189908 DIAS_AJ# 9 ibcmes$ 23966360 LOC:sal_minimo 737717 Fin SERAJUSTAMIN Ibc 7189908 ajustar# 1 ama:dias_cot 9 DIAS_AJ# 9 Inicia CalcularTopeMax SER:SERVICIO RP LOC:TOPEMAX 18442925 ESV:TOPEMAXAPORT 0 LOC:BASENLAB 12910047.5 IBC$ 7189908 CalcularTopeMax INICIA SER:SERVICIO RP LOC:TOPEMAX 18442925 ibc$ 7189908 ama:dias_cot 9 TOPEMAX$ 0 LOC:FactPresD25M N Autol:TopemxC S TOPEMAX$ 18442925 ibc$ 7189908 NUEVO IBC PARA RIESGOS 20099955.5 sumar NOVEDADES LOC:BASENLAB 12910047.5 **REDONDEAR_TOPEMAX REDONDEAR_TOPEMAX TOPEMAX$ 18442925 LOC:TOPEMAXR 18442925 ULTDIG# 925 LONG# 8 LOC:APLITOPEMAX 0 NUEVO TOPEMAX$ 18442925 --ibc$ 20099955.5 LOC:IBCRR 20099955.5 Autol:NuevRedon S TOPEMAX$ 18442925 ********* Entrando funcion O_REDONDEO ***************** VALOR = 20099955.5 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 20099955.5 VALOR 20099955.5 ENTERO 20099955 DECIMAL 0.5 1. VALOR FINAL 20099956 LOC:VALOR 20099955.5 FINAL REDONDEO VALOR FINAL 20099956 VALOR ORIGINAL 20099955.5 TIPO 1 --SER:SERVICIO RP LOC:TOPEMAX 18442925 Autol:NuevRedon S ibc$ 20099956 ama:dias_cot 9 TOPEMAX$ 18442925 Autol:TopemxC S CalcularTopeMax FIN LOC:TOPEMAX 18442925 ibc$ 18442925 ama:sal_bas 17380000 LOC:APLITOPEMAX 1 Autol:SalBaseTope xxxxxxxxxxxxx Despues de Loc:IbcDesTop ser:tipo R FIN IBC 18442925 ESS:EMP_SSCR Despues de comparar con Tope maximo Maximo 18442925 o tope_salmax$ 0 ESS:REDONDEO_ibc M LOC:REDONDEO 0.0001 loc:tarifa 10.44 Autol:CtrolRoundMin T ama:dias_cot 9 Autol:Redondeo 0.0001 LOC:OPERADOR 1 valor_vst$ 3540108 ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442925 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442925 VALOR 18442925 ENTERO 18442925 DECIMAL 0 1. VALOR FINAL 18442925 LOC:VALOR 18442925 FINAL REDONDEO VALOR FINAL 18442925 VALOR ORIGINAL 18442925 TIPO 1 antes de CTROL_ROUND --- LOC:IBC 18442925 IBC$ 18442925 ******** qqqqqqqqqqqqqqqqqqqqq CONTROL DE REDONDEO Autol:CtrolRoundMin T LOC:PENSIONADO_COMP 0 Autol:CondPenCom ************* ********* Entrando funcion O_REDONDEO ***************** VALOR = 61476416.6666667 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 61476416.6666667 VALOR 61476416.6666667 ENTERO 61476416 DECIMAL 0.66666667163372 1. VALOR FINAL 61476417 LOC:VALOR 61476416.6666667 FINAL REDONDEO VALOR FINAL 61476417 VALOR ORIGINAL 61476416.6666667 TIPO 1 --ESS:SAL_MINIMO 1 ESSSAL_MINIMO 737717 VSY:SAL_MIN_LEGA 737717 --ESS:SAL_MINIMO 1 VSY:SAL_MIN_LEGA 737717 ********* Entrando funcion O_REDONDEO ***************** VALOR = 221315.1 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 221315.1 VALOR 221315.1 ENTERO 221315 DECIMAL 0.0999999999767169 1. VALOR FINAL 221316 LOC:VALOR 221315.1 FINAL REDONDEO VALOR FINAL 221316 VALOR ORIGINAL 221315.1 TIPO 1 --LOC:SAL_MIN 221316 LOC:SALARIOIBC 61476417 LOC:IBC_MIN 221316 LOC:IBC 18442925 LOC:SALARIOIBC 61476417 ESSSAL_MINIMO 737717 TOME MAXIMO 18442925 LOC:IBC 18442925 AMA:DIAS_COT 9 CTROLMIN# 1 REDONDEA# 1 LOC:CTROLROUND T LOC:SAL_MIN 221316 LOC:SALARIOIBC 61476417 <= ESSSAL_MINIMO 737717 EXIT# 1 ********* Entrando funcion O_REDONDEO ***************** VALOR = 61476417 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 61476417 VALOR 61476417 ENTERO 61476417 DECIMAL 0 1. VALOR FINAL 61476417 LOC:VALOR 61476417 FINAL REDONDEO VALOR FINAL 61476417 VALOR ORIGINAL 61476417 TIPO 1 LOC:SALARIOIBC 61476417 = LOC:TOPEMAX 18442925 EXIT# 1 VALIDA_BASE ANO 2017 AMA:DIAS_COT 9 ********* Entrando funcion O_REDMIN ***************** SERVICIO = IBC AŅO = 2017 DIAS = 9 TARIFA = 0 Autol:NuevRedon = S ---BUSCA IBC MINIMO PARA EL ANO 2017 DIAS 9 Autol:NuevRedon S INICIA IBC_NUEVO DIAS 9 MINIMO 737717 AŅO 2017 ********* Entrando funcion O_REDONDEO ***************** VALOR = 221315.1 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 221315.1 VALOR 221315.1 ENTERO 221315 DECIMAL 0.0999999999767169 1. VALOR FINAL 221316 LOC:VALOR 221315.1 FINAL REDONDEO VALOR FINAL 221316 VALOR ORIGINAL 221315.1 TIPO 1 FIN IBC_NUEVO DIAS 9 IBC 221316 FIN BUSCA IBC PARA EL ANO 2017 LOC:IBC 221316 DIAS 9 REDONDEO = 221316 Syf:TipoRedondeo FIN VALIDA_BASE LOC:SAL_MIN 221316 ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442925 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442925 VALOR 18442925 ENTERO 18442925 DECIMAL 0 1. VALOR FINAL 18442925 LOC:VALOR 18442925 FINAL REDONDEO VALOR FINAL 18442925 VALOR ORIGINAL 18442925 TIPO 1 LOC:IBC 18442925 BASEREDONDEAD$ 18442925 LOC:IBC 18442925 LOC:SAL_MIN 221316 LOC:IBC_MIN 221316 EXIT# 1 LOC:PENSIONADO_COMP 0 ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442925 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442925 VALOR 18442925 ENTERO 18442925 DECIMAL 0 1. VALOR FINAL 18442925 LOC:VALOR 18442925 FINAL REDONDEO VALOR FINAL 18442925 VALOR ORIGINAL 18442925 TIPO 1 --REDONDEA# 1 LOC:IBC 18442925 ESS:REDONDEO_ibc M LOC:IBC_MIN 221316 LOC:APLITOPEMAX 1 LOC:PENSIONADO_COMP 0 veo 18442925 LOC:sal_minimo 737717 ese:sal_int S ama:ibc 18442925 ama:sal_bas 17380000 ese:sal_int S ama:sal_bas 17380000 ama:ibc 18442925 AUTOL:CAMB_SALBAS N LOC:sal_minimo 737717 ---DESPUES DE ese:sal_int ama:ibc 18442925 ama:sal_bas 17380000 ---IBC AL FINAL DEL REDONDEO 18442925 REDONDEA# 1 CTROLMIN# 1 LOC:IBC 18442925 ama:sal_bas 17380000 BUSCA_DEV DOCTO_IDENT 10272902 LOC:APLIC_CREE 1 SER:TIPO R AGRUPA CREEG Ley50 = CREE AGRUPA CREEG INTegral = VSY:REL_SALIN SI EMP:REL_LABORAL SI 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 10272902 ama:IBC 18442925 Autol:NuevRedon S ESS:REDONDEO_APT C TARIFA_CREE DOCTO_IDENT 10272902 LOC:APLIC_CREE 1 SER:TIPO R LOC:DEVENGADOS 0 LOC:TOPECREE 7377170 LOC:tarifa 10.44 LOC:BASICO 17380000 AMA:COD_TIPO 1 Mllg:CREE_BASE IBC AMA:PENSIONADO 0 esv:aporte 0 AMA:IBC 18442925 ESE:SAL_INT S ********* Entrando funcion O_REDONDEO ***************** VALOR = 192544.137 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 192544.137 VALOR 1925.44137 ENTERO 1925 DECIMAL 0.441369999999779 1. VALOR FINAL 1926 LOC:VALOR 1925.44137 LOC:ENTERO 1925 2. VALOR FINAL 192600 LOC:VALOR 1925.44137 FINAL REDONDEO VALOR FINAL 192600 VALOR ORIGINAL 192544.137 TIPO 2 INICIA REDONDEOCOLOMBIA AMA:COTIZ_OBL 192600 LOC:IBC_MIN 221316 LOC:tarifa 10.44 INICIA REDONDEOCOLOMBIA AMA:COTIZ_OBL 192600 LOC:APOR_MIN 2311 --CALCULAR APORTE BUSCAR COTIZACION 192600 AMA:IBC 18442925 TARIFA 0.01044 Aporte del minimo 2311 Ibc Minimo 221316 ********* Entrando funcion O_REDONDEO ***************** VALOR = 192544.137 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 192544.137 VALOR 1925.44137 ENTERO 1925 DECIMAL 0.441369999999779 1. VALOR FINAL 1926 LOC:VALOR 1925.44137 LOC:ENTERO 1925 2. VALOR FINAL 192600 LOC:VALOR 1925.44137 FINAL REDONDEO VALOR FINAL 192600 VALOR ORIGINAL 192544.137 TIPO 2 --LOC:APORTE 192600 LOC:DECIMAL 0 LOC:SAL_MIN 221316 --NUEVO LOC:APORTE 192600 LOC:DECIMAL 0 LOC:SAL_MIN 221316 LOC:tarifa 10.44 ********* Entrando funcion O_REDONDEO ***************** VALOR = 2310.53904 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 2310.53904 VALOR 23.1053904 ENTERO 23 DECIMAL 0.105390400000001 1. VALOR FINAL 24 LOC:VALOR 23.1053904 LOC:ENTERO 23 2. VALOR FINAL 2400 LOC:VALOR 23.1053904 FINAL REDONDEO VALOR FINAL 2400 VALOR ORIGINAL 2310.53904 TIPO 2 --INICIA VERIFICA_APORTE SER:TIPO R AMA:DIAS_COT 9 AMA:PENSIONADO 0 LOC:TARIFA 10.44 LOC:APORT_MINX 0 ama:cotiz_obl 192600 LOC:APORT_MIN 2400 ama:IBC 18442925 LOC:tarifa 10.44 LOC:IBC_MIN 221316 AMA:PENSIONADO 0 LOC:APLITOPEMAX 1 LOC:APORMAX 0 LOC:PENSIONADO_COMP 0 LOC:TOPEMAXRO 18442925 ********* Entrando funcion O_REDONDEO ***************** VALOR = 192544.137 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 192544.137 VALOR 1925.44137 ENTERO 1925 DECIMAL 0.441369999999779 1. VALOR FINAL 1926 LOC:VALOR 1925.44137 LOC:ENTERO 1925 2. VALOR FINAL 192600 LOC:VALOR 1925.44137 FINAL REDONDEO VALOR FINAL 192600 VALOR ORIGINAL 192544.137 TIPO 2 ********* Entrando funcion O_REDONDEO ***************** VALOR = 192544.137 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 192544.137 VALOR 192544.137 ENTERO 192544 DECIMAL 0.136999999987893 1. VALOR FINAL 192545 LOC:VALOR 192544.137 FINAL REDONDEO VALOR FINAL 192545 VALOR ORIGINAL 192544.137 TIPO 1 **APORTE_MAX LOC:TOPEMAXRO 18442925 LOC:APORT_MAX 192600 LOC:APORT_MAXR 192545 LOC:APORT_MAXA 192545 LOC:tarifa 10.44 LOC:APLITOPEMAX 1 LOC:APORMAX 0 LOC:APORT_MIN 2400 LOC:APORT_MAX 192600 LOC:APORTE 192600 LOC:APORT_MIN 2400 LOC:APORT_MIN 2400 LOC:APORT_MAX 192600 -- despues de VERIFICA_APORTE LOC:APORTE 192600 LOC:IBC 18442925 TARIFA 0.01044 LOC:APORT_MIN 2400 CTROLMIN# 1 LOC:APORMAX 0 LOC:APORMAX 0 Antes de ESS:REDONDEO_APT E RED_APOR# 1 ama:IBC 18442925 LOC:tarifa 10.44 LOC:REDONDEO 0.0001 LOC:PENSIONADO_COMP 0 LOC:APORTE 192600 ********* Entrando funcion O_REDONDEO ***************** VALOR = 192544.137 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 192544.137 VALOR 1925.44137 ENTERO 1925 DECIMAL 0.441369999999779 1. VALOR FINAL 1926 LOC:VALOR 1925.44137 LOC:ENTERO 1925 2. VALOR FINAL 192600 LOC:VALOR 1925.44137 FINAL REDONDEO VALOR FINAL 192600 VALOR ORIGINAL 192544.137 TIPO 2 Despues de ESS:REDONDEO_APT E ama:cotiz_obl 192600 ama:IBC 18442925 LOC:APORT_MIN 2400 RED_APOR# 1 ess:emp_ss CR OPERADOR 1 LOC:APORTE 192600 COTIZACION OBLIGATORIA AL FINAL DEL REDONDEO 192600 RED_APOR# 1 CTROLMIN# 1 LOC:IBC 18442925 RED_APOR# 1 SAL_VARIABLE DOCTO_IDENT 10272902 AMA:SAL_BAS 17380000 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 10.44 AMA:COTIZ_OBL 192600 SERVICIO RP SER:TIPO R AMA:DOCTO_IDENT 10272902 AMA:IBC 18442925 AMA:SAL_BAS 17380000 ama:valor_vst 3540108 valor_vst$ 3540108 tns:UpdateSal2 S AMA:DIAS_COT 9 --------FIN ProcesarAMA se modifica el empleado 10272902 con admon: CR sucursal: DG servicio: RP FILTRO del ESE ACTIVOS: SELECT * FROM ESE WHERE ESE.EMP_SS = 'SN' AND ESE.SUCURSAL = 'DG' AND ESE.SERVICIO = 'SF' AND ESE.DOCTO_IDENT = '10272902' AND ESE.ESTADO <> 'R' ORDER BY ESE.DOCTO_IDENT ACTIVOS - EMPRESA SN SERVICIO SF DOCTO_IDENT 10272902 ese:f_vigencia 1.04.2017 cat:f_fin 30.08.2017 ese:sal_rep 17380000 --INICIA CONTINUAACTIVOS DOCTO_IDENT 10272902 SERVICIO SF Tarifa ESV 125 Tarifa 125 tns:UpdateSal2 S sal_bas$ 17380000 ese:sal_rep 17380000 ese:sal_fijo 0 ARP# 1 Tarifa ESV 125 Tarifa 125 sal_bas$ 17380000 ese:sal_rep 17380000 ctr:aporte 0 ese:codigo_ct Tarifa 125 ARP_ Activos ese:codigo_ct ctr:aporte 0 loc:codigo_ct loc:tarifa 125 FIN CONTINUAACTIVOS DOCTO_IDENT 10272902 SERVICIO SF sal_bas$ 17380000 loc:tarifa 125 esv:aporte 125 ARP# 1 INICIA CreaAma AMA EMPLEADO 10272902 esv:emp_ss, esv:sucursal.esv:servicio SNDGSF 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 AUINEX AMA:TIPO_COTIZANTE DP1 CTROL EXTRANJERO SERVICIO S EMP:CIUDAD_N 17001 FIN CreaAma A GRABAR EMPLEADO 10272902 AMA:SALARIO 17380000 SAL_BAS$ 17380000 AMA:SAL_BAS 17380000 AMA:emp_ss, AMA:sucursal, AMA:SERVICIO SNDGSF AMA:TARIFA 125 AMA:ANOS 2017 AMA:MESS 09 VA A ver_nov Despues de do activos LOC:ACTIVOSESE 2 INICIA NOVE_PORPRD en Liquidar 201708 FILTRADO SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '08' AND NVS.DOCTO_IDENT = '10272902' AND NVS.EMP_SS = 'SN' AND NVS.SUCURSAL = 'DG' AND NVS.SERVICIO = 'SF' ORDER BY NVS.DOCTO_IDENT,NVS.F_INI RECORDS(SYF:QEMP) 0 NVS:DOCTO_IDENT 10272902 NVS:MES 08 GLO:MES 08 NVS:cod_novedad 07 NVS:cod_novedad 07 pss:noved_ret 02 Autol:CtlNVSAntg S nvs:servicio SF pss:noved_ing 01 NVS:MES 08 GLO:MES 08 BUSCA NPS Autol:CtlNVSAntg S Autol:CtlNVSAntg_O S FIN NOVE_PORPRD - PERIODO 201708 nvs:servicio SF nvs:cod_novedad 07 nvs:valor 3540108 nvs:DOCTO_IDENT 10272902 loc:docto_ident NVS:salario 17380000 sal_bas$ 17380000 NOVE_PORPRD - PERIODO 201708 nvs:servicio SF nvs:cod_novedad 07 nvs:valor 3540108 nvs:DOCTO_IDENT 10272902 loc:docto_ident ese:sal_rep 17380000 FIN NOVE_PORPRD - ANTES DE CREAMA INICIA CreaAma AMA EMPLEADO 10272902 esv:emp_ss, esv:sucursal.esv:servicio SNDGSF ENCUENTRA AMA DOC_IDENT 10272902 esv:emp_ss SN esv:sucursal DG esv:servicio SF RECORDS(SYF:QEMP) 0 NVS:DOCTO_IDENT 10272902 NVS:MES 08 GLO:MES 08 NVS:cod_novedad 11 NVS:cod_novedad 11 pss:noved_ret 02 Autol:CtlNVSAntg S nvs:servicio SF pss:noved_ing 01 NVS:MES 08 GLO:MES 08 BUSCA NPS Autol:CtlNVSAntg S Autol:CtlNVSAntg_O S FIN NOVE_PORPRD - PERIODO 201708 nvs:servicio SF nvs:cod_novedad 11 nvs:valor 12910047.5 nvs:DOCTO_IDENT 10272902 loc:docto_ident 10272902 NVS:salario 18442925 sal_bas$ 17380000 NOVE_PORPRD - PERIODO 201708 nvs:servicio SF nvs:cod_novedad 11 nvs:valor 12910047.5 nvs:DOCTO_IDENT 10272902 loc:docto_ident 10272902 ese:sal_rep 17380000 INICIA NOVE_PORPRD en Liquidar 201709 FILTRADO SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '09' AND NVS.DOCTO_IDENT = '10272902' AND NVS.EMP_SS = 'SN' AND NVS.SUCURSAL = 'DG' AND NVS.SERVICIO = 'SF' ORDER BY NVS.DOCTO_IDENT,NVS.F_INI EN ALIASSINPAPA, LOC:EMXTIPO_REL qla:docto_ident 10272902 glo:tipo_liq Beneficiario A-. qla:emp_ss SN qla:sucursal DG 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 7377170 VSY:SAL_MIN_LEGA 737717 Mllg:CREE_BASE IBC --------- Inicia Msl02:Auto5_17 ESV:EMP_SS SN ESV:SUCURSAL DG ESV:SERVICIO SF ESS:EMP_SS SN 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 18442925 Tarifa SER 125 Tarifa 125 ARPSC# 0 SER:TOPEMAXAPORT 25 SERTOPEMAXAPORT$ 18442925 pss:tope_salmax 25 psstope_salmax$ 18442925 --------INICIO ProcesarAMA - loc:docto_ident esv:SERVICIO SF esv:sucursal DG glo:tipo_liq Beneficiario qla:docto_ident 10272902 ProcesarAMA fILTRADO SELECT AMA.CNSAMA FROM AMA WHERE AMA.ANO = '2017' AND AMA.MES = '08' AND AMA.EMP_SS = 'SN' AND AMA.SUCURSAL = 'DG' AND AMA.SERVICIO = 'SF' AND AMA.DOCTO_IDENT = '10272902' ORDER BY AMA.DOCTO_IDENT --------INICIO Ciclo ProcesarAMA - DEL EMPLEADO 10272902 LOC:FILTRADO SELECT AMA.CNSAMA FROM AMA WHERE AMA.ANO = '2017' AND AMA.MES = '08' AND AMA.EMP_SS = 'SN' AND AMA.SUCURSAL = 'DG' AND AMA.SERVICIO = 'SF' AND AMA.DOCTO_IDENT = '10272902' ORDER BY AMA.DOCTO_IDENT AMA:DOCTO_IDENT 10272902 RECORDS(SYF:QEMP) 0 INICIA BUSCARCOD_ RECORDS(QSER) 3 QSER:SERVICIO PE QSER:TIPO P ama:docto_ident 10272902 QSER:SERVICIO PE QSER:TIPO P ese:emp_ss CN ese:estado ESV:EMP_SS CN ESV:SUCURSAL DG ESV:SERVICIO PE ESV:CODIGO QSER:SERVICIO SF QSER:TIPO S ama:docto_ident 10272902 QSER:SERVICIO SF QSER:TIPO S ese:emp_ss SN ese:estado ESV:EMP_SS SN ESV:SUCURSAL DG ESV:SERVICIO SF ESV:CODIGO QSER:SERVICIO SJ QSER:TIPO S ama:docto_ident 10272902 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 08 SQL para CARGAr NVS SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '08' AND NVS.EMP_SS = 'SN' AND NVS.SUCURSAL = 'DG' AND NVS.SERVICIO = 'SF' AND NVS.DOCTO_IDENT = '10272902' ORDER BY NVS.DOCTO_IDENT -------------------------------------------------- --NVS:MES 08 GLO:MES 08 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 3540108 NVS:DIAS 9 sal_bas$ 0 NVS:SALARIO 17380000 RETPDSIG# 0 CARGANDO NVS - Qnvs:servicio SF qnvs:cod_novedad 07 qnvs:valor 3540108 qnvs:DOCTO_IDENT 10272902 QNVS:DIAS_ATRAS 0 QNVS:DIAS 9 INCATRAS# 0 NVS:SALARIO 17380000 sal_bas$ 0 RETPDSIG# 0 CARGANDO QnvsIR - QnvsIR:servicio SF QnvsIR:cod_novedad 07 QnvsIR:valor 3540108 QnvsIR:DOCTO_IDENT 10272902 ADD QnvsIR:F_INI 1.08.2017 QnvsIR:DIAS 9 QnvsIR:SALARIO 17380000 -------------------------------------------------- --NVS:MES 08 GLO:MES 08 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 12910047.5 NVS:DIAS 21 sal_bas$ 0 NVS:SALARIO 18442925 RETPDSIG# 0 CARGANDO NVS - Qnvs:servicio SF qnvs:cod_novedad 11 qnvs:valor 12910047.5 qnvs:DOCTO_IDENT 10272902 QNVS:DIAS_ATRAS 0 QNVS:DIAS 21 INCATRAS# 0 NVS:SALARIO 18442925 sal_bas$ 0 RETPDSIG# 0 CARGANDO QnvsIR - QnvsIR:servicio SF QnvsIR:cod_novedad 11 QnvsIR:valor 12910047.5 QnvsIR:DOCTO_IDENT 10272902 ADD QnvsIR:F_INI 4.08.2017 QnvsIR:DIAS 21 QnvsIR:SALARIO 18442925 FIN CARGANDO NVSINCLMA# 0 QPRD:MES 08 GLO:SERSF SF,SJ LOC:MnjIncAtras N GLO:SERRP SF Records(qnvs) 2 *****INICIA CARGANDO NOVEDADES REPORTADAS**** RECORDS(QPRD) 2 QPRD:Ano 2017 QPRD:MES 09 SQL para CARGAr NVS SELECT * FROM NVS WHERE NVS.ANO = '2017' AND NVS.MES = '09' AND NVS.EMP_SS = 'SN' AND NVS.SUCURSAL = 'DG' AND NVS.SERVICIO = 'SF' AND NVS.DOCTO_IDENT = '10272902' ORDER BY NVS.DOCTO_IDENT FIN CARGANDO NVSINCLMA# 0 QPRD:MES 08 GLO:SERSF SF,SJ LOC:MnjIncAtras N GLO:SERRP SF Records(qnvs) 2 Despues de CargarNVS salbasalias$ 0 sal_bas$ 0 Records(QNVS) 2 loc:docto_ident 10272902 sal_bas$ 0 esv:servicio SF incio ProcesaQNVS Records(Qnvs) 2 CICLO QNVS Qnvs:servicio SF qnvs:cod_novedad qnvs:dias 907 qnvs:valor 3540108 qnvs:DOCTO_IDENT 10272902 -- Inicio proces_nv - qnvs:cod_novedad 07 Para qnvs:DOCTO_IDENT 10272902 qnvs:dias 9 qnvs:valor 3540108 LOC:TARIFA 125 salbasalias$ 0 sal_bas$ 0 ese:sal_rep 17380000 qnvs:cod_novedad 07 qnvs:DOCTO_IDENT 10272902 cn_v[nv#] nv# 1 RETPDSIG# 0 pss:noved_ret 02 -- INCATRAS# 0 qnvs:cod_novedad 07 qnvs:dias 9 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 9 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 3540108 valor_nsal$ 0 qnvs:valor 3540108 -- FIN proces_nv qnvs:cod_novedad 07 Para qnvs:DOCTO_IDENT 10272902 dias_sln$ 0 diasAtras_Ige$ 0 diasAtras_lma$ 0 diasAtras_IRP$ 0 diasAtras_ARP$ 0 QNVS:DIAS_ATRAS 0 QNVS:DIAS 9 valor_vst$ 3540108 CICLO QNVS Qnvs:servicio SF qnvs:cod_novedad qnvs:dias 2111 qnvs:valor 12910047.5 qnvs:DOCTO_IDENT 10272902 -- Inicio proces_nv - qnvs:cod_novedad 11 Para qnvs:DOCTO_IDENT 10272902 qnvs:dias 21 qnvs:valor 12910047.5 LOC:TARIFA 125 salbasalias$ 0 sal_bas$ 0 ese:sal_rep 17380000 qnvs:cod_novedad 11 qnvs:DOCTO_IDENT 10272902 cn_v[nv#] nv# 2 RETPDSIG# 0 pss:noved_ret 02 -- INCATRAS# 0 qnvs:cod_novedad 11 qnvs:dias 21 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 21 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 12910047.5 valor_nsal$ 0 qnvs:valor 12910047.5 -- FIN proces_nv qnvs:cod_novedad 11 Para qnvs:DOCTO_IDENT 10272902 dias_sln$ 0 diasAtras_Ige$ 0 diasAtras_lma$ 0 diasAtras_IRP$ 0 diasAtras_ARP$ 0 QNVS:DIAS_ATRAS 0 QNVS:DIAS 21 valor_vst$ 3540108 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$ 12910047.5 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$ 12910047.5 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 10272902 xdias# 0 SER:TOPEMAXAPORT 25 ESV:TOPEMAXAPORT 25 LOC:TOPEMAX 18442925 sal_bas$ 0 ese:estado loc:docto_ident 10272902 loc:tarifa 125 VERIFIQUERETIROYTRASLADOS EMPLEADO 10272902 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 18442925 SER:TOPEMAXAPORT 25 ESV:TOPEMAXAPORT 25 ARP# 0 SERTOPEMAXAPORT$ 18442925 ESVTOPEMAXAPORT$ 18442925 LOC:DOCTO_LIQ 0 Actualizar ama por novedades salbasalias$ 0 sal_bas$ 17380000 loc:codigo_ct LOC:TOPEMAX 18442925 loc:tarifa 125 AMA:Novedad_v datos_ama nret# 0 ------------SALARIOINGRET QNVSINGRE 0 QnvsIR 2 SALPROM$ 0 SALINGRET$ 0 SALARNOV$ 0 sal_bas$ 17380000 Antes de VERICAINGRESOYRETIROS DATOS AMA sumdias# 0 dias_ret# 0 dias_ing# 0 loc:sal_bas 17380000 ser:tiempo_t 0 ama:docto_ident 10272902 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 17380000 sal_bas$ 17380000 ama:docto_ident 10272902 ama:dias_cot 30 dias_c# 0 loc:tarifa 125 INICIO diascambiosal ser:tipo S DIASCAMBIOSAL$ 30 sal_bas$ 17380000 ama:docto_ident 10272902 stotal$ 0 dias_c# 0 ult_sal$ 0 ***Autol:SalBase C sal_bas$ 17380000 sal_base$ 17380000 ese:sal_int S ama:dias_cot 30 pSS:por_sal_int 30 Salario integral tipo Salario (C-con factor/S-Sin factor) Autol:SalBase C sal_bas$ 17380000 Autol:BasicoFeb N Antes de diasnovedad ser:tipo S IBC 12166000 ama:sal_bas 17380000 sal_bas$ 12166000 ama:docto_ident 10272902 Dias_ibc# 0 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 12910047.5 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$ 3540108 despues de diasnovedad DIAS NOVEDAD 21 dias_ibc# 9 dias_cot# 30 Autol:ATAFSP S valor_irp$ 0 valor_arp$ 0 ama:dias_cot 30 Antes de Autol:IbcDesTop ser:tipo S IBC 12166000 dias_ibc# 9 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 12910047.5 ama:dias_cot 30 --CalculaIBC INICIO ser:tipo S IBC$ 12166000 dias_ibc# 9 Autol:DiaCotRet T 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 12166000 diasibcDvF# 9 INCATRAS# 0 diasibcDv# 9 diasibcDvR# 0 DIASCT# 30 sumdias# 0 valor_irp$ 0 Autol:ATAFSP S LOC:REVNVNRP N CALCULANDO IBC SALINGRET$ 0 Autol:SinAusen N 1.1-.CALCULANDO IBC antes de restar asociacion 12166000 LOC:ASOCIACION 0 1.2-.CALCULANDO IBC antes de restar asociacion 12166000 suma_Vlr_nov$ 12910047.5 Autol:SinAusen N 1.3-.CALCULANDO IBC DESPUES SIN AUSENCIAS 12166000 suma_Vlr_nov$ 12910047.5 SALINGRET$ 0 suma_Vlr_nov$ 12910047.5 ese:SAL_FIJO 0 ibc$ 12166000 valor_irp$ 0 LOC:VPS 0 1.4-.CALCULANDO IBC DESPUES 12166000 suma_Vlr_nov$ 12910047.5 LOC:VPS 0 LOC:BASENLAB 0 1.6-.CALCULANDO IBC 12166000 DIASCT# 30 diasibcDvF# 9 suma_Vlr_nov$ 12910047.5 LOC:VPS 0 1.7-.CALCULANDO IBC 16559847.5 DIASCT# 30 diasibcDvF# 9 suma_Vlr_nov$ 12910047.5 cambioporfeb# 0 Diafebrero 0 2-.CALCULADO IBC ser:tipo S IBC 16559847.5 DIASCT# 30 diasibcDvF# 9 valor_sln$ 0 valor_ige$ 0 valor_lma$ 0 valor_vac$ 12910047.5 diasibcDv# 9 Autol:SinAusen N diasibcDvR# 0 suma_Vlr_nov$ 12910047.5 LOC:BASENSALINI 16559847.5 Autol:ATAFSP S ser:tipo S valor_irp$ 0 valor_arp$ 0 2.1-.CALCULADO IBC ser:tipo S IBC 16559847.5 INCATRAS# 0 ser:tipo S valor_irp$ 0 valor_arp$ 0 valor_vst$ 3540108 2.2-.SUMA CALCULADO IBC ser:tipo S IBC 20099955.5 valor_vst$ 3540108 ser:tipo S valor_irp$ 0 valor_arp$ 0 3-.CalculaIBC Final ser:tipo S IBC + Novedades 20099955.5 INCATRAS# 0 valor_vst$ 3540108 valor_irp$ 0 valor_arp$ 0 3.3-.CalculaIBC Final ser:tipo S IBC + BONO 20099955.5 BONO LOC:ASOCIACION 0 4-.CalculaIBC Final ser:tipo S IBC + Novedades 20099955.5 --base no laborado 0 5.CalculaIBC Final ser:tipo S IBC 20099956 ------------BASENSAL INICIA SER:SERVICIO SF valor_nsal$ 0 LOC:BASENLAB 0 ibc$ 20099956 Tns:PorcNS 0.4 LOC:BASENLAB 0 AUTOL:TipProcNS T AUTOL:FACTPRES_BN N Inicia Ajustar Ibc 20099956 ser:ajusta_min 5 ESSSAL_MINIMO 0 ama:dias_cot 30 sumdias# 0 ARP# 0 dias_ibc# 9 ser:tiempo_t 0 ARPSC# 0 --ESS:SAL_MINIMO 1 VSY:SAL_MIN_LEGA 737717 SERAJUSTAMIN ser:ajusta_min 5 ama:pensionado 0 LOC:PENSIONADO_COMP 0 INICIA MINIMO_INT LOC:sal_minimo 737717 LOC:MnjTopMinSI N ese:sal_int S LOC:SalMinSI 0 ESSSAL_MINIMO 737717 INICIA Ajustadias ARP# 0 ARPSC# 0 sumdias# 0 DIAS_AJ# 30 dias_ibc# 9 Ajuste por 5 ibc$ 20099956 LOC:sal_minimo 737717 ama:dias_cot 30 Ajuste Ibc 20099956 ajustar# 0 ESSSAL_MINIMO 737717 Fin SERAJUSTAMIN Ibc 20099956 ajustar# 0 ama:dias_cot 30 DIAS_AJ# 30 Inicia CalcularTopeMax SER:SERVICIO SF LOC:TOPEMAX 18442925 ESV:TOPEMAXAPORT 25 LOC:BASENLAB 0 IBC$ 20099956 CalcularTopeMax INICIA SER:SERVICIO SF LOC:TOPEMAX 18442925 ibc$ 20099956 ama:dias_cot 30 TOPEMAX$ 0 LOC:FactPresD25M N Autol:TopemxC S TOPEMAX$ 18442925 ibc$ 20099956 **REDONDEAR_TOPEMAX REDONDEAR_TOPEMAX TOPEMAX$ 18442925 LOC:TOPEMAXR 18442925 ULTDIG# 925 LONG# 8 LOC:APLITOPEMAX 0 NUEVO TOPEMAX$ 18442925 --ibc$ 20099956 LOC:IBCRR 20099956 Autol:NuevRedon S TOPEMAX$ 18442925 ********* Entrando funcion O_REDONDEO ***************** VALOR = 20099956 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 20099956 VALOR 20099956 ENTERO 20099956 DECIMAL 0 1. VALOR FINAL 20099956 LOC:VALOR 20099956 FINAL REDONDEO VALOR FINAL 20099956 VALOR ORIGINAL 20099956 TIPO 1 --SER:SERVICIO SF LOC:TOPEMAX 18442925 Autol:NuevRedon S ibc$ 20099956 ama:dias_cot 30 TOPEMAX$ 18442925 Autol:TopemxC S CalcularTopeMax FIN LOC:TOPEMAX 18442925 ibc$ 18442925 ama:sal_bas 17380000 LOC:APLITOPEMAX 1 Autol:SalBaseTope xxxxxxxxxxxxx Despues de Loc:IbcDesTop ser:tipo S FIN IBC 18442925 ESS:EMP_SSSN Despues de comparar con Tope maximo Maximo 18442925 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$ 3540108 ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442925 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442925 VALOR 18442925 ENTERO 18442925 DECIMAL 0 1. VALOR FINAL 18442925 LOC:VALOR 18442925 FINAL REDONDEO VALOR FINAL 18442925 VALOR ORIGINAL 18442925 TIPO 1 antes de CTROL_ROUND --- LOC:IBC 18442925 IBC$ 18442925 ******** qqqqqqqqqqqqqqqqqqqqq CONTROL DE REDONDEO Autol:CtrolRoundMin T LOC:PENSIONADO_COMP 0 Autol:CondPenCom ************* ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442925 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442925 VALOR 18442925 ENTERO 18442925 DECIMAL 0 1. VALOR FINAL 18442925 LOC:VALOR 18442925 FINAL REDONDEO VALOR FINAL 18442925 VALOR ORIGINAL 18442925 TIPO 1 --ESS:SAL_MINIMO 1 ESSSAL_MINIMO 737717 VSY:SAL_MIN_LEGA 737717 --ESS:SAL_MINIMO 1 VSY:SAL_MIN_LEGA 737717 ********* Entrando funcion O_REDONDEO ***************** VALOR = 737717 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 737717 VALOR 737717 ENTERO 737717 DECIMAL 0 1. VALOR FINAL 737717 LOC:VALOR 737717 FINAL REDONDEO VALOR FINAL 737717 VALOR ORIGINAL 737717 TIPO 1 --LOC:SAL_MIN 737717 LOC:SALARIOIBC 18442925 LOC:IBC_MIN 737717 LOC:IBC 18442925 LOC:SALARIOIBC 18442925 ESSSAL_MINIMO 737717 TOME MAXIMO 18442925 LOC:IBC 18442925 AMA:DIAS_COT 30 CTROLMIN# 1 REDONDEA# 1 LOC:CTROLROUND T LOC:SAL_MIN 737717 LOC:SALARIOIBC 18442925 <= ESSSAL_MINIMO 737717 EXIT# 1 ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442925 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442925 VALOR 18442925 ENTERO 18442925 DECIMAL 0 1. VALOR FINAL 18442925 LOC:VALOR 18442925 FINAL REDONDEO VALOR FINAL 18442925 VALOR ORIGINAL 18442925 TIPO 1 LOC:SALARIOIBC 18442925 = LOC:TOPEMAX 18442925 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 737717 AŅO 2017 ********* Entrando funcion O_REDONDEO ***************** VALOR = 737717 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 737717 VALOR 737717 ENTERO 737717 DECIMAL 0 1. VALOR FINAL 737717 LOC:VALOR 737717 FINAL REDONDEO VALOR FINAL 737717 VALOR ORIGINAL 737717 TIPO 1 FIN IBC_NUEVO DIAS 30 IBC 737717 FIN BUSCA IBC PARA EL ANO 2017 LOC:IBC 737717 DIAS 30 REDONDEO = 737717 Syf:TipoRedondeo FIN VALIDA_BASE LOC:SAL_MIN 737717 ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442925 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442925 VALOR 18442925 ENTERO 18442925 DECIMAL 0 1. VALOR FINAL 18442925 LOC:VALOR 18442925 FINAL REDONDEO VALOR FINAL 18442925 VALOR ORIGINAL 18442925 TIPO 1 LOC:IBC 18442925 BASEREDONDEAD$ 18442925 LOC:IBC 18442925 LOC:SAL_MIN 737717 LOC:IBC_MIN 737717 EXIT# 0 LOC:PENSIONADO_COMP 0 ********* Entrando funcion O_REDONDEO ***************** VALOR = 18442925 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 18442925 VALOR 18442925 ENTERO 18442925 DECIMAL 0 1. VALOR FINAL 18442925 LOC:VALOR 18442925 FINAL REDONDEO VALOR FINAL 18442925 VALOR ORIGINAL 18442925 TIPO 1 --REDONDEA# 1 LOC:IBC 18442925 ESS:REDONDEO_ibc M LOC:IBC_MIN 737717 LOC:APLITOPEMAX 1 LOC:PENSIONADO_COMP 0 veo 18442925 LOC:sal_minimo 737717 ese:sal_int S ama:ibc 18442925 ama:sal_bas 17380000 ese:sal_int S ama:sal_bas 17380000 ama:ibc 18442925 AUTOL:CAMB_SALBAS N LOC:sal_minimo 737717 ---DESPUES DE ese:sal_int ama:ibc 18442925 ama:sal_bas 17380000 ---IBC AL FINAL DEL REDONDEO 18442925 REDONDEA# 1 CTROLMIN# 1 LOC:IBC 18442925 ama:sal_bas 17380000 BUSCA_DEV DOCTO_IDENT 10272902 LOC:APLIC_CREE 1 SER:TIPO S AGRUPA CREEG Ley50 = CREE AGRUPA CREEG INTegral = VSY:REL_SALIN SI EMP:REL_LABORAL SI 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 SI FILTRADO MLQ BUSCAR DEVENGADOS EMPLEADO 10272902- 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 = '08' AND MLQ.EMPLEADO = '10272902' AND MLQ.ESTADO <> '1' AND CAD.AGRUPACION = 'CREE' DEVENGADOS 24340837 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 '201708%' AND LQD.EMPLEADO = '10272902' AND LQE.ESTADO = '2' AND FPF.TIPO_PAGO = 'A' AND CAD.AGRUPACION = 'CREE' DEVENGADOS DEFINITIVA 0 DEVENGADOS TOTALES 24340837 AMA:SAL_BAS 17380000 Autol:SalBase C VSY:REL_SALIN SI EMP:REL_LABORAL SI EMP:FACT_PREST 30 -NUEVO BASICO BASICO 12166000 Autol:SalBase C LOC:DEVENGADOS 24340837 VSY:PORC_SAL_INT 30 Mllg:CREE_BASE IBC LOC:DEVENGADOS 24340837 LOC:BASICO 12166000 AMA:IBC 18442925 -ENTRO POR IBC O IBCI NUEVO DEVENGADOS EMPLEADO 10272902 LOC:DEVENGADOS 24340837 LOC:BASICO 12166000 AMA:SALARIO 12166000 -Mllg:CREE_BASE IBC AMA:IBC 18442925 LOC:DEVENGADOS 24340837 -NUEVO DEVENGADOS EMPLEADO 10272902 LOC:DEVENGADOS 24340837 LOC:BASICO 12166000 AMA:SALARIO 12166000 -Mllg:CREE_BASE IBC AMA:IBC 18442925 LOC:DEVENGADOS 24340837 AMA:VALOR_NRET 24340837 LOC:DEVENGADOS 24340837 antes de ser:ind_calc G SERVICIO SF AMA:VALOR_NRET 24340837 LOC:DEVENGADOS 24340837 INICIA REDONDEOCOLOMBIA DOCTO_IDENT 10272902 ama:IBC 18442925 Autol:NuevRedon S ESS:REDONDEO_APT C TARIFA_CREE DOCTO_IDENT 10272902 LOC:APLIC_CREE 1 SER:TIPO S LOC:DEVENGADOS 24340837 LOC:TOPECREE 7377170 LOC:tarifa 125 LOC:BASICO 12166000 AMA:COD_TIPO 1 Mllg:CREE_BASE IBC AMA:PENSIONADO 0 esv:aporte 125 AMA:IBC 18442925 ESE:SAL_INT S ********* Entrando funcion O_REDONDEO ***************** VALOR = 2305365.625 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 2305365.625 VALOR 23053.65625 ENTERO 23053 DECIMAL 0.65625 1. VALOR FINAL 23054 LOC:VALOR 23053.65625 LOC:ENTERO 23053 2. VALOR FINAL 2305400 LOC:VALOR 23053.65625 FINAL REDONDEO VALOR FINAL 2305400 VALOR ORIGINAL 2305365.625 TIPO 2 INICIA REDONDEOCOLOMBIA AMA:COTIZ_OBL 2305400 LOC:IBC_MIN 737717 LOC:tarifa 125 INICIA REDONDEOCOLOMBIA AMA:COTIZ_OBL 2305400 LOC:APOR_MIN 92215 --CALCULAR APORTE BUSCAR COTIZACION 2305400 AMA:IBC 18442925 TARIFA 0.125 Aporte del minimo 92215 Ibc Minimo 737717 ********* Entrando funcion O_REDONDEO ***************** VALOR = 2305365.625 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 2305365.625 VALOR 23053.65625 ENTERO 23053 DECIMAL 0.65625 1. VALOR FINAL 23054 LOC:VALOR 23053.65625 LOC:ENTERO 23053 2. VALOR FINAL 2305400 LOC:VALOR 23053.65625 FINAL REDONDEO VALOR FINAL 2305400 VALOR ORIGINAL 2305365.625 TIPO 2 --LOC:APORTE 2305400 LOC:DECIMAL 0 LOC:SAL_MIN 737717 --NUEVO LOC:APORTE 2305400 LOC:DECIMAL 0 LOC:SAL_MIN 737717 LOC:tarifa 125 ********* Entrando funcion O_REDONDEO ***************** VALOR = 92214.625 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 92214.625 VALOR 922.14625 ENTERO 922 DECIMAL 0.146250000000009 1. VALOR FINAL 923 LOC:VALOR 922.14625 LOC:ENTERO 922 2. VALOR FINAL 92300 LOC:VALOR 922.14625 FINAL REDONDEO VALOR FINAL 92300 VALOR ORIGINAL 92214.625 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 18442925 LOC:tarifa 125 LOC:IBC_MIN 737717 AMA:PENSIONADO 0 LOC:APLITOPEMAX 1 LOC:APORMAX 0 LOC:PENSIONADO_COMP 0 LOC:TOPEMAXRO 18442925 ********* Entrando funcion O_REDONDEO ***************** VALOR = 2305365.625 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 2305365.625 VALOR 23053.65625 ENTERO 23053 DECIMAL 0.65625 1. VALOR FINAL 23054 LOC:VALOR 23053.65625 LOC:ENTERO 23053 2. VALOR FINAL 2305400 LOC:VALOR 23053.65625 FINAL REDONDEO VALOR FINAL 2305400 VALOR ORIGINAL 2305365.625 TIPO 2 ********* Entrando funcion O_REDONDEO ***************** VALOR = 2305365.625 TIPO = 1 POR UNIDAD SUPERIOR VALOR ORIGINAL 2305365.625 VALOR 2305365.625 ENTERO 2305365 DECIMAL 0.625 1. VALOR FINAL 2305366 LOC:VALOR 2305365.625 FINAL REDONDEO VALOR FINAL 2305366 VALOR ORIGINAL 2305365.625 TIPO 1 **APORTE_MAX LOC:TOPEMAXRO 18442925 LOC:APORT_MAX 2305400 LOC:APORT_MAXR 2305366 LOC:APORT_MAXA 2305366 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 18442925 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 18442925 LOC:tarifa 125 LOC:REDONDEO 0.0001 LOC:PENSIONADO_COMP 0 LOC:APORTE 2305400 ********* Entrando funcion O_REDONDEO ***************** VALOR = 2305365.625 TIPO = 2 POR CIEN SUPERIOR VALOR ORIGINAL 2305365.625 VALOR 23053.65625 ENTERO 23053 DECIMAL 0.65625 1. VALOR FINAL 23054 LOC:VALOR 23053.65625 LOC:ENTERO 23053 2. VALOR FINAL 2305400 LOC:VALOR 23053.65625 FINAL REDONDEO VALOR FINAL 2305400 VALOR ORIGINAL 2305365.625 TIPO 2 Despues de ESS:REDONDEO_APT E ama:cotiz_obl 2305400 ama:IBC 18442925 LOC:APORT_MIN 92300 RED_APOR# 1 ess:emp_ss SN OPERADOR 1 LOC:APORTE 2305400 COTIZACION OBLIGATORIA AL FINAL DEL REDONDEO 2305400 RED_APOR# 1 CTROLMIN# 1 LOC:IBC 18442925 RED_APOR# 1 SAL_VARIABLE DOCTO_IDENT 10272902 AMA:SAL_BAS 17380000 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 10272902 AMA:IBC 18442925 AMA:SAL_BAS 17380000 ama:valor_vst 3540108 valor_vst$ 3540108 tns:UpdateSal2 S AMA:DIAS_COT 30 --------FIN ProcesarAMA se modifica el empleado 10272902 con admon: SN sucursal: DG servicio: SF 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 = '08' 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 = '08' 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 = '08' AND AMA.DOCTO_IDENT = AM.DOCTO_IDENT AND AMA.SERVICIO IN (SELECT SERVICIO FROM SER WHERE TIPO = 'S' ) AND AMA.SUCURSAL = AM.SUCURSAL