Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

...

Use this event to

Excerpt

Optional:  Synchronize master data for Package Stations from 3rd party Shipping App to Tasklet Pack and Ship


Description

Package Stations is an optional entity in the "Pack and Ship" setup.  The "Pack and Ship" solution has no functionality attached to "Packing Station"s out-of-the box and syncronizing Packing Stations is entirely optional.

...

See also: Read master data from 3rd party Shipping App

Template

    [EventSubscriber(ObjectType::CodeunitCodeunit::"MOS Pack API", 'OnSynchronizePackingStations''', true, true)]
    local procedure OnSynchronizePackingStations(var _PackingStation: Record "MOS Packing Station")
    begin
    end;

Example

    [EventSubscriber(ObjectType::CodeunitCodeunit::"MOS Pack API", 'OnSynchronizePackingStations''', true, true)]
    local procedure OnSynchronizePackingStations(var _PackingStation: Record "MOS Packing Station")
    var
        IdysUserSetup: Record "IDYS User Setup";
    begin
        IdysUserSetup.Reset();
        if IdysUserSetup.FindSet() then
            repeat
                _PackingStation.SetRange("MOSSHIPIT User Name (External)", IdysUserSetup."User Name (External)");
                if _PackingStation.IsEmpty() then begin
                    _PackingStation.Init();
                    _PackingStation."No." := '';  // Auto-assigned in OnInsert( ) if blank.
                    _PackingStation.Description := IdysUserSetup."User Name (External)";
                    _PackingStation."MOSSHIPIT User Name (External)" := IdysUserSetup."User Name (External)";
                    _PackingStation.Insert(true);
                end;
            until IdysUserSetup.Next() 0;

        _PackingStation.Reset();  // Remove any filters
    end;

tableextension 62100 "MOSSHIPIT Packing Station" extends "MOS Packing Station"
{
    fields
    {
        field(62100; "MOSSHIPIT User Name (External)"; Text[80])
        {
            Caption = 'User Name (External)';
            DataClassification = ToBeClassified;
        }       
    }
}


Version History

VersionChanges
MOS1.0.0Introduced

...