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
