FiveTech Software tech support forums

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
 

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

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