Please enable JavaScript to view this site.

QPR Knowledge Base 2019.1

Navigation: Developer's Guide > QPR Scripting > Example Scripts

Create Model from Scratch

 Scroll Prev Top Next More

<QPR_SCRIPT_FILE language = vbscript>

Option Explicit

 

Sub Main()

 Dim oModel

 Dim SCError

 

 SCError=SCApplication.Authenticate("qpr", "demo","")

 If SCError <> 0 then

   MsgBox "Error: " +  SCApplication.GetErrorMessage(SCError)

   Exit Sub

 End If

 SCError=SCApplication.CreateModel("ScriptTest", "Dentorex Group Scorecard", oModel)

 If SCError <> 0 then

   MsgBox "Error: " +  SCApplication.GetErrorMessage(SCError)

   Exit Sub

 End If

 

 Dim RootSCId

 

 SCError=oModel.CreateScorecard("CompanyX Top Scorecard", "", 0, RootSCId)

 If SCError <> 0 then

   MsgBox "Error: " +  SCApplication.GetErrorMessage(SCError)

   Exit Sub

 End If

 

 Dim SCId

 

 SCError=oModel.CreateScorecard("CompanyX Sales", "", RootSCId, SCId)

 If SCError <> 0 then

   MsgBox "Error: " +  SCApplication.GetErrorMessage(SCError)

   Exit Sub

 End If

 

 Dim PerspectiveId

 

 SCError=oModel.CreateElement(44307, "Human", "", SCId, 0, PerspectiveId)

 If SCError <> 0 then

   MsgBox "Error: " +  SCApplication.GetErrorMessage(SCError)

   Exit Sub

 End If

 

 Dim CSFId

 

 SCError=oModel.CreateElement(806347552, "Human CSF", "", SCId,PerspectiveId, CSFId)

 If SCError <> 0 then

   MsgBox "Error: " +  SCApplication.GetErrorMessage(SCError)

   Exit Sub

 End If

 

 Dim MeaId, Id, plId, uId

 

 SCError=oModel.CreateElement(1, "Happy index", "MEA_HappyIdx", SCId, CSFId, MeaId)

 If SCError <> 0 then

   MsgBox "Error: " +  SCApplication.GetErrorMessage(SCError)

   Exit Sub

 End If

 SCError=oModel.SetProperty(MeaId, "Description", "Project manager counts all smiles of project members on a daily basis. Smile must last at least 5 seconds")

 If SCError <> 0 then

   MsgBox "Error: " +  SCApplication.GetErrorMessage(SCError)

   Exit Sub

 End If

 

'

' Insert here a function to get the Id of the desired value settings from the model

'

 

 SCError=oModel.SetProperty(MeaId, "ValueSettingId", Id)

 'If SCError <> 0 then Exit Sub

 

'

' Insert here a function to get the Id of the desired period level from the model

' to the plId variant

'

 

 SCError=oModel.SetProperty(MeaId, "PeriodLevelId", plId)

 If SCError <> 0 then

   MsgBox "Error: " +  SCApplication.GetErrorMessage(SCError)

   Exit Sub

 End If

 SCError=oModel.SetProperty(MeaId, "Unit", "Index")

 'If SCError <> 0 then Exit Sub

'

' Insert here a function to get the Id of the desired in charge user Id from the

' model to the uId variant

'

 SCError=oModel.SetProperty(MeaId, "InCharge", uId)

 'If SCError <> 0 then Exit Sub

 

 Dim Values

 

'

' Insert here a function to fill the Values array with values

'

 SCError=oModel.SetValues (MeaId, Values)

 'If SCError <> 0 then Exit Sub

 SCApplication.Quit()

 

End Sub