MDM, UTA, FIbu

VERAG_PROG_ALLGEMEIN/Classes/cParameter.vb

@@ -32,13 +32,13 @@ Public Class cParameterList
         'LIST.Add(l)
     End Sub
 
-    Public Sub LOAD_LIST(KundenNr, Optional firma = Nothing)
+    Public Sub LOAD_LIST(ProgId, Optional firma = Nothing)
         Try
             LIST.Clear()
             Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN
                 Using cmd As New SqlCommand("SELECT * FROM [tblParameter] WHERE progId IN (0,@ProgId) " & If(firma IsNot Nothing, " AND firma=@firma", ""), conn)
                     cmd.Parameters.AddWithValue("@ProgId", ProgId)
-                    cmd.Parameters.AddWithValue("@firma", firma)
+                    If firma IsNot Nothing Then cmd.Parameters.AddWithValue("@firma", firma)
                     '  cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
                     Dim dr = cmd.ExecuteReader()
                     While dr.Read