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.
Its works exactly like pdcCalculations.Copy. If you want to update charges, you can call pdcCalculation.UpdateChargesAll

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). The Copy calculation screen is shown. 25-7-2014 in version 4.3 onwards: The copy calculation screen is suppressed and an identical copy is made.