FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Consulta xBrowser
Posts: 582
Joined: Fri Oct 07, 2005 02:17 PM
Consulta xBrowser
Posted: Mon Apr 17, 2017 07:18 AM

Estimados, buenos dias, consulta

Soy novato usando xBrowser, lo defino asi y presenta el array Ok :

  XBROWSER aSal TITLE "Seleccione Liquidacion" SETUP ( oBrw:cHeaders := { "Cuenta", "Auxiliar", "Td", "NumDoc", "Liquidac.", "Saldo MN", "Saldo ME" } )

Pero quisiera aumentar que al darle doble click a un registro cierre el xBrowser y me devuelva el numero de registro donde se hizo el doble click.

Muchas gracias

Enrrique Vertiz Pitta

Lima-Peru

xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Consulta xBrowser
Posted: Mon Apr 17, 2017 04:18 PM

Saludos, si quieres el numero de registro

nReg := oBrw:nArrayAt / oBrw:KeyNo()

si qieres el valor de una celda determinada:

Valor_Celda := oBrw]:aArrayData[ oBrw:nArrayAt, nCol ]

nCol es el numero de la columna de la cual quieres obtener el valor de la celda,

para cerrar el xBrowse deberias cerrar el DLG q lo contenga, oDlg:END(), no se si oBrw:END() te sirva en algo

espero te sirva, saludos... :shock:

Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 582
Joined: Fri Oct 07, 2005 02:17 PM
Re: Consulta xBrowser
Posted: Mon Apr 17, 2017 04:54 PM

JoseLuis, gracias por contestar.

Pero como lo implemento en esa linea de codigo ??, dentro de esa misma sentencia ?? en XBROWSER no funciona "With Object" como en xBrowse(), el oBrw:KeyNo() donde lo coloco ?? y el DBLCLICK como defino que cierre el XBROWSER y me deje el numero de fila ...

Disculpa tanta consulta, pero no tengo idea de como hacer lo que necesito, gracias

Enrrique Vertiz Pitta

Lima-Peru

xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Consulta xBrowser
Posted: Mon Apr 17, 2017 07:35 PM
Enrrique Vertiz wrote:JoseLuis, gracias por contestar.

Pero como lo implemento en esa linea de codigo ??, dentro de esa misma sentencia ?? en XBROWSER no funciona "With Object" como en xBrowse(), el oBrw:KeyNo() donde lo coloco ?? y el DBLCLICK como defino que cierre el XBROWSER y me deje el numero de fila ...

Disculpa tanta consulta, pero no tengo idea de como hacer lo que necesito, gracias


Ya lo probastes en la misma sentencia.? si no intentalo del lado de afuera, no uso xbrowser si no xbrowse, no habia notado la diferencia...saludos.. :-)

doble click..... oBrw::bLDblClick := {|| lo q qieres q haga...}
Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 582
Joined: Fri Oct 07, 2005 02:17 PM
Re: Consulta xBrowser
Posted: Wed Apr 19, 2017 02:17 AM

Gracias JoseLuis

La solucion que necesitaba me la dio Mr. Rao en el foro en Ingles.

Enrrique Vertiz Pitta

Lima-Peru

xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Consulta xBrowser
Posted: Wed Apr 19, 2017 12:52 PM
Code (fw): Select all Collapse
local RetVal

XBROWSER aSal TITLE "Seleccione Liquidacion" SETUP ( oBrw:cHeaders := { "Cuenta", "Auxiliar", "Td", "NumDoc", "Liquidac.", "Saldo MN", "Saldo ME" } ) SELECT RetVal := oBrw:NumDoc:Value

? RetVal


OR

Code (fw): Select all Collapse
local RetVal

XBROWSER aSal TITLE "Seleccione Liquidacion" SETUP ( oBrw:cHeaders := { "Cuenta", "Auxiliar", "Td", "NumDoc", "Liquidac.", "Saldo MN", "Saldo ME" } ) SELECT RetVal := oBrw:KeyNo

? RetVal
Regards



G. N. Rao.

Hyderabad, India

Continue the discussion