20200108

VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb

@@ -117,8 +117,8 @@ Public Class cOfferte
                     cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
                     Dim dr = cmd.ExecuteReader()
                     If dr.Read Then
-                        Dim l As New cOfferte
-                        For Each i In l.getParameterList()
+                        'Dim l As New cOfferte
+                        For Each i In getParameterList()
                             Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
                             If dr.Item(i.Text) Is DBNull.Value Then
                                 propInfo.SetValue(Me, Nothing)
@@ -126,7 +126,7 @@ Public Class cOfferte
                                 propInfo.SetValue(Me, dr.Item(i.Text))
                             End If
                         Next
-                        If loadPos Then l.LOAD_POSITIONEN()
+                        If loadPos Then LOAD_POSITIONEN()
                     End If
                     dr.Close()
                 End Using