Crystal Reports – Mostrar el número de licencias en uso
Written by lopezatienza on 06/05/2013 – 19:29 -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.
Autor: Antonio Lopez Atienza
Posted in ASP | No Comments »
