FUNCTION busca_imagen(pcodn,pcodgrupo,pcodtipo,pcodsec)
 DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec INT,
        pimagen BYTE

        
  LOCATE pimagen IN MEMORY  
  SELECT a.imagen INTO pimagen FROM iptb00002 a
  WHERE a.cod_n = pcodn AND
        a.cod_grupo = pcodgrupo AND
        a.cod_tipo = pcodtipo AND
        a.cod_Sec = pcodsec 

   IF pimagen IS NULL OR LENGTH(pimagen) < 4 THEN
   
      CALL pimagen.readFile("fotodefault.jpg")
   END IF   
   
   RETURN pimagen
END FUNCTION