Page Comparison

Use this event to

Description

Should you want to modify the data of a label template (standard or custom) you can do it with this event.

• Make sure you are only handling the desired template.
• Use GetValue/SetValue to modify the dataset.    
• All the values in the dataset are sent to InterForm by default.

Please inspect the Label Templates for available fields and labels to modify.

 
Template

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB Print", 'OnPrintLabel_OnAfterPopulateDataset', '', true, true)]
    procedure OnPrintLabel_OnAfterPopulateDataset(_TemplateName: Text; _SourceRecRef: RecordRef; var _Dataset: Record "MOB Common Element" temporary)
    begin
    end;

Example 01 : Change "ItemNumber" in Dataset to a custom value

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB Print", 'OnPrintLabel_OnAfterPopulateDataset', '', true, true)]
    procedure Ex01OnPrintLabel_OnAfterPopulateDataset(_TemplateName: Text[50]; _SourceRecRef: RecordRef; var _Dataset: Record "MOB Common Element")
    begin

        // Making sure we only handle our own Label-Template
        if _TemplateName <> 'My custom Label-Template' then
            exit;

        // Read the Item No. from Dataset and change it 
        // Item No. could have been collected or transferred from ”context”/source table, where the print action was selected by the user 
        if _Dataset.GetValue('ItemNumber') = 'ItemA' then
            _Dataset.SetValue('ItemNumber', 'ItemB');
    end;

Example 02:

Modify labels

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB Print", 'OnPrintLabel_OnAfterPopulateDataset', '', true, true)]
    procedure Ex02OnPrintLabel_OnAfterPopulateDataset(_TemplateName: Text[50]; _SourceRecRef: RecordRef; var _Dataset: Record "MOB Common Element")
    begin

        // Making sure we only handle our own Label-Template
        if _TemplateName <> 'My custom Label-Template' then
            exit;

        // Change the some labels Modify labels
        _Dataset.SetValue('UnitOfMeasure_Label', 'Units');
        _Dataset.SetValue('LotNumber_Label', 'Batch No. ');
    end;

Example 03: Set extra info fields and their labels

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB Print", 'OnPrintLabel_OnAfterPopulateDataset', '', true, true)]
    procedure Ex03OnPrintLabel_OnAfterPopulateDataset(_TemplateName: Text[50]; _SourceRecRef: RecordRef; var _Dataset: Record "MOB Common Element")
    begin

        // Making sure we only handle our own Label-Template
        if _TemplateName <> 'My custom Label-Template' then
            exit;

        // Set extra info fields and their labels
        _Dataset.SetValue('ExtraInfo01', 'ExtraInfo01_Value');
        _Dataset.SetValue('ExtraInfo01_Label', 'ExtraInfo01_Label');

        _Dataset.SetValue('ExtraInfo02', 'ExtraInfo02_Value');
        _Dataset.SetValue('ExtraInfo02_Label', 'ExtraInfo02_Label');

        _Dataset.SetValue('ExtraInfo03', 'ExtraInfo03_Value');
        _Dataset.SetValue('ExtraInfo03_Label', 'ExtraInfo03_Label');

        _Dataset.SetValue('ExtraInfo04', 'ExtraInfo04_Value');
        _Dataset.SetValue('ExtraInfo04_Label', 'ExtraInfo04_Label');
    end;

Version History