Problemas con comportamiento de XBrowse.

[José Camilo]

Buenos dias.
Tengo una DBF que muestro con un xBrowse.
la DBF tiene 2 indices, uno de los cuales es combinado de NOMBRE+DESCEND(dtos(FECHAPAGO)) .
El problema es que con el primer indice muestra perfecto los datos y me puedo mover por ellos sin problemas,
pero cuando paso al indice mencionado inicialmente muestra bien los datos pero al querer moverme por ellos no lo permite
desacomoda los datos, va al final del archivo, no permite moverme moverme entre los registros.
Por que con un indice anda perfecto y con otro no? es una DBF simple sin nada complejo, solo el indice.

Asi lo tengo definido.

DEFINE DIALOG oDlg FROM InicioDlg, 50 TO 646, 1350 FONT oFont TITLE 'Neteo de Sueldos' PIXEL

@ InicioBrw,5 XBROWSE oBrw ;
COLUMNS "ApeNom","Periodo","Sueldo","Jubilacion","Alquiler","Limpieza","Otros","Total","FechaPago" ;
HEADERS "Empleado","Periodo", "Sueldo", "Jubilación","Alquiler","Limpieza","Otros","Total","Fecha Pago" ;
COLSIZES -10,60,100,100,100,100,100,100,85 OF oDlg ;
SIZE 640,AltoBrw2 PIXEL ;
JUSTIFY .f.,.f.,.t.,.t.,,.t.,.t.,,.t.,.t.,.f. ;
ALIAS cAlias FOOTERS LINES CELL NOBORDER ;
BACKGROUND aQueGrad VERTICAL

oBrw:nStretchCol := 2
oBrw:nRowHeight := 30
oBrw:nMarqueeStyle := 4
oBrw:nRowDividerStyle := 2 // color gris y fino la division de columnas
oBrw:nColDividerStyle := 0 // color gris y fino la division de renglones
oBrw:lColDividerComplete := .f. // la division de renglones es hasta donde hay datos

// anulo el doble color d los registros
oBrw:lContrastClr := .f.
oBrw:lHScroll := .f.

oBrw:nHeadStrAligns := AL_CENTER // alinea al centro las cabeceras de columnas

oBrw:bClrStd := {|| { iif(!empty(Neteo->FechaPago),CLR_GREEN,CLR_RED),CLR_WHITE } }
oBrw:bclrSel := {|| { iif(!empty(Neteo->FechaPago),CLR_GREEN,CLR_RED),CLR_WHITE } } // color del focus

oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)}
oBrw:bLDblClick := { |nRow,nCol,nKeyFlags|EditNeteo(.f.),oBrw:SetFocus(),oBrw:Refresh(.t.)}

oBrw:CreateFromCode()
cGrad := PadR( GradStr( BrwGrad( oBrw ) ), 128 )

Activate Dialog oDlg On Init (CentroDlg(@oDlg),Centra( oDlg ),BtnBarNew( oBrw, @oDlg, aBotones)) Valid( Fade( oDlg ), .t. )

----------
*---------------------------------------------------------------------------//
function veo(nApu,oLbx,aAcciones,nKey)
nApu:=ascan(aAcciones,{|x|IF(LEN(X)>4,x[5]==nKey,.F.)})
if empty(nApu)
return .f.
else
return .t.
endif
*------------------------------------------------------------------------------------


Gracias

[karinha]

Small sample con el .DBF és posible para download y pruebas?

Gracias.

Regards, saludos.