== Descripción ==
Chequea que haya pasado correctamente el acceso a la base de datos y que no esté en modalidad de desarrollo ([[VARG:oCheckEstadoLicencia]])
== Composición ==
== Código ==
<small><pre>
Function ChequeoValorLicenciaOK(oEvent as Object)

Dim oMensaje 	As String

	'MsgBox("Licenciamiento= " & CStr(oEstadoLicenciamientoOK))
	'MsgBox("Cambio a 0")
	'oEstadoLicenciamientoOK=0
	if oEstadoLicenciamientoOK=1 Then
		'MsgBox("Licencia Ok")
	else
		oMensaje = ""
		oMensaje = oMensaje + "Chequeo de Licencia Erronea." + Chr(13)
		oMensaje = oMensaje + "Solicite sea instalado nuevamente por CloudOffice (R)" + Chr(13)
		oMensaje = oMensaje + "Mensajes a info@cloudoffice.com.ar" + Chr(13)
		MsgBox(oMensaje, 16, "Error Fatal")
		if oCheckEstadoLicencia Then
			oEvent.Source.ActiveConnection.close()
			StarDesktop.Terminate()
		else
			oEstadoLicenciamientoOK=1
		end if
	endif
	'MsgBox("ChequeoValorLicenciaOK: Fin")

end Function
</pre></small>
== Bitácora ==
== Uso ==