<QPR_SCRIPT_FILE language = vbscript>

Option Explicit

 

Sub Main()

 

 Dim oModel

 Dim SCError

 

 'do not authenticate, use already logged in user instead

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

 if SCError<0 then Exit Sub

 

 Dim ElementId

 

 SCError=oModel.GetElementId("DENGROUP", "FINANCIAL", ElementId)

 if SCError<0 then Exit Sub

 SCError=oModel.SetProperty(ElementId, "PeriodLevelId", 44313)

 if SCError<0 then Exit Sub

 

End Sub