Page 1 of 1

Obtener nombre de los Campos a partir de un Array(SOLUCIONAD

PostPosted: Sat Apr 24, 2021 2:45 am
by Compuin
Saludos

Estoy llenado un Browse con un Array de la forma siguiente

Code: Select all  Expand view
   oBrw := TXBrowse():New( oWnd )

    oBrw:SetArray( aData, .T. )

    oBrw:CreateFromCode()


Luego paso los registros a una Funcion para Editar asi,

Code: Select all  Expand view
ACTION Modificar( aData[oBrw:nArrayAt,1], oBrw )


Y estoy obteniendo los campos de esta manera

Code: Select all  Expand view

        @ 01, 02 SAY "First"        OF oDlg
        @ 02, 1.5 GET oBrw:aRow[1]   PICTURE "@K" UPDATE OF oDlg

        @ 01, 26.6 SAY "Last"       OF oDlg
        @ 02, 20 GET oBrw:aRow[2]    PICTURE "@K" UPDATE OF oDlg


Pero necesito obtenerlos asi

Code: Select all  Expand view

       @ 01, 02 SAY "First"        OF oDlg
        @ 02, 1.5 GET oCursor:First   PICTURE "@K" UPDATE OF oDlg

        @ 01, 26.6 SAY "Last"       OF oDlg
        @ 02, 20 GET oCursor:Last    PICTURE "@K" UPDATE OF oDlg


oCursor es el nombre de mi Array

Hay alguna forma de hacer esto?

Gracias de antemano

Re: Obtener nombre de los Campos a partir de un Array

PostPosted: Sun Apr 25, 2021 6:18 pm
by AngelSalom
Prueba con :

Code: Select all  Expand view

       @ 01, 02 SAY "First"        OF oDlg
        @ 02, 1.5 GET oCursor:First:Value  PICTURE "@K" UPDATE OF oDlg

        @ 01, 26.6 SAY "Last"       OF oDlg
        @ 02, 20 GET oCursor:Last:Value   PICTURE "@K" UPDATE OF oDlg
 

Re: Obtener nombre de los Campos a partir de un Array

PostPosted: Sun Apr 25, 2021 6:23 pm
by Compuin
Saludos Angel

Me arroja este error

Error BASE/1004 No exported method: VALUE