FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Dbgobottom en Tsbrowse con Scope
Posts: 28
Joined: Fri Dec 30, 2005 08:44 PM
Dbgobottom en Tsbrowse con Scope
Posted: Tue Jun 06, 2006 07:39 PM

Tengo el siguiente problema con el Tsbrowse con Scope:

cFacnum:="001"

DEFINE WINDOW oWndChild MDICHILD OF oWnd

ORDSCOPE( 0 , cFacnum )
ORDSCOPE( 1 , cFacnum )

oW:bGotFocus := { || DBSELECTAREA( oFactu:cAlias ), oB:Refresh() }

@23,0 BROWSE 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. Sin embargo, se posiciona correctamente sin Scopes.

Gracias por sus respuesta.

Saludos

Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Dbgobottom en Tsbrowse con Scope
Posted: Tue Jun 06, 2006 07:47 PM

Si el Indice estiver Correcto...

oW:bGotFocus := { || DBSELECTAREA( oFactu:cAlias ), oB:Refresh() }

ORDSCOPE( 0 , cFacnum )
ORDSCOPE( 1 , cFacnum )
GO TOP

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 28
Joined: Fri Dec 30, 2005 08:44 PM
Dbgobottom en Tsbrowse con Scope
Posted: Wed Jun 07, 2006 07:12 PM

El problema continua no se posiciona al inicializar la ventana en el evento ON INIT al ultimo registro.
El indicice es condicional.

cFacnum:="001"

DEFINE WINDOW oWndChild MDICHILD OF oWnd

oW:bGotFocus := { || DBSELECTAREA( oFactu:cAlias ), oB:Refresh() }

@23,0 BROWSE oB;
OF OW;
COLORS "N/W*";
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 > que tiene el Tsbrowse.

Pero no se posicionar al ultimo registro, se posiciona en cualquier registro menos en el ultimo.

Saludos

Continue the discussion