AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Interfaces/GraphQL: Improve debugging

Browse Source
This commit is contained in:
Jonathan Jenne
2021-09-30 13:15:23 +02:00
parent 65447df0ca
commit d73e3e2f28
4 changed files with 57 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
GUIs.Test.GraphQLTest/frmMain.Designer.vb generated
View File

@@ -251,6 +251,7 @@ Partial Class frmMain
Me.txtOperation.Name = "txtOperation"
Me.txtOperation.Size = New System.Drawing.Size(458, 20)
Me.txtOperation.TabIndex = 1
Me.txtOperation.Text = "Auftraege"
'
'btnLogin
'

13
GUIs.Test.GraphQLTest/frmMain.vb
View File

@@ -153,7 +153,9 @@ Public Class frmMain
End Using
End Using
Dim oObj As JObject = JsonConvert.DeserializeObject(oResult)
'Dim oObj As JObject = JsonConvert.DeserializeObject(oResult)
Dim oObj As JObject = JObject.Parse(oResult)
Dim oData As SAPData = ConvertResponse(oResult)
_Logger.Debug("Inserting [{0}] items for datapool [{1}]", oData.sapdaten.Count, oDatapool)
@@ -203,7 +205,13 @@ Public Class frmMain
End Using
End Using
Dim oObj As JObject = JsonConvert.DeserializeObject(oResult)
Dim oPath = "data.auftraege.auftraege"
Dim oObj As JObject = JObject.Parse(oResult)
If _Interface.ReadJSONPathFragmented(oObj, oPath) = False Then
MsgBox($"JSONPath [{oPath}] was not successfully read", MsgBoxStyle.Critical, Text)
End If
'Dim oObj As JObject = JsonConvert.DeserializeObject(oResult)
Dim oIndentedJson As String = JsonConvert.SerializeObject(oObj, Formatting.Indented)
txtResult.Text = oIndentedJson
@@ -217,6 +225,7 @@ Public Class frmMain
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub SaveConfig()
_Config.Config.ConnectionString = txtConnectionString.Text
_Config.Config.BaseUrl = txtBaseUrl.Text