FiveTech Software tech support forums

Abril 2011 ========== * Corrección: En el método ResetBarPos() de la clase TCBrowse, ahora se usa OrdKeyNo() en lugar de RecNo(). * Corrección: En el método Paint() de la clase TBtnBmp, el texto usa la fuente correcta. * Corrección: En la clase TGET, ...

April 2011 ========== * Fix: Class TCBrowse method ResetBarPos(), is now using OrdKeyNo() instead of RecNo() * Fix: Class TBtnBmp method Paint, the text is now using the correct font * Fix: Class TGET using ACTION need use oThis:SetFocus() later bCodeblock, ...

Hola Oscar: Amigos del foro y Sr. Mercado Desde que empece a utilizar la ultima version de tsbrowse y elimine la linea resetbarpos() al mover el scroll sobre el browse se me pierden los indices no se que estoy haciendo mal por favor necesito su ayuda Te mandé a tu correo la última ...

Amigos del foro y Sr. Mercado

Desde que empece a utilizar la ultima version de tsbrowse y elimine la linea resetbarpos()
al mover el scroll sobre el browse se me pierden los indices no se que estoy haciendo mal
por favor necesito su ayuda

Sr. Mercado
gracias por su generosa ayuda

en esta nueva versión no funciona UPSTABLE y ResetBarpos con Rescordsets o existe algún equivalente.

una vez mas gracias por su ayuda

Saludos

Oscar

... DBCMD/2001 Workarea not in use: ORDKEYGOTO Stack Calls =========== Called from: => ORDKEYGOTO(0) Called from: TSBROWSE.PRG => (b)TSBROWSE:RESETBARPOS(8441) Called from: => EVAL(0) Called from: TSBROWSE.PRG => TSBROWSE:VSCROLL(10544) Called from: TSBROWSE.PRG => TSBROWSE:HANDLEEVENT(6126) ...

... nLogicPos ) METHOD Report( cTitle, lPreview, oFont, cCaption, lModal, aCols, ; cHeader, cFooter ) METHOD Reset( cField, uVal1, uVal2 ) METHOD ResetBarPos( lInit ) METHOD ResetSeek() METHOD ReSize( nSizeType, nWidth, nHeight ) METHOD TSBrwScroll( nDir ) INLINE ; TSBrwScroll( ::hWnd, nDir, If( ...

... having the record added to the bottom of the existing list without scrolling all other items out of view. Try this GoLastIn() oBrw:UpStable() oBrw:ResetBarPos() oBrw:SetFocus() oBrw:Refresh() FUNCTION GoLastIn LOCAL nLastRecno:=0,cOldOrder:=( cAlias )->( OrdName() ) ( cAlias )->( DBSETORDER( ...

... {|aItem| asaldo += aItem[5] } ) *aSaldo := Sumasaldo( aTestData,Obrwp,oDlg) ?? aSaldo oBrwp:DrawFooters() oBrwp:SetArray( aTestdata ) oBrwp:ResetBarPos() oBrwp:Refresh() return nil Si algo esta mal o hay otra manera agradeceria tu ayuda

... DBCMD/2001 Workarea not in use: ORDKEYGOTO Stack Calls =========== Called from: => ORDKEYGOTO(0) Called from: TSBROWSE.PRG => (b)TSBROWSE:RESETBARPOS(8441) Called from: => EVAL(0) Called from: TSBROWSE.PRG => TSBROWSE:VSCROLL(10543) Called from: TSBROWSE.PRG => TSBROWSE:HANDLEEVENT(6126) ...

... SELECT FACNUM FOR cFacnum . . oWndChild:SetControl( OB ) ACTIVATE WINDOW oWndChild; ON INIT ( WndAdjClient( oWndChild:hWnd ) ,; oB:Gobottom(),; oB:ResetBarPos() OB:UpStable() oB:Refresh() oB:Setfocus() ) He borrado la función Scope para usar el parametro SELECT < Campo > FOR < cVar > ...

... oB; OF OW; COLORS "N/W*" . . oWndChild:SetControl( OB ) ACTIVATE WINDOW oWndChild; ON INIT ( WndAdjClient( oWndChild:hWnd ) ,; oB:Gobottom(),; oB:ResetBarPos() OB:UpStable() oB:Refresh() oB:Setfocus() ) El problema radica que no se posiciona en el ultimo registro. Es un scope con unos 200 registros. ...

... Revisado por:Angel ==================================================================================================== */ oLbx:SetFocus() oLbx:ResetBarPos() oLbx:UpStable() oLbx:Reset() oLbx:Refresh() Return (nil) De todas formas, el tsbrowse 7.1 se vuelve turuleto con los registros borrados, ...

... los siguientes cambios: Agregar DATA bFilter METHOD SetbFilter(bFilter); INLINE (::cAlias)->(dbSetFilter(::bFilter:=bFilter)),; if(::lPainted,::ResetBarPos(.T.),nil),; ::Default(),; ::GoTop(),; ::Refresh() Sustituir DATA nLen por METHOD nLen Local nLen, nRec IF ::lIsDbf nRec:=(::cAlias)->(RecNo()) ...

... en la definición de los codeblock ::bGoTop y ::bGoBottom. Que si son definidos si usas oDbf, aArray, TxtFile Yo las asigno valor en el método ResetBarPos() ::bGoTop := {|| ( ::cAlias )->( DbGoTop() ) } ::bGoBottom := {|| ...