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