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

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

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

... oBrw:nAt ][ 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(),;
::nAt ...

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

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

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 ) }

... ImpFisc,TipFiscal,ObsFacSiNo), )}
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 ...

... 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:nAt) } }
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 ...

... aSample,oList:nAt) } }
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 ...

... bGoTop = { || 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 ...