49 lines
1.2 KiB
Plaintext
49 lines
1.2 KiB
Plaintext
FUNCTION buscaUsuarios()
|
|
|
|
DEFINE
|
|
Duser DYNAMIC ARRAY OF RECORD --Display user abreviado
|
|
ficha1 INT,
|
|
usuario1 VARCHAR(100),
|
|
nombreusuario1 VARCHAR(100),
|
|
email1 VARCHAR(100)
|
|
END RECORD,
|
|
idx INT
|
|
|
|
DECLARE buscar CURSOR FOR
|
|
SELECT num_emp, usuario, nombreusuario, email FROM seg0001
|
|
|
|
LET idx = 1
|
|
FOREACH buscar INTO Duser[idx].*
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
|
|
RETURN Duser
|
|
|
|
END FUNCTION
|
|
|
|
FUNCTION buscaPropiedades2(usuario1 VARCHAR(100)) --Propiedades del table
|
|
|
|
DEFINE
|
|
propiedades2 DYNAMIC ARRAY OF RECORD --tabla seg0007
|
|
sec_vend SMALLINT,
|
|
nombre VARCHAR(100),
|
|
tipo_usuario1 VARCHAR(100),
|
|
comision CHAR(10),
|
|
porc_cobros DECIMAL(12, 4)
|
|
END RECORD,
|
|
idx INT
|
|
|
|
DECLARE buscar1 CURSOR FOR
|
|
SELECT sec_vend, nombre, tipo_usuario, comision, porc_cobros
|
|
FROM seg0007
|
|
WHERE usuario = usuario1
|
|
|
|
LET idx = 1
|
|
FOREACH buscar1 INTO propiedades2[idx].*
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
|
|
RETURN propiedades2
|
|
|
|
END FUNCTION
|