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