Transportauftrag und Zeiterfassung in Dispo implementiert.

UID/cDispoAuftraege.vb

@@ -504,13 +504,13 @@ Public Class cDispoAuftraege
                     cmd.Parameters.AddWithValue("@atr_id", atr_id)
                     Dim dr = cmd.ExecuteReader()
                     If dr.Read Then
-                        For Each l In getParameterList()
-                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
+                        For Each i In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
 
-                            If dr.Item(l.Text) Is DBNull.Value Then
+                            If dr.Item(i.Text) Is DBNull.Value Then
                                 propInfo.SetValue(Me, Nothing)
                             Else
-                                propInfo.SetValue(Me, dr.Item(l.Text))
+                                propInfo.SetValue(Me, dr.Item(i.Text))
                             End If
 
                         Next