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.

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