topic-2181

jcaro

Posts: 270

Joined: Fri Nov 11, 2005 07:39 PM

Ayuda con el xbrowse
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

Juan
==> Pasando a FWH16.04 + Harbour32 + BCC70 + PellesC
=> Abandonando FWH 13.7 + xHarbour + BCC582
http://www.mitaller.cl

Biel EA6DD

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

Ayuda con el xbrowse
Posted: Tue Mar 14, 2006 10:06 AM

Code: Select all Collapse

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

Si trabajas en red

Code: Select all Collapse

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

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

jcaro

Posts: 270

Joined: Fri Nov 11, 2005 07:39 PM

Ayuda con el xbrowse
Posted: Tue Mar 14, 2006 01:53 PM

Oskar y Biel , gracias por la ayuda.

Saludos
Juan

Juan
==> Pasando a FWH16.04 + Harbour32 + BCC70 + PellesC
=> Abandonando FWH 13.7 + xHarbour + BCC582
http://www.mitaller.cl

FiveTech Support Forums

Continue the discussion