Módulo:Ficha de edificio

Este módulo no tiene página de documentación

local z = {}

local args			-- used as global in ModuloArgs
local Entidad		-- used as global in local functions
local ModuloFicha    = require('Módulo:Ficha')
local ModuloWikidata = require('Módulo:Wikidata')
local ModuloFormato  = require('Módulo:Formato texto')
local ModuloPaginas  = require('Módulo:Páginas')
local ModuloArgs     = require('Módulo:Argumentos')
local argumento      = ModuloArgs.obtenerValorDeArgumentos
local elementoTabla  = require('Módulo:Tablas').elemento
local sinBandera     = require('Módulo:Bandera').sinBandera
-- sin uso ?
local ModuloWikidataFormatos = require('Módulo:Wikidata/Formatos')
local formatoURL = ModuloWikidataFormatos.formatoURL
local sinEnlazar = {['enlace']='no', ['linkback']='sí'}
local sinLapiz   = {}

function z.prueba(frame)
	local coord          = require('Módulo:Coordenadas')
	 ModuloWikidata:setFrame(frame)
     ModuloArgs.obtenerTablaDeArgumentos(frame)
     
	 Entidad   = mw.wikibase.getEntityObject(argumento'id') or {}
     local datos = elementoTabla(Entidad,'claims','P625',1,'mainsnak','datavalue','value') 
     local lat = elementoTabla(datos,'latitude')
     local lon = elementoTabla(datos,'longitude')
     local latdms = frame:preprocess('{{#invoke:Coordenadas|dec2dms|'..lat..','..lon..'|"E"|"O"|"dms"}}')
     local valor = ''
     for i, j in pairs(datos)
        do
    	valor =valor..i..' '
     end	
	 return lat..lon
end

function z.Ficha(frame)
	ModuloWikidata:setFrame(frame)
	ModuloArgs.obtenerTablaDeArgumentos(frame)
	if argumento'wikidata' == 'no' then
		obtenerDatosWikidata = false -- sin uso ?
		Entidad = nil
	else
		obtenerDatosWikidata = true -- sin uso ?
		-- Obtener los datos de la página donde se inserta la ficha de Wikidata.
		Entidad   = mw.wikibase.getEntityObject(argumento'id') or {}
	end

	local imagen = argumento{'imagen'}
	local pieDeImagen = argumento{'texto imagen', 'texto_imagen', 'pie de imagen', 'pie imagen', 'pie', 'pie_imagen'}
	if not imagen then
		imagen, pieDeImagen = ModuloWikidata.obtenerImagenWikidata(Entidad, 'P18')
	end

	local nombre = argumento{'nombre'} or
				-- ModuloWikidata.obtenerEtiquetaWikidata() or -- prioridad local
				ModuloPaginas.nombrePagina({desambiguar='sí'})
	local nombrelocal = argumento{'nombre local', 'nombre_local', {propiedad, 'P1705'}}
	if nombrelocal and nombrelocal ~= nombre then
		nombrelocal = '<i>' .. nombrelocal .. '</i>'
	else
		nombrelocal = nil
	end

	local color = obtenerColor()

	local evsigs = devolverelemensigs(Entidad)
	local fechainicio = argumento{'inicio'} or (evsigs and evsigs['Q385378']) or ''
	local fechafin = argumento{'finalización', 'término'} or (evsigs and evsigs['Q385378']) or ''
	local primerapiedra = argumento{'fecha primera piedra'} or (evsigs and evsigs['Q106863']) or ''

	local direccionpostal = argumento{'dirección', 'calle', {propiedad, 'P6375'}, {obtenerCalle}}
	local codigopostal = argumento{'código postal', 'código_postal', {propiedad, 'P281'}}
	if codigopostal then
		direccionpostal = ModuloFormato.separadosPorComa({direccionpostal, codigopostal})
	end

	-- TODO: NUEVO -- sin uso ?
	local logotipo = argumento{'logotipo', 'logo', {propiedad, 'P154'}}
	if logotipo ~= nil then
		logotipo = '[[Archivo:'..logotipo..']]'
	end

	local Ficha =
	{
		tipocabecera = 'edificio',
		estilotitulo = 'background-color:'..color,
		estiloseccion = 'background-color:'..color,
		estilosubtitulo = 'background-color:' .. color .. '; font-size:110%',
		estiloetiqueta = 'width:33%;',
		estilopie = 'font-size:95%',

		['titulo'] = nombre,
		['subtitulo'] = nombrelocal,
		imagen = imagen,
		['tamañoimagen'] = argumento{'tamaño', 'tamaño_imagen'} or '275px',
		pie = pieDeImagen,
		{ '', logotipo },
		imagenflotante2 = 'sí',
		imagen2 = obtenerMapaLoc(nombre),
		pie2 = argumento{'pie mapa'} or (argumento{'pos etiqueta loc'} ~= 'none' and 'Ubicación (' .. nombre .. ').'),
		{tipo = 'sección',
			['titulo'] = 'Localización',
			{ 'País', sinBandera( argumento{'país', {propiedad, 'P17', {rango_mayor='sí'}}} ) },
			{ argumento{'tipo_división_administrativa', 'tipo_división'} or 'División', sinBandera( argumento{'división_administrativa', 'división'} ) },
			{ argumento{'tipo_subdivisión_administrativa', 'tipo_subdivisión'} or 'Subdivisión', sinBandera( argumento{'subdivisión_administrativa', 'subdivisión'} ) },
		--	-- TODO: NUEVO
		--	-- -- se repiten 'país'/P17, 'división', 'subdivisión'
		--	{ 'Localidad', sinBandera( argumento{'localidad', 'municipio', 'ciudad', {propiedad, 'P276'}} ) },
		--	{ 'Ubicación', sinBandera( argumento{'localización', 'ubicación', {propiedad, 'P131', {uno='sí'}}} ) },
			{ 'Localización', sinBandera( argumento{'localización', 'ubicación'}
				or ModuloFormato.enVariasLineas({ModuloFormato.separadosPorComa({
					argumento{'localidad', 'municipio', 'ciudad'}, argumento{'estado'}, argumento{'país'}
				})})
				or ModuloFormato.enVariasLineas({propiedad('P969'), ModuloFormato.separadosPorComa({propiedad('P131'),propiedad('P17')})}) )
			},
			{ 'Dirección', sinBandera( direccionpostal ) },
			{ 'Coordenadas' , argumento{ {propiedad, 'P625', {formato='dms', display='inline,title', tipo='landmark', uno='sí'}} } }, -- argumento{'coordenadas'}
		},
		{tipo = 'sección',
			['titulo'] = 'Información general',
			{ 'Nombres anteriores', argumento{'nombres anteriores', 'nombre anterior', 'nombre inicial'} },
			{ 'Otros nombres', argumento{'otros nombres', 'otro nombre', {propiedad, 'P4970'}} },
			{ 'Estado', argumento{'estado', 'condición', 'estatus'} },
			{ 'Usos', argumento{'uso', 'usado', 'tipo', {propiedad, 'P366', {rango_mayor='sí'}}} },
			{ 'Estilo', argumento{'estilo', {'P149'}} },
			{ 'Catalogación', argumento{'catalogación', {propiedad, 'P1435', {rango_mayor='sí'}}} },
			{ 'Figura', argumento{'figura'} },
			{ 'Declaración', argumento{'declaración', --[[ TODO: se repite con 'Catalogación': {propiedad, 'P1435', {calificador='P580'}}--]] } },
			{ 'Código', argumento{'código', {propiedad, 'P808'}} },
			{ 'Parte de', argumento{'partede', {propiedad, 'P361'}} },
			{ 'Nombrado en honor a', argumento{'nombrado en honor a', 'etimología', {propiedad, 'P138'}} },
			{ '[[Primera piedra]]', primerapiedra },
			{ 'Inicio de obra', fechainicio },
			{ '[[Coronación (arquitectura)|Coronación]]', argumento{'fecha coronación', 'coronación', 'coronado'} },
			{ 'Finalización', fechafin }, -- TODO: 'Finalización estimada' argumento({'estim completado', 'estim_completado'})
			{ 'Fundación', argumento{'fundación', 'año_construccion', 'construido', 'año construcción', 'año de construcción', 'construcción', {propiedad, 'P571', {uno='sí'}}} },
			{ 'Inauguración', argumento{'fecha inauguración', 'fecha de inauguración', 'fecha de la inauguración', {propiedad, 'P1619', {uno='sí'}}} },
			{ 'Cierre', argumento{'fecha del cierre'} },
			{ argumento{'fecha demolición', 'demolición'} and 'Demolido' or 'Destruido', argumento{'fecha demolición', 'demolición', 'fecha destruido', 'destruido'} },
			{ 'Propietario', argumento{'propietario', 'dueño', {propiedad, 'P127'}} },
			-- TODO: diferencia entre 'Arrendatario' y 'Ocupante' ?
			{ 'Arrendatario', argumento{'arrendatarios', 'arrendatario', 'inquilinos'} },
			{ 'Ocupante', argumento{'ocupante', 'ocupantes', {propiedad, 'P466', {uno='sí'}}} },
		--	-- TODO: NUEVO: -- sin uso ?
		--	{ 'Organización', argumento{'organización', {propiedad, 'P749'}} },
		--	{ 'Se conecta con', argumento{'se conecta con'} },
		--	{ 'Cruza', argumento{'cruza'} },
		--	{ 'Número de vanos', argumento{'ojos'} },
		--	{ 'Clausura', argumento{'clausura', {propiedad, 'P3999'}} },
		--	{ 'Número de camas', argumento{'camas', {propiedad, 'P6801'}} },
		--	{ 'Número de télefono', argumento{'teléfono', 'telefono', {propiedad, 'P1329'}} },
		--	{ 'Emergencias', argumento{'emergencias'} },
		--	{ 'Afiliación', argumento{'afiliación', {propiedad, 'P1416'}} },
		--	{ 'Red', argumento{'red'} },
		--	{ 'Clasificación', argumento{'clasificación'} },
		--	{ 'Especialidad', argumento{'especialidad'} },
		--	{ 'Financiamiento', argumento{'financiamiento'} },
		},
		{tipo = 'sección',
			['titulo'] = 'Altura',
			{ 'Máxima', argumento{'altura máxima', 'antena'} or obtenerAlturas().maxima },
			{ 'Arquitectónica', argumento{'altura arquitectónica', 'altura'} or obtenerAlturas().altura },
			{ 'Azotea', argumento{'azotea'} },
			{ 'Piso más alto', argumento{'piso más alto', 'piso_mas_alto'} },
			{ 'Observatorio', argumento{'observatorio'} },
		},
		{tipo = 'sección',
			['título'] = 'Récord de altura',
			{ '', argumento{'más alto fecha', 'alto_fecha'} and '[[Anexo:Rascacielos más altos del mundo|Rascacielos más alto del mundo]] de ' .. argumento{'más alto fecha', 'alto_fecha'} },
			{ 'Predecesor', argumento{'más alto anterior', 'alto_anterior'} },
			{ 'Sucesor', argumento{'más alto siguiente', 'alto_siguiente'} },
			-- TODO: NUEVO: { argumento{'récord de altura', 'record de altura'} }, -- sin uso ?
		},
		{tipo = 'sección',
			['titulo'] = 'Detalles técnicos',
			{ 'Sistema estructural', argumento{'sistema estructural'} },
			{ 'Material', argumento{'material', 'materiales', {obtenerMaterial}} },
			{ 'Diámetro', argumento{'diámetro'} },
			{ 'Superficie', argumento{'superficie', 'área planta', {obtenerSuperficie}} },
			{ 'Superficie parcela', argumento{'superficie parcela'} },
			{ 'Plantas', argumento{'número de plantas', 'numero_plantas', 'cantidad pisos', 'plantas', {propiedad, 'P1101'}} },
			{ 'Ascensores', argumento{'número de ascensores', 'numero ascensores', {propiedad, 'P1301'}} },
			{ 'Otras dimensiones', argumento{'otras dimensiones'} },
		},
		{tipo = 'sección',
			['titulo'] = 'Diseño y construcción',
			{ 'Arquitecto', argumento{'arquitecto', 'arquitectos', {propiedad, 'P84'}} },
			{ 'Fundador', argumento{'fundador', {propiedad, 'P112', {uno='sí'}}} },
			{ 'Promotor', argumento{'promotor', 'promotora'} },
			{ 'Constructor', argumento{'constructor', {propiedad, 'P193', {uno='sí'}}} },
			{ 'Ingeniero', argumento{'ingeniero'} },
			{ 'Ingeniero estructural', argumento{'ingeniero estructural', {propiedad, 'P631'}} },
			{ 'Ingeniero de servicios', argumento{'ingeniero de servicios'} },
			{ 'Ingeniero civil', argumento{'ingeniero civil'} },
			{ 'Otros', argumento{'otros'} },
			{ 'Contratista', argumento{'contratista'} },
			{ 'Viviendas', argumento{'número de viviendas'} },
			{ 'Coste', argumento{'coste'} },
			{ 'Premios', argumento{'premios', {propiedad, 'P166'}} },
			{ 'Conocido por', argumento{'conocido por'} },
		},
		{tipo = 'sección',
			['titulo'] = 'Remodelación',
			{ 'Fecha de remodelación', argumento{'fecha remodelación', 'remodelación', 'fecha de remodelación'} },
			{ 'Coste remodelación', argumento{'coste remodelación'} },
			{ 'Arquitecto', argumento{'rem arquitecto'} },
			{ 'Ingeniero ', argumento{'rem ingeniero'} },
			{ 'Ingeniero estructural', argumento{'rem ingeniero estructural'} },
			{ 'Ingeniero de servicios', argumento{'rem ingeniero de servicios'} },
			{ 'Ingeniero civil', argumento{'rem ingeniero civil'} },
			{ 'Otros', argumento{'rem otros'} },
			{ 'Contratista', argumento{'rem contratista'} },
			{ 'Premios', argumento{'rem premios'} },
		},
		{tipo = 'sección',
			['titulo'] = 'Información religiosa',
			--Edificios religiosos
			{ 'Culto', argumento{'culto', {propiedad, 'P140'}} },
			{ argumento{'nombre_división_eclesiástica'} or 'Diócesis', argumento{'diócesis', 'división_eclesiástica', {propiedad, 'P708'}} },
			{ argumento{'nombre_subdivisión_eclesiástica'} or '[[Parroquia (religión)|Parroquia]]', argumento{'subdivisión_eclesiástica', 'parroquia'} },
			{ '[[Orden religiosa católica|Orden]]', argumento{'orden', {propiedad, 'P611'}} },
			{ 'Advocación', argumento{'advocación', {propiedad, 'P825'}} },
			{ 'Patrono', argumento{'patrono', {propiedad, 'P417'}} },
			{ 'Dedicación', argumento{'dedicación', {propiedad, 'P793', {calificador='Q1762010'}}} },
			{ 'Acceso público', argumento{'acceso'} },
		},
		{tipo = 'sección',
			['titulo'] = 'Información militar',
			--Edificios militares
			{ 'Controlador', argumento{'controlado por'} },
			{ 'Guarnición', argumento{'guarnición'} },
			{ 'Comandante actual', argumento{'comandante actual'} },
			{ 'Comandantes', argumento{'comandantes'} },
			{ 'Batallas', argumento{'batallas'} },
			{ 'Eventos', argumento{'eventos'} },
			{ 'Período', argumento{'período'} },
		},
		{tipo = 'sección',
			['titulo'] = 'Otra información',
			{ 'Capacidad', argumento{'capacidad', 'aforo', {propiedad, 'P1083'}} },
			--Bar o restaurante
			{ 'N.º de asientos', argumento{'número de asientos', 'asientos', {propiedad, 'P1083'}} },
			{ 'N.º de tiendas', argumento{'número de tiendas'} },
			--Hotel
			{ 'N.º de habitaciones', argumento{'número de habitaciones', 'habitaciones'} },
			{ 'N.º de suites', argumento{'número de suites', 'suites'} },
			{ 'N.º de restaurantes', argumento{'número  de restaurantes'} },
			{ 'N.º de bares', argumento{'número de bares'} },
			{ 'Estrellas', argumento{'estrellas'} },
			{ 'Temática', argumento{'tema'} },
			{ 'Director', argumento{'director'} },
			{ 'Cadena', argumento{'cadena'} },
		},
		{tipo = 'sección',
			['titulo'] = 'Sitio web',
			{ 'Sitio web', argumento{'sitio web', 'página web', 'url', {propiedad, 'P856'}} },
		},
		{tipo = 'sección',
			['titulo'] = 'Referencias',
			{'', argumento{'referencias'} },
		},
		{'', argumento{'ficha hija'} },
	}
	return ModuloFicha.infobox(Ficha)
end

-- helpers:

function propiedad(idPropiedad,opciones)
	-- global Entidad
	return ModuloWikidata.propiedad( Entidad, idPropiedad, opciones or {} )
end

-- Devuelve el mapa de localización
function obtenerMapaLoc(nombre)
	local frame = mw.getCurrentFrame()
	local mapa = argumento{'mapa loc', 'mapa'}
	local coor = propiedad('P625', {formato='dms', display='inline,title', tipo='landmark', uno='sí'})
	if mapa and coor then
		return frame:preprocess('{{Mapa de localización|' .. mapa
			.. '|mapa_alternativo = ' .. (argumento{'mapa alternativo'} or '')
			.. '|ancho = ' .. (argumento{'tam mapa loc'} or '275')
			.. '|alineación = center'
			.. '|marca = ' .. (argumento{'mark'} or 'Red pog.svg')
			.. '|tamaño_marca = ' .. (argumento{'marksize'} or '8')
			.. '|pie = ' .. (argumento{'pie mapa'} or '')
			.. '|etiqueta = ' .. nombre
			.. '|posición = ' .. (argumento{'pos etiqueta loc'} or '')
			.. '}}') or ''
	end
	return ''
end

--Devuelve la fecha de inicio y fin de la construcción
function obtenerfechasObra(unaTabla)
	-- TODO: MóduloWikidataFormatos.formatoPeriodo ?
	--local evsig = elementoTabla(Entidad, 'claims','P793',1)
	--local construccion = elementoTabla(Entidad,'claims','P793',1)
        
	local precision = elementoTabla(unaTabla,'qualifiers','P580',1,'datavalue','value','precision')
	if precision ~= 11 then
		return
	end
       	
	local fechainicio = elementoTabla(unaTabla,'qualifiers','P580',1,'datavalue','value','time')
	local anyoinicio = tonumber(fechainicio:sub(2,5))
	local mesinicio = tonumber(fechainicio:sub(7,8))
	local diainicio = tonumber(fechainicio:sub(10,11))
	local fechafin = elementoTabla(unaTabla,'qualifiers','P582',1,'datavalue','value','time')
	local anyofin = tonumber(fechafin:sub(2,5))
	local mesfin = tonumber(fechafin:sub(7,8))
	local diafin = tonumber(fechafin:sub(10,11))
	local meses = {"enero","febrero","marzo","abril","mayo","junio","julio","agosto","septiembre","octubre","noviembre","diciembre"}
	local retorno = {}
	retorno['fechainicio'] = diainicio ..' de '..meses[mesinicio]..' de '..anyoinicio
	retorno['fechafin'] = diafin..' de '..meses[mesfin]..' de ' ..anyofin
	return retorno
end

--Devuelve la fecha ceremonia de inauguración 
function devolvercereminaug(unaTabla)
	-- TODO: MóduloWikidataFormatos.formatoPeriodo ?
	local precision = elementoTabla(unaTabla,'qualifiers','P580',1,'datavalue','value','precision') -- 'fecha de inicio'
	if precision ~= 11 then
		return
	end
	   
	local fecha = elementoTabla(unaTabla,'qualifiers','P585',1,'datavalue','value','time') -- 'fecha'
	local anyo = tonumber(fechainicio:sub(2,5))
	local mes = tonumber(fechainicio:sub(7,8))
	local meses = {"enero","febrero","marzo","abril","mayo","junio","julio","agosto","septiembre","octubre","noviembre","diciembre"}
	local dia = tonumber(fechainicio:sub(10,11))
	local fecha = elementoTabla(unaTabla,'qualifiers','P582',1,'datavalue','value','time') -- 'fecha de fin'
	local retorno = dia .."de" ..meses[mes] .. "de" ..anyo
	return retorno
end

--Devuelve los campos de elementos significativos de Wikidata
function devolverelemensigs(unaEntidad)
	local evsigs = elementoTabla(unaEntidad,'claims','P793') -- 'evento significativo'
	if evsigs == nil then
		return
	end
	local elementos = {}
	for i, j in pairs(evsigs)
	do
		valorQ =  elementoTabla(j,'mainsnak','datavalue','value','id')
		if valorQ == 'Q385378' then -- 'construcción'
			elementos[valorQ] = obtenerfechasObra(j)
		elseif valorQ == 'Q3010369' then -- 'ceremonia de inauguración'
			elementos[valorQ] = devolvercereminaug(j)
		elseif valorQ == 'Q744913' then -- 'accidente de aviación'
			elementos[valorQ] = elementoTabla(construccion,'qualifiers','P805',1,'datavalue','value','id')
		elseif valorQ == 'Q1068633' then -- 'primera piedra'
			elementos[valorQ] = elementoTabla(construccion,'qualifiers','P585',1,'datavalue','value','time')
		end
	end
	return elementos
end

function obtenerColor()
	-- TODO: revisar colores y contraste
	local colores = {
		['hotel'] = '#A7D3F3', -- mejor que {{Ficha de hotel}}
		['edificio militar'] = '#665D1D', -- revisar, marrón demasiado oscuro, no se diferencia el texto
		['cuartel'] =  '#665D1D', -- ídem anterior
		['bar'] = '#BFFF00', -- revisar, verde claro intenso, fosforito ?
		['restaurante'] = '#BFFF00', -- ídem anterior
		['iglesia'] = '#F3D5E1', -- según {{Ficha de edificio religioso}}
		['hospital'] = 	'#EEE', -- según {{Ficha de hospital}}
		['monumento conmemorativo'] = '#D5D4FC', -- según {{Ficha de monumento}}
	}
	local tipoedificio = elementoTabla(Entidad,'claims','P31',1,'mainsnak','datavalue')
	tipoedificio = elementoTabla(tipoedificio,'value','id')
	local nombretipoedificio= mw.wikibase.getEntityObject(tipoedificio)
    nombretipoedificio = elementoTabla(nombretipoedificio,'labels','es','value')
    local uso =  argumento{'tipo', 'uso', 'usos', {propiedad, 'P366'}}
    if uso == "militar" or uso == "Militar" then
    	return colores['edificio militar']
    end
	return colores[nombretipoedificio] or '#ddd' -- según {{Ficha de edificio}} [original]
end

function obtenerSuperficie()
	-- global Entidad
	local frame = mw.getCurrentFrame()
	local valor = {}
	local datos = elementoTabla(Entidad,'claims','P2046') -- 'superficie'
	if datos ~= nil then
		for i, j in pairs(datos)
		do
			local medida = elementoTabla(j,'mainsnak','datavalue','value','amount')
			local unidad = elementoTabla(j,'mainsnak','datavalue','value','unit')
			if medida ~= nil then
				unidad = mw.ustring.gsub(unidad, '^.-/(Q%d+)$', '%1')
				if unidad ~= 'Q25343' then -- unidades en 'metro cuadrado'
					local unidades = {
						-- véanse valores admitidos para 'superficie' en https://www.wikidata.org/wiki/Property:P2046#P2302
						['Q2737347' ] = 'mm2',
						['Q2489298' ] = 'cm2',
						['Q25343'   ] = 'm2', -- unidad de destino
						['Q712226'  ] = 'km2',
						['Q185078'  ] = 'dam2',
						['Q35852'   ] = 'ha',
						['Q81292'   ] = 'acre',
						['Q232291'  ] = 'sqmi',
						['Q857027'  ] = 'sqft',
						['Q1063786' ] = 'sqin',
						-- ['Q21074767'] = 'sqvt', -- medida antigua en desuso, [[versta]] cuadrada
						-- ['Q669931'  ] = 'dessiatin', -- medida antigua en desuso
						-- ['Q935614'  ] = 'rai', -- medida antigua en desuso
						-- ['Q216795'  ] = 'dunam', -- medida antigua en desuso, [[dunam]]
						-- ['Q23931103'] = 'nmi²', -- no para edificios
						-- ['Q254532'  ] = 'sqdeg', -- no para edificios
						-- ? 'sqyd'
					}
					medida = frame:preprocess('{{Convertir|' .. medida .. '|' .. unidades[unidad] .. '|m2|abr=3|disp=#}}')
				end
				table.insert( valor, frame:preprocess('{{Unidad|' .. tostring( tonumber( medida ) ) .. '|[[metro cuadrado|m²]]}}') )
			end
		end
	end
	return mw.text.listToText( valor, ' o ', ' o ' )
end

function obtenerAlturas()
	-- global Entidad
	local frame = mw.getCurrentFrame()
	local valor = {}
	local datos = elementoTabla(Entidad,'claims','P2048') -- 'altura'
	if datos ~= nil then
		local valores = {}
		local altmax = ''
		local altarq = ''
		for i, j in pairs(datos)
		do
			local medida = elementoTabla(j,'mainsnak','datavalue','value','amount')
			local unidad = elementoTabla(j,'mainsnak','datavalue','value','unit')
			if medida ~= nil then
				unidad = mw.ustring.gsub(unidad, '^.-/(Q%d+)$', '%1')
				if unidad ~= 'Q11573' then -- unidades en 'metro'
					local unidades = {
						-- véanse valores admitidos para 'altura' en https://www.wikidata.org/wiki/Property:P2048#P2302
						['Q174789'] = 'mm',
						['Q174728'] = 'cm',
						-- ['Q11573'] = 'm', -- unidad de destino
						['Q828224'] = 'km',
						['Q218593'] = 'in',
						['Q3710'  ] = 'ft',
						-- ['Q355198' ] = 'pixel', -- no para edificios
						-- ['Q7673190'] = 'celda', -- no para edificios
						-- ? 'yd'
					}
					medida = frame:preprocess('{{Convertir|' .. medida .. '|' .. unidades[unidad] .. '|m|abr=3|disp=#}}')
				end
				valores[i] = tonumber( medida )
				local texto = frame:preprocess('{{Unidad|' .. tostring( valores[i] ) .. '|[[metro|m]]}}')
				local parte = elementoTabla(j,'qualifiers','P518',1,'datavalue','value','id')
				if parte == 'Q26970842' then -- 'altura máxima'
					if altmax ~= '' then
						altmax = altmax .. ' o '
					end
					altmax = altmax .. texto
				elseif parte == 'Q24192182' then -- 'altura arquitectónica'
					if altarq ~= '' then
						altarq = altarq .. ' o '
					end
					altarq = altarq .. texto
				end
			end
		end
		-- cuando no se especifica la 'altura máxima' se muestra la máxima altura disponible:
		if altmax == '' and #valores > 0 then
			altmax = 0
			for i,j in pairs(valores)
			do
				if altmax < tonumber(j) then
					altmax = tonumber(j)
				end
			end
			altmax = frame:preprocess('{{Unidad|' .. tostring(altmax) .. '|[[metro|m]]}}')
		end
	--	-- cuando no se especifica la 'altura arquitectónica' se muestran todas las alturas disponibles:
	--	if altarq == '' and #valores > 0 then
	--		altarq = ''
	--		for i,j in pairs(valores)
	--		do
	--			if altarq ~= '' then
	--				altarq = altarq .. ' o '
	--			end
	--			altarq = frame:preprocess('{{Unidad|' .. tostring(j) .. '|[[metro|m]]}}')
	--		end
	--	end
		valor.maxima = altmax
		valor.altura = altarq
	end
	return valor
end

function obtenerCalle()
	-- global Entidad
	local valor = {}
	local datos = elementoTabla(Entidad,'claims','P669') -- 'calle'
	if datos ~= nil then
		for i, j in pairs(datos)
		do
			local qid = elementoTabla(j,'mainsnak','datavalue','value','id')
			local obj = mw.wikibase.getEntityObject(qid)
			if obj ~= nil then
				local titulo = elementoTabla(obj,'labels','es','value')
				local pagina = obj:getSitelink('eswiki')
				if titulo ~= nil then
					local entrada = ''
					if pagina ~= nil then
						entrada = '[[' .. pagina .. '|' .. titulo .. ']]'
					else
						entrada = titulo
					end
					local nrocalle = elementoTabla(j,'qualifiers','P670',1,'datavalue','value')
					if nrocalle ~= nil then
						entrada = entrada .. ' n.º&nbsp;' .. nrocalle
					end
					table.insert( valor, entrada )
				end
			end
		end
	end
	return mw.text.listToText( valor )
end

function obtenerMaterial()
	-- global Entidad
	local valor = {}
	local datos = elementoTabla(Entidad,'claims','P186') -- 'material empleado'
	if datos ~= nil then
		for i,j in pairs(datos)
		do
			local qid = elementoTabla(j,'mainsnak','datavalue','value','id')
			local obj = mw.wikibase.getEntityObject(qid)
			if obj ~= nil then
				local titulo = elementoTabla(obj,'labels','es','value')
				local pagina = obj:getSitelink('eswiki')
				if titulo ~= nil then
					if pagina ~= nil then
						table.insert( valor, '[[' .. pagina .. '|' .. titulo .. ']]' )
					else
						table.insert( valor, titulo )
					end
				end
			end
		end
	end
	return mw.text.listToText( valor )
end

return z