fix : ACI0105675

Author: delahaye-4D

Build4D/Project/Sources/Classes/Server.4dm

@@ -908,9 +908,8 @@ Function build() : Boolean
 		var $path : Text
 		var $hasClients : Boolean
 		var $infos : Object
-		//var $portNumber : Integer
 
-		$path:=This.settings.destinationFolder.path
+		$path:=Folder(This.settings.destinationFolder.platformPath; fk platform path).path
 
 		$path+=(Is macOS) ? "Contents/Upgrade4DClient/" : "Upgrade4DClient/"
 
@@ -922,15 +921,47 @@ Function build() : Boolean
 
 		$Upgrade4DClient.create()
 
-		If (OB Instance of(This.settings.macOSClientArchive; 4D.File))  //#2062
+		// ACI0105675 update
+		
+		var $formula : 4D.Function
+		var $cmd : Text
+		
+		Case of 
+				
+			: (Value type(This.settings.macOSClientArchive)=Is text) && (Position(Folder separator; This.settings.macOSClientArchive)>0) && (Test path name(This.settings.macOSClientArchive)=Is a document)
+				This.settings.macOSClientArchive:=File(This.settings.macOSClientArchive; fk platform path)
+				
+			: (Value type(This.settings.macOSClientArchive)=Is text) && (Position("/"; This.settings.macOSClientArchive)=1)
+				$cmd:="File:C1566(\""+This.settings.macOSClientArchive+"\").platformPath"
+				$formula:=Formula from string($cmd; sk execute in host database)
+				This.settings.macOSClientArchive:=File($formula.call(); fk platform path)
+				
+		End case 
+		
+		If (OB Instance of(This.settings.macOSClientArchive; 4D.File) && (This.settings.macOSClientArchive.exists))  //#2062
 
 			This.settings.macOSClientArchive.copyTo($Upgrade4DClient)
 
 			$hasClients:=True
 
 		End if 
 
-		If (OB Instance of(This.settings.windowsClientArchive; 4D.File))  //#2063
+		// ACI0105675 update
+		
+		Case of 
+				
+			: (Value type(This.settings.windowsClientArchive)=Is text) && (Position(Folder separator; This.settings.windowsClientArchive)>0) && (Test path name(This.settings.windowsClientArchive)=Is a document)
+				This.settings.windowsClientArchive:=File(This.settings.windowsClientArchive; fk platform path)
+				
+			: (Value type(This.settings.windowsClientArchive)=Is text) && (Position("/"; This.settings.windowsClientArchive)=1)
+				$cmd:="File:C1566(\""+This.settings.windowsClientArchive+"\").platformPath"
+				$formula:=Formula from string($cmd; sk execute in host database)
+				This.settings.windowsClientArchive:=File($formula.call(); fk platform path)
+				
+		End case 
+		
+		
+		If (OB Instance of(This.settings.windowsClientArchive; 4D.File) && (This.settings.windowsClientArchive.exists))  //#2063
 
 			This.settings.windowsClientArchive.copyTo($Upgrade4DClient)