Ver Mensaje Individual
  #1  
Antiguo 24-03-2019
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.010
Reputación: 20
oscarac Va por buen camino
RecordCount no devuelve dato real

alguien sabe porque usando Firedac la propiedad RecordCount no devuelve el valor real?

estoy haciendo esta funcion

Código Delphi [-]
Function VerificarAnexo (_Anexo :String; _tipo : Integer) :Boolean;
Var SqlStr : String;
begin
  if _Anexo <> '' then
    Begin
      dmGlobal.qryBuscarAnexo.SQL.Clear;
      SqlStr := 'Select * From tblAnexo where Empresa = ' + QuotedStr(dmGlobal.g_CodigoEmpresa);
      if _tipo = 0 then
        SqlStr := SqlStr + ' and Codigo Like ' + QuotedStr(_Anexo + '%')
      Else
      SqlStr := SqlStr + ' and (Codigo Like ' + QuotedStr(_Anexo + '%') + ' or ' +
                              'RUC Like ' + QuotedStr(_Anexo + '%') + ')';


      SqlStr := SqlStr + ' Order By Codigo';

      dmGlobal.qryBuscarAnexo.SQL.Add(SqlStr);
      dmGlobal.qryBuscarAnexo.Open;
      dmGlobal.qryBuscarAnexo.Last;
      result := dmGlobal.qryBuscarAnexo.RecordCount >= 1;
      dmGlobal.vResultAnexo := dmGlobal.qryBuscarAnexoCodigo.AsString;
      dmGlobal.vResultAnexoRazon := Trim (dmGlobal.qryBuscarAnexoRazonSocial.AsString);
      dmGlobal.vResultAnexoDireccion := Trim(dmGlobal.qryBuscarAnexoDireccion.AsString);
      dmGlobal.vResultAnexoRuc := Trim(dmGlobal.qryBuscarAnexoRuc.AsString);

      dmGlobal.qryBuscarAnexo.Close;
    End
  else
    Result := False;
end;

cuando pruebo el query armado en la cadena en el analizador de consulta, devuelve 10 resultados, pero la linea dmGlobal.qryBuscarAnexo.RecordCount devuelve cero

en el componente TDfQuery he cambiado la propiedad RecorCountMode a cmFetched y tambien a cmTotal y nada sigue devolviendo cero
__________________
Dulce Regalo que Satanas manda para mi.....
Responder Con Cita