Working Rejected

2019-09-24 13:16:01 +02:00
parent 82a839949d
commit cf461c79d9
5 changed files with 106 additions and 54 deletions
--- a/GUIs.Test.ZUGFeRDTest/Form1.vb
+++ b/GUIs.Test.ZUGFeRDTest/Form1.vb
@@ -58,7 +58,7 @@ Public Class Form1
    End Function

    Private Function LoadPropertyMapFor(Args As WorkerArgs, Specification As String)
-        Dim oSQL As String = $"SELECT * FROM TBEDM_XML_ITEMS WHERE SPECIFICATION = '{Specification}' AND ACTIVE = True"
+        Dim oSQL As String = $"SELECT * FROM TBEDM_XML_ITEMS WHERE SPECIFICATION = '{Specification}' AND ACTIVE = True ORDER BY XML_PATH"
        Dim oResult As DataTable = _firebird.GetDatatable(oSQL)

        For Each oRow As DataRow In oResult.Rows