+SDL-Leistung_MED PASS; Anpassung Fakturierung

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb

@@ -9,6 +9,7 @@ Public Class cRechnungsnummern
     Property VonRechnungsNr As Integer = -1
     Property BisRechnungsNr As Integer = -1
     Property LfdRechnungsNr As Integer = 0
+    '   Property upsize_ts As String
 
     Dim SQL As New SQL
 
@@ -58,6 +59,7 @@ Public Class cRechnungsnummern
         '-------------------------------------
 
 
+        'LOAD(SpeditionsbuchNr, Buchungsjahr)
         LOAD(SpeditionsbuchNr, Buchungsjahr)
     End Sub
 
@@ -69,6 +71,8 @@ Public Class cRechnungsnummern
             LfdRechnungsNr = 1
         End If
         SAVE()
+
+        'ROWVERSION
         Return LfdRechnungsNr
     End Function
 
@@ -94,6 +98,29 @@ Public Class cRechnungsnummern
     End Function
 
 
+
+    Public Shared Function CHECK_RGNR_NEW(aktuelleRechnungsnummer, SpeditionsbuchNr, Buchungsjahr) As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr.
+        CHECK_RGNR_NEW = aktuelleRechnungsnummer
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        '  If sleep Then System.Threading.Thread.Sleep(200) ' nur, um abzuwarten falls parallel eine Nr vergeben wird
+        While SQL.DLookup("count(*)", "Rechnungsausgang", " RechnungsNr='" & aktuelleRechnungsnummer & "' and Firma_ID='" & SpeditionsbuchNr & "' and Buchungsjahr='" & Buchungsjahr & "' ", "FMZOLL", 0) > 0
+            'Wenn eine Doppelvergabe festgestellt wurde --> LfdRgNr aus DB neu ziehen:...
+            Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(SpeditionsbuchNr, Buchungsjahr)
+            aktuelleRechnungsnummer = RG_NR.LfdRechnungsNr ' --> Die in der DB gespeicherte RgNr wird verwendet
+            CHECK_RGNR_NEW = RG_NR.LfdRechnungsNr ' --> Die in der DB gespeicherte RgNr wird verwendet
+            RG_NR.INCREASE_RGNR() ' ..... und gelcih wieder hcoh zählen
+
+            System.Threading.Thread.Sleep(50) ' nur, um abzuwarten falls parallel eine Nr vergeben wird
+        End While
+
+    End Function
+
+
+    Public Shared Function DECREASE_RGNR_NEW(SpeditionsbuchNr, Buchungsjahr) As Boolean
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Return SQL.doSQL("UPDATE [Rechnungsnummern]  SET LfdRechnungsNr=LfdRechnungsNr-1 WHERE  SpeditionsbuchNr='" & SpeditionsbuchNr & "' and Buchungsjahr='" & Buchungsjahr & "' ", "FMZOLL", 0)
+    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()
 
@@ -103,13 +130,16 @@ Public Class cRechnungsnummern
                        " BEGIN " & getInsertCmd() & " END " &
                        " commit tran "
         'MsgBox(sqlstr)
+        ' Dim returnBool = SQL.doSQL(sqlstr, "FMZOLL", , list)
+        ' Me.upsize_ts = SQL.DLookup("upsize_ts", "Rechnungsnummern", "SpeditionsbuchNr ='" & Me.SpeditionsbuchNr & "' AND Buchungsjahr='" & Me.Buchungsjahr & "'")
+        ' Return returnBool
         Return SQL.doSQL(sqlstr, "FMZOLL", , list)
     End Function
 
     Public Sub LOAD(SpeditionsbuchNr As String, Buchungsjahr As String)
         Try
             Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
-                Using cmd As New SqlCommand("SELECT * FROM Rechnungsnummern WHERE  [SpeditionsbuchNr]=@SpeditionsbuchNr AND Buchungsjahr=@Buchungsjahr ", conn)
+                Using cmd As New SqlCommand("SELECT * FROM Rechnungsnummern WITH(updlock,serializable)  WHERE  [SpeditionsbuchNr]=@SpeditionsbuchNr AND Buchungsjahr=@Buchungsjahr  ", conn)
                     cmd.Parameters.AddWithValue("@SpeditionsbuchNr", SpeditionsbuchNr)
                     cmd.Parameters.AddWithValue("@Buchungsjahr", Buchungsjahr)
 
@@ -120,7 +150,7 @@ Public Class cRechnungsnummern
                         Me.LfdRechnungsNr = cSqlDb.checkNullStr(dr.Item("LfdRechnungsNr"))
                         Me.VonRechnungsNr = cSqlDb.checkNullInteger(dr.Item("VonRechnungsNr"))
                         Me.BisRechnungsNr = cSqlDb.checkNullInteger(dr.Item("BisRechnungsNr"))
-
+                        '    Me.upsize_ts = dr.Item("upsize_ts")
                     End If
                     dr.Close()
                 End Using
@@ -140,6 +170,7 @@ Public Class cRechnungsnummern
         list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LfdRechnungsNr", LfdRechnungsNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("VonRechnungsNr", VonRechnungsNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BisRechnungsNr", BisRechnungsNr))
+
         Return list
     End Function