trigger OnRun() var WhseShptHeader: Record "Warehouse Shipment Header"; WhseShptLine: Record "Warehouse Shipment Line"; WhseShipmentCreatePick: Report "Whse.-Shipment - Create Pick"; IsHandled: Boolean; HideValidationDialog: Boolean; // NewHideValidationDialog: Boolean; HideNothingToHandleErr: Boolean; // HideNothingToHandleError: Boolean; begin HideValidationDialog := true; HideNothingToHandleErr := true; // NewHideValidationDialog := true; // HideNothingToHandleError := true; WhseShptHeader.SetFilter("No.", '=%1', 'WS0000281'); WhseShptHeader.setrange(Status, WhseShptHeader.Status::Released); if WhseShptHeader.FindFirst() then WhseShptLine.SetRange("No.", WhseShptHeader."No."); WhseShptLine.SetFilter(Quantity, '>0'); WhseShptLine.SetRange("Completely Picked", false); if NOT WhseShptLine.FindSet() then exit else begin WhseShipmentCreatePick.SetWhseShipmentLine(WhseShptLine, WhseShptHeader); WhseShipmentCreatePick.SetHideValidationDialog(HideValidationDialog); WhseShipmentCreatePick.UseRequestPage(not HideValidationDialog); WhseShipmentCreatePick.RunModal; WhseShipmentCreatePick.SetHideNothingToHandleError(HideNothingToHandleErr); //WhseShipmentCreatePick.GetResultMessage; Clear(WhseShipmentCreatePick); end; end;
[IntegrationEvent(false, false)] local procedure OnBeforeSortWhseActivHeaders(var WhseActivHeader: Record "Warehouse Activity Header"; FirstActivityNo: Code[20]; LastActivityNo: Code[20]; var HideNothingToHandleError: Boolean) begin end;