JSONToVariant (no replies)

Hi,

I received error from WINDEV saying 'Member' property not allowed on 'array' variable.
Error code: 1102; Level: fatal error

What i can do to fix it?

Json :-

[{"origin": false, "message_follower_ids": [3, 19], "create_date": "2018-04-06 09:01:36", "display_name": "SO003", "order_line": [6, 7], "invoiced_rate": 0.0, "write_uid": [1, "Administrator"], "currency_id": [1, "EUR"], "invoice_ids": [], "invoice_exists": false, "client_order_ref": false, "date_order": "2018-04-06 09:01:39", "partner_id": [19, "Chamber Works"], "message_ids": [274, 248, 247], "message_summary": " ", "amount_tax": 0.0, "procurement_group_id": false, "fiscal_position": false, "amount_untaxed": 377.5, "message_is_follower": true, "__last_update": "2018-04-06 11:04:13", "payment_term": false, "message_last_post": "2018-04-06 11:04:13", "company_id": [1, "YourCompany"], "id": 3, "note": false, "state": "manual", "paypal_url": false, "pricelist_id": [1, "Public Pricelist (EUR)"], "invoiced": false, "create_uid": [1, "Administrator"], "portal_payment_options": "", "section_id": [1, "Direct Sales"], "write_date": "2018-04-06 11:04:13", "partner_invoice_id": [19, "Chamber Works"], "user_id": [1, "Administrator"], "date_confirm": "2018-04-06", "amount_total": 377.5, "project_id": false, "name": "SO003", "partner_shipping_id": [19, "Chamber Works"], "product_id": [2, "On Site Monitoring"], "order_policy": "manual", "message_unread": false}]


sJSon is ANSI string = EDT_NoName1 ( which contain the Json )
let vjs=JSONToVariant(sJSon)


FOR EACH _Member OF vjs..Member

IF _Member..Member..Occurrence = 0 THEN
Trace("The member " + _Member..Name + " has the value " +
Member..Value)
ELSE
Trace("The member " + _Member..Name + " has " +
Member..Member..Occurrence + ...
" other members")
BrowseVariantMembers(_Member)
END
END


PROCEDURE BrowseVariantMembers(x)

FOR EACH _Member OF x..Member
IF _Member..Member..Occurrence = 0 THEN
Trace(RepeatString("--", StringCount(dbgInfo(dbgStack), CR)) + ...
"The member " + _Member..Name + " has the value " + _Member..Value)

ELSE
Trace(RepeatString("--", StringCount(dbgInfo(dbgStack), CR)) + ...
"The member " + _Member..Name + " has " + _Member..Member..Occurrence + ...
" other members...")

BrowseVariantMembers(_Member)
END
END


Regards,

PETER ZHOU