Se me plantea un problema de estabilidad en un xBrowse filtrando datos de una DBF ADS
Este sería la vista correcta:
Luego, esto ocurrre al mover el puntero con el mouse, o las flechas al llegar al ultimo registro (luego no sube, solo se mueve sobre este ultimo mostrando los distintos registros). En esta vista esta mostrando el de la tercer fila
Este es el código
- Code: Select all Expand view
- shSelect := {=>}
shSelBank:= {=>}
// DetaCheq23 [DB23] - Bancos [DB21]
(h0["DetaCheq23"]:nArea)->( dbSetRelat( h0["Bancos"]:nArea, {|| (h0["DetaCheq23"]:nArea)->FBANK01 }, '(h0["DetaCheq23"]:nArea)->FBANK01' ) )
h0["DetaCheq23"]:SetOrder( "FE_VENCE" )
(h0["DetaCheq23"]:nArea)->( AdsSetAOF( "!FDETCHQ07" ) )
h0["DetaCheq23"]:GoTop()
DEFINE DIALOG oDlg RESOURCE "brw_VerCheques" TITLE "Cheques en cartera" ;
FONT ::hFont["Tahoma14"]
oDlg:lHelpIcon:= FALSE
REDEFINE XBROWSE oLstChq ID BRW_XBRW OF oDlg ;
COLUMNS "FDETCHQ02", "FDETCHQ04", "FDETCHQ05", nil ;
HEADERS "DocNro", "FeVencim", "Monto", "Check" ;
ALIAS h0["DetaCheq23"]:cAlias
WITH OBJECT oLstChq
:nMarqueeStyle:= MARQSTYLE_HIGHLROW // linea señaladora
:nStretchCol := STRETCHCOL_LAST
:lFooter := TRUE
:SetColor( CLR_BLACK, CLR_ROWLIMA ) // Colorea todo el browse
:bClrStd := {|| { CLR_BLACK, CLR_ROWLIMA } } // Filas sin foco
:bClrSelFocus:= {|| { CLR_NARANJA, CLR_CELDALIMA } } // Celda con foco
:bClrSel := {|| { CLR_GRAY, CLR_ROWLIMA } } // Fila siN foco
:bChange := {|| nPosActual := oLstChq:BookMark, oLstChq:Refresh() }
// Seleccion
:bLDblClick:= {|| Eval( oLstChq:bKeyDown, VK_SPACE) }
:bKeyDown := {|nK| if( nK==VK_INSERT .or. nK==VK_SPACE, ; // Aca realizo un proceso de seleccion mediante Hash
... }
:bGotFocus := {|| h0["DetaCheq23"]:SetFocus(), h0["DetaCheq23"]:Refresh() }
END
WITH OBJECT oLstChq:DocNro
:nWidth:= 85
END
WITH OBJECT oLstChq:FeVencim
:nWidth:= 90
END
WITH OBJECT oLstChq:Monto
:nWidth:= 105
:nFooterType := AGGR_TOTAL
:bClrFooter := {|| {CLR_GREEN, CLR_BLACK} }
:oFooterFont := ::hFont["Tahoma14B"]
:bFooter:= {|| Trans( oLstChq:Monto:nTotal-nTotSelec, PIC_DIEZCIF2 ) }
END
WITH OBJECT oLstChq:Check
:nHeadStrAlign:= AL_CENTER
:nFootStrAlign:= AL_RIGHT
:bClrFooter := {|| {CLR_HRED, CLR_BLACK} }
:oFooterFont := ::hFont["Tahoma14B"]
:bEditValue := {|x| x:= HHasKey( shSelect, h0["DetaCheq23"]:RecNo() ) }
:SetCheck( { "bmp_Ok2", "" }, TRUE )
:bFooter:= {|| Trans( nTotSelec, PIC_DIEZCIF1 ) }
END
No encuentro la forma de resolverlo (salvo pasarlo a array)
Utilizo FWH 12.04
gracias
