From b8736ee880bbdda84112a802b9c38b0ed64f8623 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Mon, 18 Nov 2019 11:15:39 +0100
Subject: [PATCH] add mdkurzbezeichnung field to query

---
 GUIs.Test.GraphQLTest/Form1.Designer.vb |  5 ++---
 GUIs.Test.GraphQLTest/Form1.resx        | 18 ++++++++++++++++++
 GUIs.Test.GraphQLTest/Form1.vb          |  6 +++++-
 3 files changed, 25 insertions(+), 4 deletions(-)

diff --git a/GUIs.Test.GraphQLTest/Form1.Designer.vb b/GUIs.Test.GraphQLTest/Form1.Designer.vb
index 655d5804..c3c65c59 100644
--- a/GUIs.Test.GraphQLTest/Form1.Designer.vb
+++ b/GUIs.Test.GraphQLTest/Form1.Designer.vb
@@ -22,6 +22,7 @@ Partial Class Form1
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
         Me.Button1 = New System.Windows.Forms.Button()
         Me.txtBaseUrl = New System.Windows.Forms.TextBox()
         Me.txtUsername = New System.Windows.Forms.TextBox()
@@ -149,9 +150,7 @@ Partial Class Form1
         Me.txtQuery.Name = "txtQuery"
         Me.txtQuery.Size = New System.Drawing.Size(318, 265)
         Me.txtQuery.TabIndex = 4
-        Me.txtQuery.Text = "query Nls{" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(9) & "niederlassungen {" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "niederlassungen {" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "mdnr" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "bezeichnung" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) &
-    "sparte {" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "id" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "name" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "__typename" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "}" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "__typename" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "}" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "__typena" &
-    "me" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(9) & "}" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "}"
+        Me.txtQuery.Text = resources.GetString("txtQuery.Text")
         '
         'Form1
         '
diff --git a/GUIs.Test.GraphQLTest/Form1.resx b/GUIs.Test.GraphQLTest/Form1.resx
index 1af7de15..de5f15ff 100644
--- a/GUIs.Test.GraphQLTest/Form1.resx
+++ b/GUIs.Test.GraphQLTest/Form1.resx
@@ -117,4 +117,22 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <data name="txtQuery.Text" xml:space="preserve">
+    <value>query Nls{
+	niederlassungen {
+		niederlassungen {
+			mdnr
+                                                mdkurzbezeichnung
+			bezeichnung
+			sparte {
+				id
+				name
+				__typename
+			}
+			__typename
+		}
+		__typename
+	}
+}</value>
+  </data>
 </root>
\ No newline at end of file
diff --git a/GUIs.Test.GraphQLTest/Form1.vb b/GUIs.Test.GraphQLTest/Form1.vb
index 6fbbf85e..4c2a939b 100644
--- a/GUIs.Test.GraphQLTest/Form1.vb
+++ b/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