FiveTech Software tech support forums

... aStruct contains virtual column information also. Programmer may modify columns 7 (picture) and 8 (index tag) but not any other column. 4. bBoF ( Type: "B" ): If assigned, executed when BOF() is true 5. bEdit ( Type: "B" ): Optional. Format { |oRec| UserEdit( oRec ) ...

... DbGoTop() ) },; ::bGoBottom := {|| ( ::cAlias )->( DbGoBottom() ) },; ::bSkip := {| n | ( ::cAlias )->( DbSkipper( IfNil( n, 1 ) ) ) },; ::bBof := {|| ( ::cAlias )->( Bof() ) },; ::bEof := {|| ( ::cAlias )->( Eof() ) },; ::bBookMark := {| n | iif( n == nil .or. n == 0 ,; ( ::cAlias ...

... CLASS TDb DATA nArea AS NUMERIC INIT 0 DATA lBuffer DATA lShared AS LOGICAL INIT .t. DATA aBuffer DATA bBoF, bEoF, bNetError AS CODEBLOCK DATA cAlias, cFile, cDriver AS String INIT "" DATA lReadOnly AS LOGICAL INIT .f. DATA lOemAnsi DATA lTenChars ...

... ; ::nArrayAt += nSkip, ; ::nArrayAt := Min( Max( ::nArrayAt, 1 ), Eval( ::bKeyCount ) ), ; Eval( ::bOnSkip, Self ), ; ::nArrayAt - nOld }, ; ::bBof := { || ::nArrayAt < 1 }, ; ::bEof := { || ::nArrayAt > Eval( ::bKeyCount ) }, ; ::bBookMark := { | n | If( n == nil, ::nArrayAt, ; ( ::nArrayAt ...

... program with the modified FiveHM.lib the program crashed with the error: Error description: Error BASE/44 Assigned value is wrong class: TDATABASE:BBOF Args: [ 1] = B {|| ... } Stack Calls =========== Called from: => TDATABASE:_BBOF(0) Called from: dbf01.prg => TDATABASE:NEW(161) Called from: ...

Bayron puedes usar los codeblock bBof y bEof de la clase TDolphinQry DATA bBof,;        //codeblock to evaluate if the value is the first row         bEof,;        //codeblock ...

... 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 ...

... 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 ...

... olbx := TxBrowse():New( oDlg ) oLBX:SetRDD() oLbx:CreateFromResource( 107 ) // setxbrowse( oLbx, oQry ) //William clase tymsql /*/ oLbx:bBof := { || oQry:Bof() } oLbx:bEof := { || oQry:Eof() } oLbx:bBookMark :={ | n | if( n == nil, oQry:RecNo(), oQry:GoTo( n ) ) } oLbx:bKeyNo := { || ...

... ( 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 class should have atleast ...

... },; ::bGoBottom := {|| ( ::cAlias )->( DbGoBottom() ) },; ::bSkip := {| n | iif( n == nil, n := 1, ), ( ::cAlias )->( DbSkipper( n ) ) },; ::bBof := {|| ( ::cAlias )->( Bof() ) },; ::bEof := {|| ( ::cAlias )->( Eof() ) },; ::bBookMark := {| n | iif( n == nil,; ( ::cAlias )->( RecNo() ...

... 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 | IIF( n == nil, ( oTb:RecNo() ),( oTb:GoTo(n) ) ) } :bKeyNo := oBrow:bBookMark ...

... := .T. :l2007 := .T. :lFooter := .T. :bGoTop := {|| oTb:GoTop() } :bGoBottom := {|| oTb: GoBottom() } :bSkip := {| n | oTb:SKIP( n ) } :bBof := {|| oTb:Bof() } :bEof := {|| oTb:Eof() } :bBookMark := {| n | IF( n == nil, oTb:RecNo(), oTb:Goto(n) )} :bKeyNo := :bBookMark :bKeyCount := ...

... nil .and. ::oRs:RecordCount() > 0, ::oRs:MoveLast(), nil ) },; >> ::bSkip := {| n | AdoSkip( ::oRs, If( n==nil, 1, n ) ) },; >> ::bBof := {|| ::oRs:Bof },; >> ::bEof := {|| ::oRs:Eof },; >> ::bBookMark := {| n | If( n == nil,; >> If( ::oRs != nil .and. ::oRs:RecordCount() ...

... oBrw,oTable ) oBrw:bGoTop := { || oTable:Gotop() } oBrw:bGoBottom := { || oTable:GoBottom() } oBrw:bSkip := { |n| oTable:Skip(n) } oBrw:bBof := { || oTable:Bof() } oBrw:bEof := { || oTable:Eof() } oBrw:bBookMark := { | n | if( n == nil, oTable:RecNo(),oTable:GoTo(n) ) } oBrw:bKeyNo := ...