neu

VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb

@@ -10,6 +10,9 @@ Public Class cAvisoAnhaenge
     Property anh_Art As Object = Nothing
     Property anh_Typ As String
     Property anh_Reihenfolge As Integer = 99
+    Property anh_LaufzettelDruck As Boolean = False
+
+
     Public hasEntry As Boolean = False
 
     Dim SQL As New SQL
@@ -46,6 +49,7 @@ Public Class cAvisoAnhaenge
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Art", anh_Art))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Typ", anh_Typ))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Reihenfolge", anh_Reihenfolge))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_LaufzettelDruck", anh_LaufzettelDruck))
 
         Return list
     End Function
@@ -161,4 +165,9 @@ Public Class cAvisoAnhaenge
         Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "AVISO")
     End Function
 
+    Public Shared Function toggleLaufzettelDruck(id As Integer) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
+        Dim sqlstr = " UPDATE [tblAvisoAnhaenge]  SET [anh_LaufzettelDruck] = 1 - [anh_LaufzettelDruck] WHERE anh_id=" & id
+        Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "AVISO")
+    End Function
+
 End Class