Xailer & OZ Software

Publicado: **Mar Feb 27, 2007 5:18 pm**

<!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">
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()ÂÂÂÂÂ&a mp;nbsp;ÂÂÂÂÂ&a mp;nbsp;ÂÂÂÂÂ&a mp;nbsp;ÂÂÂ // LLAMA
2 VECES A ESTE METODO 
ÂÂ CASE nKey == VK_DELETE 
ÂÂÂÂÂ ::Delete() 
ÂÂ CASE nKey == VK_INSERT 
ÂÂÂÂÂ ::AddNew() 
ÂÂ ENDCASE 

<div class="moz-signature">-- 
<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>

</style>
JosÃ
David Angulo. 
AuditorÃa
y Sistemas Ltda. 
Tel.(57)
5- 6643022 – 6644555
Cartagena - Colombia 
<a href="mailto:Gerencia@microexpressltda.com">jose.angulo@auditoriaysistemas.com</a>
 

</div>
</body>
</html>

Publicado: **Mar Feb 27, 2007 6:17 pm**

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
--

Publicado: **Mié Feb 28, 2007 10:23 am**

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
--

Xailer & OZ Software

Error en OnkeyDow 1.3

Error en OnkeyDow 1.3

Error en OnkeyDow 1.3

Error en OnkeyDow 1.3