<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000066">
<font size="-1"><font face="Verdana">Ignacio,<br>
<br>
En las pruebas con la Version 1.3 cuando ejecuto el metodo OnkeyDow de
un TarrayBrowse se ejectua doblemente con la opciÃn VK_RETURN.<br>
<br>
Puedes hacer la prueba en e ejemplo SAMPLESBTS.<br>
<br>
<br>
METHOD BrwKeyDown( oSender, nKey, nFlags ) CLASS TFrmMain<br>
<br>
ÂÂ DO CASE<br>
ÂÂ CASE nKey == VK_RETURN<br>
ÂÂÂÂÂ ::Edit()ÂÂÂÂÂ&a mp;nbsp;ÂÂÂÂÂ&a mp;nbsp;ÂÂÂÂÂ&a mp;nbsp;ÂÂÂ <font color="#ff6666"><b>// LLAMA
2 VECES A ESTE METODO </b></font><br>
ÂÂ CASE nKey == VK_DELETE<br>
ÂÂÂÂÂ ::Delete()<br>
ÂÂ CASE nKey == VK_INSERT<br>
ÂÂÂÂÂ ::AddNew()<br>
ÂÂ ENDCASE<br>
</font></font>
<div class="moz-signature">-- <br>
<meta http-equiv="CONTENT-TYPE" content="text/html; ">
<title>Josà David Angulo</title>
<meta name="GENERATOR" content="OpenOffice.org 2.0 (Win32)">
<meta name="CREATED" content="20061023;14550935">
<meta name="CHANGEDBY" content="Jose Angulo">
<meta name="CHANGED" content="20061023;14593800">
<meta name="ProgId" content="Word.Document">
<meta name="Originator" content="Microsoft Word 9">
<style>
<!--
P { color: #000000 }
-->
</style>
<p style="margin-bottom: 0cm;"><font size="2"><span
style="background: transparent none repeat scroll 0%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><b><font
face="Century Gothic"><font color="#000080">JosÃ
David Angulo.</font></font></b></span><font face="Arial"><font
color="#0000ff"><br>
</font></font></font><font face="Arial"><font color="#0000ff"><b><font
style="font-size: 11pt;" size="2">A<span lang="en-GB">uditorÃa
y Sistemas Ltda. </span></font></b><br>
<font style="font-size: 8pt;" size="1">Tel.</font></font></font><font
size="1"><font face="Century Gothic"><font color="#808080">(57)
5- 6643022 – 6644555</font></font></font></p>
<p style="margin-bottom: 0cm;"><font size="1"><font
face="Century Gothic"><font color="#808080">Cartagena - Colombia</font></font></font><br>
<a href="mailto:Gerencia@microexpressltda.com"><font
style="font-size: 9pt;" size="2">jose.angulo@auditoriaysistemas.com</font></a></p>
<p style="margin-bottom: 0cm;"><br>
</p>
</div>
</body>
</html>
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Error en OnkeyDow 1.3
Error en OnkeyDow 1.3
Jose David Angulo Urzola
Auditoria y Sistemas Ltda.
Cartagena-Colombia
Auditoria y Sistemas Ltda.
Cartagena-Colombia
-
Fernando Hernandez
- Mensajes: 113
- Registrado: Lun Nov 13, 2006 5:29 am
Error en OnkeyDow 1.3
José David AnguloA mi me daba lo mismo, lo que he hecho es :
METHOD BuscarKey( oSender, nKey, nFlags ) CLASS TFrmEmpresa
Local clRet := Nil
if nKey >=48 .and. nKey<=90 // Teclas 1-9 A-Z<
if ::ocBoIndex:nIndex=1
::osqlTable1:locate("codigo>='"+chr(nkey)+"'" )
Elseif ::ocBoIndex:nIndex=2
::osqlTable1:locate("Nombre>='"+chr(nkey)+"'" )
Endif
::Odbbrowse1:refresh()
Elseif nkey=46 .and. ::licodel // Delete
::mantenSuprimir()
clRet := 0
Elseif nkey=45 .and. ::licoadd // Insert
::MantenAlta()
clRet := 0
Elseif nkey=13 .and. ::licomod // Editar
::MantenEditar()
clRet := 0
Endif
RETURN clRet
Donde regreso 0 cuando llamo (delete, insert o editar)
Saludos
"José David Angulo" <gerencia@microexpressltda.com> escribió en el mensaje news:[email=45e459c6@news.xailer.com...]45e459c6@news.xailer.com...[/email]
Ignacio,
En las pruebas con la Version 1.3 cuando ejecuto el metodo OnkeyDow de un TarrayBrowse se ejectua doblemente con la opción VK_RETURN.
Puedes hacer la prueba en e ejemplo SAMPLESBTS.
METHOD BrwKeyDown( oSender, nKey, nFlags ) CLASS TFrmMain
DO CASE
CASE nKey == VK_RETURN
::Edit() // LLAMA 2 VECES A ESTE METODO
CASE nKey == VK_DELETE
::Delete()
CASE nKey == VK_INSERT
::AddNew()
ENDCASE
--
José David Angulo.
Auditoría y Sistemas Ltda.
Tel.(57) 5- 6643022 - 6644555
Cartagena - Colombia
jose.angulo@auditoriaysistemas.com
--
METHOD BuscarKey( oSender, nKey, nFlags ) CLASS TFrmEmpresa
Local clRet := Nil
if nKey >=48 .and. nKey<=90 // Teclas 1-9 A-Z<
if ::ocBoIndex:nIndex=1
::osqlTable1:locate("codigo>='"+chr(nkey)+"'" )
Elseif ::ocBoIndex:nIndex=2
::osqlTable1:locate("Nombre>='"+chr(nkey)+"'" )
Endif
::Odbbrowse1:refresh()
Elseif nkey=46 .and. ::licodel // Delete
::mantenSuprimir()
clRet := 0
Elseif nkey=45 .and. ::licoadd // Insert
::MantenAlta()
clRet := 0
Elseif nkey=13 .and. ::licomod // Editar
::MantenEditar()
clRet := 0
Endif
RETURN clRet
Donde regreso 0 cuando llamo (delete, insert o editar)
Saludos
"José David Angulo" <gerencia@microexpressltda.com> escribió en el mensaje news:[email=45e459c6@news.xailer.com...]45e459c6@news.xailer.com...[/email]
Ignacio,
En las pruebas con la Version 1.3 cuando ejecuto el metodo OnkeyDow de un TarrayBrowse se ejectua doblemente con la opción VK_RETURN.
Puedes hacer la prueba en e ejemplo SAMPLESBTS.
METHOD BrwKeyDown( oSender, nKey, nFlags ) CLASS TFrmMain
DO CASE
CASE nKey == VK_RETURN
::Edit() // LLAMA 2 VECES A ESTE METODO
CASE nKey == VK_DELETE
::Delete()
CASE nKey == VK_INSERT
::AddNew()
ENDCASE
--
José David Angulo.
Auditoría y Sistemas Ltda.
Tel.(57) 5- 6643022 - 6644555
Cartagena - Colombia
jose.angulo@auditoriaysistemas.com
--
-
ignacio
- Site Admin
- Mensajes: 9457
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Error en OnkeyDow 1.3
José David AnguloJosé David,
VK_RETURN lo procesa internamente el propio Browse. Al igual que VK_DELETE y VK_INSERT.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"José David Angulo" <gerencia@microexpressltda.com> escribió en el mensaje news:[email=45e459c6@news.xailer.com...]45e459c6@news.xailer.com...[/email]
Ignacio,
En las pruebas con la Version 1.3 cuando ejecuto el metodo OnkeyDow de un TarrayBrowse se ejectua doblemente con la opción VK_RETURN.
Puedes hacer la prueba en e ejemplo SAMPLESBTS.
METHOD BrwKeyDown( oSender, nKey, nFlags ) CLASS TFrmMain
DO CASE
CASE nKey == VK_RETURN
::Edit() // LLAMA 2 VECES A ESTE METODO
CASE nKey == VK_DELETE
::Delete()
CASE nKey == VK_INSERT
::AddNew()
ENDCASE
--
José David Angulo.
Auditoría y Sistemas Ltda.
Tel.(57) 5- 6643022 - 6644555
Cartagena - Colombia
jose.angulo@auditoriaysistemas.com
--
VK_RETURN lo procesa internamente el propio Browse. Al igual que VK_DELETE y VK_INSERT.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"José David Angulo" <gerencia@microexpressltda.com> escribió en el mensaje news:[email=45e459c6@news.xailer.com...]45e459c6@news.xailer.com...[/email]
Ignacio,
En las pruebas con la Version 1.3 cuando ejecuto el metodo OnkeyDow de un TarrayBrowse se ejectua doblemente con la opción VK_RETURN.
Puedes hacer la prueba en e ejemplo SAMPLESBTS.
METHOD BrwKeyDown( oSender, nKey, nFlags ) CLASS TFrmMain
DO CASE
CASE nKey == VK_RETURN
::Edit() // LLAMA 2 VECES A ESTE METODO
CASE nKey == VK_DELETE
::Delete()
CASE nKey == VK_INSERT
::AddNew()
ENDCASE
--
José David Angulo.
Auditoría y Sistemas Ltda.
Tel.(57) 5- 6643022 - 6644555
Cartagena - Colombia
jose.angulo@auditoriaysistemas.com
--
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com