Case

Todo

Proposed solution

todo

Use case

[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB Print", 'OnPrintLabel_OnAfterPopulateOrderListLine', '', true, true)]

local procedure OnPrintLabelOnAfterPopulateDataset(_LinePath: Text; _SourceRecRef: RecordRef; var _Dataset: Record "MOB Common Element")

var

LicensePlateContent: Record "MOB License Plate Content";

MobLabelTemplate: Record "MOB Label-Template";

WhseShipmentLine: Record "Warehouse Shipment Line";

begin

if not MobLabelTemplate.Get(_Dataset.GetValue('LabelTemplate')) then

exit;

// Check template is License Plate Contents

if MobLabelTemplate."Template Handler" <> MobLabelTemplate."Template Handler"::"License Plate Contents" then

exit;

// Lookup source line

if _SourceRecRef.Number <> Database::"MOB License Plate Content" then exit;

_SourceRecRef.SetTable(LicensePlateContent);

WhseShipmentLine.Get(LicensePlateContent."Whse. Document No.", LicensePlateContent."Whse. Document Line No.");

// Modify the lines

_Dataset.SetValue(_LinePath + '/Col2_Label', // Set the label,

_Dataset.GetValue(_LinePath + '/Col2_Label') + ' & Cubage'); // by adding to the existing existing label

_Dataset.SetValue(_LinePath + '/Col2', // Set the value,

_Dataset.GetValue(_LinePath + '/Col2') + ' Cubage : ' + Format(WhseShipmentLine.Cubage)); // by adding to the existing existing value

end;