Pack & Ship Extension - OnPostPackingOnBeforePostWarehouseShipment (MOS)

Use this event to

Create "Transport Orders" (or similar) in 3rd party Shipping App

Description

This event is triggered prior to a Warehouse Shipment being posted. You may use the event to:

• Update values at the Whse. Shipments (header or lines) prior to posting
• Create transport orders (or similar) for the Whse. Shipment  (or use Pack & Ship Extension - OnPostPackingOnAfterPostWarehouseShipment (MOS) event if you want the Transport Order to be created after posting)
  • Create transport order packages (or similar) based on untransferred license plates
  • Mark untransferred license plates as now already Transferred to Shipping.

Note: This event is similar to standard event "Whse.-Post Shipment.OnAfterCheckWhseShptLine".  It is included in the codeunit "MOS Pack API" for more accessible "interface" (all neccessary events are in one codeunit).

See also: Pack & Ship Extension - Write transaction data to 3rd party Shipping App

Template

    /// <remarks>
    /// Redirected from standard event OnAfterCheckWhseShptLine to new local event for more accessible "interface" (all neccessary events in Codeunit MOS Pack API)
    /// </remarks>
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOS Pack API", 'OnPostPackingOnBeforePostWarehouseShipment', '', false, false)]
    local procedure OnPostPackingOnBeforePostWarehouseShipment(var WhseShptHeader: Record "Warehouse Shipment Header"; var WhseShptLine: Record "Warehouse Shipment Line")
    begin
    end;

Example - Create Transport Order, Transport Order Packages and mark untransferred License Plates as now already Transferred to Shipping

In the example below the IdysActionManagement.WhseShipmtHdr_CreateTransportOrder() will create the Transport Order but not return any information about which exact Transport Order was created. This complicates the code and the example somewhat.

Since the new TransportOrder is unknown we are instead subscribing to event "IDYS Publisher".OnAfterCreateTransportOrderLine (a table describing the relation between the Sales Order Shipment and the Transport Order). This event will trigger during IdysActionManagement.WhseShipmtHdr_CreateTransportOrder. Based on the TransportOrderLine received with this event we are able to syncronize package information from our internal license plates tables to "IDYS Transport Order Packages".

Had the new Transport Order No. been known in our OnPostPackingOnBeforePostWarehouseShipment-subscriber below, we could have created Transport Order Packages directly within this event and a good chunk of the code from the example below would no longer be needed (including all code in CollectShipItTransportOrderNosByWhseShipment, CollectShipItTransportOrderNosBySource and GetWhseShipmentNoBySourceLine).

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOS Pack API", 'OnPostPackingOnBeforePostWarehouseShipment', '', false, false)]
    local procedure OnPostPackingOnBeforePostWarehouseShipment(var WhseShptHeader: Record "Warehouse Shipment Header"; var WhseShptLine: Record "Warehouse Shipment Line")
    begin
        UpdateQuantityToTransport(WhseShptLine);

        if HasQuantityToTransport(WhseShptLine) then
            CreateTransportOrder(WhseShptHeader); // May append to existing transport order
    end;

    local procedure UpdateQuantityToTransport(var _WhseShptLine: Record "Warehouse Shipment Line"): Boolean
    var
        WhseShptLine2: Record "Warehouse Shipment Line";
    begin
        // Simple implementation: Assuming everything is for ShipIt (currently not checking package + package type exists and is asociated to IDYS)
        WhseShptLine2.Copy(_WhseShptLine);
        if WhseShptLine2.FindSet() then
            repeat
                if WhseShptLine2."Qty. To Ship" <> 0 then begin
                    WhseShptLine2."IDYS Quantity To Send" := WhseShptLine2."Qty. To Ship";
                    WhseShptLine2.Modify(true);
                end;
            until WhseShptLine2.Next() = 0;
    end;

    local procedure HasQuantityToTransport(var _WhseShptLine: Record "Warehouse Shipment Line"): Boolean
    var
        WhseShptLine2: Record "Warehouse Shipment Line";
    begin
        WhseShptLine2.Copy(_WhseShptLine);
        WhseShptLine2.SetFilter("IDYS Quantity To Send", '>0');
        exit(not WhseShptLine2.IsEmpty());
    end;

    local procedure CreateTransportOrder(var _WhseShptHeader: Record "Warehouse Shipment Header")
    var
        IdysActionManagement: Codeunit "IDYS Action Management";
    begin
        IdysActionManagement.WhseShipmtHdr_CreateTransportOrder(_WhseShptHeader);
    end;

    /// <summary>
    /// For each new transport order line created, transfer untransferred license plates to the transport order.
    /// May transfer many or zero LP's (especially if all lines was transferred in a prior call to the event).
    /// </summary>   
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"IDYS Publisher", 'OnAfterCreateTransportOrderLine', '', true, true)]
    local procedure OnAfterCreateTransportOrderLine(var TransportOrderLine: Record "IDYS Transport Order Line")
    var
        MobSessionData: Codeunit "MOB SessionData";
    begin
        if IsNullGuid(MobSessionData.GetPostingMessageId()) then
            exit;   // Not posting from Mobile WMS

        InsertPackagesForTransportOrderLine(TransportOrderLine);
    end;

    internal procedure InsertPackagesForTransportOrder(_TransportOrderNo: Code[20]) _PackagesInserted: Integer
    var
        TransportOrderLine: Record "IDYS Transport Order Line";
    begin
        Clear(_PackagesInserted);
        TransportOrderLine.Reset();
        TransportOrderLine.SetRange("Transport Order No.", _TransportOrderNo);
        if TransportOrderLine.FindSet() then
            repeat
                _PackagesInserted := _PackagesInserted + InsertPackagesForTransportOrderLine(TransportOrderLine);
            until TransportOrderLine.Next() = 0;

        exit(_PackagesInserted);
    end;

    /// <summary>
    /// Insert all untransferred packages from all shipments related to a transport order line
    /// </summary>   
    local procedure InsertPackagesForTransportOrderLine(_TransportOrderLine: Record "IDYS Transport Order Line") _PackagesInserted: Integer
    var
        WhseShipmentNo: Code[20];
    begin
        Clear(_PackagesInserted);
        if _TransportOrderLine."Source Document Table No." = Database::"Sales Header" then begin
            _TransportOrderLine.TestField("Source Document Type", 1);   // 1 = Sales Order
            _TransportOrderLine.TestField("Source Document No.");       // Sales Order No
            _TransportOrderLine.TestField("Source Document Line No.");  // Sales Order No

            // Transport order line source document table no. 36 -> whse. shipment line source type 37
            WhseShipmentNo := GetWhseShipmentNoBySourceLine(Database::"Sales Line", _TransportOrderLine."Source Document Type", _TransportOrderLine."Source Document No.", _TransportOrderLine."Source Document Line No.");
            _PackagesInserted := InsertPackagesForWarehouseShipment(WhseShipmentNo, _TransportOrderLine."Transport Order No.");
        end;

        exit(_PackagesInserted);
    end;

    /// <summary>
    /// Insert all untransferred packages from a warehouse shipment
    /// </summary>   
    local procedure InsertPackagesForWarehouseShipment(_FromWhseShipmentNo: Code[20]; _ToTransportOrderNo: Code[20]) _PackagesInserted: Integer
    var
        TransportOrderPackage: Record "IDYS Transport Order Package";
        UntransferredLicensePlate: Record "MOS License Plate";
        UntransferredLicensePlate2: Record "MOS License Plate";
        PackageType: Record "MOS Package Type";
        MosPackRegister: Codeunit "MOS WMS Pack Adhoc Reg-PostPck";
        NextLineNo: Integer;
        PackageTypeCode: Code[50];
    begin
        Clear(_PackagesInserted);
        MosPackRegister.FilterUntransferredLicensePlatesForWarehouseShipment(_FromWhseShipmentNo, UntransferredLicensePlate);
        if UntransferredLicensePlate.FindSet() then
            repeat
                if IsShippingProvider(UntransferredLicensePlate."Package Type") then begin
                    //
                    // First package only
                    //
                    if _PackagesInserted = 0 then begin
                        // Determine NextLineNo
                        TransportOrderPackage.LockTable();
                        TransportOrderPackage.Reset();
                        TransportOrderPackage.SetRange("Transport Order No.", _ToTransportOrderNo);
                        if TransportOrderPackage.FindLast() then
                            NextLineNo := TransportOrderPackage."Line No." + 10000
                        else
                            NextLineNo := 10000;
                    end;

                    //
                    // Any package
                    //

                    Evaluate(PackageTypeCode, UntransferredLicensePlate."Package Type");
                    PackageType.Get(PackageTypeCode);

                    TransportOrderPackage.Init();
                    TransportOrderPackage.Validate("Transport Order No.", _ToTransportOrderNo);
                    TransportOrderPackage.Validate("Line No.", NextLineNo);
                    NextLineNo := NextLineNo + 10000;
                    TransportOrderPackage.Validate("Package Type Code", PackageType."Shipping Provider Package Type");
                    if UntransferredLicensePlate.Weight <> 0 then
                        TransportOrderPackage.Validate(Weight, UntransferredLicensePlate.Weight);
                    if UntransferredLicensePlate.Height <> 0 then
                        TransportOrderPackage.Validate(Height, UntransferredLicensePlate.Height);
                    if UntransferredLicensePlate.Width <> 0 then
                        TransportOrderPackage.Validate(Width, UntransferredLicensePlate.Width);
                    if UntransferredLicensePlate.Length <> 0 then
                        TransportOrderPackage.Validate(Length, UntransferredLicensePlate.Length);
                    TransportOrderPackage.Insert(true);
                    _PackagesInserted := _PackagesInserted + TransportOrderPackage.Quantity;

                    UntransferredLicensePlate2 := UntransferredLicensePlate;
                    UntransferredLicensePlate2."Transferred to Shipping" := true;
                    UntransferredLicensePlate2.Modify();    // Do no modify record used for iteration due to next cursorplacement 
                end;
            until UntransferredLicensePlate.Next() = 0;

        exit(_PackagesInserted);
    end;

    /// <summary>
    /// Collect all Whse Shipment No's related to a source (from open and posted warehouse shipments) 
    /// </summary>   
    local procedure CollectShipItTransportOrderNosByWhseShipment(_WhseShipmentNo: Code[20]; var _TransportOrderNos: Dictionary of [Code[20], Code[20]])
    var
        WhseShipmentLine: Record "Warehouse Shipment Line";
        PostedWhseShipmentLine: Record "Posted Whse. Shipment Line";
    begin
        // From open Warehouse Shipment
        WhseShipmentLine.Reset();
        WhseShipmentLine.SetCurrentKey("No.", "Source Type", "Source SubType", "Source No.", "Source Line No.");
        WhseShipmentLine.SetRange("No.", _WhseShipmentNo);
        if WhseShipmentLine.FindSet() then
            repeat
                WhseShipmentLine.SetRange("Source Type", WhseShipmentLine."Source Type");
                WhseShipmentLine.SetRange("Source Subtype", WhseShipmentLine."Source Subtype");
                WhseShipmentLine.SetRange("Source No.", WhseShipmentLine."Source No.");
                WhseShipmentLine.SetRange("Source Line No.", WhseShipmentLine."Source Line No.");
                WhseShipmentLine.FindLast();
                CollectShipItTransportOrderNosBySource(WhseShipmentLine."Source Type", WhseShipmentLine."Source Subtype", WhseShipmentLine."Source No.", WhseShipmentLine."Source Line No.", _TransportOrderNos);

                WhseShipmentLine.SetRange("Source Type");
                WhseShipmentLine.SetRange("Source Subtype");
                WhseShipmentLine.SetRange("Source No.");
                WhseShipmentLine.SetRange("Source Line No.");
            until WhseShipmentLine.Next() = 0;

        // From posted Warehouse Shipment
        PostedWhseShipmentLine.Reset();
        PostedWhseShipmentLine.SetCurrentKey("Whse. Shipment No.", "Source Type", "Source SubType", "Source No.", "Source Line No.");
        PostedWhseShipmentLine.SetRange("Whse. Shipment No.", _WhseShipmentNo);
        if PostedWhseShipmentLine.FindSet() then
            repeat
                PostedWhseShipmentLine.SetRange("Source Type", PostedWhseShipmentLine."Source Type");
                PostedWhseShipmentLine.SetRange("Source Subtype", PostedWhseShipmentLine."Source Subtype");
                PostedWhseShipmentLine.SetRange("Source No.", PostedWhseShipmentLine."Source No.");
                PostedWhseShipmentLine.SetRange("Source Line No.", PostedWhseShipmentLine."Source Line No.");
                PostedWhseShipmentLine.FindLast();
                CollectShipItTransportOrderNosBySource(PostedWhseShipmentLine."Source Type", PostedWhseShipmentLine."Source Subtype", PostedWhseShipmentLine."Source No.", PostedWhseShipmentLine."Source Line No.", _TransportOrderNos);

                PostedWhseShipmentLine.SetRange("Source Type");
                PostedWhseShipmentLine.SetRange("Source Subtype");
                PostedWhseShipmentLine.SetRange("Source No.");
                PostedWhseShipmentLine.SetRange("Source Line No.");
            until PostedWhseShipmentLine.Next() = 0;
    end;

    /// <summary>
    /// Collect all ShipIt Transport Order No's related to a source (from open or posted warehouse shipment line) 
    /// </summary>   
    local procedure CollectShipItTransportOrderNosBySource(_SourceDocumentTableNo: Integer; _SourceDocumentType: Integer; _SourceDocumentNo: Code[20]; _SourceDocumentLineNo: Integer; var _TransportOrderNos: Dictionary of [Code[20], Code[20]])
    var
        TransportOrderLine: Record "IDYS Transport Order Line";
        MosPackRegister: Codeunit "MOS WMS Pack Adhoc Reg-PostPck";
        SourceDocumentHeaderTableNo: Integer;
    begin
        // Transport Order Lines are linked to header tables, not line tables
        // Convert line table no. to header table no.
        SourceDocumentHeaderTableNo := MosPackRegister.GetHeaderTableNo(_SourceDocumentTableNo);

        TransportOrderLine.Reset();
        TransportOrderLine.SetCurrentKey("Source Document Table No.", "Source Document Type", "Source Document No.", "Source Document Line No.", "Transport Order No.");
        TransportOrderLine.SetRange("Source Document Table No.", SourceDocumentHeaderTableNo);
        TransportOrderLine.SetRange("Source Document Type", _SourceDocumentType);
        TransportOrderLine.SetRange("Source Document No.", _SourceDocumentNo);
        TransportOrderLine.SetRange("Source Document Line No.", _SourceDocumentLineNo);

        if TransportOrderLine.FindSet() then
            repeat
                TransportOrderLine.SetRange("Transport Order No.", TransportOrderLine."Transport Order No.");
                TransportOrderLine.FindLast();
                if _TransportOrderNos.Add(TransportOrderLine."Transport Order No.", TransportOrderLine."Transport Order No.") then;
                TransportOrderLine.SetRange("Transport Order No.");
            until TransportOrderLine.Next() = 0;
    end;

    /// <summary>
    /// Get the single Whse Shipment No. related to a source line no. (from open or posted warehouse shipment)
    /// Assuming a source line can only have a single associated whse. shipment line
    /// </summary>   
    local procedure GetWhseShipmentNoBySourceLine(_SourceType: Integer; _SourceSubType: Integer; _SourceNo: Code[20]; _SourceLineNo: Integer): Code[20]
    var
        WhseShipmentLine: Record "Warehouse Shipment Line";
        PostedWhseShipmentLine: Record "Posted Whse. Shipment Line";
    begin
        WhseShipmentLine.Reset();
        WhseShipmentLine.SetCurrentKey("Source Type", "Source SubType", "Source No.", "Source Line No.", "No.");
        WhseShipmentLine.SetRange("Source Type", _SourceType);
        WhseShipmentLine.SetRange("Source Subtype", _SourceSubType);
        WhseShipmentLine.SetRange("Source No.", _SourceNo);
        WhseShipmentLine.SetRange("Source Line No.", _SourceLineNo);
        if WhseShipmentLine.FindFirst() then
            exit(WhseShipmentLine."No.");

        PostedWhseShipmentLine.Reset();
        PostedWhseShipmentLine.SetCurrentKey("Source Type", "Source SubType", "Source No.", "Source Line No.", "No.");
        PostedWhseShipmentLine.SetRange("Source Type", _SourceType);
        PostedWhseShipmentLine.SetRange("Source Subtype", _SourceSubType);
        PostedWhseShipmentLine.SetRange("Source No.", _SourceNo);
        PostedWhseShipmentLine.SetRange("Source Line No.", _SourceLineNo);
        if PostedWhseShipmentLine.FindFirst() then
            exit(PostedWhseShipmentLine."No.");

        exit('');
    end;

Version History