274 lines
8.9 KiB
Plaintext
274 lines
8.9 KiB
Plaintext
{
|
|
---------------------------------------------------------------------------
|
|
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 |