Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md
This commit is contained in:
@@ -0,0 +1,235 @@
|
||||
|
||||
{-------------------------------------------------------------------------
|
||||
PROGRAMA : MASTER
|
||||
OBJETIVO : MENU GENERAL DE LA COMPANIA
|
||||
PROGRAMADOR : JUAN F. SOTO
|
||||
FECHA : AGOSTO 1997
|
||||
ASESOR : JOSE ALFREDO PAULINO
|
||||
------------------------------------------------------------------------
|
||||
}
|
||||
DATABASE smarmotech
|
||||
GLOBALS
|
||||
DEFINE p_usuario CHAR(9)
|
||||
DEFINE p_user CHAR(9)
|
||||
DEFINE luz CHAR(4)
|
||||
END GLOBALS
|
||||
MAIN
|
||||
DEFER INTERRUPT
|
||||
#CALL logo()
|
||||
CLEAR SCREEN
|
||||
SELECT unique a.usuario INTO p_usuario FROM seg0001 a
|
||||
WHERE a.usuario = user
|
||||
LET p_usuario = upshift(p_usuario)
|
||||
CALL pantalla()
|
||||
CALL mask()
|
||||
|
||||
MENU "OPCIONES"
|
||||
COMMAND "1"
|
||||
SELECT unique a.usuario INTO p_user FROM seg0001 a
|
||||
WHERE a.usuario = user
|
||||
CALL seg000(p_user,"1","master") RETURNING luz
|
||||
IF luz = "roja" THEN
|
||||
ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
|
||||
END IF
|
||||
DISPLAY "Ejecutando Opcion 1" AT 10,53 ATTRIBUTE (BLINK)
|
||||
IF luz = "azul" THEN
|
||||
RUN "fglrun %FGLPROG%\\almn00000"
|
||||
DISPLAY " " AT 10,53
|
||||
END IF
|
||||
COMMAND "2"
|
||||
SELECT unique a.usuario INTO p_user FROM seg0001 a
|
||||
WHERE a.usuario = user
|
||||
CALL seg000(p_user,"2","master") RETURNING luz
|
||||
IF luz = "roja" THEN
|
||||
ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
|
||||
END IF
|
||||
IF luz = "azul" THEN
|
||||
DISPLAY "Ejecutando Opcion 2" AT 10,53 ATTRIBUTE (BLINK)
|
||||
RUN "fglrun %FGLPROG%\\comn00000"
|
||||
DISPLAY " " AT 10,53
|
||||
END IF
|
||||
COMMAND "3"
|
||||
SELECT unique a.usuario INTO p_user FROM seg0001 a
|
||||
WHERE a.usuario = user
|
||||
CALL seg000(p_user,"3","master") RETURNING luz
|
||||
IF luz = "roja" THEN
|
||||
ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
|
||||
END IF
|
||||
IF luz = "azul" THEN
|
||||
DISPLAY "Ejecutando Opcion 3" AT 10,53 ATTRIBUTE (BLINK)
|
||||
RUN "fglrun %FGLPROG%\\cgmn00000"
|
||||
DISPLAY " " AT 10,53
|
||||
END IF
|
||||
COMMAND "4"
|
||||
SELECT unique a.usuario INTO p_user FROM seg0001 a
|
||||
WHERE a.usuario = user
|
||||
CALL seg000(p_user,"4","master") RETURNING luz
|
||||
IF luz = "roja" THEN
|
||||
ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
|
||||
END IF
|
||||
IF luz = "azul" THEN
|
||||
DISPLAY "Ejecutando Opcion 4" AT 10,53 ATTRIBUTE (BLINK)
|
||||
RUN "fglrun %FGLPROG%\\vemn00000"
|
||||
DISPLAY " " AT 10,53
|
||||
END IF
|
||||
COMMAND "5"
|
||||
SELECT unique a.usuario INTO p_user FROM seg0001 a
|
||||
WHERE a.usuario = user
|
||||
CALL seg000(p_user,"5","master") RETURNING luz
|
||||
IF luz = "roja" THEN
|
||||
ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
|
||||
END IF
|
||||
IF luz = "azul" THEN
|
||||
DISPLAY "Ejecutando Opcion 5" AT 10,53 ATTRIBUTE (BLINK)
|
||||
RUN "fglrun %FGLPROG%\\nomn00000"
|
||||
DISPLAY " " AT 10,53
|
||||
END IF
|
||||
|
||||
COMMAND "6"
|
||||
SELECT unique a.usuario INTO p_user FROM seg0001 a
|
||||
WHERE a.usuario = user
|
||||
CALL seg000(p_user,"6","master") RETURNING luz
|
||||
IF luz = "roja" THEN
|
||||
ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
|
||||
END IF
|
||||
IF luz = "azul" THEN
|
||||
DISPLAY "Ejecutando Opcion 6" AT 10,53 ATTRIBUTE (BLINK)
|
||||
RUN "fglrun %FGLPROG%\\semn00000"
|
||||
DISPLAY " " AT 10,53
|
||||
END IF
|
||||
COMMAND "7"
|
||||
SELECT unique a.usuario INTO p_user FROM seg0001 a
|
||||
WHERE a.usuario = user
|
||||
CALL seg000(p_user,"7","master") RETURNING luz
|
||||
IF luz = "roja" THEN
|
||||
ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
|
||||
END IF
|
||||
IF luz = "azul" THEN
|
||||
DISPLAY "Ejecutando Opcion 7" AT 10,53 ATTRIBUTE (BLINK)
|
||||
RUN "fglrun %FGLPROG%\\prmn00000"
|
||||
DISPLAY " " AT 10,53
|
||||
END IF
|
||||
COMMAND "8"
|
||||
DELETE FROM cctb00001 WHERE num_doc is null
|
||||
# UPDATE intb00023 SET num_doc = 2941 where cod_mov = 47
|
||||
# DISPLAY "ACTUALIZANDO MOVIMIENTO 47" AT 10,53 ATTRIBUTE (BLINK)
|
||||
DISPLAY "BORRAR TODOS LOS REGISTROS EN BLANCO" AT 10,53 ATTRIBUTE (BLINK)
|
||||
|
||||
COMMAND "Salir"
|
||||
EXIT MENU
|
||||
END MENU
|
||||
END MAIN
|
||||
|
||||
FUNCTION mask()
|
||||
|
||||
DISPLAY "M A R M O T E C H, S. A. " AT 4,26
|
||||
ATTRIBUTE (REVERSE,blue)
|
||||
DISPLAY "1- INVENTARIOS ALMN00000" AT 10,4 ATTRIBUTE (blue)
|
||||
DISPLAY "2- COMPRAS COMN00000" AT 11,4 ATTRIBUTE (blue)
|
||||
DISPLAY "3- CONTABILIDAD CGMN00000" AT 12,4 ATTRIBUTE (blue)
|
||||
DISPLAY "4- VENTAS VEMN00000" AT 13,4 ATTRIBUTE (blue)
|
||||
DISPLAY "5- NOMINAS NOMN00000" AT 14,4 ATTRIBUTE (blue)
|
||||
DISPLAY "6- INFORMATICA SYS00000" AT 15,4 ATTRIBUTE(blue)
|
||||
DISPLAY "7- PRODUCCION PRMN0000" AT 16,4 ATTRIBUTE(blue)
|
||||
DISPLAY "8- ACTUALIZACIONES " AT 17,4 ATTRIBUTE(blue)
|
||||
|
||||
DISPLAY "S- Salir del Sistema" at 23,25 ATTRIBUTE (RED)
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION PANTALLA()
|
||||
DEFINE fecha char(10)
|
||||
DEFINE T char(8)
|
||||
|
||||
LET fecha = today using "dd/mm/yyyy"
|
||||
LET T = time
|
||||
CALL fgl_drawbox(3,60,3,10)
|
||||
CALL fgl_drawbox(18,79,6,1)
|
||||
CALL fgl_drawbox(15,45,8,2)
|
||||
CALL fgl_drawbox(3,30,7,5)
|
||||
|
||||
DISPLAY " S I S T E M A S:" AT 8,6
|
||||
DISPLAY " MASTER " AT 8,6 ATTRIBUTE (RED)
|
||||
|
||||
CALL fgl_drawbox(9,28,8,50)
|
||||
CALL fgl_drawbox(3,15,7,52)
|
||||
CALL fgl_drawbox(4,28,19,50)
|
||||
|
||||
DISPLAY " ORIENTACION " AT 8,53 attribute (red)
|
||||
DISPLAY "Bienvenido Usuario: " AT 12,53
|
||||
|
||||
DISPLAY p_usuario AT 13,53 ATTRIBUTE (blue)
|
||||
LET p_usuario = downshift(p_usuario)
|
||||
|
||||
CALL fgl_drawbox(3,15,18,52)
|
||||
|
||||
DISPLAY " DIA Y HORA " AT 19,53
|
||||
DISPLAY T AT 21,64
|
||||
DISPLAY FECHA AT 21,54
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION pant1()
|
||||
CALL fgl_drawbox (4,50,3,1)
|
||||
END FUNCTION
|
||||
|
||||
{
|
||||
-----------------------------------------------------------------------------
|
||||
PROGRAMA : SEG000
|
||||
OBJETIVO : Controlar el acceso de los usuarios a los sistemas de la
|
||||
Empresa.
|
||||
PROGRAMADOR : Ing. Juan Soto
|
||||
FECHA : Marzo 17, 1994.
|
||||
-----------------------------------------------------------------------------
|
||||
}
|
||||
FUNCTION seg000(usuarios,opt,p_menu)
|
||||
DEFINE opt CHAR(2)
|
||||
DEFINE luz CHAR(4)
|
||||
DEFINE p_menu CHAR(9)
|
||||
DEFINE usuarios CHAR(9)
|
||||
DEFINE no_reg,p_opcion,numero SMALLINT
|
||||
|
||||
OPTIONS
|
||||
ERROR LINE 24
|
||||
|
||||
LET luz = "azul"
|
||||
LET p_opcion = opt
|
||||
|
||||
LET usuarios = NULL
|
||||
SELECT UNIQUE a.usuario FROM seg0001 a
|
||||
WHERE a.usuario = user and a.opcion = 99
|
||||
|
||||
IF STATUS != NOTFOUND THEN
|
||||
let luz = "azul"
|
||||
ELSE
|
||||
|
||||
#IF p_opcion != 99 THEN
|
||||
|
||||
SELECT UNIQUE a.usuario FROM seg0001 a
|
||||
WHERE a.usuario = user and a.opcion = p_opcion and a.us_menu = p_menu
|
||||
|
||||
IF status = notfound THEN
|
||||
LET status = 0
|
||||
LET luz = "roja"
|
||||
END IF
|
||||
END IF
|
||||
{IF p_opcion = 99 THEN
|
||||
LET luz = "azul"
|
||||
END IF}
|
||||
RETURN luz
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION logo()
|
||||
DEFINE j,i SMALLINT,
|
||||
p CHAR(1)
|
||||
OPTIONS
|
||||
PROMPT LINE 20
|
||||
call fgl_drawbox(7,47,10,20)
|
||||
call fgl_drawbox(10,51,8,18)
|
||||
|
||||
DISPLAY "BOLETIN INFORMATIVO 1/95" AT 9,29 ATTRIBUTE (REVERSE)
|
||||
DISPLAY "NO MAS PAPELES PARA MEMOS IMPRESOS..." AT 11,21
|
||||
DISPLAY "COMO? USANDO EL CORREO ELECTRONICO DE RAYOVAC" AT 12,21
|
||||
DISPLAY "TE RETO A USARLO..." AT 14,21
|
||||
DISPLAY "PRESIONE <ENTER> PARA CONTINUAR" AT 15,21
|
||||
PROMPT " " FOR p
|
||||
LET int_flag = false
|
||||
END FUNCTION
|
||||
Reference in New Issue
Block a user