Page Comparison

Use this event to

...

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOS Pack API", 'OnBeforePostPackingOnPostPackingOnCheckUntransferredLicensePlate', '', true, true)]
    local procedure OnBeforePostPacking_UpdatePackingStation OnPostPackingOnCheckUntransferredLicensePlate(_RegistrationType: Text; _PackingStationLicensePlate: Record "MOS Packing Station"; var _RequestValues: Record "MOB NS Request Element"MOS License Plate")
    begin
        if _RegistrationType <> 'PostPacking' then
            exit;

        // Your custom code here...

        end;

Example

/// TODO

Version History

...

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOS Pack API", 'OnPostPackingOnCheckUntransferredLicensePlate', '', true, true)]
    local procedure OnPostPackingOnCheckUntransferredLicensePlate(_LicensePlate: Record "MOS License Plate")
    var
        IdysSetup: Record "IDYS Setup";
        IdysPackageType: Record "IDYS Package Type";
        PackageType: Record "MOS Package Type";
    begin
        if not IsShippingProvider(_LicensePlate."Package Type") then
            exit;

        // Check PackageType exists and will not error out during validation                // Check PackageType exists in IDYS and will not error out during validation        
        PackageType.Get(_LicensePlate."Package Type");
        IdysPackageType.Get(PackageType."Shipping Provider Package Type");

        // Check we are indeed supposed to create Transport Order from our code
        IdysSetup.Get();
        IdysSetup.TestField("After Posting Sales Orders", IdysSetup."After Posting Sales Orders"::"Do nothing");    // TODO - baseres på LicensePlate.Source Type og/eller Whse. Document Type
    end;

Version History