Buenas a todos.
Tengo puesto como dices Soa Pelaez así exactamente en el TClientDataSet " la propiedad FetchOnDemand en true y la propiedad PacketRecords en -1."
Por parte del cliente tengo los siguientes componentes para realizar esta consulta: TDataSetClient y TDataSetProvider y ejecuto la siguiente instrucción:
// cargamos datos de COSTES que cumplen los criterios
Código Delphi
[-]
dspCostes.DataSet := funcion.FiltrarCostesResumen(Aux_fecha, Aux_expediente1, Aux_expediente2, Aux_ano1, Aux_ano2,
Aux_empresa1, Aux_empresa2, Aux_obra1, Aux_obra2, Aux_linea1, Aux_linea2);
cdsCostes.Data := dspCostes.Data;
cdsCostes.RecordCount;
En la parte del servidor que es donde se ejecuta la función FiltrarCostesResumen tengo un TFDQuery para ejecutar la consulta y un TDataSetProvider asociado a este TFDQuery:
Código Delphi
[-]
function TServerMethods1.FiltrarCostesResumen(fecha, expediente1, expediente2,
ano1, ano2, empresa1, empresa2, obra1, obra2, linea1, linea2: string): TdataSet;
const
linea = 'select * from costes';
begin
qAuxiliar.Close;
qAuxiliar.SQL.Clear;
qAuxiliar.SQL.Add(linea);
try
qAuxiliar.OPEN;
qAuxiliar.RecordCount; result := qAuxiliar;
Except
end;
end;
Ahora mismo ando un poco perdido y no sé como arreglarlo, a ver si alguien me puede decir como hacerlo, el problema es que estoy trabajando con datos reales y necesito que esto funcione para sacar listados.
Gracias a todos.