Info | ||
---|---|---|
| ||
|
...
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ReceiveMOB WMS Ship", 'OnPostReceiveOrderOnPostShipOrder_OnAddStepsToWarehouseReceiptHeaderOnAddStepsToWarehouseShipmentHeader', '', true, true)]
local procedure OnPostReceiveOrder OnPostShipOrder_OnAddStepsToWarehouseReceiptHeaderOnAddStepsToWarehouseShipmentHeader(var _OrderValues: Record "MOB Common Element"; _WhseReceiptHeaderWhseShipmentHeader: Record "Warehouse Receipt HeaderWarehouse Shipment Header"; var _Steps: Record "MOB Steps Element")
begin
end;
Example
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ReceiveMOB WMS Ship", 'OnPostReceiveOrderOnPostShipOrder_OnAddStepsToWarehouseReceiptHeaderOnAddStepsToWarehouseShipmentHeader', '', true, true)]
local procedure MyOnPostReceiveOrder MyOnPostShipOrder_OnAddStepsToWarehouseReceiptHeaderOnAddStepsToWarehouseShipmentHeader(var _OrderValues: Record "MOB Common Element"; _WhseReceiptHeaderWhseShipmentHeader: Record "Warehouse Receipt HeaderWarehouse Shipment Header"; var _Steps: Record "MOB Steps Element")
begin
// Break if some condition to include news step Break if some condition to include news step(s) is not met
is not met
// if if .... then
then
// exit exit;
// Break if new datestep is already collected to prevent infinite loop Break if new datestep is already collected to prevent infinite loop
if _OrderValues.HasValue('MyPostingDate') then
exit;
// Create a new date step for manually selecting Posting Date
_Steps.Create_DateStep(10000, 'MyPostingDate');
_Steps.Set_header('Posting Date');
_Steps.Set_minDate(Today() - 10);
_Steps.Set_maxDate(Today());
end;
Filter by label (Content by label) | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|
|
...