130
We want to specify some Purchase Prices so that for some of the Vendors POs are entered with Direct Unit Cost of zero.
However there is a piece of code in Codeunit 7010 "Purch. Price Calc. Mgt." that deliberately ignores Purchase Price records with zero Direct Unit Cost.
What is the logic behind it?
If we modify the Codeunit so that the records with zero Direct Unit Cost are included - will there be any negative consequences?
*This post is locked for comments
Just found myself that if the line
IF "Direct Unit Cost" <> 0 THEN BEGIN
is removed then it will not work anyway - further down the line in CalcBestDirectUnitCost() the code assumes that if the "Direct Unit Cost" = 0 in the resulting BestPurchPrice then no suitable Purchase Prices exist, and Unit Cost from Item Card (or SKU) is applied.
So I guess this is the answer.
LOCAL FindPurchPrice(VAR ToPurchPrice : Record "Purchase Price";VendorNo : Code[20];ItemNo : Code[20];VariantCode : Code[10];UOM : Code[10];CurrencyCode : Code[10];StartingDate : Date;ShowAll : Boolean)
WITH FromPurchPrice DO BEGIN
SETRANGE("Item No.",ItemNo);
SETRANGE("Purchase Type", "Purchase Type"::Vendor);
SETRANGE("Purchase Code",VendorNo);
SETFILTER("Ending Date",'%1|>=%2',0D,StartingDate);
SETFILTER("Variant Code",'%1|%2',VariantCode,'');
IF NOT ShowAll THEN BEGIN
SETRANGE("Starting Date",0D,StartingDate);
SETFILTER("Currency Code",'%1|%2',CurrencyCode,'');
SETFILTER("Unit of Measure Code",'%1|%2',UOM,'');
END;
ToPurchPrice.RESET;
ToPurchPrice.DELETEALL;
IF FIND('-') THEN
REPEAT
IF "Direct Unit Cost" <> 0 THEN BEGIN //this code
ToPurchPrice := FromPurchPrice;
ToPurchPrice.INSERT;
END;
UNTIL NEXT = 0;
SETRANGE("Purchase Type", "Purchase Type"::"Vendor Price Group");
SETRANGE("Purchase Code", Vend."Vendor Price Group Code");
IF FromPurchPrice.FIND('-') THEN BEGIN
REPEAT
IF FromPurchPrice."Direct Unit Cost" <> 0 THEN BEGIN //this code
ToPurchPrice := FromPurchPrice;
ToPurchPrice.INSERT;
END;
UNTIL FromPurchPrice.NEXT = 0;
END;
END;
Which piece of Code do you mean?
Stay up to date on forum activity by subscribing. You can also customize your in-app and email Notification settings across all subscriptions.
#1
André Arnaud de Cal...
291,269
Super User 2024 Season 2
#2
Martin Dráb
230,198
Most Valuable Professional
#3
nmaenpaa
101,156
Share
Report
All responses (
Answers (