<!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>Perfecto.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Eso era lo que me estaba faltando. No hacía el Post
después del ds.UpdateRecord.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Saludos a To2s</FONT></DIV>
<DIV>=========<BR>|| ISMAEL ||<BR>=========</DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #000000 2px solid; PADDING-LEFT: 5px; PADDING-RIGHT: 0px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="FONT: 10pt arial; BACKGROUND: #e4e4e4; font-color: black"><B>From:</B>
<A title=ruben.mariano.ibanez@gmail.com
href="mailto:ruben.mariano.ibanez@gmail.com">Rubén Ibáñez</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A
title=lazarus-es@lists.lazarus.freepascal.org
href="mailto:lazarus-es@lists.lazarus.freepascal.org">Spanish version of
Lazarus List</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Thursday, April 28, 2011 2:08
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Lazarus-es] Conocer el tipo
de cursor que tiene un grid</DIV>
<DIV><BR></DIV>Para cerrar el modo edit, sin cerrar la BD puedes usar el
comando MiBase.Post <BR><BR>
<DIV class=gmail_quote>2011/4/28 Ismael L. Donis García <SPAN dir=ltr><<A
href="mailto:ismael@citricos.co.cu">ismael@citricos.co.cu</A>></SPAN><BR>
<BLOCKQUOTE
style="BORDER-LEFT: rgb(204,204,204) 1px solid; MARGIN: 0pt 0pt 0pt 0.8ex; PADDING-LEFT: 1ex"
class=gmail_quote>
<DIV bgcolor="#ffffff">
<DIV><FONT face=Arial>Perdona la ignorancia, pero como lo
preguntaría?</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>No se porque me cae con el cursor de la rayita si no
mando a editar nada, traté de hacer un ejemplo con lo mismo, pero más
pequeño y sin embargo me sale el grid con el triangulo negro poniendo lo
mismo que el proyecto original.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>No entiendo porque en uno me sale un cursor y en otro
otro, el cual no me coge bien si estoy al final del dataset o
no.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Yo instancio el formulario de la siguiente
forma:</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>procedure Tfconta.mnuarcclartClick(Sender:
TObject);<BR>var<BR> f: Tfcaptar;<BR>begin<BR>
closeforms();<BR> strOpe := 'RT';<BR>
f:=Tfcaptar.Create(Self);<BR> f.Caption :=
self.mnuarcclart.Caption;<BR> f.ShowModal;<BR> f.Free;<BR>
strOpe := '';<BR>end; </FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Y en el formulario pongo:</FONT></DIV><FONT
face=Arial>
<DIV><BR>procedure Tfcaptar.FormCreate(Sender: TObject);<BR>var<BR>
strsql: string;<BR>begin<BR> if fconta.RegOpe = 'RT'
then<BR> begin<BR>
ds.FieldDefs.Add('reg', ftSmallint);<BR>
ds.FieldDefs.Add('nombre', ftString, 35);<BR>
ds.Open;<BR> dbg.Columns.Items[0].Title.Caption :=
'Registro';<BR>
dbg.Columns.Items[0].Title.Alignment:=taCenter;<BR>
dbg.Columns.Items[0].Alignment:=taCenter;<BR>
dbg.Columns.Items[0].Width:=60;<BR>
dbg.Columns.Items[1].Title.Caption := 'Nombre';<BR>
dbg.Columns.Items[1].Width:=360;<BR> strsql :=
'select r.reg, r.nombre from screg r where r.cancel=0 order by
r.reg';<BR> dm.p_rssc1(strsql,
true);<BR> while not dm.rssc1.EOF do
begin<BR>
ds.Append;<BR>
ds.FieldByName('reg').AsInteger :=
dm.rssc1.FieldByName('reg').AsInteger;<BR>
ds.FieldByName('nombre').AsString :=
dm.rssc1.FieldByName('nombre').AsString;<BR>
ds.UpdateRecord;<BR>
dm.rssc1.Next;<BR>
end;<BR>
dm.p_rssc1();<BR> if ds.RecordCount > 0
then ds.First;<BR> end;<BR>end;<BR></DIV>
<DIV>Y me sale la dichosa cruz verde y no el triangulo negro que es con el
que me trabaja bien el siguiente procedimiento:</DIV>
<DIV> </DIV>
<DIV>procedure Tfcaptar.dbgKeyDown(Sender: TObject; var Key: Word; Shift:
TShiftState<BR> );<BR>begin<BR> if key = 13 then
begin<BR> if ((dbg.DataSource.DataSet.EOF) and
(dbg.SelectedIndex = 1) and (not dbg.EditorMode)) then begin<BR>
key:=0;<BR> SelectNext(ActiveControl, True,
True);<BR> end;<BR>
end;<BR>end; </DIV>
<DIV> </DIV></FONT>
<DIV><FONT face=Arial>Saludos Reiterados</FONT></DIV>
<DIV>=========<BR>|| ISMAEL ||<BR>=========</DIV>
<BLOCKQUOTE
style="BORDER-LEFT: rgb(0,0,0) 2px solid; PADDING-LEFT: 5px; PADDING-RIGHT: 0px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">
<DIV>
<DIV></DIV>
<DIV class=h5>
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV style="FONT: 10pt arial; BACKGROUND: rgb(228,228,228)"><B>From:</B>
<A title=maximiliano.duarte@gmail.com
href="mailto:maximiliano.duarte@gmail.com" target=_blank>Maxi</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A
title=lazarus-es@lists.lazarus.freepascal.org
href="mailto:lazarus-es@lists.lazarus.freepascal.org"
target=_blank>Spanish version of Lazarus List</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Thursday, April 28, 2011 12:00
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Lazarus-es] Conocer el
tipo de cursor que tiene un grid</DIV>
<DIV><BR></DIV>Tenes que preguntar por el modo en que se encuentra la
tabla dsedit, dsinsert, etc. el tipo de cursor refleja el estado de
dataset<BR><BR clear=all><BR>-- <BR>No a la obsolecencia programada: <A
href="http://dimensionargentina.blogspot.com/2011/01/todo-esta-disenado-para-romperse.html"
target=_blank>http://dimensionargentina.blogspot.com/2011/01/todo-esta-disenado-para-romperse.html</A><BR><BR>Twitter:
@nenunocomar<BR>Identi.ca: @nenuno<BR>Linux User #495070<BR>Ubuntu User
#28504<BR><A href="http://miexperiencialinux.blogspot.com/"
target=_blank>http://miexperiencialinux.blogspot.com/</A><BR><BR>El que
pregunta aprende, y el que contesta aprende a responder.<BR></DIV></DIV>
<P></P>
<HR>
<DIV class=im>
<P></P>_______________________________________________<BR>Lazarus-es
mailing list<BR><A href="mailto:Lazarus-es@lists.lazarus.freepascal.org"
target=_blank>Lazarus-es@lists.lazarus.freepascal.org</A><BR><A
href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es"
target=_blank>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</A><BR></DIV></BLOCKQUOTE></DIV><BR>_______________________________________________<BR>Lazarus-es
mailing list<BR><A
href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</A><BR><A
href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es"
target=_blank>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</A><BR><BR></BLOCKQUOTE></DIV><BR>
<P>
<HR>
<P></P>_______________________________________________<BR>Lazarus-es mailing
list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR></BLOCKQUOTE></BODY></HTML>