{
-------------------------------------------------------------------------------
 PROGRAMA          : ADMNRP000
 OBJETIVO          : Menu de Reportes del Sistema de
                     Administracion de Personal 
 PROGRAMADOR       : Ing. Betania Guerrero Perez
 FECHA REALIZACION : Junio 24, 1993.      
-------------------------------------------------------------------------------


DATABASE rayovac
GLOBALS 
  DEFINE numero_msg LIKE msgtable.cod_msg,
         bandera SMALLINT,   
         k_num_emp SMALLINT,
         opt CHAR(2)
END GLOBALS
}
GLOBALS "adprgb000.4gl"
  DEFINE numero_msg LIKE msgtable.cod_msg,
         bandera SMALLINT,   
         k_num_emp SMALLINT,
         opt CHAR(2)

MAIN 
DEFER INTERRUPT
CALL admnrp000()
END MAIN

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

    CALL opcion_pantalla()

MENU "Reportes:"
     COMMAND "1"
       CALL seg000(1,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp001()
          CALL opcion_pantalla()
       END IF
COMMAND "2"
       CALL seg000(2,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          #CALL  adprrp002()
          CALL opcion_pantalla()
       END IF
COMMAND "3"
       CALL seg000(3,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          #CALL  adprrp003()
          CALL opcion_pantalla()
       END IF
COMMAND "4"
       CALL seg000(4,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          #CALL  adprrp004()
          CALL opcion_pantalla()
       END IF
COMMAND "5"
       CALL seg000(5,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          #CALL  adprrp005()
          CALL opcion_pantalla()
       END IF
COMMAND "6"
       CALL seg000(6,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          #CALL  adprrp006()
          CALL opcion_pantalla()
       END IF

COMMAND "7"
       CALL seg000(7,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          #CALL  adprrp007()
          CALL opcion_pantalla()
       END IF
COMMAND "8"
       CALL seg000(8,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          #CALL  adprrp008()
          CALL opcion_pantalla()
       END IF
COMMAND "9"
       CALL seg000(9,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          #CALL  adprrp009()
          CALL opcion_pantalla()
       END IF
COMMAND "10"
       CALL seg000(10,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          #CALL  adprrp010()
          CALL opcion_pantalla()
       END IF
COMMAND "11"
       CALL seg000(11,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          RUN "fglrun %FGLPROG%\\adprrp011"
          CALL opcion_pantalla()
       END IF
COMMAND "12"
       CALL seg000(12,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp012()
          CALL opcion_pantalla()
       END IF
COMMAND "13"
       CALL seg000(13,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp013()
          CALL opcion_pantalla()
       END IF
COMMAND "14"
       CALL seg000(14,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp014()
          CALL opcion_pantalla()
       END IF
COMMAND "15"
       CALL seg000(15,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp015()
          CALL opcion_pantalla()
       END IF
COMMAND "16"
       CALL seg000(16,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp016()
          CALL opcion_pantalla()
       END IF
COMMAND "17"
       CALL seg000(17,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp017()
          CALL opcion_pantalla()
       END IF
COMMAND "18"
       CALL seg000(18,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp018()
          CALL opcion_pantalla()
       END IF
COMMAND "19"
       CALL seg000(19,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp019()
          CALL opcion_pantalla()
       END IF
COMMAND "20"
       CALL seg000(20,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp020()
          CALL opcion_pantalla()
       END IF
COMMAND "21"
       CALL seg000(21,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp021()
          CALL opcion_pantalla()
       END IF
COMMAND "22"
       CALL seg000(22,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp022()
          CALL opcion_pantalla()
       END IF
COMMAND "23"
       CALL seg000(23,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          CALL  admnrp001()
          CALL opcion_pantalla()
       END IF
COMMAND "24"
       CALL seg000(24,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp028()
          CALL opcion_pantalla()
       END IF
COMMAND "25"
       CALL seg000(25,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp029()
          CALL opcion_pantalla()
       END IF
COMMAND "26"
       CALL seg000(26,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp032()
          CALL opcion_pantalla()
       END IF
COMMAND "27"
       CALL seg000(27,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp034()
          CALL opcion_pantalla()
       END IF
COMMAND "28"
       CALL seg000(28,"admnrp000") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp036()
          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(BLUE)
    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
   CLEAR SCREEN 
   CALL pantalla()
   LET impresor = FGL_GETENV("IMP")

    DECLARE busca CURSOR FOR 
      SELECT UNIQUE a.num_emp FROM adtb00003 a,adtb00032 b 
      WHERE (b.fecha+b.num_dia) < today AND a.status_t = "I"

      FOREACH busca INTO k_num_emp
        UPDATE adtb00003 SET status_t = NULL
        WHERE num_emp = k_num_emp
      END FOREACH 

    DISPLAY "Reportes" AT 6,38 ATTRIBUTE(BLACK)
    DISPLAY "admnrp000"                          AT 4,3 ATTRIBUTE(RED)
    DISPLAY "1-Departamentos de la Empresa adprrp001" AT  9,1 
    DISPLAY "2-Puestos Exist. Por Nivel    adprrp002" AT 10,1 
    DISPLAY "3-Niveles Educacionales       adprrp003" AT 11,1 
    DISPLAY "4-Pericias Requeridas         adprrp004" AT 12,1 
    DISPLAY "5-Nacionalidades              adprrp005" AT 13,1 
    DISPLAY "6-Acciones de Selec./Contr.   adprrp006" AT 14,1 
    DISPLAY "7-Movimientos de Empleados    adprrp007" AT 15,1 
    DISPLAY "8-Profesiones                 adprrp008" AT 16,1 
    DISPLAY "9-Niveles de Empleados        adprrp009" AT 17,1 
    DISPLAY "10-Parentesco Familiares      adprrp010" AT 18,1 
    DISPLAY "11-Empleados                  adprrp011" AT 19,1 
    DISPLAY "12-Solicitantes Por Puestos   adprrp012" AT 20,1 
    DISPLAY "13-Plan de Vacaciones         adprrp013" AT 21,1 
    DISPLAY "14-Hijos de Empleados         adprrp014" AT 22,1 

    DISPLAY "15-Adiestramientos Empleados  adprrp015" AT  9,41 
    DISPLAY "16-Tardanzas de Personal      adprrp016" AT 10,41 
    DISPLAY "17-Ausencias de Personal      adprrp017" AT 11,41 
    DISPLAY "18-Headcount                  adprrp018" AT 12,41 
    DISPLAY "19-Amonestacion de Empleados  adprrp019" AT 13,41 
    DISPLAY "20-Entradas y Salidas Diarias adprrp020" AT 14,41 
    DISPLAY "21-Empleados Incapacitados    adprrp021" AT 15,41 
    DISPLAY "22-Liquidacion Empleados      adprrp022" AT 16,41 
    DISPLAY "23-Continuacion Reportes      admnrp001" AT 17,41 
    DISPLAY "24-Etiquetas Para Hijos       adprrp028" AT 18,41 
    DISPLAY "25-Rel. Personal/Centro Costo adprrp029" AT 19,41 
    DISPLAY "26-Sueldos de Empleados       adprrp032" AT 20,41 
    DISPLAY "27-Tardanza Mensual Empleado  adprrp034" AT 21,41 
    DISPLAY "28-Maestra Empleados Resumen  adprrp036" AT 22,41 
 {  

    DISPLAY "Reports" AT 6,38 ATTRIBUTE(BLACK)
    DISPLAY "admnrp000"                          AT 4,3 ATTRIBUTE(RED)
    DISPLAY "1-Departments                 adprrp001" AT  9,1 
    DISPLAY "2-Positions                   adprrp002" AT 10,1 
    DISPLAY "3-Education Levels            adprrp003" AT 11,1 
    DISPLAY "4-Skills                      adprrp004" AT 12,1 
    DISPLAY "5-Nationalities               adprrp005" AT 13,1 
    DISPLAY "6-Selection/Contrating        adprrp006" AT 14,1 
    DISPLAY "7-Employee's Services         adprrp007" AT 15,1 
    DISPLAY "8-Professions                 adprrp008" AT 16,1 
    DISPLAY "9-Employee's Position         adprrp009" AT 17,1 
    DISPLAY "10-Relationship Relatives     adprrp010" AT 18,1 
    DISPLAY "11-Employees                  adprrp011" AT 19,1 
    DISPLAY "12-Applicants by Position     adprrp012" AT 20,1 
    DISPLAY "13-Vacation Plan              adprrp013" AT 21,1 
    DISPLAY "14-Employees' children        adprrp014" AT 22,1 

    DISPLAY "15-Employees' Training        adprrp015" AT  9,41 
    DISPLAY "16-Delays of the Personnel    adprrp016" AT 10,41 
    DISPLAY "17-The personnel's absences   adprrp017" AT 11,41 
    DISPLAY "18-Headcount                  adprrp018" AT 12,41 
    DISPLAY "19-Admonishments              adprrp019" AT 13,41 
    DISPLAY "20-In/Out Control             adprrp020" AT 14,41 
    DISPLAY "21-Disabled employees         adprrp021" AT 15,41 
    DISPLAY "22-Liquidated employees       adprrp022" AT 16,41 
#    DISPLAY "23-Continuacion Reportes      admnrp001" AT 17,41 
#    DISPLAY "25-Rel. Personal/Centro Costo adprrp029" AT 19,41 
    DISPLAY "23-Employee's Salary          adprrp032" AT 17,41 
    DISPLAY "24-Employees Monthly delays   adprrp034" AT 18,41 
    DISPLAY "29-Seguro Social              adprrp040" AT 19,41 
    DISPLAY "30-Seguro De Vida             adprrp041" AT 20,41 
    DISPLAY "31-Seguro Dental              adprrp042" AT 21,41 
    DISPLAY "32-Etiquetas Para Hijos       adprrp028" AT 22,41 
#    DISPLAY "28-Maestra Empleados Resumen  adprrp036" AT 22,41 
    #DISPLAY "S- Retorna Menu Anterior"  AT 23,28  ATTRIBUTE(BLACK)
}
END FUNCTION