FiveTech Software tech support forums

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

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

... aAcc_No, aAcc_Desc, aTrn_AmtD, aTrn_AmtC ) oBrw:bSkip := { |nWant, nOld| nOld:=nItem, nItem+=nWant, ; nItem := max( 1, min( nItem, eval( oBrw:bLogicLen ))), nItem - nOld } oBrw:bLDblClick:= {|| W_21AEU(oBrw,nItem,mMode,oDlg)} oBrw:bKeyDown := {|nKey| If(nKey=13,W_21AEU(oBrw,nItem,mMode,oDlg), ...

... En mayo estuve analizando la clase wbrowse para saber porque al usar el SetFilter se ralentizaba tanto y encontré que en el metodo SetFilter a bLogicLen se le asigna una llamada a Self:RecCount (uVal1), donde se recorren un máximo de ::nMaxFilter registros según el indice activo. Al refrescarse ...

... En mayo estuve analizando la clase wbrowse para saber porque al usar el SetFilter se ralentizaba tanto y encontré que en el metodo SetFilter a bLogicLen se le asigna una llamada a Self:RecCount (uVal1), donde se recorren un máximo de ::nMaxFilter registros según el indice activo. Al refrescarse ...

... )->( BoF() ) ( ::cAlias )->( DbSkip() ) endif endif endif ::DrawHeaders() // CeSoTech ::DrawFooters() // CeSoTech if ( ::nLen := Eval( ::bLogicLen ) ) > 0 //////////////////////////////////// // AutoEstabilizacion by CeSoTech // //////////////////////////////////// // le quite estas ...

Please remove this line.

Code: Select all  Expand view

oBrw:bLogicLen = { || reccount()}
 

XBrowse internally takes care of all.
There is no data bLogicLen in xbrowse.

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

... "RFID Commissioned" ; SIZES 100 , 100 , 100 , 100 , 85 , 100 , 125 , 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( ...

... "E-mail", "System", "Module", "Add Date", "Add Time", "Add User" ; OF oDlg oLbx:bLogicLen = { || oSql:RecordCount } oLbx:bGoTop = { || oSql:MoveFirst() } oLbx:bGoBottom = { || oSql:MoveLast() } oLbx:bSkip = { | nSkip | Skipper( ...

... "E-mail", "System", "Module", "Add Date", "Add Time", "Add User" oLbx:bLogicLen = { || oSql:RecordCount } oLbx:bGoTop = { || oSql:MoveFirst() } oLbx:bGoBottom = { || oSql:MoveLast() } oLbx:bSkip = { | nSkip | Skipper( ...

... 033 ) ; && Letras / fondo Verde oBrw:SetArray ( oDlg:aControls ) oBrw:bGotop := { | | n := 1 } oBrw:bGoBottom := { | | n := EVAL ( oBrw:bLogicLen ) } oBrw:bSkip := { | nwant, nold | nold := n , n += nwant ,; n := MAX ( 1, MIN ( n, EVAL ( oBrw:bLogicLen ) ) ), n - nOld } oBrw:bLogicLen ...

... at line 152 access an array that triggers the error? There are only two arrays in the line, ::aColSizes and ::aJustify. However it is probably :bLogiclen which is defined like this in the setArray() method:   ::bLogicLen = { || ::nLen := Len( aArray ) } However, as I said in ...

... ::nClrPane,; If( ::oFont != nil, ::oFont:hFont, 0 ),; ValType( ::aColSizes ) == "B", ::aJustify, nil, ::nLineStyle,,, ::oVScroll,; ::bLogicLen ) I wonder if which of these parameters triggers the error and what is 'N' in this code? Any idea? Thank you all, Jose

... 1, 75 ) HEADERS "DATA", "TÍTULO" ; SIZES 80,200 ID 103 OF oDlgs ON DBLCLICK( DigitaAlte( oRs ), oLbx:refresh() ) UPDATE oLbx:bLogicLen := { || oRs:RecordCount } oLbx:bGoTop := { || oRs:MoveFirst() } oLbx:bGoBottom := { || oRs:MoveLast() } oLbx:bSkip := { | nSkip | Skipper( ...