Rechnugnsnummernermittlung

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb

@@ -167,8 +167,8 @@ Public Class cRechnungsnummern
                 Using cmd As New SqlCommand(
                     "BEGIN TRAN IF EXISTS (SELECT * FROM Rechnungsnummern WITH(updlock,serializable) WHERE [SpeditionsbuchNr]=@SpeditionsbuchNr AND Buchungsjahr=@Buchungsjahr)
                 BEGIN
+                    SELECT [LfdRechnungsNr] FROM dbo.Rechnungsnummern WHERE [SpeditionsbuchNr]=@Speditionsbuchnr AND Buchungsjahr=@Buchungsjahr
                     UPDATE dbo.Rechnungsnummern SET LfdRechnungsNr= (SELECT [LfdRechnungsNr] as newNr FROM dbo.Rechnungsnummern WHERE [SpeditionsbuchNr]=@Speditionsbuchnr AND Buchungsjahr=@Buchungsjahr) + 1 WHERE [SpeditionsbuchNr]=@Speditionsbuchnr AND Buchungsjahr=@Buchungsjahr
-		            SELECT [LfdRechnungsNr] FROM dbo.Rechnungsnummern WHERE [SpeditionsbuchNr]=@Speditionsbuchnr AND Buchungsjahr=@Buchungsjahr
                 END;    
             else
                     BEGIN
@@ -184,7 +184,7 @@ Public Class cRechnungsnummern
                     cmd.Parameters.AddWithValue("@BisRechnungsNr", BisRechnungsNr)
 
                     Dim dr = cmd.ExecuteScalar()
-
+                    'Dim dr = cmd.ExecuteReader()
                     LfdRechnungsNr = dr
 
                 End Using