FiveTech Support Forums

Soy un poko novato y necesito de su valiosa ayuda, Tengo el siguiente codigo donde al editar un TXBrowse solo me guarda la información si presionoCTRL + X, y enseguida ENTER y no se por que, si alguno de uds que tienen experiencia me puede ayudar se los agradeceria infinitamente.

NECESITO QUE GUARDE LA INFORMACION SOLO PRESIONANDO ENTER,
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:nHeaderLines := 1
oBrw:nDataLines := 1

oCol:= oBrw:AddCol()
oCol:cHeader := "CANT."
oCol:bStrData := { || 100->CANT1}
oCol:nWidth := 50
oCol:nEditType := 1
oCol:bOnPostEdit := {|o, v, n| iif( n == VK_RETURN, _FIELD->CANT1:= v ,NIL ) }

oBrw:SetRDD()
oBrw:CreateFromCode()
oChild:oClient := oBrw

ACTIVATE WINDOW oChild ON INIT oBrw:SetFocus()