PdcProjectLineList.AddCalculationCopy

Declaration

AddCalculationCopy(ACalcNr as String) as PdcProjectLine

Description

Copy the applied calculation always as a new projectline.

Notes

The copied calculation is always an identical copy without any update of prices and surcharges. This work exactly like pdcCalculations.Copy. If you want to update charges, you can call pdcCalculation.UpdatePricesAll

Code example

dim objProject
dim objPJLine

  set objProject = pdc.projects.active
  set objPJLine = objProject.ProjectLineList.AddCalculationCopy("01351")
  if IsValid(objPJLine) then
    msgbox "The calculation is copied."
  else
    msgbox "The copy of the calculation is failed."
  end if
  objProject.Refresh

Availability

Available since February 2011 (From version 4.2 onwards).