Use this event to
...
Use this event to overwrite existing behavior or handle new custom types.
Implicit success
If you do nothing, the validation is considered successful by the mobile device.
You must call Error() when validation should fail.
Template
// [Template]
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Whse. Inquiry", 'OnWhseInquiryOnCustomDocumentType', '', true, true)]
local procedure OnWhseInquiryOnCustomDocumentType(_DocumentType: Text; var _RequestValues: Record "MOB NS Request Element"; var _RegistrationTypeTracking: Text; var _ResponseElement: Record "MOB NS Resp Element"; var _IsHandled: Boolean)
begin
end;
Example
// [Example]
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Whse. Inquiry", 'OnWhseInquiryOnCustomDocumentType', '', true, true)]
local procedure Ex01OnWhseInquiryOnCustomDocumentType(_DocumentType: Text; var _RequestValues: Record "MOB NS Request Element"; var _RegistrationTypeTracking: Text; var _ResponseElement: Record "MOB NS Resp Element"; var _IsHandled: Boolean)
var
ItemLedgerEntry: Record "Item Ledger Entry";
SerialNumber: Text;
begin
// Make sure we only handle the Serial No. validation
if _DocumentType <> 'GetSerialNumberInformation' then
exit;
// Read request
SerialNumber := _RequestValues.GetValue('SerialNumber');
// Serial number must be available in the Item Ledger Entries
ItemLedgerEntry.Reset();
ItemLedgerEntry.SetCurrentKey("Serial No.");
ItemLedgerEntry.SetRange("Serial No.", SerialNumber);
ItemLedgerEntry.SetRange(Open, true);
ItemLedgerEntry.SetRange(Positive, true);
if ItemLedgerEntry.Count() = 1 then begin
// -- The Serial number is available
// Respond with Item Number
if ItemLedgerEntry.FindFirst() then
exit;
end else
// -- Not found
Error('Unknown serial no.');
_RegistrationTypeTracking := SerialNumber;
// Event is now handled
_IsHandled := true;
end;
| Filter by label (Content by label) | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
...