To implement this hotfix, you must have a developer license.
You do not have to have rights to the data stores unless you have to perform data repair.
...
LOCAL PROCEDURE CheckWarehouse@7301(ItemJnlLine@1000 : Record 83);
VAR
AssemblyLine@1001 : Record 901;
WhseValidateSourceLine@1003 : Codeunit 5777;
ShowError@1002 : Boolean;
BEGIN
...
...
LOCAL PROCEDURE CheckWarehouse@7301(ItemJnlLine@1000 : Record 83);
VAR
AssemblyLine@1001 : Record 901;
// Add the following lines.
ReservationEntry@1004 : Record 337;
ItemJnlLineReserve@1005 : Codeunit 99000835;
ReservEngineMgt@1006 : Codeunit 99000831;
// End of the lines.
WhseValidateSourceLine@1003 : Codeunit 5777;
ShowError@1002 : Boolean;
BEGIN
...
...
CASE ItemJnlLine."Entry Type" OF
ItemJnlLine."Entry Type"::Output:
IF WhseOrderHandlingReqd(ItemJnlLine,Location) THEN
// Delete the following lines.
IF ItemJnlLine."Operation No." <> '' THEN
ShowError := ItemJnlLine.LastOutputOperation(ItemJnlLine)
ELSE
ShowError := WhseValidateSourceLine.WhseLinesExist(DATABASE::"Prod. Order Line",
3,ItemJnlLine."Order No.",
ItemJnlLine."Order Line No.",
0,ItemJnlLine.Quantity);
// End of the lines.
ItemJnlLine."Entry Type"::Consumption:
IF WhseOrderHandlingReqd(ItemJnlLine,Location) THEN
IF WhseValidateSourceLine.WhseLinesExist(
...
...
CASE ItemJnlLine."Entry Type" OF
ItemJnlLine."Entry Type"::Output:
IF WhseOrderHandlingReqd(ItemJnlLine,Location) THEN
// Add the following lines.
IF ItemJnlLine."Applies-to Entry" = 0 THEN BEGIN
ReservEngineMgt.InitFilterAndSortingLookupFor(ReservationEntry,FALSE);
ItemJnlLineReserve.FilterReservFor(ReservationEntry,ItemJnlLine);
ReservationEntry.SETRANGE("Serial No."); // Ignore Serial No
ReservationEntry.SETRANGE("Lot No."); // Ignore Lot No
IF ReservationEntry.FINDSET THEN
REPEAT
IF ReservationEntry."Appl.-to Item Entry" = 0 THEN
ShowError := TRUE;
UNTIL (ReservationEntry.NEXT = 0) OR ShowError
ELSE
ShowError := ItemJnlLine.LastOutputOperation(ItemJnlLine);
END;
// End of the lines.
ItemJnlLine."Entry Type"::Consumption:
IF WhseOrderHandlingReqd(ItemJnlLine,Location) THEN
IF WhseValidateSourceLine.WhseLinesExist(
...