Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 44

changes.mady.by.user Carolina Andrea Kossoy

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Carolina Andrea Kossoy

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

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 (porcentaje que le corresponde por hijo al empleado) y guarda el resutado en la variable NAUX_02
Fórmula NuevaE40IAG000031
MUEVENAUX_02IMPORTEMueve la variable NAUX_01 a IMPORTE
Fórmula NuevaE40IAG000032FINALETIQUETA


Fórmula NuevaE40IAG000033#TRACE_OFF 

Se modifican las siguientes fórmulas 





  • 953IAG E36IAG - I.A.G. Deducción Especial:
en () el valor de la deducción indicada según el campo RV_COD1357 - Cod F1357)

Operación

Fórmula

Secuencia

1a Expresión

Op. 1

2a Expresión

Resultado

Interpretación

Se modificaFórmula nueva953IAGE36IAG000001#TRACE_ON


Sin cambiosFórmula nueva953IAGE36IAG000002NOCALCULASI_IGUAL1FINALSin cambios
Fórmula nueva953IAGE36IAG000003IAGNOPROCSI_IGUAL2FINALSi el mnemónico IAGNOPROC es igual a 2, sale del cálculo
Fórmula nuevaE36IAGSin cambios953IAG000004
MUEVEMESMESPROCESORCHFECGANNAUX_00Si es un procedimiento diferente de RES, mueve el mnemónico MESPROCESO (Extrae el mes de la fecha de pago) a Ganancias (RV_FCHGAN, mnemónico RCHFECGAN) y lo almacena en la variable NAUX_00
Sin cambiosFórmula nueva953IAGE36IAG000005##Sin cambios



Fórmula nueva953IAGE36IAG000006PERTIPONOMSI_DIFERENTE'RES'CALC_TOPESi el tipo de procedimiento es diferente a 'RES', termina el calculo y si es procedimiento 'RES', mueve 12 a la variable NAUX_00, sino continúa en la etiqueta CALC_TOPEya que en caso de desvinculación del empleado, debe considerarse como si fuese Diciembre la deducción
Fórmula nuevaE36IAGSin cambios953IAG000007
MUEVE12NAUX_00
Sin cambiosFórmula nueva953IAGE36IAG000008##Sin cambios



Fórmula nueva953IAGE36IAG000009CALC_TOPEETIQUETASe agrega


Fórmula nueva953IAGE36IAG000010
BUSCATABLA_S050
Busca la tabla S050 - Topes Deducciones IAG
Fórmula nuevaE36IAGSe agrega953IAG000011ELEMENTO_01HASTA_MENORIGUALANOMESPROC
Valida año y mes de inicio y fin
Fórmula nuevaE36IAGSe agrega953IAG000012ELEMENTO_02HASTA_MAYORIGUALANOMESPROCSe agrega
Fórmula nueva953IAGE36IAG000013ELEMENTO_03HASTA_IGUALSRVCOD1357
Compara el campo RV_COD1357 del presente concepto y se posiciona en el registro
Fórmula nuevaE36IAGSe agrega953IAG000014
MUEVEELEMENTO_05IAGDEDESPMueve el tope de la Deducción Especial
Fórmula nuevaE36IAGSe agrega953IAG000015IAGDEDESPDIVIDE12IAGDEDESPDivide entre 12 el tope con valor anual por 12 para mensualizarlo
Sin cambiosFórmula nueva953IAGE36IAG000016IAGDEDESPMULTIPLICANAUX_00IAGDEDESPMultiplica el tope con mensualizado por la cantidad de meses que corresponda según los procedimientos mencionados en las líneas 000005 a 000008mensual por el mes extraido de Ganancias
Fórmula nuevaE36IAGSin cambios953IAG000017
MUEVEIAGDEDESPIMPORTEMueve el tope de la Deducción Especial (mnemónico IAGDEDESP) a la variable IMPORTE
Sin cambiosFórmula nueva953IAGE36IAG000018FINALETIQUETASe agrega


Fórmula nueva953IAGE36IAG000019#TRACE_OFF



  • 954IAG E37IAG -   I.A.G. Mínimo No Imponible:
en () el valor de la deducción indicada según el campo RV_COD1357 - Cod F1357)

Operación

Fórmula

Secuencia

1a Expresión

Op. 1

2a Expresión

Resultado

Interpretación

Se modificaFórmula nueva954IAGE37IAG000001#TRACE_ON


Sin cambiosFórmula nueva954IAGE37IAG000002NOCALCULASI_IGUAL1FINALSin cambios
Fórmula nueva954IAGE37IAG000003IAGNOPROCSI_IGUAL2FINALSi tiene el mnemónico en IAGNOPROC = es igual a 2, entonces no calcula esta deducciónsale del cálculo
Fórmula nuevaE37IAGSin cambios954IAG000004
MUEVEMESMESPROCESORCHFECGANNAUX_00Si es un procedimiento diferente de RES, mueve el mnemónico MESPROCESO (Extrae el mes de la fecha de pago) a Ganancias (RV_FCHGAN, mnemónico RCHFECGAN) y lo almacena en la variable NAUX_00
Sin cambiosFórmula nueva954IAGE37IAG000005##Sin cambios



Fórmula nueva954IAGE37IAG000006PERTIPONOMSI_DIFERENTE'RES'CALC_TOPESi el tipo de procedimiento es diferente a 'RES', termina el calculo y si es procedimiento 'RES', mueve 12 a la variable NAUX_00, sino continúa en la etiqueta CALC_TOPEya que en caso de desvinculación del empleado, debe considerarse como si fuese Diciembre la deducción
Fórmula nuevaE37IAGSin cambios954IAG000007
MUEVE12NAUX_00
Sin cambiosFórmula nueva954IAGE37IAG000008##Sin cambios



Fórmula nueva954IAGE37IAG000009CALC_TOPEETIQUETASe agrega


Fórmula nueva954IAGE37IAG000010
BUSCATABLA_S050
Busca la tabla S050 - Topes Deducciones IAG
Fórmula nuevaE37IAGSe agrega954IAG000011ELEMENTO_01HASTA_MENORIGUALANOMESPROC
Valida año y mes de inicio y fin
Fórmula nuevaE37IAGSe agrega954IAG000012ELEMENTO_02HASTA_MAYORIGUALANOMESPROCSe agrega
Fórmula nueva954IAGE37IAG000013ELEMENTO_03HASTA_IGUALSRVCOD1357HASTA_IGUALSRVCOD1357
Compara el campo RV_COD1357 del presente concepto y se posiciona en el registro
Fórmula nuevaE37IAGSe agrega954IAG000014
MUEVEELEMENTO_05IAGMINIMPMueve el tope del Mínimo no Imponible
Fórmula nuevaE37IAGSe agrega954IAG000015IAGMINIMPDIVIDE12IAGMINIMPDivide entre 12 el tope con valor anual por 12 para mensualizarlo
Sin cambiosFórmula nueva954IAGE37IAG000016IAGMINIMPMULTIPLICANAUX_00IAGMINIMPMultiplica el tope con mensualizado por la cantidad de meses que corresponda según los procedimientos mencionados en las líneas 000005 a 000008mensual por el mes extraido de Ganancias
Fórmula nuevaE37IAGSin cambios954IAG000017
MUEVEIAGMINIMPIMPORTEMueve el tope del Mínimo no Imponible (mnemónico IAGMINIMP) a la variable IMPORTE
Sin cambiosFórmula nueva954IAGE37IAG000018FINALETIQUETASe agrega


Fórmula nueva954IAGE37IAG000019#TRACE_OFF



  • 955IAG E38IAG - I.A.G. Deducción Cónyuge Acum:

Operación

Fórmula

Secuencia

1a Expresión

Op. 1

2a Expresión

Resultado

Interpretación

Se agregaFórmula nueva955IAGE38IAG000001#TRACE_ON


Sin cambiosFórmula nueva955IAGE38IAG000002NOCALCULASI_IGUAL1FINAL
Sin cambiosFórmula nueva955IAGE38IAG000003IAGNOPROCSI_IGUAL2FINALSi tiene el mnemónico en IAGNOPROC = 2, entonces no calcula esta deducción
Sin cambiosFórmula nueva955IAGE38IAG000004
LEE_DEP

Lee los dependientes con parentesco CONYUGE ("C"), sino continúa con la etiqueta NEXT
Sin cambiosFórmula nueva955IAGE38IAG000005PARENTESCOSI_DIFERENTE'C'NEXTSe modifica
Fórmula nueva955IAGE38IAG000006## DESGLOSO FECHA DE PAGOSe corrige título



Fórmula nuevaE38IAGSin cambios955IAG000007
ANOFECHAPAGONAUX_00Extrae el año de la fecha de pago
Sin cambiosFórmula nueva955IAGE38IAG000008
MESFECHAPAGONAUX_12Extrae el mes de la fecha de pago
Se modificaFórmula nueva955IAGE38IAG000009##DESGLOSO FECHA BAJASe corrige título



Fórmula nuevaE38IAGSin cambios955IAG000010
ANOFECBAJDEDNAUX_01Extrae el año de la fecha de baja de la deducción (mnemónico FECBAJDED: campo RB_DTBAIXA de la tabla de Dependientes SRB)
Sin cambiosFórmula nueva955IAGE38IAG000011
MESFECBAJDEDNAUX_10Extrae el mes de la fecha de baja de la deducción (mnemónico FECBAJDED: campo RB_DTBAIXA de la tabla de Dependientes SRB)
Se modificaFórmula nueva955IAGE38IAG000012##DESGLOSO FECHA INICIOSe corrige título



Fórmula nuevaE38IAGSin cambios955IAG000013
ANOFECINIDEDNAUX_03Extrae el año de la fecha de baja de la deducción (mnemónico FECBAJDED: campo RB_DATAINI de la tabla de Dependientes SRB)
Sin cambiosFórmula nueva955IAGE38IAG000014
MESFECINIDEDNAUX_11Extrae el mes de la fecha de baja de la deducción (mnemónico FECINIDED: campo RB_DATAINI de la tabla de Dependientes SRB)
Se agregaFórmula nueva955IAGE38IAG000015##VALOR TOPE MENSUALCONYUGESe agrega


Fórmula nueva955IAGE38IAG000016
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)
Se agregaFórmula nueva955IAGE38IAG000017ELEMENTO_01HASTA_MENORIGUALANOMESPROCSe agrega
Fórmula nueva955IAGE38IAG000018ELEMENTO_02HASTA_MAYORIGUALANOMESPROCSe agrega
Fórmula nueva955IAGE38IAG000019ELEMENTO_03HASTA_IGUALSRVCOD1357Se agrega
Fórmula nueva955IAGE38IAG000020
MUEVEELEMENTO_05IAGDEDCONSe agrega
Fórmula nueva955IAGE38IAG000021IAGDEDCONDIVIDE12IAGDEDCONDivide el tope con valor anual por 12 para mensualizarlo
Sin cambiosFórmula nueva955IAGE38IAG000022##CONTINUA CON LASVALIDACIONESSin cambios


Fórmula nueva955IAGE38IAG000023
MUEVEIAGDEDCONNAUX_17Mueve el valor del mnemónico IAGDEDCON a la variable NAUX_17
Sin cambiosFórmula nueva955IAGE38IAG000024FECINIDEDSI_MAYORFECHAPAGONEXTValida si la fecha de inicio de la deducción (mnemónico FECINIDED) es mayor a la fecha de pago (mnemónico FECHAPAGO), sigue en la etiqueta NEXT
Sin cambiosFórmula nueva955IAGE38IAG000025FECBAJDEDSI_IGUALVACIOPROCALTASi la fecha de baja de la deducción (mnemónico FECBAJDED) no tiene valor, continúa en la etiqueta PROCALTA
Sin cambiosFórmula nueva955IAGE38IAG000026## ANO BAJA <  ANO PAGO



Sin cambiosFórmula nueva955IAGE38IAG000027NAUX_01SI_MENORNAUX_00NEXTSi el año de fecha de baja (variable NAUX_01) es menor al año de fecha de pago (variable NAUX_00), sigue en la etiqueta NEXT
Sin cambiosFórmula nueva955IAGE38IAG000028##ANO BAJA = ANO PAGO



Sin cambiosFórmula nueva955IAGE38IAG000029NAUX_00SI_IGUALNAUX_01PROCBAJASi el año de fecha de baja (variable NAUX_01) es igual al año de fecha de pago (variable NAUX_00), sigue en la etiqueta PROCBAJA
Sin cambiosFórmula nueva955IAGE38IAG000030## PROCESA X BAJA



Sin cambiosFórmula nueva955IAGE38IAG000031PROCBAJAETIQUETASin cambios


Fórmula nueva955IAGE38IAG000032
MUEVENAUX_10NAUX_15Mueve el mes de la fecha de baja (variable NAUX_10) a la variable NAUX_15
Sin cambiosFórmula nueva955IAGE38IAG000033NAUX_01SI_MAYORNAUX_03GRABASi el año de fecha de baja (variable NAUX_01) es mayor al año de fecha de baja (variable NAUX_03), sigue en la etiqueta GRABA
Sin cambiosFórmula nueva955IAGE38IAG000034NAUX_10RESTANAUX_11NAUX_15Se realiza la diferencia entre el mes de la fecha de baja (variable NAUX_10) y mes de la fecha de inicio de la deducción (variable NAUX_11) y guarda el resultado en la variable NAUX_15
Sin cambiosFórmula nueva955IAGE38IAG000035NAUX_15SUMA1NAUX_15
Sin cambiosFórmula nueva955IAGE38IAG000036
SALTA
GRABASalta a la etiqueta GRABA
Fórmula nuevaE38IAGSin cambios955IAG000037##PROCESA ALTA



Sin cambiosFórmula nueva955IAGE38IAG000038PROCALTAETIQUETASin cambios


Fórmula nueva955IAGE38IAG000039
MUEVENAUX_12NAUX_15Mueve el mes de la fecha de pago (variable NAUX_12) a la variable NAUX_15
Sin cambiosFórmula nueva955IAGE38IAG000040NAUX_03SI_MENORNAUX_00GRABASi el año de fecha de baja de la deducción (variable NAUX_03) es menor al año de fecha de pago (variable NAUX_00), sigue en la etiqueta GRABA
Sin cambiosFórmula nueva955IAGE38IAG000041NAUX_12RESTANAUX_11NAUX_15Se realiza la diferencia entre el mes de la fecha de pago (variable NAUX_12) y mes de la fecha de inicio de la deducción (variable NAUX_11) y guarda el resultado en la variable NAUX_15
Sin cambiosFórmula nueva955IAGE38IAG000042NAUX_15SUMA1NAUX_15
Sin cambiosFórmula nueva955IAGE38IAG000043
SALTA
GRABASalta a la etiqueta GRABA
Fórmula nuevaE38IAGSin cambios955IAG000044## GRABA CONCEPTO



Sin cambiosFórmula nueva955IAGE38IAG000045GRABAETIQUETASin cambios


Fórmula nueva955IAGE38IAG000046
MUEVENAUX_15NAUX_16Mueve el valor de la variable NAUX_15 a la variable NAUX_16
Sin cambiosFórmula nueva955IAGE38IAG000047NAUX_16MULTIPLICANAUX_17NAUX_17Obtiene el valor de la deducción proporcionada al mes de pago o al mes de baja, si es anterior
Fórmula nuevaE38IAG000048Se elimina955IAGIMPORTESI_MAYOR0GRABA2No procede porque no se cargó la incidencia anteriormente
Sin cambiosFórmula nueva955IAGE38IAG000048000049
MUEVENAUX_16UNIDADESMueve la cantidad de meses pagados a UNIDADES
Sin cambiosFórmula nueva955IAGE38IAG000049000050
MUEVENAUX_17IMPORTEMueve el monto de la deducción calculada a IMPORTE
Fórmula nuevaE38IAG000051Se elimina955IAG
SALTA
NEXTNo aplicaSe elimina
Fórmula nuevaE38IAG000052955IAG##



Fórmula nuevaE38IAG000053No aplicaSe elimina955IAGGRABA2ETIQUETANo aplica


Fórmula nuevaE38IAG000054Se elimina955IAGIMPORTESUMANAUX_17IMPORTENo aplicaSe elimina
Fórmula nuevaE38IAG000055955IAGUNIDADESSUMANAUX_16UNIDADESNo aplica
Fórmula nuevaE38IAG000056##



Fórmula nuevaE38IAG000057Sin cambios955IAG000050##Sin cambios955IAG000051NEXTETIQUETASin cambios


Fórmula nueva955IAGE38IAG000052000058
SIG_DEP

Continúa el ciclo con el próximo dependiente
Sin cambiosFórmula nueva955IAGE38IAG000053000059FINALETIQUETASe agrega


Fórmula nueva955IAGE38IAG000054000060#TRACE_OFF


Mnemónicos

  • Se crean los siguientes mnemónicos:

...