PdcCalculation.Children - Revision history

Mike at 10:36, 23 April 2012

2012-04-23T10:36:42Z

← Older revision		Revision as of 10:36, 23 April 2012
Line 20:		Line 20:
	for intCount = 0 to objCalc.Children.Count -1		for intCount = 0 to objCalc.Children.Count -1
	set objSubCalc = objCalc.Children(intCount)		set objSubCalc = objCalc.Children(intCount)
	msgbox objSubCalc.Description		msgbox objSubCalc.Description
	next		next
	</source>		</source>

	== Availability ==		== Availability ==

Mike at 10:36, 23 April 2012

2012-04-23T10:36:25Z

← Older revision		Revision as of 10:36, 23 April 2012
Line 3:		Line 3:

	== Description ==		== Description ==
	~~Changes~~ the ~~stock for the supplied material number~~.		Returns the CalculationList object.

	== Notes ==		== Notes ==
	This ~~method will add or subtract~~ the ~~supplied quantity to~~ the ~~stock for~~ the ~~supplied material number~~.		This property returns the CalculationList object for the subcalculations of the calculation object.

	== Code example ==		== Code example ==
	This code ~~adds 100 items to~~ the ~~stated materialnumber's stock position~~.		This code example loops through the subcalculations of a calculation and returns the description.

	<source lang="vb">		<source lang="vb">
	dim ~~strMatNr~~		dim objCalc
	dim ~~tblMAT~~		dim objSubCalc
			dim intCount

	~~strMatNr = "12345"~~		set objCalc = pdc.ActiveCalculation
	set ~~tblMAT~~ = pdc.~~Database.OpenTable(pdcConData, "LM_MAT", "LM_MATN")~~
			for intCount = 0 to objCalc.Children.Count -1
	~~if IsValid(tblMat) and tblMat~~.~~Locate("LM_MATN", strMatNr) then~~		set objSubCalc = objCalc.Children(intCount)
	~~msgbox "Current stock level~~ = ~~" & tblMat~~.~~GetField~~(~~"LM_HOEV"~~)		msgbox objSubCalc.Description
	~~pdc.ChangeStock(strMatNr, 100)~~		next
	msgbox ~~"New stock level = " & tblMat~~.~~GetField("LM_HOEV")~~
	~~set tblMat = nothing~~
	~~end if~~
	</source>		</source>

	== Availability ==		== Availability ==
	~~Available since November 2004 (From version 3.5)~~

Mike at 10:34, 23 April 2012

2012-04-23T10:34:25Z

← Older revision		Revision as of 10:34, 23 April 2012
Line 1:		Line 1:
	== Declaration ==		== Declaration ==
	Children as ==[[ pdcCalculationList]]==		Children as [[pdcCalculationList]]

	== Description ==		== Description ==

Mike at 10:32, 23 April 2012

2012-04-23T10:32:57Z

← Older revision		Revision as of 10:32, 23 April 2012
Line 1:		Line 1:
	== Declaration ==		== Declaration ==
	~~ChangeStock(strMatNr~~ as ~~String, dblMutatie as double)~~		Children as ==[[ pdcCalculationList]]==

	== Description ==		== Description ==

Mike: Created page with "== Declaration == ChangeStock(strMatNr as String, dblMutatie as double) == Description == Changes the stock for the supplied material number. == Notes == This method will ad..."

2012-04-23T10:28:58Z

Created page with "== Declaration == ChangeStock(strMatNr as String, dblMutatie as double) == Description == Changes the stock for the supplied material number. == Notes == This method will ad..."

New page

== Declaration ==
ChangeStock(strMatNr as String, dblMutatie as double)

== Description ==
Changes the stock for the supplied material number.

== Notes ==
This method will add or subtract the supplied quantity to the stock for the supplied material number.

== Code example ==
This code adds 100 items to the stated materialnumber's stock position.

<source lang="vb">
dim strMatNr
dim tblMAT

strMatNr = "12345"
set tblMAT = pdc.Database.OpenTable(pdcConData, "LM_MAT", "LM_MATN")

if IsValid(tblMat) and tblMat.Locate("LM_MATN", strMatNr) then
msgbox "Current stock level = " & tblMat.GetField("LM_HOEV")
pdc.ChangeStock(strMatNr, 100)
msgbox "New stock level = " & tblMat.GetField("LM_HOEV")
set tblMat = nothing
end if
</source>

== Availability ==
Available since November 2004 (From version 3.5)