{
---------------------------------------------------------------------------
 PROGRAMA          : ADMNCS000
 OBJETIVO          : Menu de Consultas del Sistema 
                     de Administracion de Personal
 PROGRAMADOR       : Tadeo A. Ferreras F.
 FECHA REALIZACION : Febrero 2, 1996 
---------------------------------------------------------------------------
}
DATABASE rayovac
GLOBALS "adprgb000.4gl"

MAIN 
DEFER INTERRUPT
CALL admncs000()
END MAIN
FUNCTION admncs000()
   CALL opciones_admncs000()
END FUNCTION

FUNCTION opciones_admncs000()
  DEFINE opt CHAR(2)
   DEFINE p_user CHAR(9)
   DEFINE luz CHAR(5)
         
     CALL opcion_pantalla()

MENU "CONSULTAS:"     
       COMMAND  "1"
           CALL seg000(1,"admncs000") RETURNING luz
           IF luz = "azul" THEN
              CALL adprcs001()
              CALL opcion_pantalla() 
           END IF
       COMMAND "Retornar" 
         EXIT MENU     
      END MENU
END FUNCTION

FUNCTION pantalla() 
   DEFINE fecha CHAR(10),
          hora char(5) 
   LET fecha = today USING "dd/mm/yyyy"  
   LET hora = time
    DISPLAY "R A Y . O . V A C  D O M I N I C A N A,  S. A." AT 4,17
            ATTRIBUTE (REVERSE,BLUE)
    DISPLAY fecha AT 4,68 ATTRIBUTE (RED)
    DISPLAY "Sistema de Administracion de Personal" AT 5,21 ATTRIBUTE(BLACK)
    DISPLAY hora AT 6,73 ATTRIBUTE(RED)

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

FUNCTION opcion_pantalla()

    OPTIONS
       PROMPT LINE 8,
       ERROR LINE 24
       CLEAR SCREEN

    CALL pantalla()
    DISPLAY "             Consultas          " AT 6,24 ATTRIBUTE(BLACK)
    DISPLAY "admncs000"                          AT 4,3 ATTRIBUTE(RED)
    DISPLAY " 1- Calculo de Liquidacion   adprcs001"  AT 10,1
   # DISPLAY "S- Retorna Menu Anterior  "  AT 20,1
           #  ATTRIBUTE(BLACK)

END FUNCTION