...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
Use this event to
| Excerpt |
|---|
Populate values in Consumption Lines displayed at the mobile device |
(derived from Components for the Prod. Order Line).
Template
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Production ConsumptionMOB WMS Assembly", 'OnGetProdConsumptionLinesOnGetAssemblyOrderLines_OnAfterSetFromProdOrderComponentOnAfterSetFromAssemblyLine', '', true, true)]
local procedure OnGetProdConsumptionLines OnGetAssemblyOrderLines_OnAfterSetFromProdOrderComponentOnAfterSetFromAssemblyLine(_ProdOrderComponentAssemblyLine: Record "Prod. Order ComponentAssembly Line"; _TrackingSpecification: Record "Tracking Specification"; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel Element")
begin
end;
Example
// [Example] Display special equipment for the item Display special equipment for this 'Consumption' item
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Production ConsumptionMOB WMS Assembly", 'OnGetProdConsumptionLinesOnGetAssemblyOrderLines_OnAfterSetFromProdOrderComponentOnAfterSetFromAssemblyLine', '', true, true)]
local procedure MyOnGetProdConsumptionLines MyOnGetAssemblyOrderLines_OnAfterSetFromProdOrderComponentOnAfterSetFromAssemblyLine(_ProdOrderComponentAssemblyLine: Record "Prod. Order ComponentAssembly Line"; _TrackingSpecification: Record "Tracking Specification"; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel Element")
var
Item: Record Item;
begin
Item
if _AssemblyLine.Type <> _AssemblyLine.Type::Item then
exit;
Item.Get(_BaseOrderLineElement.Get_ItemNumber()); // Get_ItemNumber() is referring to value already set for the BaseOrderLineElement prior to this event AssemblyLine."No.");
if (Item."Special Equipment Code" <> '') then begin
_BaseOrderLineElement.Set_DisplayLine9(' ' + 'Using special equipment is mandatory'); // Indentation on Output Lines
_BaseOrderLineElement.SetValue('SpecialequipmentCode', 'SpecialequipmentCode: ' + Item."Special Equipment Code");
end else begin
_BaseOrderLineElement.Set_DisplayLine9('');
_BaseOrderLineElement.SetValue('SpecialEquipmentCode', '');
end;
end;
| Filter by label (Content by label) | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
Version History
| Version | Changes |
|---|---|
| MOB5.22 | Introduced |
...