neu

2021-02-02 21:19:23 +01:00
parent 595851ec3c
commit 3aaf328ce6
16 changed files with 59 additions and 33 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
@@ -370,7 +370,7 @@ Public Class cSendungen
        Try
            Me.ABRECHNUNG.Clear()
            Dim conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
-            Using cmd2 As New SqlCommand("SELECT * FROM tblSendAbrechnung WHERE sndabr_sendId=@sndabr_sendId ", conn)
+            Using cmd2 As New SqlCommand("SELECT * FROM tblSendAbrechnung WHERE sndabr_sendId=@sndabr_sendId and  sndabr_sendId>0", conn)
                cmd2.Parameters.AddWithValue("@sndabr_sendId", Me.tblSnd_SendungID)
                Dim dr2 = cmd2.ExecuteReader()