Development by Davis

Headlines

martes, 7 de mayo de 2013

Development by Davis: “Open Source, Open Standards 2013 conference report” plus 2 more

Development by Davis: “Open Source, Open Standards 2013 conference report” plus 2 more


Open Source, Open Standards 2013 conference report

Posted: 07 May 2013 02:00 AM PDT

Open Source, Open Standards 2013 conference report

Last week Open Source, Open Standards 2013 took place in London, an event focused on the public sector. Naturally these being two topics we're very keen on here at OSS Watch I went along too.

Overall the key message to take away from the event was just how central to public sector IT strategy these two themes have become, and also how policy is being rapidly turned into practice, everywhere from the NHS to local government.

read more

Teaching the open source creative tool, Blender, to high school students

Posted: 07 May 2013 12:00 AM PDT

teaching open source

Blender is a powerful open source 3D drawing and animation program. This software was previously a commercial product, but is now available as a free download. Blender has been used to create stunningly beautiful 3D animated videos, including Big Buck Bunny. Check out some of the gorgeous animated movies made with Blender at the web site's Features Gallery. 

read more

Crystal Reports – Mostrar el número de licencias en uso

Posted: 06 May 2013 10:29 AM PDT

Buenas.

En este artículo voy a explicar cómo obtener el número de licencias en uso en Crystal Reports 8.5

Por petición de un cliente, me ha requerido que muestre en el index de una Intranet desarrollada en ASP, el número de licencias en uso de Crystal Reports 8.5, ya que tienen una licencia CAL de 5 usuarios.

Añadiremos lo siguiente en nuestra página ASP antes de la etiqueta <HTML>


<%
Response.ExpiresAbsolute = now()-1
dim oApp
dim nLicensed
dim nActive
dim bIsActive
Set oApp = Server.CreateObject("CrystalRuntime.Application")
bIsActive = oApp.GetLicenseStatus (nLicensed, nActive)
set oApp = nothing

Function GetNLicensed
if nLicensed = 2147483647 then
GetNLicensed = "Unlimited"
else
GetNLicensed = nLicensed
end if
end function

Function GetNActive
if bIsActive = True then
GetNActive = nActive-1
else
GetNActive = nActive
end if
end function

%>

Para obtener el número de licencias disponibles haremos la llamada en nuestra página de la siguiente manera:


<%=GetNLicensed%>


Para obtener el número de licencias en uso haremos la llamada en nuestra página de la siguiente manera:


<%=GetNActive%>


Espero que os haya servido de ayuda.

Un saludo.

No hay comentarios:

Publicar un comentario