Saltar de get a xbrowse en modo edicion

Board index FiveWin para Harbour/xHarbour Saltar de get a xbrowse en modo edicion

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Saltar de get a xbrowse en modo edicion
Posted: Fri Nov 20, 2009 02:01 AM

Para: joseluisysturiz
José, si te entendí bien, creo que puedes probar con esto.

//oBrw:lFastEdit:=.t.

//En el último get antes de saltar al xBrw
@7.0, 20 GET oConceptG[4] VAR aConceptG[4] OF oRect SIZE 510,18 FONT oWnd:oFont VALID (oBrw:SetFocus(),__keyboard(chr(13)),.t.)

//La primer columna en el xBrw
oCol = oBrw:AddCol()
oCol:cTooltip = "Catalogo de Cuentas"
oCol:bStrData = { || (cAlias)->cta }
oCol:cHeader = " CTA "
oCol:nEditType = EDIT_GET
oCol:bOnPostEdit = { | oCol, xVal, nKey | If( RecCount() == 0, ( DbAppend(), oBrw:Refresh() ),) ,;
If( nKey == VK_RETURN, (cAlias)->Cta := xVal, ) ,;
If( nKey == VK_ESCAPE .and. Empty((cAlias)->Cta), ( (cAlias)->(dbDelete()),(cAlias)->(__dbPack()),(cAlias)->(dbGoBottom()),oBrw:Refresh() ), ) }

Espero te sirva.
Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: Saltar de get a xbrowse en modo edicion
Posted: Fri Nov 20, 2009 03:43 AM

Gracias man, reviso y te aviso...saludos... :shock:

Dios no está muerto...

Gracias a mi Dios ante todo!

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: Saltar de get a xbrowse en modo edicion
Posted: Sat Nov 28, 2009 07:30 AM

Funciono super bien man, gracias una vez mas, saludos... :shock:

Dios no está muerto...

Gracias a mi Dios ante todo!

FiveTech Support Forums

Continue the discussion