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!" & vbCrLf & _
           "Message: " & pdc.LastError
  end if

This code example does the same, without opening the calculation object.

  if not pdc.Calculations.StatusManagement.SetManualStatus("01288", 32) then '32 is the integer ID of the status
    msgbox "Changing status for calculation " & "01288" & " failed!" & vbCrLf & _
           "Message: " & pdc.LastError
  end if

Availability

Available since version 4.3 onwards.