Quitar Fondo de Ahorro

Esquema &XB2

Quitar comentario a regla Z210 

BLOCK        BEG                                        Procesamiento de beneficios
* P0170     CHK                                        Procesar cuentas de ahorros
 IF                             OCAT          05          Proceso de Finiquitos
 ELSE                                                             Evita descuento de Fondo de Ahorro
 P0169        FRST                                       Procesar planes de ahorro
 ENDIF                                                          Fin Finiquitos
 P0377       FRST          2                          Procesar otros planes (llamada 2)
 P0379       BEG                                          Procesar planes de adquisición acciones
* P0236     BEG            2                           Procesar planes de crédito
* MXLFA   ZM    FOAH         BEG         Limitar contribuciones Fondo de Ahorro
 ZXLFA      ZM     FOAH        BEG          Limitar contribuciones Fondo de Ahorro
 MXLVD    ZM     VALE         BEG          Limitar contribuciones Vale de Despensa
* PIT          Z210                      NOAB                        Elimina fondo de ahorro

Z210 Elimina 2035                        
  " *                                    
    " 2001                               
        ELIMI *    Elimin.ind.período    
        NUM=  /318 Fijar                 
      " NUM?15     Comparación           
          *                              
        " <                              
            ADDWT *    Tabla de output OT

* IF                         CORR         TERM       0713      Nueva Terminación?
* P0713   FA01                                     Procesa FOAH actuak en Terminación CPM
* ELSE     
 P0654     FA01                                                 Procesa FOAH actual en terminación
* ENDIF     
 BLOCK    END                                                                     Procesamiento de beneficios

Quitar Infonavit

Esquema ZXIN

Quitar comentario (*) /381

 COM                                                    Subesquema créditos INFONAVIT/FONACOT
 COM                                                                       *---------------------------------------
 BLOCK   BEG                                             Cálculo deducciones crédito INFO/FONA
* IF                         O                                              IF periodo actual
 IMPRT                  L                                              Importar último resultado
 IF                            SPRN                                     IF ejecución extraordinaria
 PORT     MXFI    GEN     NOAB                      Copia CC-nóminas relevantes a RT
 ELSE                                                                      ELSE
 P0370                                                        Cálculo deducciones crédito INFO/FONA
* PIT      /381                    NOAB                   Elimina /381 cuando hay incapacidad

/381 Elimina /381                        
  " *                                    
    " /381 Apor. crédito INFONAVIT       
        ELIMI *    Elimin.ind.período    
        NUM=  /318 Fijar                  
      --NUM?15     Comparación           
              *                              
           " <                              
                 ADDWT *    Tabla de output OT 

 PIT        MXFG     GEN    NOAB             Grabar nóminas infonavit/fonacot en RT
 PRINT  NP           RT                                 Imprime tabla de resultados
 ENDIF                                                         ENDIF ejecución extraordinaria
* ENDIF                                                      ENDIF
 BLOCK END                                              Cálculo deducciones crédito INFO/FONA

Quitar IMSS

Esquema &XSI

Se quita el comentario (*) a la regla &021

BLOCK BEG                                          Cálculo de Seguridad Social
COM                                                        Bases y contribuciones IMSS México
PRT       MXS1       P62     NOAB      Preparar calcul. SDI /36*
9LRET MSI                                          Retrocálculo
MXSI                                                     Calcula bases y contribuciones IMSS
IF                             SPRN                    IF ejecución extraordinaria
ELSE                                                      ELSE Ejecución ordinaria
MXIST MXVJ                                     Actualizar SDI
ENDIF                                                   ENDIF ejecución extraordinaria
PIT        &&07                    NOAB     Eliminar IMSS cuando hay absentismos
PIT        &021                     NOAB     Eliminar IMSS

     &021 Eliminar Cuota IMSS con ausentismos
  " *                                   
    " ****                              
        ADDWT *    Tabla de output OT   
    " /391                              
        ZERO= RNA  AmtNumRteZeit = 0    
        ADDWT *    Tabla de output OT   
    " 2100                              
        ZERO= RNA  AmtNumRteZeit = 0    
        ADDWT *    Tabla de output OT    

PIT        MXRP      P65     NOAB     Almacenamiento en RT
BLOCK END                                        Cálculo de Seguridad Social