201020

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb

@@ -70,6 +70,17 @@ Public Class cRechnungsnummern
     End Function
 
 
+    Public Function CHECK_RGNR() As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr.
+        Dim increased = False
+        While SQL.DLookup("count(*)", "Rechnungsausgang", " RechnungsNr='" & LfdRechnungsNr & "' and Firma_ID='" & SpeditionsbuchNr & "' ", "FMZOLL", 0) > 0
+            LfdRechnungsNr += 1
+            increased = True
+        End While
+        If increased Then SAVE()
+        Return LfdRechnungsNr
+    End Function
+
+
     Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()