Erstellen_JSON_Mapping.p 521 B

123456789101112131415
  1. OUTPUT TO 'C:\TEMP\Felder.json' NO-MAP NO-CONVERT.
  2. PUT CONTROL CHR(123) CHR(10).
  3. FIND _File WHERE _File._File-name = 'Adresse'.
  4. FOR EACH _Field OF _File :
  5. PUT CONTROL ' "' _Field._Field-Name '": ' CHR(123) CHR(10)
  6. ' "name": "' _Field._Field-Name '",' CHR(10)
  7. ' "id": "' _Field._Field-Name '",' CHR(10)
  8. ' "label": "' _Field._Field-Name '",' CHR(10)
  9. ' "type": "Text", ' CHR(10)
  10. ' "width": "100px" ' CHR(10)
  11. CHR(125) ',' CHR(10).
  12. END.
  13. OUTPUT CLOSE.