add mdkurzbezeichnung field to query

GUIs.Test.GraphQLTest/Form1.vb

@@ -32,7 +32,11 @@ Public Class Form1
             End Using
 
             File.WriteAllText("E:\JenneJ\WISAG\results.json", oResult)
-            txtResults.Text = oResult
+
+            Dim oObj = Newtonsoft.Json.JsonConvert.DeserializeObject(oResult)
+            Dim oJson = Newtonsoft.Json.JsonConvert.SerializeObject(oObj, Newtonsoft.Json.Formatting.Indented)
+
+            txtResults.Text = oJson
 
             Dim oLogoutResponse = _Interface.Logout()
         Catch ex As Exception