{
---------------------------------------------------------------------------
 PROGRAMA          : ADMNMT000
 OBJETIVO          : Menu de Mantenimientos del Sistema 
                     de Administracion de Personal
 PROGRAMADOR       : Ing. Betania Guerrero Perez
 FECHA REALIZACION : Mayo 19, 1993 
---------------------------------------------------------------------------
}
DATABASE rayovac
GLOBALS
 DEFINE numero_msg LIKE msgtable.cod_msg,
        bandera SMALLINT
END GLOBALS
MAIN 
DEFER INTERRUPT
CALL admnmt000()
END MAIN

FUNCTION admnmt000()
   CALL opciones_admnmt000()
   END FUNCTION

FUNCTION opciones_admnmt000()
  DEFINE opt CHAR(2)
   DEFINE p_user CHAR(9)
   DEFINE luz CHAR(5)

   CALL opcion_pantalla()

MENU "Mantenimientos:"
     COMMAND "1"
       CALL seg000(1,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt001()
          CALL opcion_pantalla()
       END IF
COMMAND "2"
       CALL seg000(2,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt003()
          CALL opcion_pantalla()
       END IF
COMMAND "3"
       CALL seg000(3,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt004()
          CALL opcion_pantalla()
       END IF
COMMAND "4"
       CALL seg000(4,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt005()
          CALL opcion_pantalla()
       END IF
COMMAND "5"
       CALL seg000(5,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt006()
          CALL opcion_pantalla()
       END IF
COMMAND "6"
       CALL seg000(6,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt007()
          CALL opcion_pantalla()
       END IF
COMMAND "7"
       CALL seg000(7,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt008()
          CALL opcion_pantalla()
       END IF
COMMAND "8"
       CALL seg000(8,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt009()
          CALL opcion_pantalla()
       END IF
COMMAND "9"
       CALL seg000(9,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt010()
          CALL opcion_pantalla()
       END IF
COMMAND "10"
       CALL seg000(10,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  admnmt001()
          CALL opcion_pantalla()
       END IF
COMMAND "11"
       CALL seg000(11,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt016()
          CALL opcion_pantalla()
       END IF
COMMAND "12"
       CALL seg000(12,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt017()
          CALL opcion_pantalla()
       END IF
COMMAND "13"
       CALL seg000(13,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt018()
          CALL opcion_pantalla()
       END IF
COMMAND "14"
       CALL seg000(14,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt019()
          CALL opcion_pantalla()
       END IF
COMMAND "15"
       CALL seg000(15,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt020()
          CALL opcion_pantalla()
       END IF
COMMAND "16"
       CALL seg000(16,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt021()
          CALL opcion_pantalla()
       END IF
COMMAND "17"
       CALL seg000(17,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt022()
          CALL opcion_pantalla()
       END IF
COMMAND "18"
       CALL seg000(18,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt023()
          CALL opcion_pantalla()
       END IF
COMMAND "19"
       CALL seg000(19,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          #RUN "isql -fr vacaciones"
          CALL adprmt027() 
          CALL opcion_pantalla()  
       END IF
COMMAND "20"
       CALL seg000(20,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt025()
          CALL opcion_pantalla()
       END IF
COMMAND "21"
       CALL seg000(21,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt028()
          CALL opcion_pantalla()
       END IF
COMMAND "22"
       CALL seg000(22,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt029()
          CALL opcion_pantalla()
       END IF
COMMAND "23"
       CALL seg000(23,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt030()
          CALL opcion_pantalla()
       END IF
COMMAND "24"
       CALL seg000(24,"admnmt000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprmt031()
          CALL opcion_pantalla()
       END IF

COMMAND "Retornar"
  EXIT MENU
  RETURN
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 "Human Resource System" AT 5,30 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 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

FUNCTION opcion_pantalla()

    OPTIONS
       PROMPT LINE 8,
       ERROR LINE 24
       CLEAR SCREEN
    CALL pantalla()

    DISPLAY "           Mantenimientos          " AT 6,24 ATTRIBUTE(BLACK)
    DISPLAY "admnmt000"                          AT 4,3 ATTRIBUTE(RED)
    DISPLAY " 1- Departamentos            adprmt001"  AT 10,1
    DISPLAY " 2- Puestos                  adprmt003"  AT 11,1
    DISPLAY " 3- Nivel de Educacion       adprmt004"  AT 12,1
    DISPLAY " 4- Pericias                 adprmt005"  AT 13,1
    DISPLAY " 5- Nacionalidades           admnmt006"  AT 14,1
    DISPLAY " 6- Acciones Selec/Contr.    adprmt007"  AT 15,1
    DISPLAY " 7- Movimientos Empleados    adprmt008"  AT 16,1
    DISPLAY " 8- Profesiones              adprmt009"  AT 17,1
    DISPLAY " 9- Requerimiento Personal   adprmt010"  AT 18,1
    DISPLAY "10- Solicitud de Empleo      admnmt001"  AT 19,1
    DISPLAY "11- Proceso Selec/Contr.     adprmt016"  AT 20,1
    DISPLAY "24- Deptos Corporativos      adprmt031"  AT 21,1
    DISPLAY "12- Accion de Personal    adprmt017" AT 10,42
    DISPLAY "13- Registro Informacion  adprmt018" AT 11,42
    DISPLAY "14- Adiestramientos       adprmt019" AT 12,42
    DISPLAY "15- Entr./Sal. Empleados  adprmt020" AT 13,42
    DISPLAY "16- Amonestaciones        adprmt021" AT 14,42
    DISPLAY "17- Act. Maestra Empleado adprmt022" AT 15,42
    DISPLAY "18- Permiso Para Tardanza adprmt023" AT 16,42
    DISPLAY "19- Formulario Vacaciones adprmt027" AT 17,42
    DISPLAY "20- Empleados Temporeros  adprmt025" AT 18,42
    DISPLAY "21- Cedulas               adprmt028" AT 19,42
    DISPLAY "22- Plan de Seg. de Vida  adprmt029" AT 20,42
    DISPLAY "23- Periodo Seg. Social   adprmt030" AT 21,42
    {
    DISPLAY "           Maintenances          " AT 6,24 ATTRIBUTE(BLACK)
    DISPLAY "admnmt000"                          AT 4,3 ATTRIBUTE(RED)
    DISPLAY " 1- Departments              adprmt001"  AT 10,1
    DISPLAY " 2- Positions                adprmt003"  AT 11,1
    DISPLAY " 3- Educational Level        adprmt004"  AT 12,1
    DISPLAY " 4- Skills                   adprmt005"  AT 13,1
    DISPLAY " 5- Nationality              admnmt006"  AT 14,1
    DISPLAY " 6- Selection/Contracting    adprmt007"  AT 15,1
    DISPLAY " 7- Emplyees Status Changes  adprmt008"  AT 16,1
    DISPLAY " 8- Profession               adprmt009"  AT 17,1
    DISPLAY " 9- Personnel Requisition    adprmt010"  AT 18,1
    DISPLAY "10- Job Application          admnmt001"  AT 19,1
    DISPLAY "11- Proccess-Selection/Contr adprmt016"  AT 20,1
    DISPLAY "12- Personnel Contract Form  adprmt017" AT 10,42
    DISPLAY "13- Employees Information    adprmt018" AT 11,42
    DISPLAY "14- Training                 adprmt019" AT 12,42
    DISPLAY "15- In/Out Employees Control adprmt020" AT 13,42
    DISPLAY "16- Admonishments            adprmt021" AT 14,42
    DISPLAY "17- Update Empl. Master Inf  adprmt022" AT 15,42
    DISPLAY "18- Lateness Permission      adprmt023" AT 16,42
    DISPLAY "19- Vacation Forms           adprmt027" AT 17,42
    DISPLAY "20- Temporery Employees      adprmt025" AT 18,42
    DISPLAY "21- New Employees's ID       adprmt028" AT 19,42
}
    # DISPLAY "S- Retorna Menu Anterior                  "  AT 21,28
    #         ATTRIBUTE(BLACK)

END FUNCTION