Ayuda con un Browse Window
Publicado por Cristophilin (47 intervenciones) el 05/04/2007 19:01:32
Cree un Define Window de la sgte manera
DEFINE WINDOW resultado FROM 2,1 TO 20,120 TITLE 'Listados de Articulos Asociados' ;
FONT "Verdana", 9 Style 'B' ;
CLOSE NOFLOAT NOGROW ZOOM
ON KEY LABEL enter KEYB '{CTRL+W}'
Select HfEnla.Arti, HfEnla.Bode, HfEnla.Bodespacho, HfArti.Desc;
From HfEnla, HfArti;
Where HfEnla.Bodespacho = '0001' And HfEnla.Bode = '0005' And HfEnla.Arti=HfArti.Codigo Into Cursor CurArticulos;
Order By HfArti.Desc
BROWSE WINDOW resultado FIELDS;
CurArticulos.Arti :H='Codigo de Articulo',;
CurArticulos.Desc :H='Nombre de Articulo';
NOMENU NOAPPEND NODELETE NOMODIFY
Esta ventana me despliega los codigos y nombres de articulos.
Mi solicitud de ayuda es como puedo hacer para que al momento de presionar por ejemplo la letra T inmediatamente se vaya al primer registro que comienze con T
Espero hayan entendido mi pregunta
Muchas Gracias
Yo
Cris
DEFINE WINDOW resultado FROM 2,1 TO 20,120 TITLE 'Listados de Articulos Asociados' ;
FONT "Verdana", 9 Style 'B' ;
CLOSE NOFLOAT NOGROW ZOOM
ON KEY LABEL enter KEYB '{CTRL+W}'
Select HfEnla.Arti, HfEnla.Bode, HfEnla.Bodespacho, HfArti.Desc;
From HfEnla, HfArti;
Where HfEnla.Bodespacho = '0001' And HfEnla.Bode = '0005' And HfEnla.Arti=HfArti.Codigo Into Cursor CurArticulos;
Order By HfArti.Desc
BROWSE WINDOW resultado FIELDS;
CurArticulos.Arti :H='Codigo de Articulo',;
CurArticulos.Desc :H='Nombre de Articulo';
NOMENU NOAPPEND NODELETE NOMODIFY
Esta ventana me despliega los codigos y nombres de articulos.
Mi solicitud de ayuda es como puedo hacer para que al momento de presionar por ejemplo la letra T inmediatamente se vaya al primer registro que comienze con T
Espero hayan entendido mi pregunta
Muchas Gracias
Yo
Cris
Valora esta pregunta


0