Here is a simple method to change the TCP port ID that is used by the 4D Web server.

` Project Method: Set_WebPort
C_LONGINT($1;$newportid)
STOP WEB SERVER
$newportid:=$1
If (Application type#4)
 SET DATABASE PARAMETER(Port ID ;$newportid)
Else
 SET DATABASE PARAMETER(Client Port ID ;$newportid)
End if
START WEB SERVER