Use this event to

Validate untransferred License Plates prior to creating transactions in 3rd party Shipping App

Description

Use this event to validate untransferred License Plates (transaction data) stored in internal "Pack and Ship" tables prior to writing transaction data to the 3rd party Shipping App.

Template

[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB Pack API", 'OnPostPackingOnCheckUntransferredLicensePlate', '', true, true)]
local procedure OnPostPackingOnCheckUntransferredLicensePlate(_LicensePlate: Record "MOB License Plate")
begin
end;

Example

[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB Pack API", 'OnPostPackingOnCheckUntransferredLicensePlate', '', true, true)]
local procedure MyOnPostPackingOnCheckUntransferredLicensePlate(_LicensePlate: Record "MOB License Plate")
var
CusExternalSetup: Record "CUS External Setup";
CusExternalPackageType: Record "CUS External Package Type";
PackageType: Record "MOB Package Type";
begin
if not IsShippingProvider(_LicensePlate."Package Type") then
exit;

// Check PackageType exists in 3rd party App and will not error out during validation
PackageType.Get(_LicensePlate."Package Type");
CusExternalPackageType.Get(PackageType."Shipping Provider Package Type");

// Check we are indeed supposed to create Transport Order from our code
CusExternalSetup.Get();
CusExternalSetup.TestField("After Posting Sales Orders", CusExternalSetup."After Posting Sales Orders"::"Do nothing"); // TODO - to be based on LicensePlate.Source Type and/or Whse. Document Type
end;

/// <summary>
/// Is the package type handled by the current Shipping Provider Id
/// </summary>
local procedure IsShippingProvider(_PackageType: Code[20]): Boolean
var
PackageType: Record "MOB Package Type";
begin
exit(PackageType.Get(_PackageType) and (PackageType."Shipping Provider Id" = GetShippingProviderId()));
end;

local procedure GetShippingProviderId(): Code[20]
begin
exit('MYSHIPPINGPROVIDERID');
end;

Version History

Version	Changes
MOB5.42	Introduced

Browser not supported