StarBasic - Allgemein

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()).

Basic

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 muss man eventuell noch eine Logdatei hinzufügen die den gleichzeitigen Zugriff verhindert.