Знаки после , и округление

[Fly]

Думается надо сделать все-таки так.
Функция 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;