Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 22

changes.mady.by.user Oscar Garcia Lopez

Gravado em

comparado com

Nova versão 23

changes.mady.by.user Oscar Garcia Lopez

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Operación

Fórmula

Secuencia

1a Expresión

Op. 1

2a Expresión

Resultado

Interpretación

Fórmula nuevaE39IAG000001#TRACE_ON


Fórmula nuevaE39IAG000002NOCALCULASI_IGUAL1FINAL
Fórmula nuevaE39IAG000003IAGNOPROCSI_IGUAL2FINALSi tiene el mnemónico en IAGNOPROC = 2, entonces no calcula esta deducción
Fórmula nuevaE39IAG000004
LEE_DEP

Lee los dependientes con parentesco HIJO ("F"), sino continúa con la etiqueta NEXT
Fórmula nuevaE39IAG000005PARENTESCOSI_DIFERENTE'F'NEXT
Fórmula nuevaE39IAG000006TIPODEDUCSI_IGUAL'4'FINALSi el mnemónico TIPODEDUC (campo RB_TIPIR = 4 - No es Dep.) entonces finaliza el cálculo
Fórmula nuevaE39IAG000007##



Fórmula nuevaE39IAG000008TOPE_18ETIQUETA


Fórmula nuevaE39IAG00000917MULTIPLICA365NAUX_20Guarda en la variable NAUX_20, 17 años en días
Fórmula nuevaE39IAG000010NAUX_20SUMA6NAUX_20Suma a la variable NAUX_20, 6 días correspondientes a los años bisiestos
Fórmula nuevaE39IAG000011FECNACDEDSUMANAUX_20DAUX_01Le suma a la fecha de nacimiento del hijo (mnemónico FECNACDED) 17 años en días (variable NAUX_20) y lo guarda en la variable DAUX_01
Fórmula nuevaE39IAG000012##



Fórmula nuevaE39IAG000013FEC_BAJAETIQUETA


Fórmula nuevaE39IAG000014
MUEVEFECBAJDEDDAUX_20Mueve la fecha de baja del hijo (mnemónico FECBAJDED) a la variable DAUX_20
Fórmula nuevaE39IAG000015FECBAJDEDSI_DIFERENTEVACIOINICIOSi la fecha de baja (mnemónico FECBAJDED) está vacía, continúa con la etiqueta INICIO
Fórmula nuevaE39IAG000016
MUEVEDAUX_01DAUX_20Mueve la fecha de baja del hijo  (mnemónico FECBAJDED)  a la variable DAUX_20
Fórmula nuevaE39IAG000017##



Fórmula nuevaE39IAG000018INICIOETIQUETA


Fórmula nuevaE39IAG000019##DESGLOSO FECHA PAGO



Fórmula nuevaE39IAG000020
ANOFECHAPAGONAUX_00Extrae el año de la fecha de pago (mnemónico FECHAPAGO) y lo guarda en la variable NAUX_00 
Fórmula nuevaE39IAG000021
MESFECHAPAGONAUX_12Extrae el mes de la fecha de pago (mnemónico FECHAPAGO) y lo guarda en la variable NAUX_12
Fórmula nuevaE39IAG000022##DESGLOSO FECHA BAJA



Fórmula nuevaE39IAG000023
ANODAUX_20NAUX_01Extrae el año en que cumple 18 años el hijo (variable DAUX_20) y lo guarda en la variable NAUX_01
Fórmula nuevaE39IAG000024
MESDAUX_20NAUX_10Extrae el mes en que cumple 18 años el hijo (variable DAUX_20) y lo guarda en la variable NAUX_10
Fórmula nuevaE39IAG000025##DESGLOSO FECHA INICIO



Fórmula nuevaE39IAG000026
ANOFECINIDEDNAUX_03Extrae el año de la fecha de inicio de la deducción del hijo (mnemónico FECINIDED)  a la variable NAUX_03
Fórmula nuevaE39IAG000027
MESFECINIDEDNAUX_11Extrae el mes de la fecha de inicio de la deducción del hijo  (mnemónico FECINIDED)  a la variable NAUX_11
Fórmula nuevaE39IAG000028##DEDUCCIÓN HIJO PORMES


Fórmula nuevaE39IAG000029
BUSCATABLA_S050
Busca en la tabla S050 (Topes Deducciones IAG) el valor de la deducción indicada según el campo RV_COD1357 - Cod F1357)
Fórmula nuevaE39IAG000030ELEMENTO_01HASTA_MENORIGUALANOMESPROC
Fórmula nuevaE39IAG000031ELEMENTO_02HASTA_MAYORIGUALANOMESPROC
Fórmula nuevaE39IAG000032ELEMENTO_03HASTA_IGUALSRVCOD1357
Fórmula nuevaE39IAG000033
MUEVEELEMENTO_05IAGDEDHIJMueve valor de tope anual para Hijo
Fórmula nuevaE39IAG000034IAGDEDHIJDIVIDE12IAGDEDHIJDivide el tope con valor anual por 12 para mensualizarlo
Fórmula nuevaE39IAG000035##CONTINUA LASVALIDACIONES


Fórmula nuevaE39IAG000036
MUEVEIAGDEDHIJNAUX_17Mueve el importe proporcional de la deducción por hijo (mnemónico IAGDEDHIJ) a la variable NAUX_17
Fórmula nuevaE39IAG000037##



Fórmula nuevaE39IAG000038FECINIDEDSI_MAYORFECHAPAGOFINALSi la fecha de inicio de la deducción (mnemónico FECINIDED) es mayor a la fecha de pago (mnemónico FECHAPAGO), finaliza el cálculo
Fórmula nuevaE39IAG000039##



Fórmula nuevaE39IAG000040##ANO BAJA > ANO PAGO



Fórmula nuevaE39IAG000041NAUX_01SI_MAYORNAUX_00PROCALTASi el año de baja de la deducción (variable NAUX_01) es mayor al año de pago (variable NAUX_00), continúa en la etiqueta PROCALTA
Fórmula nuevaE39IAG000042##ANO BAJA < ANO PAGO



Fórmula nuevaE39IAG000043NAUX_01SI_MENORNAUX_00FINALSi el año de baja de la deducción (variable NAUX_01) es menor al año de pago (variable NAUX_00), finaliza el cálculo
Fórmula nuevaE39IAG000044##MES BAJA > MES PAGO



Fórmula nuevaE39IAG000045PROC_MESETIQUETA


Fórmula nuevaE39IAG000046NAUX_10SI_MAYORNAUX_12ASIGNA_BAJAMueve el mes en que cumple 18 años el hijo (variable NAUX_10), a la variable NAUX_15
Fórmula nuevaE39IAG000047
MUEVENAUX_10NAUX_15
Fórmula nuevaE39IAG000048
SALTA
PROCBAJASalta hasta la etiqueta PROCBAJA
Fórmula nuevaE39IAG000049##CORRIGE FECHA BAJA



Fórmula nuevaE39IAG000050ASIGNA_BAJAETIQUETA


Fórmula nuevaE39IAG000051
MUEVENAUX_12NAUX_15Mueve fecha de pago a la fecha de baja, si la fecha de baja es mayor a la de pago
Fórmula nuevaE39IAG000052##PROCESA X BAJA



Fórmula nuevaE39IAG000053PROCBAJAETIQUETA


Fórmula nuevaE39IAG000054NAUX_01SI_MAYORNAUX_03GRABASi el año de baja de la deducción (variable NAUX_01) es mayor al año de inicio de la deduccion deducción de hijo (variable NAUX_03), continúa en la etiqueta GRABA
Fórmula nuevaE39IAG000055NAUX_15RESTANAUX_11NAUX_15Hace la diferencia entre el mes de baja (variable NAUX_15) y el mes de la fecha de inicio de la deducción de hijo (variable NAUX_11)
Fórmula nuevaE39IAG000056NAUX_15SUMA1NAUX_15
Fórmula nuevaE39IAG000057
SALTA
GRABAContinúa en la etiqueta GRABA
Fórmula nuevaE39IAG000058##



Fórmula nuevaE39IAG000059##PROCESA X ALTA



Fórmula nuevaE39IAG000060PROCALTAETIQUETA


Fórmula nuevaE39IAG000061
MUEVENAUX_12NAUX_15Mueve el mes de pago del periodo (variable NAUX_12), a la variable NAUX_15
Fórmula nuevaE39IAG000062NAUX_03SI_MENORNAUX_00GRABASi el año de inicio de la deducción (variable NAUX_03) es menor al año de pago del peridodo periodo (variable NAUX_00), continúa en la etiqueta GRABA
Fórmula nuevaE39IAG000063NAUX_12RESTANAUX_11NAUX_15Hace la diferencia entre el mes pago del periodo (variable NAUX_12) y el mes de la fecha de inicio de la deducción de hijo (variable NAUX_11) y lo guarda en la variable NAUX_15
Fórmula nuevaE39IAG000064NAUX_15SUMA1NAUX_15
Fórmula nuevaE39IAG000065##



Fórmula nuevaE39IAG000066##GRABA CONCEPTO



Fórmula nuevaE39IAG000067GRABAETIQUETA


Fórmula nuevaE39IAG000068TIPODEDUCSI_IGUAL"2"PORC_HIJOSi el tipo de dependiente es "2-Hijo 50%" entonces va a la etiqueta PORC_HIJO
Fórmula nuevaE39IAG000069
MUEVE1NAUX_18Si no, asigna 1 a la variable NAUX_18 (multiplicador de porcentaje)
Fórmula nuevaE39IAG000070
SALTA
CONTINUA_CALCSalta hasta la etiqueta CONTINUA_CALC
Fórmula nuevaE39IAG000071PORC_HIJOETIQUETA


Fórmula nuevaE39IAG000072
MUEVE0.5NAUX_18Si el tipo de dependiente es "2-Hijo 50%" entonces asigna 0.5 a la variable NAUX_18
Fórmula nuevaE39IAG000073 ##



Fórmula nuevaE39IAG000074CONTINUA_CALCETIQUETA


Fórmula nuevaE39IAG000075
MUEVENAUX_15NAUX_16Mueve la variable NAUX_15 a la variable NAUX_16
Fórmula nuevaE39IAG000076NAUX_16MULTIPLICANAUX_17NAUX_17Multiplica la cantidad de hijos (variable NAUX_16) por el valor de la deduccion proporcioal deducción proporcional (variable NAUX_17)
Fórmula nuevaE39IAG000077NAUX_17MULTIPLICANAUX_18NAUX_17Multiplica la variable NAUX_17 (valor proporcional de la deducción de hijo obtenida) por la variable NAUX_18 (porcentaje que le corresponde por hijo al empleado) y guarda el resutado resuLtado en la variable NAUX_17
Fórmula nuevaE39IAG000078IMPORTESI_MAYOR0AGREGA_NOVSi se colocó el importe por incidencia, salta a la etiqueta AGREGA_NOV
Fórmula nuevaE39IAG000079
MUEVENAUX_16UNIDADESSino, mueve la cantidad de meses liquidados en hijos a UNIDADES y el monto calculado a IMPORTE
Fórmula nuevaE39IAG000080
MUEVENAUX_17IMPORTE
Fórmula nuevaE39IAG000081
SALTA
NEXTSalta a etiqueta NEXT
Fórmula nuevaE39IAG000082##



Fórmula nuevaE39IAG000083AGREGA_NOVETIQUETA


Fórmula nuevaE39IAG000084IMPORTESUMANAUX_17IMPORTESuma al IMPORTE calculado la novedad cargada en monto
Fórmula nuevaE39IAG000085UNIDADESSUMANAUX_16UNIDADESSuma a las UNIDADES calculada la novedad cargada en cantidad
Fórmula nuevaE39IAG000086##



Fórmula nuevaE39IAG000087NEXTETIQUETA


Fórmula nuevaE39IAG000088
SIG_DEP

Continúa en con el próximo dependiente
Fórmula nuevaE39IAG000089##



Fórmula nuevaE39IAG000090FINALETIQUETA


Fórmula nuevaE39IAG000091#TRACE_OFF


...

Operación

Fórmula

Secuencia

1a Expresión

Op. 1

2a Expresión

Resultado

Interpretación

Fórmula NuevaE40IAG000001#TRACE_ON


Fórmula NuevaE40IAG000002NOCALCULASI_IGUAL1FINAL
Fórmula NuevaE40IAG000003IAGNOPROCSI_IGUAL2FINALSi tiene el mnemónico en IAGNOPROC = 2, entonces no calcula esta deducción
Fórmula NuevaE40IAG000004
MUEVE0NAUX_01Mueve cero a la variable NAUX_01, para inicializarla
Fórmula NuevaE40IAG000005
MESFECHAPAGONAUX_04Asigna el mes de pago a la variable NAUX_04
Fórmula NuevaE40IAG000006
LEE_DEP

Lee la tabla SRB (Dependientes)
Fórmula NuevaE40IAG000007NAUX_01SI_MAYOR0CONTINUA_CALCSi ya acumuló meses de un Hijo Discapacitado, entonces continúa el cálculo
Fórmula NuevaE40IAG000008PARENTESCOSI_DIFERENTE'D'FINALSi el mnemónico PARENTESCO <> 'D' (campo RB_GRAUPAR <> 'D' - Hijo Discapacitado) finaliza el cálculo
Fórmula NuevaE40IAG000009NAUX_01SUMANAUX_04NAUX_01Suma la cantidad de meses correspondiente a la fecha de pago (variable NAUX_04) a la variable NAUX_01
Fórmula NuevaE40IAG000010CONT_02ETIQUETA


Fórmula NuevaE40IAG000011
SIG_DEP

Continúa el ciclo con el próximo dependiente
Fórmula NuevaE40IAG000012CONTINUA_CALCETIQUETA


Fórmula NuevaE40IAG000013
MUEVENAUX_01UNIDADESMueve la variable NAUX_01 a UNIDADES
Fórmula NuevaE40IAG000014##VALOR HIJO INCAPPOR MES


Fórmula NuevaE40IAG000015
BUSCATABLA_S050
Busca en la tabla S050 (Topes Deducciones IAG) el valor de la deducción indicada según el campo RV_COD1357 - Cod F1357)
Fórmula NuevaE40IAG000016ELEMENTO_01HASTA_MENORIGUALANOMESPROC
Fórmula NuevaE40IAG000017ELEMENTO_02HASTA_MAYORIGUALANOMESPROC
Fórmula NuevaE40IAG000018ELEMENTO_03HASTA_IGUALSRVCOD1357
Fórmula NuevaE40IAG000019
MUEVEELEMENTO_05IAGHIJODIS
Fórmula NuevaE40IAG000020IAGHIJODISDIVIDE12IAGHIJODISDivide el tope con valor anual por 12 para mensualizarlo
Fórmula NuevaE40IAG000021##PORCENTAJE DEDUCCION



Fórmula NuevaE40IAG000022TIPODEDUCSI_IGUAL"2"PORC_DEDSi el tipo de dependiente es "2-Hijo 50%" entonces va a la etiqueta PORC_DED
Fórmula NuevaE40IAG000023
MUEVE1NAUX_03Si no, asigna 1 a la variable NAUX_03 (multiplicador de porcentaje)
Fórmula NuevaE40IAG000024
SALTA
GRABA_HIJOContinúa en la etiqueta GRABA_HIJO
Fórmula NuevaE40IAG000025PORC_DEDETIQUETA


Fórmula NuevaE40IAG000026
MUEVE0.5NAUX_03Si el tipo de dependiente es "2-Hijo 50%" entonces asigna 0.5 a la variable NAUX_03, para reducir al 50% la deducción
Fórmula NuevaE40IAG000027##CONTINUA LASVALIDACIONES


Fórmula NuevaE40IAG000028GRABA_HIJOETIQUETA


Fórmula NuevaE40IAG000029IAGHIJODISMULTIPLICANAUX_01NAUX_02Multiplica la cantidad de meses que corresponde (variable NAUX_01) por el tope de deducción mensual por hijo discapacitado (mnemónico IAGHIJODIS) y lo almacena en la variable NAUX_02
Fórmula NuevaE40IAG000030NAUX_02MULTIPLICANAUX_03NAUX_02Multiplica la variable NAUX_02 (valor proporcional de la deducción de hijo obtenida) por el mnemónico EMPPORDEP la variable NAUX_03 (porcentaje que le corresponde por hijo al empleado) y guarda el resutado resultado en la variable NAUX_02
Fórmula NuevaE40IAG000031
MUEVENAUX_02IMPORTEMueve la variable NAUX_01 02 a IMPORTE
Fórmula NuevaE40IAG000032FINALETIQUETA


Fórmula NuevaE40IAG000033#TRACE_OFF 


...