EK-Gesamt von Bestellpositionen kaufmännisch runden

Erprobte Lösungen von Anwendern, die anderen Anwendern helfen, werden hier bereit gestellt

Moderator: SYNERPY

Antworten
Geri12
Beiträge: 589
Registriert: Mi Apr 16, 2008 7:51 am

EK-Gesamt von Bestellpositionen kaufmännisch runden

Beitrag von Geri12 »

Hallo
In der A.14 -> Mandantenverwaltung, Register "Verkauf" ist ein Feld "Schema VK.Pos.Preisrundg.". Dort kann man für die Verkaufspreise das Rundungsschema angeben. Für die Einkaufspreise habe ich sowas bisher nicht gefunden ...

Wer aber den EK-Gesamt der Bestellpositionen anstatt mathematisch lieber kaufmännisch rundet, der kann folgende Änderung an der Funktion P_BBESP_NEUBERECHNUNG vornehmen ...

IST -> Mathematische Rundung des Bestellposten-Preises
(Rabatt auf Einzelpreis berechnen und Ergebnis runden -> dann mit Stückzahl multiplizieren)

Code: Alles auswählen

  NEKNETTO  = LISTPREIS;

  --AUF DREI MAL RECHNEN, SONST KANN ES EINEN ÜBERLAUF GEBEN
  NEKGESAMT = F_ZAHLRUNDEN(NEKNETTO  * (1 - (0.01 * RABATT)), 2);
  NEKGESAMT = F_ZAHLRUNDEN(NEKGESAMT * (1 - (0.01 * RABATT2)), 2);
  NEKGESAMT = F_ZAHLRUNDEN(NEKGESAMT * (1 + (0.01 * ZUSCHLAG)), 2);

  IF ((NOT PRBASIS IS NULL) AND (PRBASIS > 0.00)) THEN
    NEKGESAMT = F_ZAHLRUNDEN((NEKGESAMT * NNEUMENGE / PRBASIS),2);
KANN :wink: -> Kaufmännische Rundung des Bestellposten-Preises
(Einzelpreis mit Stückzahl multiplizieren -> dann Rabatt einrechnen und Ergebnis runden)

Code: Alles auswählen

  NEKNETTO  = LISTPREIS;

  IF ((NOT PRBASIS IS NULL) AND (PRBASIS > 0.00)) THEN
    NEKGESAMT = F_ZAHLRUNDEN((NEKNETTO * NNEUMENGE / PRBASIS),2);

  --AUF DREI MAL RECHNEN, SONST KANN ES EINEN ÜBERLAUF GEBEN
  NEKGESAMT = F_ZAHLRUNDEN(NEKGESAMT * (1 - (0.01 * RABATT)), 2);
  NEKGESAMT = F_ZAHLRUNDEN(NEKGESAMT * (1 - (0.01 * RABATT2)), 2);
  NEKGESAMT = F_ZAHLRUNDEN(NEKGESAMT * (1 + (0.01 * ZUSCHLAG)), 2);
Gruß
Geri12

Software-Version: V4.2.5.2
FDB-Version: AvERP2008-A.14
Antworten