50 lines
1.3 KiB
Plaintext
50 lines
1.3 KiB
Plaintext
IMPORT util
|
|
IMPORT security
|
|
IMPORT os
|
|
|
|
FUNCTION oportunidades_display()
|
|
DEFINE arc_recibido BYTE,
|
|
id_file SMALLINT,
|
|
tmpfile VARCHAR(13)
|
|
DEFINE poportunidades RECORD
|
|
tema varchar(100) ,
|
|
direccion varchar(100) ,
|
|
telefono varchar(20) ,
|
|
email_usuario varchar(50) ,
|
|
email_asignada varchar(50),
|
|
lat float ,
|
|
long FLOAT,
|
|
cod_n SMALLINT,
|
|
descripcion VARCHAR(80),
|
|
contenido_imagen STRING
|
|
END RECORD
|
|
|
|
DEFINE r RECORD
|
|
ERRORES VARCHAR(50)
|
|
END RECORD
|
|
LOCATE arc_recibido IN MEMORY
|
|
# CALL arc_recibido.readFile(archivo)
|
|
|
|
|
|
|
|
DECLARE cur01 CURSOR FOR
|
|
SELECT tema,direccion ,telefono,email_usuario,email_asignada,lat,long,
|
|
cod_n,descripcion,' ',imagen
|
|
FROM oportunidades
|
|
WHERE crm="NO"
|
|
|
|
RUN "del *.jpg"
|
|
LET id_file=1
|
|
LET tmpfile="tmpfile"
|
|
FOREACH cur01 INTO poportunidades.*,arc_recibido
|
|
LET tmpfile=tmpfile CLIPPED,id_file USING "&&",".jpg"
|
|
CALL arc_recibido.writeFile(tmpfile)
|
|
CALL file_to_b64(tmpfile) RETURNING poportunidades.contenido_imagen
|
|
LET id_file = id_file +1
|
|
|
|
END FOREACH
|
|
|
|
DISCONNECT CURRENT
|
|
RETURN util.JSON.stringify(poportunidades)
|
|
END FUNCTION
|