Por que desaparecen datos del Browse ?

[Raymundo Islas M.]

Hola a todos

Me esta ocurriendo algo curioso, en ocasiones se "desaparecen" los datos del browse, es decir, la 1a vez que muestro el dialogo todo normal, pero si realizo alguna operacion y vuelvo a mostrar el mismo dialogo, en ocasiones ya no se ven los datos del browse, esto pasa solo con los browses de los dialogos que salen encima del dialogo principal, y tengo que presionar ya sea los registros o la scrollbar para que puedan visualizarse correctamente, a alguien le ha pasado algo similar ?? porque ya estuve checando el codigo y no veo nada anormal.

- 1a vez que muestro los datos, todo OK



- 2a vez, ya no salen los datos


- Tengo que clickar en registros o scrollbar para que aparezcan



Es la misma funcion, el mismo recurso, las mismas bases, etc.


SALUDOS

[Willi Quintana]

Hola..
Revisa los indices activos al momento de activar la ventana,,, y recuerda posicionarte siempre en el 1er registro,,, y usas el Refresh() para el browse que usas...

Salu2

[Raymundo Islas M.]

Gracias por tu respuesta Willy, pero en este caso son datos de un arreglo, y aunque le indico el ReFresh() y otros artilugios, sigue haciendo lo mismo

Ni modo, seguire probando.

SALUDOS

[Antonio Linares]

Raymundo,

Que expresión usas en el índice y como has definido bLogicLen ?

[Raymundo Islas M.]

Antonio :

Esta es la definicion del Browse :


REDEFINE LISTBOX lbEquPrt ;
FIELDS aEquPrt[pEP,1] ;
HEAD "DESCRIPCION" ;
ON CHANGE ( nVal2Ret := aEquPrt[pEP,2], ;
dbEquPart:Say( 174, 15, Space(40),,,, .T. ), ;
dbEquPart:Say( 174, 15, OBTFABITMX( aEquPrt[pEP,3] ), CLR_HBLUE,,, .T. ) ) ;
ON DBLCLICK ( lItmxSld := .T., dbEquPart:END() ) ;
FONT oBrwFnt ;
ID 103 ;
OF dbEquPart

lbEquPrt:SetArray( aEquPrt )
lbEquPrt:nLineStyle := 2
lbEquPrt:lDrawFocusRect := .F.
lbEquPrt:nClrLine := CLR_WHITE
// lbEquPrt:nClrBackHead := 13425898
lbEquPrt:BGOTOP := { || pEP := 1 }
lbEquPrt:BGOBOTTOM := { || pEP := eval( lbEquPrt:bLogicLen ) }
lbEquPrt:BSKIP := { | nwant, nold | nold := pEP , pEP += nwant,;
pEP := max( 1, min( pEP, eval( lbEquPrt:bLogicLen ) ) ), pEP - nOld }
lbEquPrt:BLOGICLEN := { || Len( aEquPrt ) }
lbEquPrt:nClrPane := { || IIF( pEP%2 == 0, CLR_A, CLR_B ) }
lbEquPrt:bKeyDown := { | nKey | EQUPRTNKEY( nKey, @lItmxSld, dbEquPart ) }


Hay una cosilla que me esta dando duda, la font oBrwFnt y los colores CLR_A, CLR_B, los estoy manejando como GLOBAL EXTERNAL oBrwFnt, CLR_A, CLR_B y los valores de estas variables las asigno desde otro PRG, crees que pueda estar afectando ???

Voy a probar mudando esta funcion al PRG principal y checo, de todas formas, si ves algo raro en el codigo de arriba, avisame por favor.

Gracias y Saludos