[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: READ-JSON

[Giancarlo Alberto Somma]

Hi guys, thanks for your help. Resolved with this mode: oJsonArray2 = oNestObject1:GetJsonArray('rows'). DO j = 1 TO oJsonArray2:LENGTH: oNestObject2 = OJsonArray2:GetJsonObject(j). CREATE docrig. ASSIGN documento = oNestObject2:GetJsonText('id_invoice') docrig.dr_testo[1] = oNestObject2:GetJsonText('description') docrig.societa = doctst.societa wsequenza = oNestObject2:GetJsonText('ordering') wqty = oNestObject2:GetJsonText('qt_accounting') wtotal = oNestObject2:GetJsonText('total_row') docrig.dr_avere = oNestObject2:GetJsonText('acct_code') docrig.dr_iva = oNestObject2:GetJsonText('iva_row') docrig.dr_regiva = doctst.dt_regiva docrig.dr_anno = doctst.dt_anno docrig.dr_documento = doctst.dt_documento docrig.dr_flagiva = doctst.dt_flagiva. END. many thanks. G.

Continue reading...