Page Comparison

Use this event to

...

Note: This event is similar to standard event "Whse.-Post Shipment.OnAfterCheckWhseShptLine". But more accessible (all neccessary events are in one codeunit).

See also: Write Transaction Data to 3rd party Shipping ProviderApp

Template

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

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

...

...

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);

...

    /// <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;TODO

Version History

...