14 lines
400 B
Plaintext
14 lines
400 B
Plaintext
FUNCTION seguridad(pusuario,pprograma)
|
|
DEFINE pusuario,pprograma VARCHAR(50)
|
|
|
|
|
|
SELECT a.usuario FROM seg0001 a,seg0005 b
|
|
WHERE a.usuario =pusuario AND
|
|
a.cod_perfil = b.cod_perfil AND
|
|
b.programa = pprograma
|
|
IF STATUS = NOTFOUND THEN
|
|
RETURN FALSE
|
|
ELSE
|
|
RETURN TRUE
|
|
END IF
|
|
END FUNCTION |