Parte Servidor

procedure Tdm.ServerEventsEventsComprasReplyEvent(var Params: TRESTDWParams;
  var Result: string);
var
   dtini, dtfim,filial, erro,variedade :string;
  json : uRESTDWJSONObject.TJSONValue;
  qry : TFDQuery;
begin
  try
    dtini:=  Params.ItemsString['dtini'].AsString;
    dtfim:= Params.ItemsString['dtfim'].AsString;
    filial:= Params.ItemsString['filial'].AsString;
    variedade:= Params.ItemsString['variedade'].AsString;

    json:= uRESTDWJSONObject.TJSONValue.Create;
    qry:= Compras(dtini, dtfim, filial, variedade, erro);

    json.LoadFromDataset('', qry, false, dmRAW, 'dd/mm/yyyy hh:nn:ss');

    Result:= json.ToJSON;

  finally
    if Assigned(qry) then
      qry.DisposeOf;
      json.DisposeOf;
  end;
end;