Revision history:
Introduced in QPR 7.2.1
Last changed in QPR 2012.2
Opens a server model. Using this commands requires that there is an open server connection available.
Synopsis:
PGApplication.OpenServerModel(ServerModelPath | ServerModelId, out Model)
Parameters:
ServerModelPath: Path of the model in the server. String. The path can point at any of the following: root model, model branch, or directly to a model version. In the case a root model or a branch model is specified, the latest version of the root/branch model is opened. In the case also version is specified, that exact version is used.
ServerModelId: ID of the model. Integer. The ID can point at any of the following: root model, model branch, or directly to a model version. In the case a root model or a branch model is specified, the latest version of the root/branch model is opened. In the case also version is specified, that exact version is used. Note that with versioned models the ID can be either the model ID of the model version or version ID of the model.
out Model: Variant for storing the model that is opened.
Required Rights:
At least view rights to the model.
Return Values:
Below are listed the return values that this function can return:
RV_SUCCESS
RV_APPLICATION_QUIT_CALLED
RV_NOT_CONNECTED_TO_SERVER
RV_CANNOT_CLOSE_MODEL
RV_CANCELLED
RV_CANNOT_CONNECT_TO_SERVER
RV_NOT_AUTHENTICATED
RV_LOGIN_FAILED
RV_MODEL_DOES_NOT_EXIST
RV_NO_RIGHTS_TO_MODEL
RV_CANNOT_RESERVE_MODEL
RV_UNKNOWN_ERROR
RV_CANNOT_OPEN_MODEL
RV_FUNCTION_CANNOT_BE_USED_IN_VALIDATION_SCRIPT
Example Procedure:
Sub OpenDentorexModel()
Dim iResult
Dim oModel
Call ConnectToServerAndAuthenticate
iResult = PGApplication.OpenServerModel("\\Dentorex - Quality Management System\Drafts\0.3", oModel)
If (iResult <> 0) Then
MsgBox "Model opening failed: " + PGApplication.GetErrorMessage(iResult)
End If
End Sub
