Fix:ACI0105025

Author: yannicktrinh

Project/Sources/Classes/OAuth2Provider.4dm

@@ -332,13 +332,7 @@ Function _sendTokenRequest($params : Text)->$result : Object
 
 		Else 
 
-			var $licenseAvailable : Boolean
-			If (Application type:C494=4D Remote mode:K5:5)
-				$licenseAvailable:=Is license available:C714(4D Client Web license:K44:6)
-			Else 
-				$licenseAvailable:=(Is license available:C714(4D Web license:K44:3) | Is license available:C714(4D Web local license:K44:14) | Is license available:C714(4D Web one connection license:K44:15))
-			End if 
-			If ($licenseAvailable)
+			If (Storage.webLicenseAvailable)
 				This:C1470._throwError(4)  // Timeout error
 			Else 
 				This:C1470._throwError(11)  // License error

Project/Sources/DatabaseMethods/onHostDatabaseEvent.4dm

@@ -4,5 +4,13 @@ Case of
 	: ($1=On before host database startup:K74:3)
 		var $webServer : Object
 		$webServer:=WEB Server:C1674
+		Use (Storage:C1525)
+			If (Application type:C494=4D Remote mode:K5:5)
+				Storage:C1525.webLicenseAvailable:=Is license available:C714(4D Client Web license:K44:6)
+			Else 
+				Storage:C1525.webLicenseAvailable:=(Is license available:C714(4D Web license:K44:3) | Is license available:C714(4D Web local license:K44:14) | Is license available:C714(4D Web one connection license:K44:15))
+			End if 
+		End use 
+		
 End case