Page Comparison

Use this event to

...

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

Example

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"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