NAV - End previous Sales Prices when implementing new selling prices

• R7053 Implement Price Change

Find this line

IF SalesPrice."Unit Price" <> 0 THEN

Insert this code

----------------------------------------------------------------------------------------

SP2.SETRANGE("Item No.",SalesPrice."Item No.");

SP2.SETRANGE("Sales Type",SalesPrice."Sales Type");

SP2.SETRANGE("Sales Code",SalesPrice."Sales Code");

SP2.SETRANGE("Unit of Measure Code",SalesPrice."Unit of Measure Code");

SP2.SETRANGE("Variant Code",SalesPrice."Variant Code");

SP2.SETRANGE("Starting Date",0D,SalesPrice."Starting Date");

SP2.SETRANGE("Ending Date",0D);

IF SP2.FIND('-') THEN BEGIN

  REPEAT

  SP2.VALIDATE("Ending Date",CALCDATE('<-1D>',SalesPrice."Starting Date"));

  SP2.MODIFY;

  UNTIL SP2.NEXT <= 0;

END;

-----------------------------------------------------------------------------------------