JSON Error WebCore 1.6

WEB TMS WEB Core
1

Hi,

I have forced to use 1.6 because app won't compile because of FNC Pos function changes.

My existing app whiich is currently live works fine but with 1.6 I am getting errors as follows. Help would be greatly appreciated.

Thanks,

Ken

procedure TMainForm.MTDViewReturnResponse(Sender: TObject; AResponse: string);
var
jsO,jsObj:TJsonObject;
mtdFunc:String;
Res:Integer;
begin
jsO:=TJSONObject.ParseJsonValue(AResponse) as TJSonObject;
mtdFunc:=jsO.GetJsonValue('mtdFunc');
Res:=StrToInt(jsO.GetJsonValue('Result'));
if Res=200 then
begin
jsObj:=jsO.ParseJsonValue(jsO.GetJsonValue('Body')) as TJsonObject;
edBox1.Text:=jsObj.GetValue('vatDueSales').ToString; //value is 390 and works fine
edBox2.Text:=jsObj.GetValue('vatDueAcquisitions').ToString; //Value is 0 and works fine
edBox3.Text:=jsObj.GetValue('totalVatDue').ToString; // value is 390 and works fine
edBox4.Text:=jsObj.GetValue('vatReclaimedCurrPeriod').ToString; //value is 330.23 and throws error Invalid Integer Value "330.23"
...

2

Although this is working live using earlier version of Web Core I have realised that the values are not in pairs. Changing this to jsObj.GetJSONValue('xxx') works fine. Sorry for the inconvenience.