Quintiq file version 2.0 
 | 
#parent: #root 
 | 
Method GetClassTypeQueryBody (Lib3DS_Entities entities) const remote as String 
 | 
{ 
 | 
  TextBody: 
 | 
  [* 
 | 
    jsonurls := JSON::Array(); 
 | 
    traverse( entities, Elements, entity ) 
 | 
    { 
 | 
      jsonurl := JSON::String( entity.URL() ); 
 | 
      jsonurls.Add( jsonurl ); 
 | 
    } 
 | 
     
 | 
    jsonobject := JSON::Object(); 
 | 
    jsonobject.Add( 'urls', jsonurls ); 
 | 
     
 | 
    return jsonobject.AsPrettyString(); 
 | 
  *] 
 | 
  InterfaceProperties { Accessibility: 'Module' } 
 | 
} 
 |