Skip to content

Compare warehouse activity line bin #30166

@SjorsVerschureLV

Description

@SjorsVerschureLV

Why do you need this change?

I would like to request this change to make it possible to pick from and to the same bin.

Describe the request

I would like to propose to replace the code below in table 5767 warehouse activity line, in the procedure checkinvalidbincode:

 if ("Location Code" = WarehouseActivityLine."Location Code") and
               ("Bin Code" = WarehouseActivityLine."Bin Code") and
               ("Unit of Measure Code" = WarehouseActivityLine."Unit of Measure Code")
            then
                Error(Text019, Format("Action Type"), Format(WarehouseActivityLine."Action Type"), Location.Code);

To replace it with a call to a new procedure below:

local procedure CompareWarehouseActivityLineBin(Rec, WarehouseActivityLine) 
var
    IsEqual: Boolean;
begin
    IsEqual := ("Location Code" = WarehouseActivityLine."Location Code") and
               ("Bin Code" = WarehouseActivityLine."Bin Code") and
               ("Unit of Measure Code" = WarehouseActivityLine."Unit of Measure Code");
    OnBeforeCompareWarehouseActivityLineBin(Rec, WarehouseActivityLine, IsEqual);
    if IsEqual then
        Error(Text019, Format("Action Type"), Format(WarehouseActivityLine."Action Type"), Location.Code);
end;

[IntegrationEvent(false, false)]
local procedure OnBeforeCompareWarehouseActivityLineBin(WarehouseActivityLine: Record "Warehouse Activity Line"; WarehouseActivityLine2: Record "Warehouse Activity Line";var IsEqual: Boolean)
    begin
    end;

Metadata

Metadata

Assignees

No one assigned

    Labels

    missing-infoThe issue misses information that prevents it from completion.

    Type

    No fields configured for Task.

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions