FiveTech Software tech support forums

... := { || 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, ; nItem := max( 1, min( nItem, eval( oBrw:bLogicLen ))), nItem - nOld } oBrw:bLDblClick:= {|| W_21AEU(oBrw,nItem,mMode,oDlg)} ...

... 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 := { | | LEN ( oDlg:aControls ...

... ] , ; aMat[ oLbx:nAt, 2 ] ; } } oLbx:bGoTop := { || oLbx:nAt := 1 } oLbx:bGoBottom := { || oLbx:nAt := Eval( oLbx:bLogicLen ) } oLbx:bSkip := { | nWant, nOld | nOld := oLbx:nAt, oLbx:nAt += nWant, ; oLbx:nAt := Max( 1, Min( oLbx:nAt, Eval( oLbx:bLogicLen ) ) ), ; oLbx:nAt - nOld } oLbx:bLogicLen ...

... oDlf COLOR RGB( 68, 90,155) oBrf:bGotop :={|| nSem:=MIN(EVAL(oBrf:bLogicLen),1)} oBrf:bGoBottom :={|| nSem:=EVAL(oBrf:bLogicLen)} oBrf:bSkip :={| nWant,nOld | nold:=nSem, nSem+=nWant,; nSem:=MAX(1, MIN(nSem,EVAL(oBrf:bLogicLen))),nSem-nOld} oBrf:lAdjLastCol:=.F. oBrf:bLogicLen :={|| LEN(aSem)} ...

... ][ 3 ],"999,999.99") } } 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( oBrw:nAt, Eval( oBrw:bLogicLen ) ) ),; oBrw:nAt - nOld } oBrw:bLogicLen ...

... CONSTRUCTOR METHOD Sort( nCol ) METHOD GoTop() INLINE ::nAt := 1,::Skip(0) METHOD GoBottom() INLINE ::nAt := ::LastRec(),::Skip(0) METHOD Skip(nWant,nOld) INLINE nWant := If(nWant=Nil,1,nWant),; nOld := ::nAt, ::nAt += nWant,; ::lEof:= ::nAt>::LastRec(),; ::lBof:= ::nAt<::LastRec(),; ...

... out ther using listbox (aka Browse): oBrw1:bGoTop = { || nItem := 1 } oBrw1:bGoBottom = { || nItem := Eval( oBrw1:bLogicLen ) } oBrw1:bSkip = { | nWant, nOld | nOld := nItem, nItem += nWant,; nItem := Max( 1, Min( nItem, Eval( oBrw1:bLogicLen ) ) ),; nItem - nOld } oBrw1:bLogicLen = { || LEN(aRange) ...

... 1","Titulo 2" ; ID 110 UPDATE OF oDlg oLbx:bGoTop := { || nItem := 1 } oLbx:bGoBottom := { || nItem := Eval( oLbx:bLogicLen ) } oLbx:bSkip := { | nWant, nOld | nOld := nItem, nItem += nWant,; nItem := Max( 1, Min( nItem, Eval( oLbx:bLogicLen ) ) ),; nItem - nOld } oLbx:bLogicLen := { || Len( aLista ...

Y le quitas: oLbxT:bGoTop :={ || nItem1 := 1 } oLbxT:bGoBottom :={ || nItem1 := Eval( oLbxT:bLogicLen ) } oLbxT:bSkip :={ | nWant, nOld | nOld := nItem1, nItem1 += nWant,; nItem1 := Max( 1, Min( nItem1, Eval( oLbxT:bLogicLen ) ) ),; nItem1 - nOld } oLbxT:bLogicLen :={ || Len( VecComp ) }

... )} oLbxT:bGoTop :={ || nItem1 := 1 } oLbxT:bGoBottom :={ || nItem1 := Eval( oLbxT:bLogicLen ) } oLbxT:bSkip :={ | nWant, nOld | nOld := nItem1, nItem1 += nWant,; nItem1 := Max( 1, Min( nItem1, Eval( oLbxT:bLogicLen ) ) ),; nItem1 - nOld } oLbxT:bLogicLen :={ || ...

... ], ; 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( oBrw:nAt, Eval( oBrw:bLogicLen ) ) ),; oBrw:nAt - nOld } oBrw:bLogicLen ...

... ; 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( oBrw:bLogicLen ) ) ),; nItem - nOld } oBrw:bLogicLen = { || Len( aSample ...

... } } oList:bGoTop = { || oList:nAt := 1 } oList:bGoBottom = { || oList:nAt := Eval( oList:bLogicLen ) } oList:bSkip = { | nWant, nOld | nOld := oList:nAt, oList:nAt += nWant, ; oList:nAt := Max( 1, Min( oList:nAt, ; Eval(oList:bLogicLen) ) ), oList:nAt - nOld } oList:bLogicLen ...

... } } oList:bGoTop = { || oList:nAt := 1 } oList:bGoBottom = { || oList:nAt := Eval( oList:bLogicLen ) } oList:bSkip = { | nWant, nOld | nOld := oList:nAt, oList:nAt += nWant, ; oList:nAt := Max( 1, Min( oList:nAt, ; Eval(oList:bLogicLen) ) ), oList:nAt - nOld } oList:bLogicLen ...

... = { || ArPrgElem[3]:nAt := 1 } ArPrgElem[3]:bGoBottom = { || ArPrgElem[3]:nAt := Eval( ArPrgElem[3]:bLogicLen ) } ArPrgElem[3]:bSkip = { | nWant, nOld | nOld := ArPrgElem[3]:nAt, ArPrgElem[3]:nAt += nWant, ; ArPrgElem[3]:nAt := Max( 1, Min( ArPrgElem[3]:nAt, ; Eval(ArPrgElem[3]:bLogicLen) ...