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