42 lines
834 B
Plaintext
42 lines
834 B
Plaintext
IMPORT util
|
|
|
|
FUNCTION ip_transportistas()
|
|
DEFINE transportistas DYNAMIC ARRAY OF RECORD
|
|
cod_transp SMALLINT,
|
|
sec_transp INT,
|
|
nombre STRING,
|
|
cedula CHAR(11),
|
|
calle CHAR(30),
|
|
casa_num CHAR(10),
|
|
urbanizacion CHAR(20),
|
|
cod_zona SMALLINT,
|
|
cod_provincia SMALLINT,
|
|
telefono CHAR(8)
|
|
|
|
END RECORD,
|
|
i SMALLINT
|
|
|
|
DECLARE c1 CURSOR FOR
|
|
SELECT cod_transp
|
|
,sec_transp
|
|
,nombre
|
|
,cedula
|
|
,calle
|
|
,casa_num
|
|
,urbanizacion
|
|
,cod_zona
|
|
,cod_provincia
|
|
,telefono
|
|
FROM vetb00015
|
|
WHERE status_t IS null
|
|
|
|
|
|
|
|
LET i = 1
|
|
FOREACH c1 INTO transportistas[i].*
|
|
LET i = i + 1
|
|
END FOREACH
|
|
|
|
RETURN util.JSON.stringify(transportistas)
|
|
END FUNCTION
|