TxBrowse desde Recursos

[Vital]

Que tal, he estado viendo las respuestas sobre el txbrowse y de los demos que han puesto ninguno lo hace desde recursos, la pregunta se puede ?

Gracias.

[wmormar]

Que tal, he estado viendo las respuestas sobre el txbrowse y de los demos que han puesto ninguno lo hace desde recursos, la pregunta se puede ?

Gracias.

Afirmativo, claro que se puede.

Code: Select all  Expand view

   WITH OBJECT ( oBrw := TXBrowse():New( oDlg ) )
      :SetArray( aDetalle )
      :lVScroll         := .t.
      :lHScroll         := .f.
      :nFreeze          := 1
      :nColDividerStyle := LINESTYLE_INSET

      WITH OBJECT :aCols[1]
         :cHeader      := "Línea"
         :bStrData     := {|| Transform( aDetalle[ oBrw:nArrayAt ][01], "9,999" )}
      END
      WITH OBJECT :aCols[2]
         :cHeader      := "Estudio"
         :bStrData     := { || Transform( aDetalle[ oBrw:nArrayAt ][02], "@x" ) }
      END
      WITH OBJECT :aCols[3]
         :cHeader      := "Descripción"
         :bStrData     := { || Transform( aDetalle[ oBrw:nArrayAt ][03], "@x" ) }
      END

      :CreateFromResource( 403 )
   END

Espero te ayude este código

[Vital]

Lo voy a probar

[Vital]

Que tal wmormar, ya lo estube probando, pero me marca un error, ADSGETRELKEYPOS, y ya lo estube buscando y vi varias soluciones y nada, tendras alguna solucion.

Estoy usando ADS de 5 Usuarios 7.1

Gracias.

[Vital]

Solucionado, Gracias.

[R.F.]

REQUEST ADSGETRELKEYPOS

al principio del programa

[Vital]

Gracias Maestro.