FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Saber nombre de campo en xBrowse (SOLUCIONADO)
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Saber nombre de campo en xBrowse (SOLUCIONADO)
Posted: Thu Oct 19, 2023 04:00 AM
Amigos, nuevamente pidiendo su apoyo

Con el siguiente c贸digo estoy pasando varios valores a la funci贸n MenuPop tales como
el rengl贸n y columna donde se dio el clic derecho del rat贸n, ahora me interesa tambi茅n
enviar el nombre del campo que se muestra en la columna del browse.
Code (fw): Select all Collapse
REDEFINE XBROWSE oBrw ID 200 OF oDlg;
聽 聽DATASOURCE oRsPdf;
聽 聽COLUMNS "CON_RFC","CON_NOM",; 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽<==== uno de estos nombres es el que me interesa enviar
...
...

聽 聽 bRClicked := { | nRow, nCol | MenuPop(oBrw,oBrw:nRowSel,oBrw:nColSel,nRow,nCol) }
Muy agradecido
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Saber nombre de campo en xBrowse
Posted: Thu Oct 19, 2023 04:05 PM
Mi Estimado
Code (fw): Select all Collapse
:FieldName(nPos) 聽 // nPos en el numero de columna
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Saber nombre de campo en xBrowse
Posted: Thu Oct 19, 2023 05:31 PM

Mr.

Gracias por la respuesta pero no me funciona.

? oBrw:FieldName(nCol)

Me tira error Error description: Error BASE/1004 Message not found: TXBROWSE:FIELDNAME

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Saber nombre de campo en xBrowse
Posted: Thu Oct 19, 2023 05:33 PM
Armando wrote:Mr.

Gracias por la respuesta pero no me funciona.

? oBrw:FieldName(nCol)

Me tira error Error description: Error BASE/1004 Message not found: TXBROWSE:FIELDNAME

Saludos
Armando:

SAMPLES\TESTXBRW.PRG - FUNCTION MULTILINE()

Regards, saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Saber nombre de campo en xBrowse
Posted: Thu Oct 19, 2023 05:44 PM

Karinha

Con este c贸digo obtengo el titulo en el HEADER

? oBrw:aCols[nCol ]:cHeader

Olvide mencionar que uso Record Set

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Saber nombre de campo en xBrowse
Posted: Thu Oct 19, 2023 05:54 PM
Armando, no 茅s esto de deseas?
Code (fw): Select all Collapse
聽 聽for nFor := 1 to Fcount()

聽 聽 聽 oBrw:aCols[ nFor ]:cHeader := "Field: " + ltrim( str( nFor ) ) + CRLF + ;
聽 聽 聽 聽 聽FieldName( nFor ) 聽// aqui Armando

聽 聽next
Regards, saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Saber nombre de campo en xBrowse
Posted: Thu Oct 19, 2023 06:06 PM

Karinha:

S铆 busco el nombre del campo asignado a la columna desde un record set

y me parece que FIELDNAME() es para DBFs, o estoy equivocado?

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Saber nombre de campo en xBrowse
Posted: Thu Oct 19, 2023 06:24 PM

Armando, mira los ejemplos con ADO*.PRG Y FWSALES.PRG se sirve.

Regards, saludso.

Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Saber nombre de campo en xBrowse
Posted: Thu Oct 19, 2023 06:57 PM

Karinha:

He revisado y ninguno ayuda.

A ver si hay una alma caritativa que apoye.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Saber nombre de campo en xBrowse (SOLUCIONADO)
Posted: Thu Oct 19, 2023 07:09 PM
Amigos todos:

La soluci贸n es: (Encontrada en el foro)
Code (fw): Select all Collapse
聽 聽? oBrw:aCols[oBrw:nColSel]:cExpr
Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Continue the discussion