QPR Knowledge Base 2019.1

<QPR_SCRIPT_FILE language = vbscript>

Option Explicit

 

Sub Main()

 

 Dim oModel

 Dim SCError

 

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

   IF SCError <> 0 then Exit Sub 'SCApplication.GetErrorMessage(SCError) could be called

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

   if SCError <> 0 then Exit Sub

 

 Dim Elements 'array of name, id, symbol, scId, scsymbol

 Dim InCharge

 Dim InChargeToReplace

 Dim I

 

   SCError=oModel.GetElements("ELEMENT", Elements)

   if SCError <> 0 then Exit Sub

   For I = Lbound(Elements,2) + 1 to Ubound(Elements,2) 'first row has headers

 

     SCError=oModel.GetProperty(Elements(I,1), "InCharge", InCharge)

     If SCError <> 0 then Exit For

 

     SCError=SCApplication.GetUserId("jsmith", InChargeToReplace) 'User login name must be used here

   If SCError <> 0 then Exit For

 

   If InCharge=InChargeToReplace then

       SCError=oModel.SetProperty(Elements(I,1), "InCharge", 1) 'User ID must be used here

       If SCError <> 0 then Exit For

     End If

   Next

 

End Sub