"The Item Unit of Measure does not exist" error message when you run the "Suggest Item Price on Wksh." report in Microsoft Dynamics NAV 2009

Installation information

Code changes

1. Change the code of the Data Item Number 1 in the Suggest Item Price on Wksh. report (7051) as follows:
   Existing code 1

   ...
   OnAfterGetRecord=BEGIN
   Window.UPDATE(1,"No.");
   WITH SalesPriceWksh DO BEGIN
   INIT;
   VALIDATE("Item No.",Item."No.");
   
   // Delete the following lines.
   
   IF NOT ("Unit of Measure Code" IN [Item."Base Unit of Measure",'']) THEN
   IF NOT ItemUnitOfMeasure.GET("Item No.","Unit of Measure Code") THEN
   // End of the lines.
   
   CurrReport.SKIP;
   
   VALIDATE("Unit of Measure Code",ToUnitofMeasure.Code);
   "Current Unit Price" :=
   ROUND(
   ...
   

   Replacement code 1

   ...
   OnAfterGetRecord=BEGIN
   Window.UPDATE(1,"No.");
   WITH SalesPriceWksh DO BEGIN
   INIT;
   VALIDATE("Item No.",Item."No.");
   
   // Add the following lines.
   IF ToUnitofMeasure.Code <> '' THEN
   IF NOT ItemUnitOfMeasure.GET("Item No.",ToUnitofMeasure.Code) THEN
   // End of the lines.
   
   CurrReport.SKIP;
   
   VALIDATE("Unit of Measure Code",ToUnitofMeasure.Code);
   "Current Unit Price" :=
   ROUND(
   ...
   

   Existing code 2

   ...
   RoundingMethod.Precision,COPYSTR('=><',RoundingMethod.Type + 1,1));
   "New Unit Price" := "New Unit Price" + RoundingMethod."Amount Added After";
   END;
   END;
   
   // Delete the following lines.
   CalcCurrentPrice(PriceAlreadyExists);
   
   IF NOT PriceAlreadyExists THEN
   "VAT Bus. Posting Gr. (Price)" := Item."VAT Bus. Posting Gr. (Price)";
   
   IF PriceAlreadyExists OR CreateNewPrices THEN BEGIN
   SalesPriceWksh2 := SalesPriceWksh;
   IF SalesPriceWksh2.FIND('=') THEN
   SalesPriceWksh.MODIFY
   ELSE
   SalesPriceWksh.INSERT;
   END;
   // End of the lines.
   
   END;
   END;
   
   ReqFilterFields=No.,Vendor No.,Inventory Posting Group;
   }
   ...
   

   Replacement code 2

   ...
   RoundingMethod.Precision,COPYSTR('=><',RoundingMethod.Type + 1,1));
   "New Unit Price" := "New Unit Price" + RoundingMethod."Amount Added After";
   END;
   END;
   
   // Add the following line.
   CalcCurrentPrice1(PriceAlreadyExists);
   
   END;
   END;
   
   ReqFilterFields=No.,Vendor No.,Inventory Posting Group;
   ...
   

2. Change the code in the CalcCurrentPrice1 function in the Suggest Item Price on Wksh. report (7051) as follows:
   Existing code

   ...
   ToEndDate := 0D;
   END;
   END;
   END;
   
   BEGIN
   END.
   }
   RDLDATA
   {
   ...
   

   Replacement code

   ...
   ToEndDate := 0D;
   END;
   END;
   END;
   
   // Add the following lines.
   PROCEDURE CalcCurrentPrice1@1(VAR PriceAlreadyExists@1000 : Boolean);
   VAR
   SalesPrice@1001 : Record 7002;
   BEGIN
   WITH SalesPriceWksh DO BEGIN
   SalesPrice.SETRANGE("Item No.","Item No.");
   SalesPrice.SETRANGE("Sales Type","Sales Type");
   SalesPrice.SETRANGE("Sales Code","Sales Code");
   SalesPrice.SETRANGE("Currency Code","Currency Code");
   IF "Unit of Measure Code" <> '' THEN
   SalesPrice.SETRANGE("Unit of Measure Code","Unit of Measure Code");
   SalesPrice.SETRANGE("Starting Date",0D,"Starting Date");
   SalesPrice.SETRANGE("Minimum Quantity",0,"Minimum Quantity");
   SalesPrice.SETRANGE("Variant Code","Variant Code");
   IF SalesPrice.FINDSET THEN BEGIN
   REPEAT
   "Current Unit Price" := SalesPrice."Unit Price";
   "Price Includes VAT" := SalesPrice."Price Includes VAT";
   "Allow Line Disc." := SalesPrice."Allow Line Disc.";
   "Allow Invoice Disc." := SalesPrice."Allow Invoice Disc.";
   "VAT Bus. Posting Gr. (Price)" := SalesPrice."VAT Bus. Posting Gr. (Price)";
   PriceAlreadyExists := SalesPrice."Starting Date" = "Starting Date";
   "Unit of Measure Code" := SalesPrice."Unit of Measure Code";
   
   IF NOT PriceAlreadyExists THEN
   "VAT Bus. Posting Gr. (Price)" := Item."VAT Bus. Posting Gr. (Price)";
   
   IF PriceAlreadyExists OR CreateNewPrices THEN BEGIN
   SalesPriceWksh2 := SalesPriceWksh;
   IF SalesPriceWksh2.FIND('=') THEN
   SalesPriceWksh.MODIFY
   ELSE
   SalesPriceWksh.INSERT;
   END;
   
   UNTIL SalesPrice.NEXT = 0;
   END ELSE BEGIN
   "Current Unit Price" := 0;
   PriceAlreadyExists := FALSE;
   END;
   END;
   END;
   
   // End of the lines.
   
   BEGIN
   END.
   }
   RDLDATA
   {
   ...
   

Prerequisites

• Microsoft Dynamics NAV 2009 R2
• Microsoft Dynamics NAV 2009 Service Pack 1

Removal information