neu

VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb

@@ -18,10 +18,10 @@ Public Class cAvisoAnhaenge
     End Sub
 
     Sub New(anh_id)
-        If anh_id IsNot Nothing Then
-            Me.anh_id = anh_id
+        '  If anh_id IsNot Nothing Then
+        Me.anh_id = anh_id
             LOAD()
-        End If
+        '  End If
     End Sub
 
     Sub New(anh_AvisoId, anh_Name, anh_docId, anh_Art, anh_Typ, Optional anh_SendungsId = Nothing, Optional anh_Reihenfolge = 99)
@@ -32,6 +32,7 @@ Public Class cAvisoAnhaenge
         Me.anh_Art = anh_Art
         Me.anh_Typ = anh_Typ
         Me.anh_Reihenfolge = anh_Reihenfolge
+
     End Sub