PdcMaterial.BCostPrice

Declaration

BCostPrice as double

Description

Returns the real costprice

Notes

This property returns (i.e. READ ONLY) the actual cost price of the material and is obviously only of interest once production has been reported.

Code example

This code example opens a calculation, loops through its materials, and shows the actual cost price for each material in a message box.

dim objCalc

  set objCalc = pdc.OpenCalculation("00685")
  for i = 0 to objCalc.MaterialList.Count -1
    set objMat = objCalc.MaterialList(i)
    msgbox "The area factor is" & objMat.BCostPrice
  next