LOCAL lcJson AS STRING
LOCAL lcReturnJson AS STRING
LOCAL loGoliathAPI AS "GoliathAPI.kaAPIWorker"

lcJson = STRCONV(FILETOSTR("c:\Temp\__xxx\auftrag.json"), 11)	&& UTF8-> ANSI

loGoliathAPI = CREATEOBJECT("GoliathAPI.kaAPIWorker")
loGoliathAPI.ConnectOpen("c:\MKS-Goliath\Mks_dbc.ini")

IF loGoliathAPI.PKA_NCONNECTIONISOPEN = 1
	*Mögliche Fehler, Hinweise und Informationen werden in das JSON eingefügt. Das JSON wird in seiner ursprünglichen Form + der Rückmeldung zurückgegeben.
	lcReturnJson = loGoliathAPI.ProcessJson(lcJson, .F.)
	STRTOFILE(STRCONV(lcReturnJson, 9), "c:\Temp\__xxx\response.json")	&& ANSI -> UTF8
ENDIF

*Auflistung aller aufgetretenen Validierungsfehler der JSON.
IF !EMPTY(loGoliathAPI.pkaExp_cErrorLog)
	= MESSAGEBOX(loGoliathAPI.pkaExp_cErrorLog)
	_CLIPTEXT = loGoliathAPI.pkaExp_cErrorLog
ENDIF