Use this event to
Excerpt |
---|
Add new steps to label template |
- This event is executed once per mobile report.
- A template will not be shown unless at least one step has been added
- You may use this event to add steps shown to the user on the mobile device.The mobile report will not be shown to the user unless steps has been added.
- This event is executed once per mobile report
See also:
Standard Label Template Designs
...
[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;
Expand | ||
---|---|---|
| ||
|
...
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB Print", 'OnLookupOnPrintLabel_OnAddStepsForTemplate', '', true, true)]
local procedure 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
// If ItemNo is already collected/transferred to Dataset display the item information, otherwise collect ItemNumber
if Item.Get(_Dataset.GetValue('ItemNo')) then
_Steps.Create_InformationStep(10, 'InfoStep', 'Information', '', 'You are printing with Item:' + Item."No.")
else
_Steps.Create_TextStep_ItemNumber(10);
// Collect which printer to print to and number of labels
_Steps.Create_ListStep_Printer(80, CopyStr(_TemplateName, 1, 50));
_Steps.Create_DecimalStep_NoOfCopies(90);
end;
Example 02: Reading values the context/source record (Purchase Line)
...
// [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 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
Item.Get(PurchaseLine."No.");
_Steps.Create_InformationStep(10, 'InfoStep', 'Information', '', 'You are printing with Item:' + Item."No.")
end;
end;
Filter by label (Content by label) | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|
|
...