Error Xbrowse

[ruben Dario]

Estoy trabajando con xbrowse y mysql

No me muestera los datos , en elk browser muestra esto
1 cClassname
2 hObs
3 oLevalue
4 Poleenumerador

En todos los browser del aplicativo me aparece esto, con la version FWH 8.03 no tengo est problema

Anexo codigo

Code: Select all  Expand view

      REDEFINE XBROWSE oLbx ;
        COLUMNS "vend", "nombre","status" ;
        HEADERS "Codigo", "Nombre","Status" ;
        PICTURES nil, nil, nil, nil ;
        COLSIZES 40, 180,40 ;
        JUSTIFY .F., .F., .T. ;
        OF oDlgbrow ID 4001 ;
        RECORDSET oDat01
  Endif
        if memvar->x_brom2007;oLbx:l2007 := .T.;else;oLbx:l2007 := .F.;endif
        oLbx:aCols[3]:AddResource("CHECK_SI")
        oLbx:aCols[3]:AddResource("CHECK_NO")
       if !memvar->x_tfado
    oLbx:aCols[3]:bBmpData   := { || iif(b_vend->status, 1, 2)}
        oLbx:aCols[3]:bStrData   := { || iif(b_vend->status,"Si","No")}
       else
        oLbx:aCols[3]:bBmpData   := { || iif(oDat01:Fields("status"):Value=1, 1, 2)}
        oLbx:aCols[3]:bStrData   := { || iif(oDat01:Fields("status"):Value=1,"Si","No")}
       endif
 

[Daniel Garcia-Gil]

Ruben


Te falta oLbx:CreateFromResource() despues de crear el browse

para usar xbrowse, inclusive desde la version FWH 8.03 necesitas esa instruccion (para los recursos)

desde codigo usas :CreateFromCode()

[goosfancito]

una consulta,
al usar la clausula RECORDSET oRS, ¿en los xbrowse no es necesario pasar los...?

oBrw:bGoTop := {|| rs:moveFirst() }
oBrw:bGoBottom := {|| rs:moveLast() }
oBrw:bSkip := {| n | rsSkipper( n, rs ) }
oBrw:bBof := {|| rs:Bof() }
oBrw:bEof := {|| rs:Eof() }
oBrw:bBookMark := {| bmNew | IIF( bmNew == NIL, rs:bookMark, rs:bookMark := bmNew) }
oBrw:bKeyNo := {|| rs:AbsolutePosition }
oBrw:bKeyCount := {|| rs:RecordCount() }

[nageswaragunupudi]

una consulta,
al usar la clausula RECORDSET oRS, ¿en los xbrowse no es necesario pasar los...?

oBrw:bGoTop := {|| rs:moveFirst() }
oBrw:bGoBottom := {|| rs:moveLast() }
oBrw:bSkip := {| n | rsSkipper( n, rs ) }
oBrw:bBof := {|| rs:Bof() }
oBrw:bEof := {|| rs:Eof() }
oBrw:bBookMark := {| bmNew | IIF( bmNew == NIL, rs:bookMark, rs:bookMark := bmNew) }
oBrw:bKeyNo := {|| rs:AbsolutePosition }
oBrw:bKeyCount := {|| rs:RecordCount() }

XBrowse automatically builds all the navigational codeblocks appropriate to the datasource, be it RDD, RecordSet, Array, etc. The codeblocks automatically generated by xbrowse internally are much better constructed than what we may directly supply.

It is desirable to know what version of FWH Mr. Ruben is using. In the code that is posted both recordset and rdd appear to be mixed up.

[goosfancito]

gracias