MDM (POS-Liste, Nummerierung auf Rechnungen).

2026-01-16 17:02:19 +01:00
parent b5f2fc96fb
commit 6e00c67dd8
4 changed files with 17 additions and 7 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
@@ -999,7 +999,7 @@ Public Class cMDMFunctionsAllgemein
                    Dim merged As Boolean = False

                    If DS.DATA_LIST.coll_daId > 0 Then
-                        For Each L As cDatenarchiv_Collection In DS.DATA_LIST.LIST
+                        For Each L As cDatenarchiv_Collection In DS.DATA_LIST.LIST.OrderBy(Function(dgvr) dgvr.coll_date)
                            If L.coll_pfad <> "" Then PathList.Add(L.coll_pfad)
                        Next