163 lines
5.2 KiB
Plaintext
163 lines
5.2 KiB
Plaintext
{
|
|
-------------------------------------------------------------------------------
|
|
PROGRAMA : ADMNRP001
|
|
OBJETIVO : Continuacion del menu de Reportes del Sistema de
|
|
Administracion de Personal
|
|
PROGRAMADOR : Ing. Betania Guerrero Perez
|
|
FECHA REALIZACION : Junio 24, 1993.
|
|
-------------------------------------------------------------------------------
|
|
}
|
|
|
|
GLOBALS "adprgb000.4gl"
|
|
|
|
FUNCTION admnrp001()
|
|
DEFINE luz CHAR(5)
|
|
|
|
CALL opcion_pantalla1()
|
|
|
|
MENU "Reportes:"
|
|
COMMAND "1"
|
|
CALL seg000(1,"admnrp001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprrp023()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "2"
|
|
CALL seg000(2,"admnrp001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprrp024()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "3"
|
|
CALL seg000(3,"admnrp001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprrp025()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "4"
|
|
CALL seg000(4,"admnrp001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprrp026()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "5"
|
|
CALL seg000(5,"admnrp001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprrp027()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "6"
|
|
CALL seg000(6,"admnrp001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprrp030()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "7"
|
|
CALL seg000(7,"admnrp001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprrp031()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "8"
|
|
CALL seg000(8,"admnrp001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprrp033()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "9"
|
|
CALL seg000(9,"admnrp001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprrp037()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "10"
|
|
CALL seg000(10,"admnrp001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprrp040()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "11"
|
|
CALL seg000(11,"admnrp001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprrp041()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "12"
|
|
CALL seg000(12,"admnrp001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprrp042()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "13"
|
|
CALL seg000(13,"admnrp001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprrp043()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "14"
|
|
CALL seg000(14,"admnrp001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprrp044()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "15"
|
|
CALL seg000(15,"admnrp001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprrp045()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "16"
|
|
CALL seg000(16,"admnrp001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprrp046()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "17"
|
|
CALL seg000(17,"admnrp001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
RUN "fglrun %FGLPROG%\\adprrp047"
|
|
#CALL adprrp047()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "18"
|
|
CALL seg000(18,"admnrp001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprrp044b()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "Retornar"
|
|
EXIT MENU
|
|
END MENU
|
|
END FUNCTION
|
|
|
|
FUNCTION opcion_pantalla1()
|
|
|
|
OPTIONS
|
|
PROMPT LINE 8
|
|
CLEAR SCREEN
|
|
CALL pantalla()
|
|
LET impresor = FGL_GETENV("IMP")
|
|
|
|
DISPLAY "Continuacion de Reportes" AT 6,28 ATTRIBUTE(BLACK)
|
|
DISPLAY "admnrp001" AT 4,3 ATTRIBUTE(RED)
|
|
DISPLAY " 1-Rotacion de Personal adprrp023" AT 8,1
|
|
DISPLAY " 2-Entrada de Empleado adprrp024" AT 9,1
|
|
DISPLAY " 3-Salida de Empleado adprrp025" AT 10,1
|
|
DISPLAY " 4-Ex-Empleados adprrp026" AT 11,1
|
|
DISPLAY " 5-Resumen Hijos Empleados adprrp027" AT 12,1
|
|
DISPLAY " 6-Tardanza Empleados x Depto adprrp030" AT 13,1
|
|
DISPLAY " 7-Historial de Empleados adprrp031" AT 14,1
|
|
DISPLAY " 8-Maestra de Empleados c/Nacimiento adprrp033" AT 15,1
|
|
DISPLAY " 9-Analisis De Beneficios X Empleado adprrp037" AT 16,1
|
|
DISPLAY "10-Seguro Social adprrp040" AT 17,1
|
|
DISPLAY "11-Seguro De Vida adprrp041" AT 18,1
|
|
DISPLAY "12-Seguro Dental adprrp042" AT 19,1
|
|
DISPLAY "13-Empl. X Deptos. Coporativos adprrp043" AT 20,1
|
|
DISPLAY "14-Empl. X Deptos. Rango de Fechas adprrp044" AT 21,1
|
|
DISPLAY "15-Rango de Edades adprrp045" AT 22,1
|
|
DISPLAY "16-Rango de Tiempo en la Empresa adprrp046" AT 23,1
|
|
DISPLAY "17-DGII Formato ASCII adprrp047" AT 24,1
|
|
DISPLAY "18-Beneficios Empleados adprrp044b" AT 8,50
|
|
|
|
|
|
END FUNCTION |