Es wird jeweils am 01. jeden Monats je nach Kategorie der Monatspreis aufgebucht, wenn die Buchung bis mindestens Monatsende geht. An allen anderen Tagen wird automatisch dann 0 verbucht.

Geht eine Buchung in einem Monat nicht von Anfang bis Ende, wird der normale Kategoriepreis pro Tag gebucht.


In dem Beispiel wird für Kategorie 1 ein Monatspreis von 1500,-€, für Kategorie 2 von 1700,-€ berechnet.



Installation:


 

Stammdaten-Preiscodes aufrufen (Einloggen mit unserem Support-Passwort)


Preiscode erfassen mit Preiscodeart 7:


Inline-Bild 2


Folgenden Preiscode dann mit der Maus reinkopieren:



LOCAL PCMPreis

PCMPreis=0


DO CASE

  CASE KatNr1=1

    PCMPreis=1500

  CASE KatNr1=2

    PCMPreis=1700

ENDCASE


IF PCMPreis>0

  LOCAL PCMErst, PCMLetzt

  PCMerst=DATE(YEAR(BuchAktDay),MONTH(BuchAktDay),1)

  PCMLetzt=GOMONTH(PCMerst,1)-1

  

  IF (Anreise1<=PCMErst) AND (Abreise1=>PCMLetzt)

    IF BuchAktDay=PCMErst

      PWgTeil2=PCMPreis

    ELSE

      PWgTeil2=0

    ENDIF

    GesZPreis1=PWgTeil1+PWgTeil2+PWgTeil3+PWgTeil4+PWgTeil5

    

    HTMLPreisStr="Monatspreis:"

    HTMLPreis=ALLTRIM(TRANSFORM(PCMpreis,IIF(TYPE([m.GeldFormat])=[U],'999,999,999.99',m.GeldFormat)))

    BuHTML=BuHTML+[  <tr bgcolor="]+BuPCBgColor+'"> '

    BuHTML=BuHTML+[    <td>]+HTMLPreisStr+[</td>]

    BuHTML=BuHTML+[    <td align="right" valign="top">]+HTMLPreis+[</td>]

    BuHTML=BuHTML+[  </tr>]

    

  ENDIF

ENDIF





Speichern und testen. Wenn alles passt, kann der Preiscode als default eingestellt werden:


Dazu kurz in Mini-VFP und die ID des Preiscodes abrufen:


USE PCODES 

BROWSE


Inline-Bild 3


Vorne das erste Feld PCNR ist wichtig.

Diese Nummer (in dem Beispiel 6) dann bei den Optionen eintragen:


Inline-Bild 4


Dann erscheint dieser automatisch bei der Buchung:


Inline-Bild 5