Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md
This commit is contained in:
@@ -0,0 +1,292 @@
|
||||
{
|
||||
=====================================================================
|
||||
SISTEMA : ADMINISTRACION DE PERSONAL
|
||||
PROGRAMA : ADPRMT023.4GL
|
||||
FUNCION : REGISTRO DE AUTORIZACION DE TARDANZAS
|
||||
AUTOR : TADEO A. FERRERAS F.
|
||||
FECHA : OCT. 18, 1994
|
||||
======================================================================
|
||||
}
|
||||
GLOBALS
|
||||
"adprgb000.4gl"
|
||||
|
||||
DEFINE tardanza RECORD
|
||||
num_emp SMALLINT,
|
||||
fecha DATE,
|
||||
num_dia INTEGER,
|
||||
status_t CHAR(1),
|
||||
us_crea CHAR(9),
|
||||
fech_crea LIKE adtb00032.fech_crea,
|
||||
us_mod CHAR(9),
|
||||
fech_mod LIKE adtb00032.fech_crea
|
||||
END RECORD
|
||||
|
||||
DEFINE apellido CHAR(15)
|
||||
DEFINE fecha1 DATE
|
||||
|
||||
MAIN
|
||||
DEFER INTERRUPT
|
||||
CALL ARG_VAL(1) RETURNING usuarios
|
||||
CALL ARG_VAL(2) RETURNING clave
|
||||
CALL ARG_VAL(3) RETURNING impresor
|
||||
let usuarios = "kpolanco"
|
||||
let clave = "RevolutionX3"
|
||||
CONNECT to "smarmotech" USER usuarios USING clave
|
||||
SELECT a.* INTO p_companias.* FROM companias a
|
||||
CALL adprmt023()
|
||||
END MAIN
|
||||
|
||||
FUNCTION adprmt023()
|
||||
LET int_flag = FALSE
|
||||
OPTIONS
|
||||
FORM LINE 8,
|
||||
PROMPT LINE 23
|
||||
|
||||
DISPLAY "adprmt023" AT 4,3 ATTRIBUTE(RED)
|
||||
DISPLAY "Permiso Para Tardanzas" AT 6,29 ATTRIBUTE(BLACK)
|
||||
OPEN FORM adfmmt023 FROM "adfmmt023"
|
||||
DISPLAY FORM adfmmt023
|
||||
|
||||
MENU "Mant.:"
|
||||
COMMAND "Adicionar" "Presione ESC Para Adicionar CTRL-C Para Cancelar"
|
||||
CLEAR FORM
|
||||
CALL adprad023()
|
||||
|
||||
COMMAND "Consultar/Modificar"
|
||||
"Presione ESC Para Adicionar CTRL-C Para Cancelar"
|
||||
CLEAR FORM
|
||||
CALL adprfm023()
|
||||
|
||||
COMMAND "Salir"
|
||||
EXIT MENU
|
||||
END MENU
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION adprad023()
|
||||
|
||||
INPUT BY NAME tardanza.*
|
||||
|
||||
AFTER FIELD num_emp
|
||||
IF tardanza.num_emp IS NULL THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD num_emp
|
||||
END IF
|
||||
|
||||
SELECT a.nom1_emp,apell1_emp INTO nombre,apellido FROM adtb00003 a
|
||||
WHERE a.num_emp = tardanza.num_emp AND (a.status_t IS NULL OR
|
||||
a.status_t NOT IN ("T","E","D"))
|
||||
|
||||
IF STATUS = NOTFOUND THEN
|
||||
LET numero_msg = 3
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD num_emp
|
||||
END IF
|
||||
|
||||
LET nombre = nombre CLIPPED," ",apellido CLIPPED
|
||||
DISPLAY BY NAME nombre
|
||||
|
||||
AFTER FIELD fecha
|
||||
IF tardanza.fecha IS NULL THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD fecha
|
||||
END IF
|
||||
|
||||
AFTER FIELD num_dia
|
||||
IF tardanza.num_dia IS NULL THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD num_dia
|
||||
END IF
|
||||
|
||||
AFTER INPUT
|
||||
IF int_flag THEN
|
||||
LET numero_msg = 2
|
||||
CALL msg(numero_msg)
|
||||
LET int_flag = FALSE
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
IF tardanza.num_emp IS NULL THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD num_emp
|
||||
END IF
|
||||
|
||||
SELECT a.nom1_emp,apell1_emp INTO nombre,apellido FROM adtb00003 a
|
||||
WHERE a.num_emp = tardanza.num_emp AND (a.status_t IS NULL OR
|
||||
a.status_t NOT IN ("T","E","D"))
|
||||
|
||||
IF STATUS = NOTFOUND THEN
|
||||
LET numero_msg = 3
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD num_emp
|
||||
END IF
|
||||
|
||||
LET nombre = nombre CLIPPED," ",apellido CLIPPED
|
||||
DISPLAY BY NAME nombre
|
||||
|
||||
IF tardanza.fecha IS NULL THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD fecha
|
||||
END IF
|
||||
|
||||
IF tardanza.num_dia IS NULL THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD num_dia
|
||||
END IF
|
||||
END INPUT
|
||||
|
||||
DELETE FROM adtb00032 WHERE @num_emp = tardanza.num_emp AND
|
||||
@cod_mov = 9 AND @sec_mov = 99 and
|
||||
@fecha = tardanza.fecha
|
||||
|
||||
INSERT INTO adtb00032 VALUES (NULL,tardanza.num_emp,9,99,tardanza.fecha,
|
||||
tardanza.num_dia,NULL,SUSER_SNAME (),GETDATE (),NULL,NULL)
|
||||
|
||||
LET numero_msg = 1
|
||||
CALL msg(numero_msg)
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION adprfm023()
|
||||
|
||||
CONSTRUCT criterio ON a.num_emp,a.fecha,a.num_dia FROM num_emp,fecha,num_dia
|
||||
|
||||
LET selec =
|
||||
"SELECT a.num_emp,Convert(char(10),a.fecha,103),a.num_dia,a.status_t,a.us_crea,a.fech_crea, ",
|
||||
" a.us_mod,a.fech_mod ",
|
||||
"FROM adtb00032 a ",
|
||||
"WHERE a.status_t IS NULL AND a.cod_mov = 9 AND a.sec_mov = 99 AND ",
|
||||
criterio CLIPPED," ORDER BY a.num_emp,a.fecha "
|
||||
|
||||
PREPARE comando FROM selec
|
||||
DECLARE busca SCROLL CURSOR FOR comando
|
||||
OPEN busca
|
||||
|
||||
FETCH FIRST busca INTO tardanza.*
|
||||
IF STATUS = NOTFOUND THEN
|
||||
LET numero_msg = 3
|
||||
CALL msg(numero_msg)
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
SELECT a.nom1_emp,apell1_emp INTO nombre,apellido FROM adtb00003 a
|
||||
WHERE a.num_emp = tardanza.num_emp AND (a.status_t IS NULL OR
|
||||
a.status_t NOT IN ("T","E","D"))
|
||||
|
||||
LET nombre = nombre CLIPPED," ",apellido CLIPPED
|
||||
DISPLAY BY NAME tardanza.*,nombre
|
||||
|
||||
MENU "Mant."
|
||||
COMMAND "Siguiente"
|
||||
FETCH NEXT busca INTO tardanza.*
|
||||
IF STATUS = NOTFOUND THEN
|
||||
LET numero_msg = 5
|
||||
CALL msg(numero_msg)
|
||||
END IF
|
||||
|
||||
SELECT a.nom1_emp,apell1_emp INTO nombre,apellido FROM adtb00003 a
|
||||
WHERE a.num_emp = tardanza.num_emp AND (a.status_t IS NULL OR
|
||||
a.status_t NOT IN ("T","E","D"))
|
||||
|
||||
LET nombre = nombre CLIPPED," ",apellido CLIPPED
|
||||
DISPLAY BY NAME tardanza.*,nombre
|
||||
|
||||
COMMAND "Anterior"
|
||||
FETCH PREVIOUS busca INTO tardanza.*
|
||||
IF STATUS = NOTFOUND THEN
|
||||
LET numero_msg = 6
|
||||
CALL msg(numero_msg)
|
||||
END IF
|
||||
|
||||
SELECT a.nom1_emp,apell1_emp INTO nombre,apellido FROM adtb00003 a
|
||||
WHERE a.num_emp = tardanza.num_emp AND (a.status_t IS NULL OR
|
||||
a.status_t NOT IN ("T","E","D"))
|
||||
|
||||
LET nombre = nombre CLIPPED," ",apellido CLIPPED
|
||||
DISPLAY BY NAME tardanza.*,nombre
|
||||
|
||||
COMMAND "Primero"
|
||||
FETCH FIRST busca INTO tardanza.*
|
||||
IF STATUS = NOTFOUND THEN
|
||||
LET numero_msg = 6
|
||||
CALL msg(numero_msg)
|
||||
END IF
|
||||
|
||||
SELECT a.nom1_emp,apell1_emp INTO nombre,apellido FROM adtb00003 a
|
||||
WHERE a.num_emp = tardanza.num_emp AND (a.status_t IS NULL OR
|
||||
a.status_t NOT IN ("T","E","D"))
|
||||
|
||||
LET nombre = nombre CLIPPED," ",apellido CLIPPED
|
||||
DISPLAY BY NAME tardanza.*,nombre
|
||||
|
||||
COMMAND "Ultimo"
|
||||
FETCH LAST busca INTO tardanza.*
|
||||
IF STATUS = NOTFOUND THEN
|
||||
LET numero_msg = 6
|
||||
CALL msg(numero_msg)
|
||||
END IF
|
||||
|
||||
SELECT a.nom1_emp,apell1_emp INTO nombre,apellido FROM adtb00003 a
|
||||
WHERE a.num_emp = tardanza.num_emp AND (a.status_t IS NULL OR
|
||||
a.status_t NOT IN ("T","E","D"))
|
||||
|
||||
LET nombre = nombre CLIPPED," ",apellido CLIPPED
|
||||
DISPLAY BY NAME tardanza.*,nombre
|
||||
|
||||
COMMAND "Escoger"
|
||||
|
||||
INPUT BY NAME tardanza.fecha THRU tardanza.fech_mod WITHOUT DEFAULTS
|
||||
|
||||
AFTER FIELD fecha
|
||||
IF tardanza.fecha IS NULL THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD fecha
|
||||
END IF
|
||||
|
||||
AFTER FIELD num_dia
|
||||
IF tardanza.num_dia IS NULL THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD num_dia
|
||||
END IF
|
||||
|
||||
AFTER INPUT
|
||||
IF int_flag THEN
|
||||
LET numero_msg = 2
|
||||
CALL msg(numero_msg)
|
||||
LET int_flag = FALSE
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
IF tardanza.fecha IS NULL THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD fecha
|
||||
END IF
|
||||
|
||||
IF tardanza.num_dia IS NULL THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD num_dia
|
||||
END IF
|
||||
END INPUT
|
||||
|
||||
DELETE FROM adtb00032 WHERE @num_emp = tardanza.num_emp AND
|
||||
@cod_mov = 9 AND @sec_mov = 99 and
|
||||
@fecha = tardanza.fecha
|
||||
|
||||
INSERT INTO adtb00032 VALUES (NULL,tardanza.num_emp,9,99,tardanza.fecha,
|
||||
tardanza.num_dia,NULL,SUSER_SNAME (),GETDATE (),NULL,NULL)
|
||||
|
||||
LET numero_msg = 13
|
||||
CALL msg(numero_msg)
|
||||
|
||||
COMMAND "Retornar"
|
||||
EXIT MENU
|
||||
END MENU
|
||||
END FUNCTION
|
||||
Reference in New Issue
Block a user