To implement this hotfix, you must have a developer license.
You do not have to have rights to the data stores unless you have to perform data repair.
...
END;
CalcCostToPost(CostToPost,"Cost Amount (Actual)","Cost Posted to G/L",PostToGL);
CalcCostToPost(CostToPostACY,"Cost Amount (Actual) (ACY)","Cost Posted to G/L (ACY)",PostToGL);
PostBufDimNo := 0;
// Delete the following lines.
IF NOT PostToGL THEN
EXIT(FALSE);
// End of the deleted lines.
CASE "Item Ledger Entry Type" OF
"Item Ledger Entry Type"::Purchase:
BEGIN
CASE "Entry Type" OF
...
...
END;
CalcCostToPost(CostToPost,"Cost Amount (Actual)","Cost Posted to G/L",PostToGL);
CalcCostToPost(CostToPostACY,"Cost Amount (Actual) (ACY)","Cost Posted to G/L (ACY)",PostToGL);
PostBufDimNo := 0;
// Add the following lines.
IF NOT PostToGL THEN BEGIN
// Cost amounts are updated by unit value so that that checking can be simulated.
CostToPost := 1;
CostToPostACY := 1;
RunOnlyCheck := TRUE;
END;
// End of the added lines.
CASE "Item Ledger Entry Type" OF
"Item Ledger Entry Type"::Purchase:
BEGIN
CASE "Entry Type" OF
...