PdcStatusManagement.SetManualStatus

Declaration

SetManualStatus(CalculationNo as String,ID as long) as Boolean

Notes

This function allows the user to set an manual status for the calculation. When the given id is an id of an automatic status the function returns false. The error given is stored in pdc.LastError.

Code example

This code example changes the status of the active calculation to status 5 (which has ID 32).

dim objCalc

  set objCalc = pdc.ActiveCalculation

  if pdc.Calculations.StatusManagement.SetManualStatus(objCalc.CalculationNo, 32) then '32 is the integer ID of the status 
    objCalc.Refresh
  else
    msgbox "Changing status for calculation " & objCalc.CalculationNo & " failed!"
  end if

Availability

Available since version 4.3 onwards.