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