FiveTech Software tech support forums

... como definir una funcion skipper especial... oLbx1:bLogicLen := { || oRecordSet:RecordCount } oLbx1:bGoTop := { || oRecordSet:MoveFirst() } oLbx1:bGoBottom := { || oRecordSet:MoveLast() } oLbx1:bSkip := { | nSkip | Skipper( oRecordSet, nSkip ) } STATIC FUNCTION SKIPPER( oRs, nSkip ) LOCAL nRec ...

... ][ 4 ], ; TERMARRAY[ oBrw:nAt ][ 5 ], ; TERMARRAY[ oBrw:nAt ][ 6 ], ; TERMARRAY[ oBrw:nAt ][ 7 ] } } oBrw:bGoTop = { || oBrw:nAt := 1 } oBrw:bGoBottom = { || oBrw:nAt := Eval( oBrw:bLogicLen ) } oBrw:bSkip = { | nWant, nOld | nOld := oBrw:nAt, ; oBrw:nAt += nWant,; oBrw:nAt := Max( 1, Min( ...

... OF oDlg oBrw:aJustify ={.F.,.F.,.f.,.f.,.f.,.f.} oBrw:bLogicLen = { || oRecordSet:RecordCount } oBrw:bGoTop = { || oRecordSet:MoveFirst() } oBrw:bGoBottom = { || oRecordSet:MoveLast() } oBrw:bSkip = { | nSkip | Skipper( oRecordSet, nSkip ) } oBrw:cAlias = "ARRAY" REDEFINE BUTTON ID 102 of oDlg ...

... ) ::cAlias := Alias() if Empty( ::cAlias ) return nil endif endif cAlias := ::cAlias DEFAULT ::bGoTop := {|| ( cAlias )->( DbGoTop() ) },; ::bGoBottom := {|| ( cAlias )->( DbGoBottom() ) },; ::bSkip := {| n | iif( n == nil, n := 1, ), ; ( cAlias )->( DbSkipper( n ) ) },; ::bBof := {|| ...

... 90, 290, 20 ; ID 101 ; OF oDlg oLbx:aJustify ={.F.,.F.,.t.} oLbx:bLogicLen = { || oRs:RecordCount } oLbx:bGoTop = { || oRs:MoveFirst() } oLbx:bGoBottom = { || oRs:MoveLast() } oLbx:bSkip = { | nSkip | Skipper( oRs, nSkip ) } oLbx:cAlias = "ARRAY" Desearía imprimir el browse (todos los registros) ...

Happy new year to all. How can i modify bskip , bgotop,bgobottom etc. and make my TXBrowse show only the record i want to see? e.g. Code Descr 1 ASK 2 Fivetech 3 Software 4 Test how can i show code>=2 .and. code<=3 ? I DON'T WANT TO USE Setfilter ...

... aSample ) > 0, aSample[ nItem ], "" ) ; HEADERS "Tipo Producto" ; FIELDSIZES 200 ; OF oDlg ; SIZE 100, 24 oBrw:bGoTop = { || nItem := 1 } oBrw:bGoBottom = { || nItem := Eval( oBrw:bLogicLen ) } oBrw:bSkip = { | nWant, nOld | nOld := nItem, nItem += nWant,; nItem := Max( 1, Min( nItem, Eval( ...

... "Número","Región" ; FIELDSIZES 80,150 ; SIZE 356,135 OF oDlg oBrw:bLogicLen = { || oRs:RecordCount } oBrw:bGoTop = { || oRs:MoveFirst() } oBrw:bGoBottom = { || oRs:MoveLast() } oBrw:bSkip = { | nSkip | Skipper( oRs, nSkip ) } oBrw:cAlias = "ARRAY" ACTIVATE DIALOG oDlg CENTER oRs:CLOSE() oCon:CLOSE() ...

... ; "Desc", ; "ProgID" ; SIZES 50,170, 50 ; ID 111 of oDlg oLbx:bLogicLen := { || oRs2:RecordCount } oLbx:bGoTop := { || oRs2:MoveFirst() } oLbx:bGoBottom := { || oRs2:MoveLast() } oLbx:bSkip := { | nSkip | Skipper( oRs2, nSkip ) } oLbx:cAlias := "ARRAY" REDEFINE BUTTON oBTN1 ID 112 of oDLG ; ...

... ( _Mtrpview("A"), ; // mtrpview.prg * oLBX:ReFresh() ) oLbx:bLogicLen := { || oRsMTP:RecordCount } oLbx:bGoTop := { || oRsMTP:MoveFirst() } oLbx:bGoBottom := { || oRsMTP:MoveLast() } oLbx:bSkip := { | nSkip | Skipper( oRsMTP, nSkip ) } oLbx:cAlias := "ARRAY" ACTIVATE DIALOG oDlg ; ON INIT ( if( ...

... CLASS TWBrowse FROM TControl DATA cAlias, cField, uValue1, uValue2 DATA bLine, bSkip, bGoTop, bGoBottom, bLogicLen, bChange, bAdd DATA nRowPos, nColPos, nLen, nAt, nColAct // nColPos -> 1ra. Columna que se muestra en pantalla // nColAct -> ...

1. METHOD SetMySQL(oquery) CLASS TXBrowse DEFAULT ::bGoTop := {|| oQuery: GoTop() },; ::bGoBottom := {|| oQuery: GoBottom() },; ::bSkip := {| n |oQuery: SKIP( n ) },; ::bSkipper := {| n |oQuery: SKIPPER( n ) },; // not reach eof() +1 ::bBof := {|| oQuery: Bof() },; ...

... ; of oGRP ; ON DBLCLICK( _GrpView( "V", oRs )) ; UPDATE oBrow:bLogicLen := { || oRs:RecordCount } oBrow:bGoTop := { || oRs:MoveFirst() } oBrow:bGoBottom := { || oRs:MoveLast() } oBrow:bSkip := { | nSkip | Skipper( oRs, nSkip ) } oBrow:cAlias := "ARRAY" oGrp:oClient := oBROW oGrp:SetControl( ...

... en las definiciones que hace el eagle en MySetBrowse() de los bloques: oLbx:bGoTop := { || oTabla:GoTop(), MsFetchRow( oTabla:hResult ) } oLbx:bGoBottom :={||oTabla:GoBottom(),MsFetchRow(oTabla:hResult ) } oLbx:bSkip := { | n | oTabla:Skipper( n )} oLbx:bLogicLen := { || oTabla:nRowCount }

... lleva definida la funcion para salto de registros, y si no estan definidos, define todos los codeblock para movimiento dentro del cursor (bGoTop,bGoBottom,bSkip,bBof,bEof,bBookMark,bKeyno, bKeyCount). Prueba a compilar con el codigo que te puse en el mensaje anterior, sin definir ningun codeblock, ...