![]() |
#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; |
|