Думается надо сделать все-таки так.
Функция GetSalesHeader вернет валюту с нужным округлением в поле Currency."Unit-Amount Rounding Precision".
Ну и далее рассчитывать нашу величину с округлением.
Код:
T37_BruttoNettoBerechnung(VAR prc_T37 : Record "Sales Line")
WITH prc_T37 DO BEGIN
IF lrc_SalesHeader.GET("Document Type","Document No.") THEN BEGIN
GetSalesHeader;
IF lrc_SalesHeader."Prices Including VAT" THEN BEGIN
"Brutto/Netto-Preis" := ROUND("Unit Price" / (1 + "VAT %" / 100), Currency."Unit-Amount Rounding Precision");
END
ELSE BEGIN
"Brutto/Netto-Preis" := ROUND("Unit Price" * (1 + "VAT %" / 100), Currency."Unit-Amount Rounding Precision");
END;
END;
END;