neu

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -362,6 +362,7 @@ Public Class cRechnungsausgang
 
     Public Function SAVE_POSITIONEN(RK_ID) As Boolean
         If DELETE_POSITIONEN() Then ' zuerst Einträge löschen...
+            ORDER_POSITIONEN() ' ... dann ordnen ...
             For Each p In POSITIONEN
                 If Not p.INSERT(RK_ID) Then Return False ' ... dann insert
             Next
@@ -509,6 +510,22 @@ Public Class cRechnungsausgang
         End Try
     End Sub
 
+    Public Sub ORDER_POSITIONEN()
+        Try
+            '  Dim POSITIONEN_Tmp As New List(Of cRechnungsausgangPositionen)
+            Try
+                POSITIONEN = POSITIONEN.OrderByDescending(Function(x) x.Preis).ToList()
+            Catch ex As Exception
+                'Preis null??
+            End Try
+            POSITIONEN = POSITIONEN.OrderBy(Function(x) x.LeistungsNr).ToList()
+
+        Catch ex As Exception
+            MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+    End Sub
+
+
 End Class
 
 
@@ -614,4 +631,7 @@ Public Class cRechnungsausgangPositionen
         End Try
         Return ""
     End Function
+
+
+
 End Class