|
|
#5 |
|
Участник
|
Цитата:
Код: T37_BruttoNettoBerechnung(VAR prc_T37 : Record "Sales Line")
WITH prc_T37 DO BEGIN
IF lrc_SalesHeader.GET("Document Type","Document No.") THEN BEGIN
IF lrc_SalesHeader."Prices Including VAT" THEN BEGIN
"Brutto/Netto-Preis" := "Unit Price" / (1 + "VAT %" / 100);
END ELSE BEGIN
"Brutto/Netto-Preis" := "Unit Price" * (1 + "VAT %" / 100);
END;
END;
END; |
|
|