...
IF FORMAT("Shipping Time") <> '' THEN
VALIDATE(
"Planned Shipment Date",
CalendarMgmt.CalcDateBOC2(
FORMAT("Shipping Time"),
"Planned Delivery Date",
CalChange."Source Type"::"Shipping Agent",
"Shipping Agent Code",
"Shipping Agent Service Code",
CalChange."Source Type"::Customer,
"Sell-to Customer No.",
'',
TRUE))
ELSE
VALIDATE(
"Planned Shipment Date",
CalendarMgmt.CalcDateBOC(
FORMAT(''),
"Planned Delivery Date",
CalChange."Source Type"::"Shipping Agent",
"Shipping Agent Code",
"Shipping Agent Service Code",
CalChange."Source Type"::Customer,
"Sell-to Customer No.",
'',
TRUE));
IF "Planned Shipment Date" > "Planned Delivery Date" THEN
...
...
IF FORMAT("Shipping Time") <> '' THEN
VALIDATE(
"Planned Shipment Date",
CalendarMgmt.CalcDateBOC2(
FORMAT("Shipping Time"),
"Planned Delivery Date",
CalChange."Source Type"::"Shipping Agent",
"Shipping Agent Code",
"Shipping Agent Service Code",
CalChange."Source Type"::Customer,
"Sell-to Customer No.",
'',
NOT RequestedPromisedDateCalulated))
ELSE
VALIDATE(
"Planned Shipment Date",
CalendarMgmt.CalcDateBOC(
FORMAT(''),
"Planned Delivery Date",
CalChange."Source Type"::"Shipping Agent",
"Shipping Agent Code",
"Shipping Agent Service Code",
CalChange."Source Type"::Customer,
"Sell-to Customer No.",
'',
NOT RequestedPromisedDateCalulated));
IF "Planned Shipment Date" > "Planned Delivery Date" THEN
...