TMVCJsonDataObjectsSerializer : should calls "ADataSet.first" ? about delphimvcframework HOT 4 CLOSED

   qTmp.SQL.LoadFromFile( filename );
   qTmp.Open ;
   ViewData ['dati'] := qtmp ;
//-> same if    ViewDataset ['dati'] := qtmp ;
   LoadView(['header','body','footer']);
   RenderResponseStream;

   ViewData ['dati'] := qTmp;
   LoadView(['header']);
   qTmp.First ;    // <--  reset to first;
   LoadView(['body']);
   LoadView(['footer']);

procedure TMVCJsonDataObjectsSerializer.DataSetToJsonArray(const ADataSet: TDataSet; const AJsonArray: TJDOJsonArray;
  const ANameCase: TMVCNameCase; const AIgnoredFields: TMVCIgnoredList;
  const ASerializationCallback: TMVCDataSetFieldSerializationAction);
var
  LJObj: TJDOJsonObject;
  lDataSetFields: TMVCDataSetFields;
begin
  lDataSetFields := GetDataSetFields(ADataSet, AIgnoredFields, ANameCase);
  try
    while not ADataSet.Eof do
    begin
      LJObj := AJsonArray.AddObject;
      DataSetToJsonObject(ADataSet, LJObj, ANameCase, AIgnoredFields, lDataSetFields, ASerializationCallback);
      ADataSet.Next;
    end;
  finally
    lDataSetFields.Free;
  end;
end;

   ViewData ['dati'] := qTmp;
   SetPagesCommonHeaders(['header']) ;
   SetPagesCommonFooters(['footer']);
   Render(Page(['body'] ));