28 lines
821 B
Plaintext
28 lines
821 B
Plaintext
IMPORT util
|
|
|
|
FUNCTION usuarios()
|
|
DEFINE pusuarios DYNAMIC ARRAY OF RECORD
|
|
usuarios VARCHAR(50),
|
|
password VARCHAR(50),
|
|
ocupacion VARCHAR(100),
|
|
sec_vend INT,
|
|
nombre VARCHAR(30),
|
|
descuento1 DEC(12,2),
|
|
descuento2 DEC(12,2)
|
|
END RECORD,
|
|
i SMALLINT
|
|
DECLARE u1 CURSOR FOR
|
|
SELECT a.usuario,ISNULL(b.clave,' '),a.ocupacion,a.sec_vend,
|
|
c.nom1_emp+' '+ISNULL(c.apell1_emp,' '),b.descuento1,b.descuento2
|
|
FROM seg0000 a,seg0001 b,adtb00003 c
|
|
WHERE a.usuario = b.usuario AND b.num_emp = c.num_emp
|
|
|
|
LET i=1
|
|
FOREACH u1 INTO pusuarios[i].*
|
|
LET i=i+1
|
|
END FOREACH
|
|
|
|
DISPLAY "NUMERO USUARIOS: ",pusuarios.getLength()
|
|
RETURN util.JSON.stringify(pusuarios)
|
|
END FUNCTION
|