| Info | ||
|---|---|---|
| ||
Mobile WMS Extension version MOB5.48 |
Case
| Excerpt |
|---|
TodoModify the coluimn and lines on License Plate Contents |
Proposed solution
todo
Use case
License Plate Contents has four columns.
We will add "Cubage" and a value to column 2 column label and line value.
Modify Lines
Using event OnPrintLabel_OnAfterPopulateOrderListLine
Note how to Dataset.GetValue() is used to get the existing value, before adding to it using Dataset.SetValue().
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB Print", 'OnPrintLabel_OnAfterPopulateOrderListLine', '', true, true)]
localprocedureOnPrintLabelOnAfterPopulateDataset(_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
ifnotMobLabelTemplate.Get(_Dataset.GetValue('LabelTemplate')) then
exit;
// Check template is License Plate Contents
ifMobLabelTemplate."Template Handler"<>MobLabelTemplate."Template Handler"::"License Plate Contents"then
exit;
// Lookup source line
if_SourceRecRef.Number<>Database::"MOB License Plate Content"thenexit;
_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;
The result
