PdcCalculation.ChangeDeliveryDate
dim objCalc
set objCalc= pdc.OpenCalculation("01281") if objCalc.changedeliverydate(CDate("2015-10-08"), "KL") then msgbox "OK" else msgbox pdc.LastError end if objCalc.Save objCalc.show
dim objCalc
set objCalc= pdc.OpenCalculation("01281") if objCalc.changedeliverydate(CDate("2015-10-08"), "KL") then msgbox "OK" else msgbox pdc.LastError end if objCalc.Save objCalc.show