Показать сообщение отдельно
Старый 30.06.2011, 10:49   #1  
Fly is offline
Fly
Участник
Аватар для Fly
 
102 / 10 (1) +
Регистрация: 05.10.2007
Думается надо сделать все-таки так.
Функция 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;