Notice: This website is an unofficial Microsoft Knowledge Base (hereinafter KB) archive and is intended to provide a reliable access to deleted content from Microsoft KB. All KB articles are owned by Microsoft Corporation. Read full disclaimer for more details.
...
{ ;Status,Prod. Order No.,Routing Link Code,Flushing Method }
{ ;Status,Prod. Order No.,Location Code }
{ ;Item No.,Variant Code,Location Code,Status,Due Date;
// Delete the following line.
SumIndexFields=Expected Quantity,Remaining Qty. (Base),Cost Amount,Overhead Amount;
// End of the deleted line.
MaintainSIFTIndex=No }
{ ;Status,Prod. Order No.,Prod. Order Line No.,Item Low-Level Code;
MaintainSQLIndex=No }
...
...
{ ;Status,Prod. Order No.,Routing Link Code,Flushing Method }
{ ;Status,Prod. Order No.,Location Code }
{ ;Item No.,Variant Code,Location Code,Status,Due Date;
// Add the following line.
SumIndexFields=Expected Quantity,Remaining Qty. (Base),Cost Amount,Overhead Amount,Qty. Picked (Base);
// End of the added line.
MaintainSIFTIndex=No }
{ ;Status,Prod. Order No.,Prod. Order Line No.,Item Low-Level Code;
MaintainSQLIndex=No }
...
...
ERROR(Text015);
IF "Bin Code" <> '' THEN BEGIN
CreatePick.CheckReservation(
// Delete the following lines.
"Location Code","Source Type","Source Subtype","Source No.",
"Source Line No.","Source Subline No.","Qty. per Unit of Measure","Qty. to Handle (Base)");
// End of the deleted lines.
CreatePick.GetReservationStatus(ReservationExists,ReservedForItemLedgEntry);
IF ReservationExists AND NOT ReservedForItemLedgEntry THEN
ERROR(Text016,"Item No.");
......
ERROR(Text015);
IF "Bin Code" <> '' THEN BEGIN
CreatePick.CheckReservation(
// Add the following lines.
AvailableQty,"Location Code","Source Type","Source Subtype","Source No.",
"Source Line No.","Source Subline No.","Qty. per Unit of Measure",
"Qty. to Handle","Qty. to Handle (Base)");
// End of the added lines.
CreatePick.GetReservationStatus(ReservationExists,ReservedForItemLedgEntry);
IF ReservationExists AND NOT ReservedForItemLedgEntry THEN
ERROR(Text016,"Item No.");
......
ERROR(Text000);
END;
// Delete the following line.
BEGIN
// End of the deleted line.
END.
}
}
......
ERROR(Text000);
END;
// Add the following lines.
PROCEDURE GetOutboundDocLineQtyOtsdg@3(SourceType@1006 : Integer;SourceSubType@1005 : '0,1,2,3,4,5,6,7,8,9,10';SourceNo@1004 : Code[20];SourceLineNo@1003 : Integer;SourceSubLineNo@1002 : Integer;VAR QtyOutstanding@1001 : Decimal;VAR QtyBaseOutstanding@1000 : Decimal);
VAR
WhseShptLine@1009 : Record 7321;
BEGIN
WhseShptLine.SETCURRENTKEY("Source Type");
WhseShptLine.SETRANGE("Source Type",SourceType);
WhseShptLine.SETRANGE("Source Subtype",SourceSubType);
WhseShptLine.SETRANGE("Source No.",SourceNo);
WhseShptLine.SETRANGE("Source Line No.",SourceLineNo);
IF WhseShptLine.FINDSET THEN BEGIN
WhseShptLine.CALCSUMS("Qty. Outstanding (Base)","Qty. Outstanding");
QtyOutstanding := WhseShptLine."Qty. Outstanding";
QtyBaseOutstanding := WhseShptLine."Qty. Outstanding (Base)";
END ELSE
GetSrcDocLineQtyOutstanding(SourceType,SourceSubType,SourceNo,
SourceLineNo,SourceSubLineNo,QtyOutstanding,QtyBaseOutstanding);
END;
PROCEDURE GetSrcDocLineQtyOutstanding@7(SourceType@1006 : Integer;SourceSubType@1005 : '0,1,2,3,4,5,6,7,8,9,10';SourceNo@1004 : Code[20];SourceLineNo@1003 : Integer;SourceSubLineNo@1002 : Integer;VAR QtyOutstanding@1001 : Decimal;VAR QtyBaseOutstanding@1000 : Decimal);
VAR
SalesLine@1008 : Record 37;
PurchaseLine@1009 : Record 39;
TransferLine@1010 : Record 5741;
ServiceLine@1012 : Record 5902;
ProdOrderComp@1013 : Record 5407;
ProdOrderLine@1014 : Record 5406;
BEGIN
CASE SourceType OF
DATABASE::"Sales Line":
IF SalesLine.GET(SourceSubType,SourceNo,SourceLineNo) THEN BEGIN
QtyOutstanding := SalesLine."Outstanding Quantity";
QtyBaseOutstanding := SalesLine."Outstanding Qty. (Base)";
END;
DATABASE::"Purchase Line":
IF PurchaseLine.GET(SourceSubType,SourceNo,SourceLineNo) THEN BEGIN
QtyOutstanding := PurchaseLine."Outstanding Quantity";
QtyBaseOutstanding := PurchaseLine."Outstanding Qty. (Base)";
END;
DATABASE::"Transfer Line":
IF TransferLine.GET(SourceNo,SourceLineNo) THEN
CASE SourceSubType OF
0: // Direction = Outbound
BEGIN
QtyOutstanding :=
ROUND(TransferLine."Whse Outbnd. Otsdg. Qty (Base)" / (QtyOutstanding / QtyBaseOutstanding),0.00001);
QtyBaseOutstanding := TransferLine."Whse Outbnd. Otsdg. Qty (Base)";
END;
1: // Direction = Inbound
BEGIN
QtyOutstanding :=
ROUND(TransferLine."Whse. Inbnd. Otsdg. Qty (Base)" / (QtyOutstanding / QtyBaseOutstanding),0.00001);
QtyBaseOutstanding := TransferLine."Whse. Inbnd. Otsdg. Qty (Base)";
END;
END;
DATABASE::"Service Line":
IF ServiceLine.GET(SourceSubType,SourceNo,SourceLineNo) THEN BEGIN
QtyOutstanding := ServiceLine."Outstanding Quantity";
QtyBaseOutstanding := ServiceLine."Outstanding Qty. (Base)";
END;
DATABASE::"Prod. Order Component":
IF ProdOrderComp.GET(SourceSubType,SourceNo,SourceLineNo,SourceSubLineNo) THEN BEGIN
QtyOutstanding := ProdOrderComp."Remaining Quantity";
QtyBaseOutstanding := ProdOrderComp."Remaining Qty. (Base)";
END;
DATABASE::"Prod. Order Line":
IF ProdOrderLine.GET(SourceSubType,SourceNo,SourceLineNo) THEN BEGIN
QtyOutstanding := ProdOrderLine."Remaining Quantity";
QtyBaseOutstanding := ProdOrderLine."Remaining Qty. (Base)";
END;
ELSE BEGIN
QtyOutstanding := 0;
QtyBaseOutstanding := 0;
END;
END;
END;
BEGIN
// End of the added lines.
END.
}
}
......
ReservEntry2.SETRANGE("Lot No.",LotNo);
IF ReservEntry2.FIND('-') THEN
REPEAT
// Delete the following line.
ReservQtyonInvt := ReservQtyonInvt + ReservEntry2."Quantity (Base)";
// End of the deleted line.
UNTIL ReservEntry2.NEXT = 0;
UNTIL ReservEntry.NEXT = 0;
EXIT(ReservQtyonInvt);
...
...
ReservEntry2.SETRANGE("Lot No.",LotNo);
IF ReservEntry2.FIND('-') THEN
REPEAT
// Add the following line.
ReservQtyonInvt := ReservQtyonInvt + ReservEntry2."Quantity (Base)" - ReservEntry2."Reserved Pick & Ship Qty.";
// End of the added line.
UNTIL ReservEntry2.NEXT = 0;
UNTIL ReservEntry.NEXT = 0;
EXIT(ReservQtyonInvt);
...
...
RemQtyToPickBase@1000000002 : Decimal;
QtyToPickBase@1000000001 : Decimal;
QtyToTrackBase@1009 : Decimal;
// Delete the following lines.
BEGIN
CheckReservation(
LocationCode,SourceType,SourceSubType,SourceNo,SourceLineNo,SourceSubLineNo,
QtyPerUnitofMeasure,TotalQtytoPick);
// End of the deleted lines.
RemQtyToPick := TotalQtytoPick;
RemQtyToPickBase := TotalQtytoPickBase;
ItemTrackingMgt.CheckWhseItemTrkgSetup(ItemNo,SNRequired,LNRequired,FALSE);
...
...
RemQtyToPickBase@1000000002 : Decimal;
QtyToPickBase@1000000001 : Decimal;
QtyToTrackBase@1009 : Decimal;
// Add the following lines.
QtyBaseMaxAvailToPick@1014 : Decimal;
BEGIN
GetLocation(LocationCode);
IF Location."Directed Put-away and Pick" THEN
QtyBaseMaxAvailToPick := // Total qty (excl. Receive bin content) that are not assigned to any activity/ order
CalcTotalQtyOnBinType('',LocationCode,ItemNo,VariantCode) -
CalcTotalQtyAssgndOnWhse(LocationCode,ItemNo,VariantCode) +
CalcTotalQtyAssgndOnWhseAct(TempWhseActivLine."Activity Type"::"Put-away",LocationCode,ItemNo,VariantCode) -
CalcTotalQtyOnBinType(GetBinTypeFilter(0),LocationCode,ItemNo,VariantCode) // Receive area
ELSE
QtyBaseMaxAvailToPick :=
CalcAvailableQty(ItemNo,VariantCode,1) -
CalcPickQtyAssigned(LocationCode,ItemNo,VariantCode,FromBinCode,TempWhseItemTrkgLine);
CheckReservation(
QtyBaseMaxAvailToPick,LocationCode,SourceType,SourceSubType,SourceNo,SourceLineNo,SourceSubLineNo,
QtyPerUnitofMeasure,TotalQtytoPick,TotalQtytoPickBase);
// End of the added lines.
RemQtyToPick := TotalQtytoPick;
RemQtyToPickBase := TotalQtytoPickBase;
ItemTrackingMgt.CheckWhseItemTrkgSetup(ItemNo,SNRequired,LNRequired,FALSE);
...
...
CreateTempItemTrkgLines(ItemNo,VariantCode,QtyToTrackBase);
END;
// Delete the following line.
IF TotalQtytoPick <>0 THEN BEGIN
// End of the deleted line.
TempWhseItemTrkgLine.RESET;
TempWhseItemTrkgLine.SETFILTER("Qty. to Handle",'<> 0');
IF TempWhseItemTrkgLine.FIND('-') THEN BEGIN
...
...
CreateTempItemTrkgLines(ItemNo,VariantCode,QtyToTrackBase);
END;
// Add the following line.
IF TotalQtytoPickBase <> 0 THEN BEGIN
// End of the added line.
TempWhseItemTrkgLine.RESET;
TempWhseItemTrkgLine.SETFILTER("Qty. to Handle",'<>0');
IF TempWhseItemTrkgLine.FIND('-') THEN BEGIN
...
...
END;
END;
// Delete the following line.
PROCEDURE CheckReservation@45(LocationCode@1007 : Code[10];SourceType@1005 : Integer;SourceSubType@1004 : '0,1,2,3,4,5,6,7,8,9,10';SourceNo@1003 : Code[20];SourceLineNo@1002 : Integer;SourceSubLineNo@1001 : Integer;QtyPerUnitofMeasure@1000 : Decimal;VAR Quantity@1006 : Decimal);
// End of the deleted line.
VAR
ReservEntry@1010 : Record 337;
ReservEntry2@1011 : Record 337;
...
...
END;
END;
// Add the following line.
PROCEDURE CheckReservation@45(QtyBaseAvailToPick@1009 : Decimal;LocationCode@1007 : Code[10];SourceType@1005 : Integer;SourceSubType@1004 : '0,1,2,3,4,5,6,7,8,9,10';SourceNo@1003 : Code[20];SourceLineNo@1002 : Integer;SourceSubLineNo@1001 : Integer;QtyPerUnitofMeasure@1000 : Decimal;VAR Quant
ity@1006 : Decimal;VAR QuantityBase@1008 : Decimal);
// End of the added line.
VAR
ReservEntry@1010 : Record 337;
ReservEntry2@1011 : Record 337;
...
...
ReservEntry@1010 : Record 337;
ReservEntry2@1011 : Record 337;
Quantity2@1012 : Decimal;
// Delete the following line.
BEGIN
// End of the deleted line.
ReservEntry.SETCURRENTKEY(
"Source ID","Source Ref. No.","Source Type","Source Subtype",
"Source Batch Name","Source Prod. Order Line","Reservation Status");
...
...
ReservEntry@1010 : Record 337;
ReservEntry2@1011 : Record 337;
Quantity2@1012 : Decimal;
// Add the following lines.
QtyBaseResvdNotOnILE@1018 : Decimal;
QtyResvdNotOnILE@1013 : Decimal;
WhseManagement@1014 : Codeunit 5775;
SrcDocQtyBaseToBeFilledByInvt@1015 : Decimal;
SrcDocQtyToBeFilledByInvt@1016 : Decimal;
QuantityBase2@1019 : Decimal;
BEGIN
ReservationExists := FALSE;
ReservedForItemLedgEntry := FALSE;
Quantity2 := Quantity;
QuantityBase2 := QuantityBase;
// End of the added lines.
ReservEntry.SETCURRENTKEY(
"Source ID","Source Ref. No.","Source Type","Source Subtype",
"Source Batch Name","Source Prod. Order Line","Reservation Status");
...
...
ReservEntry.SETRANGE("Reservation Status",ReservEntry."Reservation Status"::Reservation);
IF ReservEntry.FIND('-') THEN BEGIN
ReservationExists := TRUE;
// Delete the following line.
Quantity2 := Quantity;
// End of the deleted line.
Quantity := Quantity * QtyPerUnitofMeasure;
REPEAT
IF ReservEntry2.GET(ReservEntry."Entry No.",NOT ReservEntry.Positive) AND
...
...
ReservEntry.SETRANGE("Reservation Status",ReservEntry."Reservation Status"::Reservation);
IF ReservEntry.FIND('-') THEN BEGIN
ReservationExists := TRUE;
Quantity := Quantity * QtyPerUnitofMeasure;
REPEAT
IF ReservEntry2.GET(ReservEntry."Entry No.",NOT ReservEntry.Positive) AND
...
...
REPEAT
IF ReservEntry2.GET(ReservEntry."Entry No.",NOT ReservEntry.Positive) AND
(ReservEntry2."Source Type" <> DATABASE::"Item Ledger Entry")
// Delete the following lines.
THEN
Quantity := Quantity - ReservEntry2."Quantity (Base)";
UNTIL ReservEntry.NEXT = 0;
IF Quantity <0 THEN
Quantity := 0;
Quantity := ROUND(Quantity / QtyPerUnitofMeasure,0.00001);
IF Quantity = 0 THEN BEGIN
// End of the deleted lines.
GetLocation(LocationCode);
IF Location."Always Create Pick Line" THEN BEGIN
ReservedForItemLedgEntry := FALSE;
...
...
REPEAT
IF ReservEntry2.GET(ReservEntry."Entry No.",NOT ReservEntry.Positive) AND
(ReservEntry2."Source Type" <> DATABASE::"Item Ledger Entry")
// Add the following lines.
THEN BEGIN
QtyBaseResvdNotOnILE += ReservEntry2."Quantity (Base)";
QtyResvdNotOnILE += ReservEntry2.Quantity;
END;
UNTIL ReservEntry.NEXT = 0;
WhseManagement.GetOutboundDocLineQtyOtsdg(SourceType,SourceSubType,
SourceNo,SourceLineNo,SourceSubLineNo,SrcDocQtyToBeFilledByInvt,SrcDocQtyBaseToBeFilledByInvt);
SrcDocQtyBaseToBeFilledByInvt := SrcDocQtyBaseToBeFilledByInvt - QtyBaseResvdNotOnILE;
SrcDocQtyToBeFilledByInvt := SrcDocQtyToBeFilledByInvt - QtyResvdNotOnILE;
IF QuantityBase >SrcDocQtyBaseToBeFilledByInvt THEN BEGIN
QuantityBase := SrcDocQtyBaseToBeFilledByInvt;
Quantity := SrcDocQtyToBeFilledByInvt;
END;
IF QuantityBase <=SrcDocQtyBaseToBeFilledByInvt THEN
IF QuantityBase >QtyBaseAvailToPick THEN BEGIN
QuantityBase := QtyBaseAvailToPick;
Quantity := ROUND(QtyBaseAvailToPick / QtyPerUnitofMeasure,0.00001);
END;
IF QuantityBase = 0 THEN BEGIN
// End of the added lines.
GetLocation(LocationCode);
IF Location."Always Create Pick Line" THEN BEGIN
ReservedForItemLedgEntry := FALSE;
...
...
IF Location."Always Create Pick Line" THEN BEGIN
ReservedForItemLedgEntry := FALSE;
Quantity := Quantity2;
END;
END ELSE
ReservedForItemLedgEntry := TRUE;
...
...
IF Location."Always Create Pick Line" THEN BEGIN
ReservedForItemLedgEntry := FALSE;
Quantity := Quantity2;
// Add the following line.
QuantityBase := QuantityBase2;
// End of the added line.
END;
END ELSE
ReservedForItemLedgEntry := TRUE;
...
...
EXIT(xReservedQty > Item."Reserved Qty. on Inventory");
END;
// Delete the following line.
BEGIN
// End of the deleted line.
END.
}
}
...
...
EXIT(xReservedQty >Item."Reserved Qty. on Inventory");
END;
// Add the following lines.
PROCEDURE CalcTotalQtyAssgndOnWhse@1102601005(LocationCode@1002 : Code[10];ItemNo@1003 : Code[20];VariantCode@1004 : Code[10]) : Decimal;
VAR
WhseShipmentLine@1010 : Record 7321;
ProdOrderComp@1011 : Record 5407;
QtyAssgndToWhseAct@1012 : Decimal;
QtyAssgndToShipment@1013 : Decimal;
QtyAssgndToProdComp@1014 : Decimal;
BEGIN
QtyAssgndToWhseAct +=
CalcTotalQtyAssgndOnWhseAct(TempWhseActivLine."Activity Type"::" ",LocationCode,ItemNo,VariantCode);
QtyAssgndToWhseAct +=
CalcTotalQtyAssgndOnWhseAct(TempWhseActivLine."Activity Type"::"Put-away",LocationCode,ItemNo,VariantCode);
QtyAssgndToWhseAct +=
CalcTotalQtyAssgndOnWhseAct(TempWhseActivLine."Activity Type"::Pick,LocationCode,ItemNo,VariantCode);
QtyAssgndToWhseAct +=
CalcTotalQtyAssgndOnWhseAct(TempWhseActivLine."Activity Type"::Movement,LocationCode,ItemNo,VariantCode);
QtyAssgndToWhseAct +=
CalcTotalQtyAssgndOnWhseAct(TempWhseActivLine."Activity Type"::"Invt. Put-away",LocationCode,ItemNo,VariantCode);
QtyAssgndToWhseAct +=
CalcTotalQtyAssgndOnWhseAct(TempWhseActivLine."Activity Type"::"Invt. Pick",LocationCode,ItemNo,VariantCode);
WITH WhseShipmentLine DO BEGIN
SETCURRENTKEY("Item No.","Location Code","Variant Code","Due Date");
SETRANGE("Location Code",LocationCode);
SETRANGE("Item No.",ItemNo);
SETRANGE("Variant Code",VariantCode);
CALCSUMS("Qty. Picked (Base)");
QtyAssgndToShipment := "Qty. Picked (Base)";
END;
WITH ProdOrderComp DO BEGIN
SETCURRENTKEY("Item No.","Variant Code","Location Code",Status,"Due Date");
SETRANGE("Location Code",LocationCode);
SETRANGE("Item No.",ItemNo);
SETRANGE("Variant Code",VariantCode);
CALCSUMS("Qty. Picked (Base)");
QtyAssgndToProdComp := "Qty. Picked (Base)";
END;
EXIT(QtyAssgndToWhseAct + QtyAssgndToShipment + QtyAssgndToProdComp);
END;
PROCEDURE CalcTotalQtyAssgndOnWhseAct@1102601006(ActivityType@1003 : Option;LocationCode@1004 : Code[10];ItemNo@1005 : Code[20];VariantCode@1006 : Code[10]) : Decimal;
VAR
WhseActivLine@1002 : Record 5767;
BEGIN
WITH WhseActivLine DO BEGIN
SETCURRENTKEY(
"Item No.","Location Code","Activity Type","Bin Type Code",
"Unit of Measure Code","Variant Code","Breakbulk No.","Action Type");
SETRANGE("Location Code",LocationCode);
SETRANGE("Item No.",ItemNo);
SETRANGE("Variant Code",VariantCode);
SETRANGE("Activity Type",ActivityType);
SETRANGE("Breakbulk No.",0);
SETFILTER("Action Type",'%1|%2',"Action Type"::" ","Action Type"::Take);
CALCSUMS("Qty. Outstanding (Base)");
EXIT("Qty. Outstanding (Base)");
END;
END;
PROCEDURE CalcTotalQtyOnBinType@1102601007(BinTypeFilter@1004 : Text[1024];LocationCode@1003 : Code[10];ItemNo@1002 : Code[10];VariantCode@1001 : Code[10]) : Decimal;
VAR
WhseEntry@1000 : Record 7312;
BEGIN
WITH WhseEntry DO BEGIN
SETCURRENTKEY("Item No.","Location Code","Variant Code","Bin Type Code");
SETRANGE("Item No.",ItemNo);
SETRANGE("Location Code",LocationCode);
SETRANGE("Variant Code",VariantCode);
IF BinTypeFilter <>'' THEN
SETFILTER("Bin Type Code",BinTypeFilter);
CALCSUMS("Qty. (Base)");
EXIT("Qty. (Base)");
END;
END;
// End of the added lines.
}
}
...
Keywords: kbqfe, kbmbspartner, kbmbsmigrate, kbmbscodefix, kbsurveynew, kbnoloc, kbmbsquickpub, kberrmsg, kb