PdcCalculation.Save

Declaration

Save

Description

Store the calculation in the database

Notes

This method saves the calculation object. It is not necessary to have the calculation shown on screen to save it.

Code example

This code example creates a new calculation, adds a material and operation to it and saves it. Whether the save was succesful is reported to the user.

<source lang="vb"> dim objCalc

 set objCalc = pdc.NewCalculation
 objCalc.MaterialList.Add("12345")
 objCalc.OperationList.Add 0,"3075"
 objCalc.Save
 if pdc.LastError = "" then
   msgbox "Calculation " & objCalc.CalculationNo & " was saved successfully"
   objCalc.Show
 else
   msgbox "An error has occurred while saving calculation " & objCalc.CalculationNo & ": " & pdc.lasterror
 end if