FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Error Xbrowse
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Error Xbrowse
Posted: Fri Aug 20, 2010 04:20 PM
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 (fw): Select all Collapse
      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
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Error Xbrowse
Posted: Fri Aug 20, 2010 04:24 PM

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()

Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Error Xbrowse
Posted: Tue Nov 09, 2010 02:54 PM
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() }
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Error Xbrowse
Posted: Wed Nov 10, 2010 03:18 PM
goosfancito wrote: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.
Regards



G. N. Rao.

Hyderabad, India
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Error Xbrowse
Posted: Wed Nov 10, 2010 04:50 PM

gracias

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Continue the discussion