Saber nombre de campo en xBrowse (SOLUCIONADO)

[Armando]

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: Select all  Expand view

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

[Willi Quintana]

Mi Estimado

Code: Select all  Expand view

:FieldName(nPos)   // nPos en el numero de columna
 

[Armando]

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

[karinha]

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.

[Armando]

Karinha

Con este código obtengo el titulo en el HEADER

? oBrw:aCols[nCol ]:cHeader

Olvide mencionar que uso Record Set

Saludos

[karinha]

Armando, no és esto de deseas?

Code: Select all  Expand view

   for nFor := 1 to Fcount()

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

   next
 

Regards, saludos.

[Armando]

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

[karinha]

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

Regards, saludso.

[Armando]

Karinha:

He revisado y ninguno ayuda.

A ver si hay una alma caritativa que apoye.

Saludos

[Armando]

Amigos todos:

La solución es: (Encontrada en el foro)

Code: Select all  Expand view

   ? oBrw:aCols[oBrw:nColSel]:cExpr
 

Saludos