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." := 0; // Uses Auto-Increment
_PackingStation.Description := IdysUserSetup."User Name (External)";
_PackingStation."MOSSHIPIT User Name (External)" := IdysUserSetup."User Name (External)";
_PackingStation."MOSSHIPIT Password (External)" := IdysUserSetup."Password (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;
}
field(62101; "MOSSHIPIT Password (External)"; Text[80])
{
Caption = 'Password (External)';
DataClassification = ToBeClassified;
ExtendedDatatype = Masked;
}
}
}
...