FiveTech Software tech support forums

... = 1 oBrw:bLine = { || { aSample[ oBrw:nAt ][ 1 ],; aSample[ oBrw:nAt ][ 2 ],; TRANSF(aSample[ oBrw:nAt ][ 3 ],"999,999.99") } } oBrw:bGoTop = { || oBrw:nAt := 1 } oBrw:bGoBottom = { || oBrw:nAt := Eval( oBrw:bLogicLen ) } oBrw:bSkip = { | nWant, nOld | nOld := oBrw:nAt, oBrw:nAt += ...

... of ADO and oTree ( TLinkList class ), any other data can be browsed with little programming. We only need to define the following codeblocks bGoTop bGoBottom bSkip bBof bEof bBookMark bKeyNo Alternatively we can make a small Class encapsulating the backend database library functions. The ...

... OK, I tried something different. I tried to recreate the error by modifing TXBrowse(). First I tried splitting the default line between the bGotop and bSkip and closed the database between the lines. I got a differnt error.   Error description: Error DBCMD/2001  Workarea not in use: RDDNAME  ...

... code Still puzzled, this is the part where the error occured , in the default part .... the first 2 lines were executed not the third. DEFAULT ::bGoTop := {|| ( ::cAlias )->( DbGoTop() ) },; ::bGoBottom := {|| ( ::cAlias )->( DbGoBottom() ) },; ::bSkip := {| n | iif( n == nil, n := 1, ), ...

... am puzzled how we get to the error and why all the traps did not work, so i have some questions : in setrdd() function , this line got executed ::bGoTop := {|| ( ::cAlias )->( DbGoTop() ) },; while ::bSkip := {| n | iif( n == nil, n := 1, ), ( ::cAlias )->( DbSkipper( n ) ) },; bombed the ...

... "N.", 65.50, 0 }) oFr:SetUserDataSet("aDaten", "Codice;Descrizione;Qta;UM;Prezzo;Sconto", ; {|| x := 1}, ; //--> bGoTop {|| x := x + 1}, ; //--> bSkipPlus {|| x := x - 1}, ; //--> bSkipMinus {|| x > Len(aDaten)} , ; //--> bCheckEOF {|cField|nCol := ...

To all: Although there are zillions of examples out ther using listbox (aka Browse): oBrw1:bGoTop = { || nItem := 1 } oBrw1:bGoBottom = { || nItem := Eval( oBrw1:bLogicLen ) } oBrw1:bSkip = { | nWant, nOld | nOld := nItem, nItem += nWant,; nItem := Max( 1, Min( nItem, ...

Para los que le interese, con esto resolvi el problema :D WITH OBJECT oBrow :bGoTop := {|| oTb:GoTop() } :bGoBottom := {|| oTb:GoBottom() } :bSkip := {| n | oTb:Skip( IIF( n == nil,1,n)) } :bBof := {|| oTb:Bof() } :bEof := {|| oTb:Eof() } :bBookMark := {| n | ...

... OBJECT oBrow :nMarqueeStyle := MARQSTYLE_HIGHLCELL :nColDividerStyle := LINESTYLE_BLACK :lColDividerComplete := .T. :l2007 := .T. :lFooter := .T. :bGoTop := {|| oTb:GoTop() } :bGoBottom := {|| oTb: GoBottom() } :bSkip := {| n | oTb:SKIP( n ) } :bBof := {|| oTb:Bof() } :bEof := {|| oTb:Eof() } :bBookMark ...

... been monitoring the error.log and it seems that line 3765 is still giving us trouble : >> >> Rick Lipkin >> >> DEFAULT ::bGoTop := {|| If( ::oRs != nil .and. ::oRs:RecordCount() > 0, ::oRs:MoveFirst(), nil ) },; >> ::bGoBottom := {|| If( ::oRs != nil .and. ::oRs:RecordCount() ...

... oDlg:oClient := oBrw ACTIVATE DIALOG oDlg CENTER Return nil //--------------------------------- FUNCTION SetMyBrwSql( oBrw,oTable ) oBrw:bGoTop := { || oTable:Gotop() } oBrw:bGoBottom := { || oTable:GoBottom() } oBrw:bSkip := { |n| oTable:Skip(n) } oBrw:bBof := { || oTable:Bof() } oBrw:bEof ...

... va,,, Salu2 FUNCTION MySetBrowse( oBrw,oTable ) if ValType( oBrw ) != "O" .or. ValType( oTable ) != "O" RETURN (NIL) else oBrw:bGoTop := { || oTable:Gotop() } oBrw:bGoBottom := { || oTable:GoBottom() } oBrw:bSkip := { | n | oTable:Skip(n) } oBrw:bBof := { | n | oTable:Bof() ...

... DToC( .. ) is not necessary XBrowse knows the datatypes and their sizes and formats appropriately. XBrowse also provides necessary codeblocks like bGoTop, bSkip etc by itself. It is just enough for us to say what columns to be shown and whether we want to edit or not. Xbrowse knows how to read ...

... RESOURCE "Test" REDEFINE LISTBOX oLbx ; FIELDS aLista[nItem][1], aLista[nItem][2] ; HEADERS "Titulo 1","Titulo 2" ; ID 110 UPDATE OF oDlg oLbx:bGoTop := { || nItem := 1 } oLbx:bGoBottom := { || nItem := Eval( oLbx:bLogicLen ) } oLbx:bSkip := { | nWant, nOld | nOld := nItem, nItem += nWant,; ...

... ] ),; IF( EMPTY( aArray ), "", aArray[ nCur, 3 ] ); HEADERS "Container", "Size", "Type" ; SIZE 220, 167 oBrw:bLogicLen = { || Len( aArray ) } oBrw:bGoTop = { || nCur := 1 } oBrw:bGoBottom = { || nCur := Len( aArray ) } oBrw:bSkip = { | nSkip | Skipper( aArray, @nCur, nSkip ) } oBrw:cAlias = "ARRAY" ...