PdcProjectLineList.AddCalculationCopy: Difference between revisions
Jump to navigation
Jump to search
No edit summary |
|||
| (One intermediate revision by the same user not shown) | |||
| Line 11: | Line 11: | ||
== Code example == | == Code example == | ||
<source lang=" | <source lang="VB.Net"> | ||
dim | dim project as pdcEXT.IProject | ||
dim | 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 | end if | ||
</source> | </source> | ||
== Availability == | == Availability == | ||
Available since February 2011 (From version 4.2 onwards). The Copy calculation screen is shown. | Available since February 2011 (From version 4.2 onwards). The Copy calculation screen is shown.<br> | ||
25-7-2014 in version 4.3 onwards: The copy calculation screen is suppressed and an identical copy is made. | 25-7-2014 in version 4.3 onwards: The copy calculation screen is suppressed and an identical copy is made. | ||
Latest revision as of 14:00, 2 August 2023
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.