Added limit to cRestChildCollection (#1)

You can now limit the amount of records returned by the cRestChildCollection class by setting the piLimitResult property.

Author: NielsdeBoerDAE

Web API Library/AppSrc/WebApi/cRestChildCollection.pkg

@@ -16,6 +16,7 @@ Class cRestChildCollection is a cObject
         Property String psNodeName
 
         Property Boolean pbReadOnly True
+        Property Integer piLimitResult 0
 
     End_Procedure
 
@@ -34,20 +35,21 @@ Class cRestChildCollection is a cObject
     */
     Procedure AppendToBody Handle hoResponseBody Handle hoIterator
         Handle hoNestedArray hoNestedObject hoChild hoServer
-        Integer iChildCount iIndex
+        Integer iChildCount iIndex iLimit iRecordsRetrieved
         String sNodeName
 
         Get Server to hoServer
         Get SchemaName to sNodeName
         Get Child_Count to iChildCount
+        Get piLimitResult to iLimit
 
         //Create nested object
         Get CreateResponseBodyArray of hoIterator sNodeName to hoNestedArray
 
         //Start finding the child records
         Send Find of hoServer FIRST_RECORD 1
 
-        While (Found)
+        While ( (Found) and not(Err) and ((iLimit = 0) or (iLimit > 0 and iRecordsRetrieved < iLimit)) )
             //When we find a record create a new nested object
             Get CreateResponseBodyObject of hoIterator sNodeName to hoNestedObject
 
@@ -60,6 +62,7 @@ Class cRestChildCollection is a cObject
             //Add the nested object to the nested array
             Send AppendToResponseArray of hoIterator hoNestedObject hoNestedArray
 
+            Increment iRecordsRetrieved
             //Keep finding child records
             Send Find of hoServer NEXT_RECORD 1
         Loop