Page Comparison

Use this event to

...

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB Print", 'OnLookupOnPrintLabel_OnAddStepsForTemplate', '', true, true)]
    local procedure OnLookupOnPrintLabel_OnAddStepsForTemplate(_TemplateName: Text[50]; _SourceRecRef: RecordRef; var _Steps: Record "MOB Steps Element"; var _Dataset: Record "MOB Common Element")
    begin
    end;

Example 1: Collect additional steps

        [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB Print", 'OnLookupOnPrintLabel_OnAddStepsForTemplate', '', true, true)]
    local procedure Ex01OnLookupOnPrintLabel My01OnLookupOnPrintLabel_OnAddStepsForTemplate(_TemplateName: Text[50]; _SourceRecRef: RecordRef; var _Steps: Record "MOB Steps Element"; var _Dataset: Record "MOB Common Element")
    var
        Item: Record Item;
    begin

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

        // Collect additional Steps

        // Check if Item No. is already collected/transferred to Dataset If ItemNo is already collected/transferred to Dataset display the item information, otherwise collect ItemNumber
        if Item.Get(_Dataset.GetValue('ItemNo')) then
            // Show an information step
            _Steps.Create_InformationStep(10, 'InfoStep', 'Information', '', 'You are printing with Item:' + Item."No.")
        else
            // Collect the Item No.
            _Steps.Create_TextStep_ItemNumber(10);

        // Collect which printer to print to Collect which printer to print to and number of labels
        _Steps.Create_ListStep_Printer(80, CopyStr(_TemplateName, 1, 50));
        // Collect the number of labels
        _Steps.Create_DecimalStep_NoOfCopies(90);
    end;

Example 02: Reading values the context/source record (Purchase Line)

You can use the Source Record to determine which steps to collect, setting default values etc.

     // [Example 02] Reading values the context/source record (Purchase Line)
    // You can use the Source Record to determine which steps to collect, setting default values etc.
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB Print", 'OnLookupOnPrintLabel_OnAddStepsForTemplate', '', true, true)]
    local procedure Ex02OnLookupOnPrintLabel My02OnLookupOnPrintLabel_OnAddStepsForTemplate(_TemplateName: Text[50]; _SourceRecRef: RecordRef; var _Steps: Record "MOB Steps Element"; var _Dataset: Record "MOB Common Element")
    var
        Item: Record Item;
        PurchaseLine: Record "Purchase Line";
    begin

                // Making sure the source table is one we can handle
        if _SourceRecRef.Number() <> Database::"Purchase Line" then
            exit;

        // Use RecordRef to get the actual source record
        _SourceRecRef.SetTable(PurchaseLine);
        PurchaseLine.SetView(_SourceRecRef.GetView());

        // Get Item and show an information step
        if PurchaseLine.Type = PurchaseLine.Type::Item then begin
            // Get item
            Item.Get(PurchaseLine."No.");
            // Show an information step
            _Steps.Create_InformationStep(10, 'InfoStep', 'Information', '', 'You are printing with Item:' + Item."No.")
        end;
    end;

...