| Startseite | Inhalt
StarBasic / OpenOffice.org Basic FAQ
Fragen und Infos: starbasic@dannenhoefer.de

Zurück Vor |
| 2.3.10 Wie kann man fortlaufende Rechnungsnummern erzeugen?
Nach dem die Frage öfter aufgetaucht ist hier eine mögliche Lösung: Der Zähler für die Rechnungsnummer wir in eine Datei geschrieben. Diese wird mit einer Funktion ausgelesen und automatisch eine Nummer hochgesetzt. Diese Funktion kann auch in Calc direkt eingesetzt werden (=getandsetnumber()). function GetAndSetNumber as string dim f as Integer dim rechnungsdatei as string dim renummer as string rechnungsdatei="c:/re.txt" if FileExists("file:///"&rechnungsdatei) then f = FreeFile() Open "file:///"&rechnungsdatei for Input as #f Line Input #f, renummer close #f f = FreeFile() Open "file:///"&rechnungsdatei for output as #f Print #f, val(renummer)+1 close #f else renummer=0 endif GetAndSetNumber=renummer end function Für einen Mehrplatzbetrieb muß man eventuell noch eine Logdatei hinzufügen die den gleichzeitigen Zugriff verhindert. |
Seitenanfang |

2003 - 2009 von Michael Dannenhöfer |
Letzte Aktualisierung: 06.04.2009