MBS/PROYECTO/nodir/nomnrp000.4gl

{
-------------------------------------------------------------------------------
 PROGRAMA          : NOMNRP000
 OBJETIVO          : Menu de Reportes del Sistema de Nomina.
 PROGRAMADOR       : Tadeo A. Ferreras 
 FECHA REALIZACION : Agosto 25, 1993.      
-------------------------------------------------------------------------------
}

GLOBALS "noprgb000.4gl"
MAIN
 DEFER INTERRUPT
 SELECT * INTO p_companias.* FROM companias
 CALL pantalla()
 CALL nomnrp000()
END MAIN

FUNCTION nomnrp000() 
   DEFINE p_user CHAR(9)
   DEFINE luz CHAR(5)

OPTIONS
   PROMPT LINE 8
   CLEAR SCREEN 
   CALL pantalla()
   LET formulario = "/users/rova/sysinfo/forms/nodir/" CLIPPED

    DISPLAY "Reportes" AT 6,36
    DISPLAY "nomnrp000"                          AT 4,3 ATTRIBUTE(blue)

    DISPLAY " 1-Nomina de Pago              noprrp001" AT 10,1 
    DISPLAY " 2-Relacion Cheques Nomina     noprrp003" AT 11,1 
    DISPLAY " 3-Catalogo de Movimientos     noprrp004" AT 12,1 
    DISPLAY " 4-Resumen de la Nomina        noprrp006" AT 13,1 
    DISPLAY " 5-Resumen Horas Extras X Mes  noprrp007" AT 14,1 
    DISPLAY " 6-Generacion Volantes         noprrp008" AT 15,1 
    DISPLAY " 7-Movimientos de Empleados    noprrp009" AT 16,1 
    DISPLAY " 8-Pago INFOTEP                noprrp010" AT 17,1 
    DISPLAY " 9-Horas Extras Por Empleados  noprrp011" AT 18,1 
    DISPLAY "10-Seguro Social (IDSS)        noprrp012" AT 19,1  
    DISPLAY "11-Movimientos Fijos Emp.      noprrp020" AT 20,1 
    DISPLAY "12-Impuesto S/Renta IR-4       noprrp013" AT 21,1 
    DISPLAY "13-Impuesto S/Renta IR-13      noprrp014" AT 22,1

    DISPLAY "14-Prestamos Cooperativa   noprrp015" AT 10,42 
    DISPLAY "15-Liquidacion Empleados   noprrp035" AT 11,42 
    DISPLAY "16-Acumulados Por Empleado noprrp024" AT 12,42 
    DISPLAY "17-H.Extras-Normal X Empl. noprrp026" AT 13,42 
    DISPLAY "18-Formulario DGT3         noprrp035" AT 14,42 
    DISPLAY "19-Menu Historico          nomnrp001" AT 15,42 
    DISPLAY "20-Submenu-nomina          nomnrp002" AT 16,42 
    DISPLAY "21-Pago TSS                noprmt026" AT 16,42
    DISPLAY "S- Retorna Menu Anterior"  AT 23,28 ATTRIBUTE(blue)

LABEL vuelve:
    PROMPT "OPCION: " attribute(blue) FOR OPT
    LET opt = UPSHIFT(opt) clipped
 
       IF opt != "S" THEN
           SELECT unique usuario INTO p_user FROM seg0001
           WHERE usuario = user
           CALL seg000(p_user,opt,"nomnrp000") RETURNING luz
{           IF luz = "roja" THEN
              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
              GOTO vuelve
           END IF
}
       END IF
 
    CASE
       WHEN OPT =  "1"           
           CALL noprrp001()
           CLEAR SCREEN
           CALL nomnrp000()
       WHEN OPT =  "2" 
           CALL noprrp003()
           CLEAR SCREEN
           CALL nomnrp000()
       WHEN OPT =  "3" 
           CALL noprrp004()
           CLEAR SCREEN
           CALL nomnrp000()
       WHEN OPT =  "4" 
           CALL noprrp006()
           CLEAR SCREEN
           CALL nomnrp000()
       WHEN OPT =  "5" 
           CALL noprrp007()
           CLEAR SCREEN
           CALL nomnrp000()
       WHEN OPT =  "6" 
           CALL noprrp008()
           CLEAR SCREEN
           CALL nomnrp000()
       WHEN OPT =  "7" 
           CALL noprrp009()
           CLEAR SCREEN
           CALL nomnrp000()
       WHEN OPT =  "8" 
           CALL noprrp010()
           CLEAR SCREEN
           CALL nomnrp000()
       WHEN OPT =  "9" 
           CALL noprrp011()
           CLEAR SCREEN
           CALL nomnrp000()
       WHEN OPT =  "10" 
           CALL noprrp012()
           CLEAR SCREEN
           CALL nomnrp000()
       WHEN OPT =  "11" 
           CALL noprrp020()
           CLEAR SCREEN
           CALL nomnrp000()
       WHEN OPT =  "12" 
           CALL noprrp013()
           CLEAR SCREEN
           CALL nomnrp000()
       WHEN OPT =  "13" 
           CALL noprrp014()
           CLEAR SCREEN
           CALL nomnrp000()
       WHEN OPT =  "14" 
           CALL noprrp015()
           CLEAR SCREEN
           CALL nomnrp000()
       WHEN OPT =  "15" 
           RUN "fglrun %FGLPROG%\\noprrp037"
           CLEAR SCREEN
           CALL nomnrp000()
       WHEN OPT =  "16" 
           CALL noprrp024()
           CLEAR SCREEN
           CALL nomnrp000()
       WHEN OPT =  "17" 
           CALL noprrp026()
           CLEAR SCREEN
           CALL nomnrp000()
       WHEN OPT =  "18" 
           CALL noprrp035()
           CLEAR SCREEN
           CALL nomnrp000()
       WHEN OPT =  "19" 
           CALL nomnrp001()
           CLEAR SCREEN
           CALL nomnrp000()
       WHEN OPT =  "20" 
           CALL nomnrp002()
           CLEAR SCREEN
           CALL nomnrp000()
       WHEN OPT =  "21" 
           RUN "fglrun %FGLPROG%\\noprmt026"
           CLEAR SCREEN
           CALL nomnrp000()

       WHEN OPT = "S" or OPT = "s"
          CLEAR SCREEN
          RETURN
     OTHERWISE 
          CALL nomnrp000()
     END CASE

END FUNCTION

FUNCTION pantalla() 
   DEFINE fecha CHAR(8),
          hora char(5) 
   LET fecha = today USING "dd/mm/yy"  
   LET hora = time
    SELECT * INTO p_companias.*
    FROM companias
    LET l = (80 - LENGTH(p_companias.nombre CLIPPED))/2
    DISPLAY p_companias.nombre CLIPPED AT 4,l
            ATTRIBUTE (REVERSE,blue)
    DISPLAY fecha AT 4,70 ATTRIBUTE (blue)
    DISPLAY "Sistema de Nomina" AT 5,31
    DISPLAY hora AT 6,73 ATTRIBUTE(blue)

    CALL fgl_drawbox(5,79,3,1)
    #CALL fgl_drawbox(1,79,22,1)
END FUNCTION  
FUNCTION second_scr()

    CALL fgl_drawbox(8,79,22,1)
#   CALL fgl_drawbox(5,79,3,1)
END FUNCTION
FUNCTION integridad()
         IF sqlca.sqlcode < 0 THEN
             LET numero_msg = sqlca.sqlcode
             CALL msg(numero_msg)
              DISPLAY numero_msg AT 23,70
            LET bandera = 1    
            SLEEP 2
            RETURN
        END IF
END FUNCTION