324 lines
11 KiB
Plaintext
324 lines
11 KiB
Plaintext
{
|
|
-------------------------------------------------------------------------------
|
|
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 |