81 lines
2.2 KiB
Plaintext
81 lines
2.2 KiB
Plaintext
{
|
|
PROGRAMA : pventas_menu
|
|
OBJETIVO : Desplegar las opciones del menu
|
|
CREADO POR : Ing. Juan Soto
|
|
FECHA CREACION : Se
|
|
|
|
}
|
|
IMPORT os
|
|
CONSTANT filename = "puntoventa.data"
|
|
|
|
GLOBALS
|
|
DEFINE usuario,clave VARCHAR(50),
|
|
pperfil,pprinter1,pprinter2,ckprinter,cambia_c VARCHAR(100)
|
|
|
|
DEFINE dirs DYNAMIC ARRAY OF RECORD
|
|
ddir STRING
|
|
END RECORD
|
|
END GLOBALS
|
|
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
WHENEVER ERROR CALL desplega_error
|
|
CALL STARTLOG("puntoventas.txt")
|
|
CALL autentificacion()
|
|
CALL menu_principal()
|
|
END MAIN
|
|
|
|
{================================================
|
|
FUNCION : AUTENTIFICACION
|
|
OBJETIVO : VALIDAR FUNCION DEL USUARIO
|
|
FECHA : 30/6/2009
|
|
PROGRAMADOR: JUAN SOTO
|
|
==================================================
|
|
}
|
|
|
|
FUNCTION autentificacion()
|
|
|
|
|
|
OPEN WINDOW inicio AT 1,1 WITH FORM "inicial"
|
|
|
|
INPUT BY NAME usuario,clave WITHOUT DEFAULTS
|
|
AFTER INPUT
|
|
IF INT_FLAG THEN
|
|
ERROR "OPERACION CANCELADA"
|
|
EXIT INPUT
|
|
END IF
|
|
|
|
CONNECT TO "smarmotech" USER usuario USING clave
|
|
IF STATUS < 0 THEN
|
|
ERROR "USUARIO NO ES VALIDO"
|
|
CONTINUE INPUT
|
|
END IF
|
|
SELECT a.cod_perfil,a.printerdefecto,a.otro_printer ,a.printer_cheque,a.cambia_clave
|
|
INTO pperfil,pprinter1,pprinter2,ckprinter,cambia_c
|
|
FROM seg0001 a
|
|
WHERE a.usuario = usuario
|
|
|
|
IF STATUS != 0 THEN
|
|
ERROR "APLICACION ESTA REPORTANDO UN ERROR, COMUNIQUESE CON SU ADMINISTRADOR"
|
|
END IF
|
|
UPDATE seg0001 SET seg0001.fecha_ultimo_login = getdate(),
|
|
seg0001.clave = clave WHERE seg0001.usuario = usuario
|
|
|
|
LET cambia_c = UPSHIFT(cambia_c)
|
|
IF cambia_c = "SI" THEN
|
|
CALL fgl_winmessage("INFO","DEBE CAMBIAR LA CLAVE","INFO")
|
|
CALL cambia_clave()
|
|
END IF
|
|
EXIT INPUT
|
|
END INPUT
|
|
|
|
CLOSE WINDOW inicio
|
|
END FUNCTION
|
|
FUNCTION menu_principal()
|
|
|
|
END FUNCTION
|
|
FUNCTION desplega_error()
|
|
DEFINE mensaje STRING
|
|
LET mensaje ="FAVOR DE VERIFICAR EL ERROR LOG PUNTOVENTAS.TXT",STATUS CLIPPED
|
|
CALL fgl_winmessage("ERROR",mensaje,"INFO")
|
|
END FUNCTION |