21 lines
421 B
Plaintext
21 lines
421 B
Plaintext
IMPORT util
|
|
|
|
FUNCTION tipo_negocios()
|
|
DEFINE ptipos DYNAMIC ARRAY OF RECORD
|
|
tipo_negocio SMALLINT,
|
|
descripcion VARCHAR(60)
|
|
END RECORD,
|
|
i SMALLINT
|
|
|
|
DECLARE c1 CURSOR FOR
|
|
SELECT a.tipo_negocio,a.descripcion FROM cctb00013 a
|
|
WHERE a.status_t IS NULL
|
|
|
|
LET i = 1
|
|
FOREACH c1 INTO ptipos[i].*
|
|
LET i = i + 1
|
|
END FOREACH
|
|
|
|
RETURN util.JSON.stringify(ptipos)
|
|
END FUNCTION
|