30 lines
794 B
Plaintext
30 lines
794 B
Plaintext
IMPORT util
|
|
|
|
FUNCTION condiciones()
|
|
|
|
DEFINE condiciones DYNAMIC ARRAY OF RECORD
|
|
cond_pago SMALLINT,
|
|
descripcion VARCHAR(30),
|
|
dias SMALLINT ,
|
|
defecto VARCHAR(2)
|
|
|
|
END RECORD
|
|
DEFINE condicion RECORD
|
|
cond_pago SMALLINT,
|
|
descripcion VARCHAR(30),
|
|
dias SMALLINT ,
|
|
defecto VARCHAR(2)
|
|
|
|
END RECORD,
|
|
i INT
|
|
|
|
DECLARE u25 CURSOR FOR SELECT a.cond_pago,a.descrip,a.dias,a.defecto
|
|
|
|
INTO condicion.* FROM vetb00012 a WHERE a.status_t IS null
|
|
LET i=0 FOREACH u25 LET i=i+1 LET condiciones[i].*=condicion.*
|
|
|
|
END FOREACH; FREE u25
|
|
|
|
RETURN util.JSON.stringify(condiciones)
|
|
END FUNCTION
|