Wölfl Report->RG-Nr; TextToPDF->PageNum

VERAG_PROG_ALLGEMEIN/Classes/cDHF_Anhaenge.vb

@@ -28,8 +28,8 @@ Public Class cDHF_Anhaenge
         End If
     End Sub
 
-    Sub New(AnmID, MsgTyp)
-        LOAD(AnmID, MsgTyp)
+    Sub New(AnmID, MsgTyp, LizenzNr)
+        LOAD(AnmID, MsgTyp, LizenzNr)
     End Sub
 
 
@@ -91,12 +91,13 @@ Public Class cDHF_Anhaenge
         End Try
     End Sub
 
-    Public Sub LOAD(AnmID, MsgTyp)
+    Public Sub LOAD(AnmID, MsgTyp, LizenzNr)
         Try
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
-                Using cmd As New SqlCommand("SELECT * FROM tblDHF_Anhaenge WHERE AnmID=@AnmID AND MsgTyp=@MsgTyp ", conn)
+                Using cmd As New SqlCommand("SELECT * FROM tblDHF_Anhaenge WHERE AnmID=@AnmID AND MsgTyp=@MsgTyp AND LizenzNr=@LizenzNr ", conn)
                     cmd.Parameters.AddWithValue("@AnmID", AnmID)
                     cmd.Parameters.AddWithValue("@MsgTyp", MsgTyp)
+                    cmd.Parameters.AddWithValue("@LizenzNr", LizenzNr)
                     Dim dr = cmd.ExecuteReader()
                     If dr.Read Then
                         For Each li In getParameterList()