"Quantity (Base) must be greater than 0 in Bin Content Location Code='[location code]'" error message when you post a purchase credit memo for an item that is used in a job in the North American version of Microsoft Dynamics NAV 2009

Installation information

Code changes

1. Change the code in the Global Variables in the Purch.-Post codeunit (90) as follows:
   Existing code

   ...
   TotalChargeAmtLCY@1185 : Decimal;
   TotalChargeAmt2@1186 : Decimal;
   TotalChargeAmtLCY2@1187 : Decimal;
   Text059@1102601000 : TextConst 'ENU=You must assign item charge %1 if you want to invoice it.';
   Text060@1102601001 : TextConst 'ENU=You can not invoice item charge %1 because there is no item ledger entry to assign it to.';

   Replacment code

   ...
   TotalChargeAmtLCY@1185 : Decimal;
   TotalChargeAmt2@1186 : Decimal;
   TotalChargeAmtLCY2@1187 : Decimal;
   Text059@1102601000 : TextConst 'ENU=You must assign item charge %1 if you want to invoice it.';
   Text060@1102601001 : TextConst 'ENU=You can not invoice item charge %1 because there is no item ledger entry to assign it to.';
   
   // Add the following line.
   PositiveWhseEntrycreated@1188 : Boolean;

2. Change the code in the PostItemJnlLine function in the Purch.-Post codeunit (90) as follows:
   Existing code

   ...
   IF PostWhseJnlLine THEN BEGIN
   ItemTrackingMgt.SplitWhseJnlLine(TempWhseJnlLine,TempWhseJnlLine2,TempWhseTrackingSpecification,FALSE);
   IF TempWhseJnlLine2.FIND('-') THEN
   REPEAT
   WhseJnlPostLine.RUN(TempWhseJnlLine2);
   IF RevertWarehouseEntry(TempWhseJnlLine2,"Job No.",PostJobConsumptionBeforePurch) THEN
   WhseJnlPostLine.RUN(TempWhseJnlLine2);
   UNTIL TempWhseJnlLine2.NEXT = 0;
   TempWhseTrackingSpecification.DELETEALL;
   ...

   Replacement code

   ... 
   IF PostWhseJnlLine THEN BEGIN
   ItemTrackingMgt.SplitWhseJnlLine(TempWhseJnlLine,TempWhseJnlLine2,TempWhseTrackingSpecification,FALSE);
   IF TempWhseJnlLine2.FIND('-') THEN
   REPEAT
   
   // Add the following lines.
   IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN
   CreatePositiveEntry(TempWhseJnlLine2,"Job No.",PostJobConsumptionBeforePurch);
   // End of the lines.
   
   WhseJnlPostLine.RUN(TempWhseJnlLine2);
   IF RevertWarehouseEntry(TempWhseJnlLine2,"Job No.",PostJobConsumptionBeforePurch) THEN
   WhseJnlPostLine.RUN(TempWhseJnlLine2);
   UNTIL TempWhseJnlLine2.NEXT = 0;
   TempWhseTrackingSpecification.DELETEALL;
   ...

3. Change the code in the RevertWarehouseEntry function in the Purch.-Post codeunit (90) as follows:
   Existing code

   ...
   // Delete the following line.
   IF PostJobConsumptionBeforePurch OR (JobNo = '') THEN
   
   EXIT(FALSE);
   WITH TempWhseJnlLine DO BEGIN
   "Entry Type" := "Entry Type"::"Negative Adjmt.";
   Quantity := -Quantity;
   "Qty. (Base)" := -"Qty. (Base)";
   "From Bin Code" := "To Bin Code";
   "To Bin Code" := '';
   END;
   EXIT(TRUE);
   ...

   Replacement code

   ...
   // Add the following line.
   IF PostJobConsumptionBeforePurch OR (JobNo = '') OR PositiveWhseEntrycreated THEN
   
   EXIT(FALSE);
   WITH TempWhseJnlLine DO BEGIN
   "Entry Type" := "Entry Type"::"Negative Adjmt.";
   Quantity := -Quantity;
   "Qty. (Base)" := -"Qty. (Base)";
   "From Bin Code" := "To Bin Code";
   "To Bin Code" := '';
   END;
   EXIT(TRUE);
   ...

4. Create a new CreatePositiveEntry function as follows:

   PROCEDURE CreatePositiveEntry@93(TempWhsJnlLine@1000 : Record 7311;JobNo@1001 : Code[20];PostJobConsumptionBeforePurch@1002 : Boolean);

5. Add the following code in the CreatePositiveEntry function:

   IF PostJobConsumptionBeforePurch OR (JobNo <> '') THEN BEGIN
     WITH TempWhsJnlLine DO BEGIN
       Quantity := -Quantity;
       "Qty. (Base)" := -"Qty. (Base)";
       "Qty. (Absolute)" := -"Qty. (Absolute)";
       "To Bin Code" := "From Bin Code";
       "From Bin Code" := '';
     END;
     WhseJnlPostLine.RUN(TempWhsJnlLine);
     PositiveWhseEntrycreated := TRUE;
   END;
   

Prerequisites

• The North American version of Microsoft Dynamics NAV 2009 R2
• The North American version of Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

• Hotfix 2487667
  For more information about hotfix 2487667, click the following article number to view the article in the Microsoft Knowledge Base:
  2487667 Warehouse entries are not updated with all item tracking lines in a job journal when you post an item in the job journal to a bin in Microsoft Dynamics NAV 2009
• Hotfix 2578695
  For more information about hotfix 2578695, click the following article number to view the article in the Microsoft Knowledge Base:
  2578695 "You must specify Bin Code in Job Journal Line Journal Template" error message when you invoice (or receive and then invoice) a purchase order for an item that is assigned to a job and is in a Bin mandatory location in Microsoft Dynamics NAV

Removal information