Edicion de celdas en TxBrowse

[José Ríos]

Hola tengo el siguiente codigo para crear y editar una columna en txbrowse:

Code: Select all  Expand view

.
.
.
   oCol := oBrw:AddCol()
   oCol:bEditvalue        := { || AuxCEs->Cuota }
   oCol:bStrData  := { ||Transform(AuxCEs->Cuota,Params->PictImport)}
   oCol:cEditPicture :=Params->PictImport
   oCol:cHeader   := "Cuota"
   oCol:nWidth        := 82
   oCol:nDataStrAlign := 1
   oCol:nEditType = EDIT_GET
   oCol:bOnPostEdit = { | oCol, xVal, nKey | if(nKey==13,AuxCEs->Cuota := xVal,NIL)
.
.
.


Casi todo va bien pero al capturar los datos de dicha celda. no funcional las teclas de edicion (<backspace>, <izquierda>, <derecha>), etc. ¿Alguien sabe como activar dichas teclas al editar celdas en TXbrowse?.

Tampoco en los ejemplos que vienen con fw funcionan las teclas de edicion al editar celdas.

Gracias.

José Ríos.

[joseluisysturiz]

Verifica si tienes #include "InKey.ch"
en la cebecera de tu programa.

prueba asi usando VK_.

oCol:bOnPostEdit = { | oCol, xVal, nKey | If( RecCount() == 0,;
( DbAppend(), oBrwInv:Refresh() ), ),;
If( nKey == VK_RETURN,;
( jlmovcmp->mvi_canti := VAL(xVal) ), ) }

[José Ríos]

Jose Luis.

Gracias por tu respuesta, si tengo inluido inkey.ch de echo ya hice la prueba usando VK_RETURN en el postedit.

Soy novato en txbrowse, estoy haciendo mi primera aplicacion usandolo. Me tiene detenido ese problema en la edicion de las celdas. Si al editar una celda tecleo, por ejemplo, 12346, y despues de teclear el ultimo digito(6) quiero regresarme para borrarlo y teclear 5, la tecla <backspace> o <flecha izquierda> no responden; para poder hacer el cambio tengo que dar <enter> o <escape> y volver a capturar el todos los caracteres de la celda.

¿A alguien le ha ocurrido lo mismo?.

Saludos.
Jose Rios

[FranciscoA]

Hola tengo el siguiente codigo para crear y editar una columna en txbrowse:

Code: Select all  Expand view

.
.
.
   oCol := oBrw:AddCol()
   oCol:bEditvalue        := { || AuxCEs->Cuota }
   oCol:bStrData  := { ||Transform(AuxCEs->Cuota,Params->PictImport)}
   oCol:cEditPicture :=Params->PictImport
   oCol:cHeader   := "Cuota"
   oCol:nWidth        := 82
   oCol:nDataStrAlign := 1
   oCol:nEditType = EDIT_GET
   oCol:bOnPostEdit = { | oCol, xVal, nKey | if(nKey==13,AuxCEs->Cuota := xVal,NIL)
.
.
.


Casi todo va bien pero al capturar los datos de dicha celda. no funcional las teclas de edicion (<backspace>, <izquierda>, <derecha>), etc. ¿Alguien sabe como activar dichas teclas al editar celdas en TXbrowse?.

Tampoco en los ejemplos que vienen con fw funcionan las teclas de edicion al editar celdas.

Gracias.

José Ríos.

José, prueba asi: (digitos del transform pueden variar)
Por otro lado, en el ejemplo que suministras le falta la llave "}" al final.

oCol := oBrw:AddCol()
oCol:bStrData := { ||Transform(AuxCEs->Cuota,"999,999.99")}
oCol:cHeader := "Cuota"
oCol:nWidth := 82
oCol:nDataStrAlign := 1
oCol:nEditType = EDIT_GET
oCol:bOnPostEdit = { | oCol, xVal, nKey | if(nKey==13,AuxCEs->Cuota := xVal,) }

Espero te sirva.
Saludos.

[joseluisysturiz]

Jose Luis.

Gracias por tu respuesta, si tengo inluido inkey.ch de echo ya hice la prueba usando VK_RETURN en el postedit.

Soy novato en txbrowse, estoy haciendo mi primera aplicacion usandolo. Me tiene detenido ese problema en la edicion de las celdas. Si al editar una celda tecleo, por ejemplo, 12346, y despues de teclear el ultimo digito(6) quiero regresarme para borrarlo y teclear 5, la tecla <backspace> o <flecha izquierda> no responden; para poder hacer el cambio tengo que dar <enter> o <escape> y volver a capturar el todos los caracteres de la celda.

¿A alguien le ha ocurrido lo mismo?.

Saludos.
Jose Rios

estamos constuyendo un ejemplo con xbw estylo factura, si deseas te lo envio para que veas algunas cosas y asi te sirva de referencia, no tienes correo en tu perfil..por eso no te lo envie de una ves.saludos...

[José Ríos]

Francisco y Jose Luis.

Gracias por su respuesta.

Hice prueba con versiones mas antiguas de FWH y Harbour y si funciona bien. Parece ser que es un problema con la libreria de FW y la version de XHarbour que manejo. Voy a reconstruir la libreria con una version mas nueva de xharbour y a ver que pasa.

Jose Luis. Si me interesa que me envies el ejemplo, mi correo es:

geussepe2004@hotmail.com



Saludos.

[joseluisysturiz]

Francisco y Jose Luis.

Gracias por su respuesta.

Hice prueba con versiones mas antiguas de FWH y Harbour y si funciona bien. Parece ser que es un problema con la libreria de FW y la version de XHarbour que manejo. Voy a reconstruir la libreria con una version mas nueva de xharbour y a ver que pasa.

Jose Luis. Si me interesa que me envies el ejemplo, mi correo es:

geussepe2004@hotmail.com



Saludos.

Enviado, los cambios nuevos, luego seran publicados...espero esto te sirva de referencia...cualquier aporte y sugerencia sera Bienvenidos.saludos...

[José Ríos]

Jose Luis.

Muchas Gracias.

[José Ríos]

FranciscoA

¿Me podrias mandar la clase txbrowse que modificaste?.

Mi correo es: geussepe2004@hotmail.com.

Gracias.

José Ríos.

[José Ríos]

¡Solucionado!.

El la funcion EditGetkeyDown de la clase TxBrowse, cambie return 0 por return NIL.

¡McFox, Gracias hermano!.

Jose Rios.