neu

DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb

@@ -1561,6 +1561,7 @@ End Class
 
 
 Public Class cDakosy_EZA_Warenposition
+    Implements ICloneable
     'Property ezaWP_Id As Integer
     Property ezaWP_Id As Integer
     Property ezaWP_EzaId As Integer
@@ -1700,6 +1701,10 @@ Public Class cDakosy_EZA_Warenposition
     ' End Sub
 
 
+    Public Function Clone() As Object Implements ICloneable.Clone 'Muss noch probiert werden!
+        Return DirectCast(MemberwiseClone(), cDakosy_EZA_Warenposition)
+    End Function
+
     Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Id", ezaWP_Id, , True, True))