Case: Print Label on Tote Shipping Posting

Requirement

Extension version MOB5.23

Case

Print Label on the posting of Tote Shipping.

Proposed solution

You want to print labels from the mobile device
You want to use the integrated Cloud Print Service solution
The label should be printed automatically when shipping totes

Step 1: Create Header steps

In order to determine when, where and what to print, we add a step when Post Tote-shipping.

Add the following code to create a step on posting.

[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnGetRegistrationConfiguration_OnAddSteps', '', true, true)]
    local procedure MyOnGetRegistrationConfiguration_OnAddSteps(_RegistrationType: Text; var _HeaderFieldValues: Record "MOB NS Request Element"; var _Steps: Record "MOB Steps Element"; var _RegistrationTypeTracking: Text)
    var
        MobWmsToolbox: Codeunit "MOB WMS Toolbox";
        MobPrint: Codeunit "MOB Print";
    begin
        // Verify this should only affects Tote-shipping
        if _RegistrationType <> MobWmsToolbox."CONST::ToteShipping"() then
            exit;

        _Steps.Create_ListStep_Printer(2, 'Printer');
        _Steps.Set_header('Label print');
        _Steps.Set_listValues(' ;' + MobPrint.GetMobilePrinters('Item Label 3x2', '')); // Allow user to select blank printer + the printers attached to this labeltemplate
        _Steps.Set_helpLabel('If you want a label, please select a printer.');
        _Steps.Set_optional(true);
    end;

Step 2: Handle step and issue print

// We read the collected step (printer).
    // Issue a print based on printer, label and the current context (Posted Shipment Line)
    // Print engine will build a dataset
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistration_OnAfterPostToteShipping', '', true, true)]
    local procedure OnPostAdhocRegistration_OnAfterPostToteShipping(_WhseShipmentLine: Record "Warehouse Shipment Line"; var _RequestValues: Record "MOB NS Request Element"; var _SuccessMessage: Text)
    var
        TempPrintParameter: Record "MOB Print REST Parameter" temporary;
        MobPrinter: Record "MOB Printer";
        Item: Record Item;
        MobPrint: Codeunit "MOB Print";
        MobLanguage: Codeunit "MOB WMS Language";
        MobWmsToolbox: Codeunit "MOB WMS Toolbox";
        MobPrintBuffer: Codeunit "MOB Print Buffer";
        RecRef: RecordRef;
        PrintCommand: Text;
    begin

        // Verify this should only affects Tote-shipping
        if _RequestValues.GetValue('RegistrationType') <> MobWmsToolbox."CONST::ToteShipping"() then
            exit;

        // -- Prepare to Print
        // Did user select a printer?
        if _RequestValues.GetValue('Printer') = ' ' then
            exit;

        // Print is based on a record
        // Tote-shipping gives a Whse. Shipment Line record
        // We will instead use the Item record, as the source of our Item label
        Item.Get(_WhseShipmentLine."Item No.");
        RecRef.GetTable(Item);

        // -- Print
        // Init printer parameters
        Evaluate(TempPrintParameter.Printer, _RequestValues.GetValue('Printer'));
        TempPrintParameter."Label-Template Name" := 'Item Label 3x2';

        // Set print parameters
        MobPrint.SetSourceRecRef(RecRef);
        MobPrint.SetRequestElements(_RequestValues);

        // Perform cloud print
        if MobPrint.Run(TempPrintParameter) then begin

            // Command is returned from cloud
            TempPrintParameter.GetResponseContentAsBase64Text(PrintCommand);

            // Convert the printer selected to an Address
            MobPrint.GetPrinterFromName(MobPrinter, TempPrintParameter.Printer);

            // Save response to be sent in the next Mobile response
            MobPrintBuffer.Add(MobPrinter.Address, PrintCommand);

            _SuccessMessage := _SuccessMessage + ' Item label was printed.';

        end else
            // If failed, append Error to ResultMessage
            _SuccessMessage := _SuccessMessage + ' ' + MobLanguage.GetMessage('PRINT_FAILED') + ': ' + GetLastErrorText();
    end;