Estoy tratando de hacer funcionar la funci�n .Locate en un TMenDataset para un campo del tipo ftString, pero no logro hacerla funcionar.

Uso la versi�n 0.9.30 SVN 29749 con FPC 2.4.2

Esto por casualidad es un problema conocido?. En caso de serlo se habr� resuelto en alguna subversi�n de la 0.9.30.1?

Desde ya Gracias.
=========
|| ISMAEL ||
=========
PD: Se puede comprobar si haces lo siguiente.

procedure Tfprueba.FormCreate(Sender: TObject);
begin
  ds.Close;
  ds.Clear;
  ds.FieldDefs.Add('Factura', ftInteger);
  ds.FieldDefs.Add('Cliente', ftString, 7);
  ds.FieldDefs.Add('Valor_CUC', ftFloat);
  ds.FieldDefs.Add('Valor_CUP', ftFloat);
  ds.Open;
  ds.Append;
  ds.FieldByName('Factura').AsInteger := 1;
  ds.FieldByName('Cliente').AsString := 'Pedro';
  ds.FieldByName('Valor_CUC').AsFloat := 1.2;
  ds.FieldByName('Valor_CUP').AsFloat := 3.45;
  ds.UpdateRecord;
  ds.Post;
  ds.Append;
  ds.FieldByName('Factura').AsInteger := 2;
  ds.FieldByName('Cliente').AsString := 'Juan';
  ds.FieldByName('Valor_CUC').AsFloat := 2.41;
  ds.FieldByName('Valor_CUP').AsFloat := 6.93;
  ds.UpdateRecord;
  ds.Post;
  ds.First;
end;
procedure Tfprueba.cmdlocClick(Sender: TObject);
begin
  if ds.RecordCount > 0 then begin
    if ds.Locate('Cliente', 'Pedro', []) then
      Application.MessageBox('Encontrado.', pchar(Self.Caption), 0)
    else
     Application.MessageBox('No Encontrado.', pchar(Self.Caption), 0);
  end;
end;

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110503/1e3f81f7/attachment.html>

Hello Ismael,

Tuesday, May 3, 2011, 7:05:09 PM, you wrote:

ILDG> Estoy tratando de hacer funcionar la funci�n .Locate en ILDG> un TMenDataset para un campo del tipo ftString, pero no logro ILDG> hacerla funcionar.

Probablemente no funcione.

ILDG> Uso la versi�n 0.9.30 SVN 29749 con FPC 2.4.2 ILDG> Esto por casualidad es un problema conocido?. En caso de ILDG> serlo se habr� resuelto en alguna subversi�n de la 0.9.30.1?

El Locate depende del FPC no de Lazarus. Los MemDataset no deben de ser muy usados, por que su mantenimiento es m�nimo y practicamente no se corrigen bugs ni nada.

Acabo de mirar y jurar�a que el locate no est� implementado en el TMemDataset.

En el caso del TMemDataSet no es complicado hacerte una funci�n que haga lo mismo que locate, apuntar el "recno", buscar el campo y su valor y si no se encuentra recuperar el "recno" grabado... Creo, es que nunca he usado el Locate.

A que se debe la no correcci�n de Bugs del TMenDataset?. El que lo desarroll� a dejado de soportarlo?

No puedo ofrecerme para ello porque:
1ro no tengo conocimientos para eso.
2do no tengo conexi�n a Internet.

Pero lo que no me agrada para nada es que no se le corrijan los problemas detectados. Me gustar�a que lo hicieran porque la verdad que en lo personal me parece �til el componente, y de hecho he estado utiliz�ndolo en las peque�as cosas que he realizado hasta ahora, lo que me deja un poco atolondrado el que existan cosas en Lazarus que no sean actualizadas, para mi eso desvalora el sistema como tal.

Ahora perdona que te haga otra pregunta, no se si recuerdas que soy bien nuevo en esto, nunca he tenido instalado delphi en mi pc, es m�s pienso nunca tenerlo tampoco, hasta ahora todo lo que he visto de pascal ha sido en Lazarus.

Me podr�as dar un poco m�s de luz con eso de la funci�n? Realmente estoy atascado por este problema.

Saludos Reiterados
=========
|| ISMAEL ||
=========

Hola, el TMemDataSet tiene un funcionamiento parecido a un TDataSet y en este si est� el Locate. Por qu� no le hechas un vistazo a como est� hecho el procedimiento en el TDataSet.Locate y por similitud puedes sacar algo?.

Un saludo.

________________________________________________________________________

ARTEX TRADING S.A.
Jos� Antonio Cuello Principal

El mar, 03-05-2011 a las 15:53 -0400, Ismael L. Donis Garc�a escribi�:

Me podr�as dar un poco m�s de luz con eso de la funci�n? Realmente estoy atascado por este problema.

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110504/bafde26f/attachment.html>

Hello Ismael,

Tuesday, May 3, 2011, 9:53:36 PM, you wrote:

ILDG> A que se debe la no correcci�n de Bugs del TMenDataset?. El que lo ILDG> desarroll� a dejado de soportarlo?

Probablemente...

ILDG> No puedo ofrecerme para ello porque:
ILDG> 1ro no tengo conocimientos para eso.
ILDG> 2do no tengo conexi�n a Internet.
ILDG> Pero lo que no me agrada para nada es que no se le corrijan los problemas ILDG> detectados. Me gustar�a que lo hicieran porque la verdad que en lo personal

Si ha sido detectado, pero TMemDataSet ha sido "marcado" como "deprecated" y se recomienda el uso de "TBufDataSet" en su lugar. Lo bueno de TBufDataSet es que usa el mismo c�digo de soporte que el resto de SQLDataSets as� que deber�a siempre estar m�s actualizado.

Te mando la p�gina de la Wiki al respecto.

ILDG> me parece �til el componente, y de hecho he estado utiliz�ndolo en las ILDG> peque�as cosas que he realizado hasta ahora, lo que me deja un poco ILDG> atolondrado el que existan cosas en Lazarus que no sean actualizadas, para ILDG> mi eso desvalora el sistema como tal.

Cuando no se actualiza algo normalmente es que hay otra cosa mejor que se est� desarrollando.

ILDG> Ahora perdona que te haga otra pregunta, no se si recuerdas que soy bien ILDG> nuevo en esto, nunca he tenido instalado delphi en mi pc, es m�s pienso ILDG> nunca tenerlo tampoco, hasta ahora todo lo que he visto de pascal ha sido en ILDG> Lazarus.
ILDG> Me podr�as dar un poco m�s de luz con eso de la funci�n? ILDG> Realmente estoy atascado por este problema.

Una versi�n "casera" de locate ser�a algo como esto, aunque no tan potente como el Locate original, claro:

function LocateCasero(const aDS: TDataSet; const aField: string; const
aToLocate: string): Boolean;
var
  oldRec: integer;
begin
  oldRec:=aDS.recno;
  aDS.First;
  while not aDS.EOF do
  begin
    if aDS.FieldByName(aField).asString = aToLocate then
    begin
      Result:=true;
      exit;
    end;
  end;
  aDS.recno:=oldRec;
  Result:=false;
end;

Hola Jos�..

a ra�z del problema de Ismael he buscado tb info al respecto.. y hemos visto que el TBufDataSet no tiene eventos!
ser� que est� a medio hacer? o quiz�s funcione de alguna otra forma que yo no conozca..
chauuuuuuuu

El problema es que TBufDataSet no tiene los eventos que tiene TMenDataset y por ese hecho no me sirve, si tuviera los eventos en ese caso si me servir�a.

Por tal motivo tengo 2 opciones:
1.- Poner los eventos al TBufDataSet
2.- Implementar la funci�n Locate en el componente TMenDataset

Anoche estuve mirando y vi que en la units BufDataset est� implementada la funci�n, entonces cog� y puse en uso la units BufDataset en la units memds y agreg� la funci�n:

function Locate(const keyfields: string; const keyvalues: Variant; options:
TLocateOptions) : boolean; override;

y la implement� como:

function TMemDataset.Locate(const keyfields: string; const keyvalues:
Variant;
  options: TLocateOptions): boolean;
begin
  Result:=inherited Locate(keyfields, keyvalues, options);
end;

pensando que cuando la llamara en el componente TMenDataset me pidiera esta funci�n la cual llamar�a la funci�n de la units BufDataset que esst� declarada de igual forma �sea:

function Locate(const keyfields: string; const keyvalues: Variant; options:
TLocateOptions) : boolean; override;

Pero parece que no ala de la units BufDataset, sino de la units db que es donde tiene la declaraci�n inicial de la siguiente forma:

function Locate(const keyfields: string; const keyvalues: Variant; options:
TLocateOptions) : boolean; virtual;

He tratado de heredar de una funci�n heredada, pero como yo no he trabajado nunca con pascal, realmente no se bien como hacerlo.

Ahora la pregunta: es posible hacer esto de alguna forma y que funcione?

Es decir que herede de la units BufDataset en la cual si est� implementada la funci�n.

Repito todo esto me hace falta porque en la units BufDataset no han implementado los eventos siguientes que si est�n implementados en la units TMenDataset

    property Filtered;
    Property Active;
    Property FieldDefs;
    property BeforeOpen;
    property AfterOpen;
    property BeforeClose;
    property AfterClose;
    property BeforeInsert;
    property AfterInsert;
    property BeforeEdit;
    property AfterEdit;
    property BeforePost;
    property AfterPost;
    property BeforeCancel;
    property AfterCancel;
    property BeforeDelete;
    property AfterDelete;
    property BeforeScroll;
    property AfterScroll;
    property OnDeleteError;
    property OnEditError;
    property OnNewRecord;
    property OnPostError;
    property OnFilterRecord;

Saludos Cordiales
=========
|| ISMAEL ||
=========

He intentado infructuosamente agregar los eventos a la units BufDataset.

Cuando recompillo azarus no me los coge, todo parece indicar poque est� dentro del fpc y no en una units independiente. Como podr�a hacer esto?

Jos� por otra parte implement� la funci�n que me hiciste llegar pero al llamarla me da error al tratar de asignar el TDataset del TMenDataset

Al final le hice algunos cambios a la funci�n que me mandaste pero que no influyen en el error.

La dej� as�, pero repito me da error al tratar de asignar el DataSet por lo que tampoco me sirve.

function Tfunidad.Buscar(const aDS: TDataSet; const aField: string;
  const aToLocate: string): Boolean;
var
  oldRec: integer;
begin
  Result:=false;
  if (aDS.RecordCount = 0) then exit;
  oldRec:=aDS.recno;
  aDS.First;
  while not aDS.EOF do begin
    if aDS.FieldByName(aField).asString = aToLocate then begin
      Result:=true;
      exit;
    end;
  end;
  aDS.recno:=oldRec;
end;

Saludos Reiterados
=========
|| ISMAEL ||
=========

Ya logr� crear la funci�n personalizada dentro de mi proyecto sin que me diera error, aunque eso me saca del problema, realmente quisiera poder agregar los eventos que tiene el TMenDataset al TBufDataSet ya que eso me permitir�a de cambiar de componente. Por ahora me veo obligado a usar el componente TMenDataset.

La funci�n me qued� de la siguiente forma:

function Tdm.Localizar(const aDS: TMemDataset; const aField: string; const
aToLocate: string): Boolean;
var
  oldRec: Longint;
begin
  Result:=false;
  if (aDS.RecordCount = 0) then exit;
  oldRec:=aDS.RecNo;
  aDS.First;
  while not aDS.EOF do begin
    if aDS.FieldByName(aField).asString = aToLocate then begin
      Result:=true;
      exit;
    end;
    aDS.Next;
  end;
  aDS.RecNo:=oldRec;
end;

La misma puede ser enrriquesida para otros tipos de datos.

Saludos Reiterados
=========
|| ISMAEL ||
=========

Hello Ismael,

Wednesday, May 4, 2011, 2:40:30 PM, you wrote:

ILDG> Repito todo esto me hace falta porque en la units BufDataset no han ILDG> implementado los eventos siguientes que si est�n implementados en la units ILDG> TMenDataset

Lo que creo que sucede es que no est�n exportados como published, pero TBufDataSet hereda de TCustomDataSet que hereda de TDBDataSet que a su vez hereda de TDataSet el cual si tiene esos eventos, pero como public.

Desconozco el estado de TBufDataSet para ser usado como un TMemDataSet, la verdad nunca he hecho nada con eso.

Hello Ismael,

Wednesday, May 4, 2011, 4:05:27 PM, you wrote:

ILDG> He intentado infructuosamente agregar los eventos a la units BufDataset. ILDG> Cuando recompillo azarus no me los coge, todo parece indicar poque est� ILDG> dentro del fpc y no en una units independiente. Como podr�a hacer esto?

Tienes que recompilar FPC y su RTL, bueno, en realidad s�lo el RTL, pero yo por costumbre siempre recompilo todo.

ILDG> La dej� as�, pero repito me da error al tratar de asignar el DataSet por lo
ILDG> que tampoco me sirve.
ILDG> function Tfunidad.Buscar(const aDS: TDataSet; const aField: string;
ILDG>   const aToLocate: string): Boolean;

Ese es el problema de TMemDataSet, que no hereda de TDataSet si no que es un componente independiente. Prueba a poner en vez de TDataSet TMemDataSet.

Hello Ismael,

Wednesday, May 4, 2011, 4:36:38 PM, you wrote:

ILDG> Ya logr� crear la funci�n personalizada dentro de mi proyecto sin que me ILDG> diera error, aunque eso me saca del problema, realmente quisiera poder ILDG> agregar los eventos que tiene el TMenDataset al TBufDataSet ya que eso me ILDG> permitir�a de cambiar de componente. Por ahora me veo obligado a usar el ILDG> componente TMenDataset.
ILDG> La funci�n me qued� de la siguiente forma: ILDG> function Tdm.Localizar(const aDS: TMemDataset; const aField: string; const ILDG> aToLocate: string): Boolean;

Vale, jajaja, ya te me has adelantado :)

Lo de a�adir los eventos al TBufDataSet podr�a mirarlo, pero dentro de unos dias. Si me lo recuerdas la semana que viene intentar� mirarlo para ver si es una cosa factible que sea relativamente f�cil.

----- Original Message -----