26 lines
653 B
Plaintext
26 lines
653 B
Plaintext
IMPORT util
|
|
|
|
FUNCTION precios()
|
|
DEFINE pprecios DYNAMIC ARRAY OF RECORD
|
|
cod_lista SMALLINT,
|
|
ventas SMALLINT,
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
precio DEC(12,2)
|
|
END RECORD,
|
|
i INT
|
|
|
|
DECLARE u23 CURSOR FOR
|
|
SELECT a.cod_lista,a.ventas,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_Sec,a.precio
|
|
FROM vetb00025 a WHERE a.status_t IS NULL
|
|
|
|
LET i=1
|
|
FOREACH u23 INTO pprecios[i].*
|
|
LET i=i+1
|
|
|
|
END FOREACH
|
|
FREE u23
|
|
RETURN util.JSON.stringify(pprecios)
|
|
END FUNCTION |