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 project as pdcEXT.IProject
dim projectLine as pdcEXT.IProjectLine

  project = PDC.App.Projects.Active
  if project isnot Nothing then
    projectLine = project.ProjectLineList.AddCalculationCopy("01351")
    if projectLine isnot Nothing then
      msgbox("The calculation is copied.")
    else
      msgbox("The copy of the calculation is failed.")
    end if
    project.Refresh
    System.Runtime.InteropServices.Marshal.FinalReleaseComObject(projectLine)
    System.Runtime.InteropServices.Marshal.FinalReleaseComObject(project)
  end if

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.