Info | ||
---|---|---|
| ||
This article requires Mobile WMS extension version MOB5.25 (or newer). An older version of this article exists, see (Legacy) How-to: Select Line from Custom Barcode (MOB5.19 - MOB5.24) |
...
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Setup Doc. Types", 'OnAfterCreateDefaultDocumentTypes', '', true, true)]
local procedure OnAfterCreateDefaultDocumentTypes()
var
MobWmsSetupDocTypes: Codeunit "MOB WMS Setup Doc. Types";
begin
MobWmsSetupDocTypes.CreateDocumentType('GetLineSelectionInformation', '', Codeunit::"MOB WMS Whse. Inquiry");
end;
Remember to run Create Document Types from Mobile WMS Setup. Otherwise you will get this error.
...
Step 3 - Respond with Item No.
Respond to the "GetLineSelectionInformation" request and return an Item no.
...
You are likely to decipher the "ScannedValue".
// Step 3
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Whse. Inquiry", 'OnWhseInquiryOnCustomDocumentType', '', true, true)]
localprocedure OnWhseInquiryOnCustomDocumentType(_DocumentType: Text; var _RequestValues: Record "MOB NS Request Element"; var _ResponseElement: Record "MOB NS Resp Element"; var _RegistrationTypeTracking: Text; var _IsHandled: Boolean)
var
SerialNumber: Code[50];
begin
if _IsHandled then
exit;
if _DocumentType = 'GetLineSelectionInformation' then begin
SerialNumber := _RequestValues.GetValue('SerialNumber', true);
_ResponseElement.Set_SerialNumberInformation(GetItemFromBarcode(SerialNumber));
_IsHandled := true;
end;
end;
procedure GetItemFromBarcode(ScannedValue: Text): Code[20]
var
Item: Record Item;
begin
// Please make your own logic to identify the Item from a barcode
Item.SetRange("Description 2", ScannedValue);
if Item.FindFirst() then
exit(Item."No.");
end;