36 lines
868 B
Plaintext
36 lines
868 B
Plaintext
IMPORT util
|
|
|
|
FUNCTION monedas()
|
|
DEFINE m RECORD
|
|
monedas DYNAMIC ARRAY OF RECORD
|
|
tipo_cliente SMALLINT,
|
|
ventas CHAR(1)
|
|
END RECORD,
|
|
xventas DYNAMIC ARRAY OF RECORD
|
|
ventas SMALLINT,
|
|
descripcion VARCHAR(50),
|
|
defecto VARCHAR(2)
|
|
END RECORD
|
|
END RECORD,
|
|
i INT
|
|
|
|
DECLARE u28 CURSOR FOR
|
|
SELECT a.tipo_cliente,a.ventas
|
|
FROM vetb00060 a
|
|
|
|
LET i=1
|
|
FOREACH u28 INTO m.monedas[i].*
|
|
LET i=i+1
|
|
END FOREACH
|
|
DECLARE u29 CURSOR FOR
|
|
SELECT a.ventas,a.descripcion,a.defecto
|
|
FROM vetb00061 a
|
|
|
|
LET i=1
|
|
FOREACH u29 INTO m.xventas[i].*
|
|
LET i=i+1
|
|
END FOREACH
|
|
|
|
DISPLAY "ventas ",m.xventas.getLength()
|
|
RETURN util.JSON.stringify(m)
|
|
END FUNCTION |