29 lines
668 B
Plaintext
29 lines
668 B
Plaintext
|
|
FUNCTION autentificacion()
|
|
DEFINE permisos CHAR(1),
|
|
programa CHAR(9),
|
|
usuario,clave,pusuario CHAR(60),
|
|
variable CHAR(20),pselec CHAR(100)
|
|
|
|
WHENEVER ERROR CONTINUE
|
|
CALL startlog("errores.log")
|
|
|
|
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 "decomarmol" USER usuario USING clave
|
|
IF STATUS < 0 THEN
|
|
ERROR "USUARIO NO ES VALIDO"
|
|
CONTINUE INPUT
|
|
END IF
|
|
EXIT INPUT
|
|
END INPUT
|
|
|
|
CLOSE WINDOW inicio
|
|
END FUNCTION |