PdcStatusManagement.SetManualStatus - Revision history

TC at 06:11, 17 September 2013

2013-09-17T06:11:59Z

← Older revision		Revision as of 06:11, 17 September 2013
Line 24:		Line 24:
	</source>		</source>
	<br>		<br>
	This code example does the same, without opening the calculation object.		This code example does the same, without opening the calculation object.<br>
	<br>		<br>
	<source lang="vb">		<source lang="vb">

TC at 06:11, 17 September 2013

2013-09-17T06:11:34Z

← Older revision		Revision as of 06:11, 17 September 2013
Line 23:		Line 23:
	end if		end if
	</source>		</source>
			<br>
			This code example does the same, without opening the calculation object.
			<br>
	<source lang="vb">		<source lang="vb">
	if not pdc.Calculations.StatusManagement.SetManualStatus("01288", 32) then '32 is the integer ID of the status		if not pdc.Calculations.StatusManagement.SetManualStatus("01288", 32) then '32 is the integer ID of the status

TC at 06:10, 17 September 2013

2013-09-17T06:10:09Z

← Older revision		Revision as of 06:10, 17 September 2013
Line 16:		Line 16:

	set objCalc = pdc.ActiveCalculation		set objCalc = pdc.ActiveCalculation
			if pdc.Calculations.StatusManagement.SetManualStatus(objCalc.CalculationNo, 32) then '32 is the integer ID of the status
	if pdc.Calculations.StatusManagement.SetManualStatus(objCalc.CalculationNo, 32) then '32 is the integer ID of the status
	objCalc.Refresh		objCalc.Refresh
	else		else
	msgbox "Changing status for calculation " & objCalc.CalculationNo & " failed!"		msgbox "Changing status for calculation " & objCalc.CalculationNo & " failed!" & vbCrLf & _
			"Message: " & pdc.LastError
	end if		end if
	</source>		</source>

			<source lang="vb">
			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
			</source>


	== Availability ==		== Availability ==
	Available since version 4.3 onwards.		Available since version 4.3 onwards.

Machteld at 10:57, 23 August 2012

2012-08-23T10:57:52Z

← Older revision		Revision as of 10:57, 23 August 2012
Line 17:		Line 17:
	set objCalc = pdc.ActiveCalculation		set objCalc = pdc.ActiveCalculation

	if pdc.Calculations.StatusManagement.SetManualStatus objCalc.CalculationNo, 32 then '32 is the integer ID of the status		if pdc.Calculations.StatusManagement.SetManualStatus(objCalc.CalculationNo, 32) then '32 is the integer ID of the status
	objCalc.Refresh		objCalc.Refresh
	else		else

Mike: /* Code example */

2012-05-24T12:42:16Z

Code example

← Older revision		Revision as of 12:42, 24 May 2012
Line 17:		Line 17:
	set objCalc = pdc.ActiveCalculation		set objCalc = pdc.ActiveCalculation

	if pdc.Calculations.StatusManagement.SetManualStatus objCalc.CalculationNo, 32 '32 is the integer ID of the status ~~then~~		if pdc.Calculations.StatusManagement.SetManualStatus objCalc.CalculationNo, 32 then '32 is the integer ID of the status
	objCalc.Refresh		objCalc.Refresh
	else		else

Mike: /* Code example */

2012-05-24T12:41:49Z

Code example

← Older revision		Revision as of 12:41, 24 May 2012
Line 10:		Line 10:

	== Code example ==		== Code example ==
	This code example ~~shows~~ the ~~calculationnumber, current status and previous~~ status of the active status ~~object~~.		This code example changes the status of the active calculation to status 5 (which has ID 32).

	<source lang="vb">		<source lang="vb">
	pdc.Calculations.~~StatusInfo~~.SetManualStatus~~("11-08451"~~,1)		dim objCalc
	msgbox "~~Cn:~~ " & ~~objStat~~.CalculationNo
	~~msgbox~~ "~~Cur:~~ " ~~& objStat.CurrentStatus~~		set objCalc = pdc.ActiveCalculation
	~~set objStat = nothing~~
			if pdc.Calculations.StatusManagement.SetManualStatus objCalc.CalculationNo, 32 '32 is the integer ID of the status then
			objCalc.Refresh
			else
			msgbox "Changing status for calculation " & objCalc.CalculationNo & " failed!"
			end if
	</source>		</source>

	== Availability ==		== Availability ==
	Available since version 4.3 onwards.		Available since version 4.3 onwards.

Mike: Created page with "== Declaration == SetManualStatus(CalculationNo as String,ID as long) as Boolean == Description == == Notes == This function allows the user to set an manual status for the..."

2012-05-21T12:02:21Z

Created page with "== Declaration == SetManualStatus(CalculationNo as String,ID as long) as Boolean == Description == == Notes == This function allows the user to set an manual status for the..."

New page

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

== Description ==

== 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 shows the calculationnumber, current status and previous status of the active status object.

<source lang="vb">
pdc.Calculations.StatusInfo.SetManualStatus("11-08451",1)
msgbox "Cn: " & objStat.CalculationNo
msgbox "Cur: " & objStat.CurrentStatus
set objStat = nothing
</source>

== Availability ==
Available since version 4.3 onwards.