FiveTech Software tech support forums

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

... ; // "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 := .f. oBrow:nlinestyle := 2 oBrow:nclrpane ...

... //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 := { |nWant, nOld| nOld:=nItem, nItem+=nWant, ...

... 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)   DbSelectArea(cAlias)  ...

... 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)}   oBrd:bChange  :={|| Refr_Dom(oDDom,oDat,aDat)}  ...

... 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 ) it into Xbrowse() ?

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

... 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( IfNil( n, 1 ) ) ) },; ::bBof := {|| ( ::cAlias ...

... .\source\classes\XBROWSE.PRG => (b)TXBROWSE_SETADO( 4556 ) Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE( 438 ) Offending line: ::bGoBottom := {|| If( ::oRs:RecordCount() > 0, ::oRs:MoveLast(), nil ) },; Can you please verify at METHOD SetAdO( oRs, lAddCols, lAutoOrder, aFldNames ...

Andres Quizas tengas que definir un bGoBottom teniendo en cuenta, según creo, que la DATA nDataRows nos dice cuantos datos estamos viendo y restando dicho valor al ultimo registro para posicionarnos en el. Como no estoy seguro que dicha DATA ...

... METHOD SetBrowse(oLbx) CLASS TDb oLbx:bGotop := { || ::GoTop() } oLbx:bGoBottom := { || ::GoBottom()} oLbx:bSkip := { |nRec| ::Skipper( nRec ) } oLbx:bLogicLen := { || ::RecCount() } // oLbx:nHeaderHeight := 20 // oLbx:nLineHeight ...

... bOnSkip ) CLASS TXBrowse, saludos... :shock: DEFAULT ::bGoTop := { || ::nArrayAt := Min( 1, Eval( ::bKeyCount ) ), Eval( ::bOnSkip, Self ) }, ; ::bGoBottom := { || ::nArrayAt := Eval( ::bKeyCount ), Eval( ::bOnSkip, Self ) }, ; ::bSkip := { | nSkip, nOld | ; If( nSkip == nil, nSkip := 1, ), ; ...

... un codeblock para especificar el inicio de GOTOP de inicio que segun yo seria: oBrw:bGoTop := { || VENTA->Tipo_Doc = "FA" } oBrw:bGoBottom := { || VENTA->Tipo_Doc = "FA" } Pero me siguen apareciendo los DV y los TA me pueden ayudar Saludos, Soy principiante en Estoy ...

... , 100 , 200 ; FONT oFont2 ; OF oWnd SIZE nLbxW, nLbxH PIXEL oLbx:bLogicLen = { || oSql:RecordCount } oLbx:bGoTop = { || oSql:MoveFirst() } oLbx:bGoBottom = { || oSql:MoveLast() } oLbx:bSkip = { | nSkip | Skipper( oSql, nSkip ) } oLbx:cAlias = "ARRAY1" // Refresh routine... //----------------------------------------------------------------------------// ...

... "Add Time", "Add User" ; OF oDlg oLbx:bLogicLen = { || oSql:RecordCount } oLbx:bGoTop = { || oSql:MoveFirst() } oLbx:bGoBottom = { || oSql:MoveLast() } oLbx:bSkip = { | nSkip | Skipper( oSql, nSkip ) } oLbx:cAlias = "ARRAY1" ACTIVATE DIALOG oDlg ON INIT ( ...