[Gelöst]Fälligkeitsformel

Guten Tag,
ich möchte eine Fälligkeitsformel für Zahlungsbed. erstellen.
Die Bedingung lautet: 30-45 Tage Netto
Wenn ich am 1-15 den laufenden Monats kaufe dann muss ich bis zum 15 des folge Monats zahlen.
Wenn ich am 16-ende Monat des laufenden Monats kaufe dann muss ich bis zum letzen Tag des folge Monats zahlen.
Ich hoffe ihr könnt mir weiter helfen... ich kriege die Formel einfach nicht hin.

Zuletzt geändert von 3ug3n am 10. Januar 2012 13:47, insgesamt 1-mal geändert.

Hier ist ein vergleichbarer Fall, nur mit Programmierung machbar.

Ok Danke.
Hier ist ein Beispielcode:

Code:

    EVALUATE(Formel,'');
    i:=DATE2DMY("Document Date",1);
    CASE "Payment Terms Code" OF
    '30-45T': 
      IF (i <15) AND (i <>15) THEN BEGIN
           //Wenn ich am 1-15 den laufenden Monats kaufe dann muss ich bis zum 15 des folge Monats zahlen.
           EVALUATE(Formel,'1M+T15');
           "Due Date":=CALCDATE(Formel,"Document Date");
           "Pmt. Discount Date" := CALCDATE(PaymentTerms."Discount Date Calculation","Document Date")
         END ELSE BEGIN
           IF i=15 THEN BEGIN
            EVALUATE(Formel,'1M');
            "Due Date":=CALCDATE(Formel,"Document Date");
            "Pmt. Discount Date" := CALCDATE(PaymentTerms."Discount Date Calculation","Document Date");
           END ELSE BEGIN
            //Wenn ich am 16-ende Monat des laufenden Monats kaufe dann muss ich bis zum letzen Tag des folge Monats zahlen.
           EVALUATE(Formel,'1M+LM');
           "Due Date":=CALCDATE(Formel,"Document Date");
           "Pmt. Discount Date" := CALCDATE(PaymentTerms."Discount Date Calculation","Document Date");
           END;
         END;