PdcMaterial.Discount

Declaration

Discount as double

Description

Returns or changes the discount percentage

Notes

This property sets or returns the discount of a material.

Code example

This code example opens a calculation, loops through its materials and returns the discount (%) for each of them.

dim objCalc

  set objCalc = pdc.OpenCalculation("00685")
  for i = 0 to objCalc.MaterialList.Count -1
    set objMat = objCalc.MaterialList(i)
    msgbox "Material's discount: " & objMat.Discount
  next