FiveTech Software tech support forums

... function and display it in TCBrowse. I played around with setting oBrw:cAlias := "ARRAY" but get no data. Not sure how to set the bGoTop, bGoBottom, bSkip, bLogicLen blocks. For now I am creating a dynamic recordset from the json object, but I feel like it is an extra step. Thanks, ...

... ), ; ( "Zona" ) ; // "zona",; ID 181 of odlg ; font ofont1 oBrow:bLogicLen = { || oRS1Cli:RecordCount } oBrow:bGoTop = { || oRS1Cli:MoveFirst() } oBrow:bGoBottom = { || oRS1Cli:MoveLast() } oBrow:bSkip = { | nSkip | Skipper( oRs1Cli, nSkip ) } oBrow:lcellstyle ...

... := 8778750 &&..Cream //oBrw:bLDblClick:= {|| oBrw:ShowSizes() } oBrw:nLineStyle:= 3 oBrw:aJustify := { .F.,.F., .F., .T., .T. } oBrw:bGoTop := { || nItem := 1 } oBrw:bGoBottom := { || nItem := Len(aAcc_No) } oBrw:SetArray( aAcc_No, aAcc_Desc, aTrn_AmtD, aTrn_AmtC ) oBrw:bSkip := { ...

... clause only. 2. Please do no use bStrData. 3. You see xbrowse builds your picture formats correctly. 4. Please NEVER directly assign to datas like bGoTop, bSkip, etc. Till you become a GREAT EXPERT of XBrowse, please do not touch them. Please let xbrowse create these codeblocks. 5. Please do not ...

... clause only. 2. Please do no use bStrData. 3. You see xbrowse builds your picture formats correctly. 4. Please NEVER directly assign to datas like bGoTop, bSkip, etc. Till you become a GREAT EXPERT of XBrowse, please do not touch them. Please let xbrowse create these codeblocks. 5. Please do not ...

on my test with tdatabase I made oDDom:= TDatabase():Open( , cPath+"OSPITI", "DBFCDX", .T. ) oDDom:Seek(cCli) xbrowse oBrd oBrd:bGoTop :={|| GoToTop(oDDom,cCli)} oBrd:bGoBottom:={|| GoToBot(oDDom,cCli)} oBrd:bSkip :={|n| MovePtr(oDDom,cCli,n)} FUNCTION GoToTop(cAlias,cKey)  ...

... HEADER "Domicilio" ;      ALIAS (oDDom)->(Alias()) ID 110 OF oDld   oBrd:nClrForeHead:=CLR_BLUE   oBrd:bGoTop   :={||  GoToTop(oDDom,cCli)}   oBrd:bGoBottom:={||  GoToBot(oDDom,cCli)}   oBrd:bSkip    :={|n| MovePtr(oDDom,cCli,n)}  ...

You must be using a modified version of TListbox.

I searched TListbox, TControl, and TWindow for the variable bGoTop and it doesn't exist.

What are the functions GoToTop(), GoToBot(), and MovePtr() supposed to do?

... have these commands REDEFINE LISTBOX oBrd FIELDS (oDDom)->DomEnt HEADER "Domicilio" ; ALIAS (oDDom)->(Alias()) ID 110 OF oDld oBrd:bGoTop :={|| GoToTop(oDDom,cCli)} oBrd:bGoBottom:={|| GoToBot(oDDom,cCli)} oBrd:bSkip :={|n| MovePtr(oDDom,cCli,n)} How I can converte ( the bold lines ...

... := {|| ::VScroll() } ::oWnd:oVScroll:bPageUp := {|| ::VScrollPgUp() } ::oWnd:oVScroll:bPageDown := {|| ::VScrollPgDown() } ::oWnd:oVScroll:bGoTop := {|| ::VScroll() } ::oWnd:oVScroll:bGoBottom := {|| ::VScroll() } ::oWnd:oVScroll:nPgStep := 10 //::oWnd:oVScroll:lReDraw := TRUE ::oWnd:oVScroll:bPos ...

... Time from start: 0 hours 0 mins 59 secs Error occurred at: 12/01/2018, 15:00:49 Error description: Error BASE/1005 Class: 'ARRAY' has no property: BGOTOP Args: [ 1] = A { ... } [ 2] = B {|| ... } Stack Calls =========== Called from: => _BGOTOP( 0 ) Called from: D:\KPIWEB\PRG\setbrw.prg => ...

... línea si en la línea anterior usa el alias de la tabla activa y no marca error (siempre es la misma línea) SELECT(::cAlias) // sin error DEFAULT ::bGoTop := {|| ( ::cAlias )->( DbGoTop() ) },; ::bGoBottom := {|| ( ::cAlias )->( DbGoBottom() ) },; ::bSkip := {| n | ( ::cAlias )->( DbSkipper( ...

Line 11714 is Eval( ::oBrw:bGoTop ) and this can not be NIL, unless this method is called before setting the browse completely.
I hope when you call oCol:WorkMergeData, the browse is already visible on the screen.

Okey ahí era el problema yo usaba bgotop()

Gracias,

... ENDIF ::Save() RETURN NIL //----------------------------------------------------------------------------// METHOD SetBrowse(oLbx) CLASS TDb oLbx:bGotop := { || ::GoTop() } oLbx:bGoBottom := { || ::GoBottom()} oLbx:bSkip := { |nRec| ::Skipper( nRec ) } oLbx:bLogicLen := { || ::RecCount() } // ...