+SDL-Leistung_MED PASS; Anpassung Fakturierung

VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb

@@ -245,5 +245,6 @@ Public Class cAvisoBenachrichtigungenCodes
     Public Shared Vermerke_Reminder As Integer = 5
     Public Shared Vorauskasse_OK As Integer = 6
     Public Shared ZOLL_Dokumentenbeschau As Integer = 7
+    Public Shared ZOLL_Rueckweisung As Integer = 8
 
 End Class

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
 

VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb

@@ -674,6 +674,8 @@ Public Class cSendungen
                         If i.Text = "tblSnd_AbklaerungTR_MA" Then jump = True
                         If i.Text = "tblSnd_AbfertigungTR" Then jump = True
                         If i.Text = "tblSnd_AbfertigungTR_MA" Then jump = True
+                        If i.Text = "tblSnd_AbfertigungTRAnzahl" Then jump = True
+                        If i.Text = "tblSnd_AbfertigungTRAnzahlPos" Then jump = True
                     End If
 
 

VERAG_PROG_ALLGEMEIN/Classes/cSession.vb

@@ -125,9 +125,11 @@ Public Class cSession
 
 
 
-    Public Shared Function IS_ONLINE(sess_maId) As Boolean
+    Public Shared Function IS_ONLINE(sess_maId, Optional andIsRealUser = False) As Boolean
         Try
             Dim SQL As New SQL
+            Dim where = ""
+            If andIsRealUser Then where = " AND  mit_pseudoUser=0 "
             Dim sess_IdOnline = SQL.getValueTxtBySql("SELECT TOP 1 sess_Id FROM   tblSessions   where sess_lastRm > dateadd(MINUTE,-2, getdate()) AND sess_maId='" & sess_maId & "' ORDER BY sess_lastActivity DESC,sess_lastRm DESC", "ADMIN",,, -1)
             If sess_IdOnline > 0 Then
                 Return True