Resourcen
Übersicht
Programmierung
Schulungen
Projektabwicklung
Consulting & Coaching
Tools und AddOns zu FoxPro
Frameworks für Visual FoxPro
Grafik und Berichtsausgabe
Installation und Dokumentation
Sicherheit und Übertragung
Standardsoftware in FoxPro
Bücher und Zeitschriften
dFPUG Service
dFPUG Regionaltreffen
dFPUG Online
MS Most Valuable Professionals
Microsoft Certified Professionals
Bücher
Presse
Stellen
Übersicht
FoxPro München
FoxPro Rhein Main Gebiet
FoxPro Ruhrgebiet
FoxPro Hannover
FoxPro Hamburg
FoxPro Stuttgart
FoxPro Sonstige
FoxPro Schweiz
FoxPro Österreich
FoxPro Kapazitäten frei
Sonstige Angebote
Sonstige Gesuche
Tipps

alle öffnen    alle schließen


Nicht compiliert - . . geändert
 

Nächster Arbeitstag

NÄCHSTER ARBEITSTAG

von Rainer Becker

Häufig arbeiten viele Menschen am Wochenende - viele Programmierer können davon ein Liedchen singen. Auf Rechnungen, Lieferscheinen und diversen offiziellen Ausdrucken, Listen und Formularen ist es aber dennoch unerwünscht, ein Wochenenddatum auszudrucken. Bei der Erfassung von Zahlungseingängen wiederum ist es völlig unmöglich, daß ein Geldeingang am Wochenende erfolgt. Von daher wird eine kleine Funktion zur Berechnung des nächsten Werktages sowohl in Masken als auch in Berichten häufig benötigt. Hier die einfache Version zum Einbau in eine Berichtsdatei:

Function NxtWorkDay
Parameters dDatum
If Parameters()=0
m.dDatum = Date()
Endif
If Dow(m.dDatum) = 7
m.dDatum = m.dDatum + 2
Endif
If Dow(m.dDatum) = 1
m.dDatum = m.dDatum + 1
Endif
Return m.dDatum

Wenn Sie zum Beispiel ein Feld Rechnungsdatum RECHNUNG.RECHDATUM haben, verändern Sie das Ausdruckfeld im Report in NXTWORKDAY(RECHNUNG.RECHDATUM). Die Funktion kann man noch erweitern mit einem Zugriff auf eine Feiertagsdatei.