<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18975">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial>Estoy tratando de hacer funcionar la función .Locate en un
TMenDataset para un campo del tipo ftString, pero no logro hacerla
funcionar.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Uso la versión 0.9.30 SVN 29749 con FPC 2.4.2</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Esto por casualidad es un problema conocido?. En caso de
serlo se habrá resuelto en alguna subversión de la 0.9.30.1?</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Desde ya Gracias.</FONT></DIV>
<DIV><FONT face=Arial>=========<BR>|| ISMAEL ||<BR>=========</FONT></DIV>
<DIV><FONT face=Arial>PD: Se puede comprobar si haces lo siguiente.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>procedure Tfprueba.FormCreate(Sender:
TObject);<BR>begin<BR> ds.Close;<BR> ds.Clear;<BR>
ds.FieldDefs.Add('Factura', ftInteger);<BR> ds.FieldDefs.Add('Cliente',
ftString, 7);<BR> ds.FieldDefs.Add('Valor_CUC', ftFloat);<BR>
ds.FieldDefs.Add('Valor_CUP', ftFloat);<BR> ds.Open;<BR>
ds.Append;<BR> ds.FieldByName('Factura').AsInteger := 1;<BR>
ds.FieldByName('Cliente').AsString := 'Pedro';<BR>
ds.FieldByName('Valor_CUC').AsFloat := 1.2;<BR>
ds.FieldByName('Valor_CUP').AsFloat := 3.45;<BR>
ds.UpdateRecord;<BR> ds.Post;<BR> ds.Append;<BR>
ds.FieldByName('Factura').AsInteger := 2;<BR>
ds.FieldByName('Cliente').AsString := 'Juan';<BR>
ds.FieldByName('Valor_CUC').AsFloat := 2.41;<BR>
ds.FieldByName('Valor_CUP').AsFloat :=
6.93;<BR> ds.UpdateRecord;<BR> ds.Post;<BR>
ds.First;<BR>end; </FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial><BR>procedure Tfprueba.cmdlocClick(Sender:
TObject);<BR>begin<BR> if ds.RecordCount > 0 then
begin<BR> if ds.Locate('Cliente', 'Pedro', [])
then<BR> Application.MessageBox('Encontrado.',
pchar(Self.Caption), 0)<BR> else<BR>
Application.MessageBox('No Encontrado.', pchar(Self.Caption), 0);<BR>
end;<BR>end;<BR> </FONT></DIV></BODY></HTML>