Ayuda con el xbrowse

[jcaro]

Hola Foro:

Necesito una ayudita con el xbrowse:

Necesito editar en el mismo browse una columna determinada.

Puedo llegar hasta editar, pero me falla el bOnPostEdit ,
no me refresca nada.

No se como decirle que utilice la columna 3 por ejemplo.

Alguien me puede decir que cambios hacer en el bOnpostEdit.


Ver este ejemplo:

STATIC FUNCTION AutoEdit( oWnd )

local oChild, oBrw, oCol
local nFor

USE DATOS ALIAS DATOS
DEFINE WINDOW oChild TITLE "Auto edit browse" MDICHILD OF oWnd

oBrw := TXBrowse():New( oWnd )

oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:lColDividerComplete := .t.

oBrw:SetRDD()

oCol:= oBrw:aCols[ 3 ]
oCol:nEditType:= EDIT_GET
oCol:bOnPostEdit := <--- aqui que debo poner ???
oBrw:CreateFromCode()
oChild:oClient := oBrw


ACTIVATE WINDOW oChild ON INIT oBrw:SetFocus()

RETURN NIL


Gracias por su ayuda,
Juan

[Biel EA6DD]

Code: Select all

 oCol:bOnPostEdit  := {|o, v, n| iif( n != VK_ESCAPE, FieldPut( o:nCreationOrder, v ), ) }

Si trabajas en red

Code: Select all

oCol:bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, If( RLock(), ( FieldPut( o:nCreationOrder, v ), DbUnLock() ), MsgStop( "Registro bloqueado" ) ), ) }

[jcaro]

_ y Biel , gracias por la ayuda.

Saludos
Juan