FiveTech Software tech support forums

Posted: **Mon Mar 13, 2006 11:07 pm**

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

Posted: **Tue Mar 14, 2006 10:06 am**

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" ) ), ) }

Posted: **Tue Mar 14, 2006 1:53 pm**

_ y Biel , gracias por la ayuda.

Saludos
Juan

FiveTech Software tech support forums

Ayuda con el xbrowse

Ayuda con el xbrowse