scroll en wbrowse 1.7 de Hernán

[surGom]

Hola a todos, porque cuando me posiciono sobre la flechita del scroll vertical de browse, cuando llego al tope o al fin de la vista no me refresca el browse y va cambiando solo la línea. Estuve buscando en los mensajes viejos del foro pero no pude encontrar nada al respecto.
Utilizo fwh26 Xharbour 0.99.61 y el Browse de Hernán

Gracias

[ADBLANCO]

Puedes poner el codigo donde se te comporta así

[surGom]

Se reproduce el error en todos los casos que utilizo el wbrowse sea con campos como con vectores, hace como dos años que utilizan el sistema y nunca me había percatado del error, el sistema funcionaba antes con fw 16 bits y no había problemas, el wbrowse es la publicada en el foro

Gracias


REDEFINE LISTBOX oLbx FIELDS (oProex:calias)->proveedor, transform((oProex:calias)->forigen,"@d"),;
(oProex:calias)->factura ,transform((oProex:calias)->importe,"@e 999,999.99"),;
transform((oProex:calias)->valordol,"@e 999,999.99"),(oProex:calias)->remito,;
transform((oProex:cAlias)->fecha_f,"@d"),(oProex:calias)->cobranza,(oProex:calias)->despacho;
id 108 ON DBLCLICK cambio(oLbx,.f.,oProex) of odlg

oLbx:aheaders:= {"Proveedor","F. Factura","Factura","Importe","u$s","Remito","Fecha","Cobranza","Despacho"}
oLbx:aJustify := {HA_LEFT,HA_RIGHT,HA_LEFT,HA_RIGHT,HA_RIGHT,HA_RIGHT,HA_RIGHT,HA_RIGHT,HA_RIGHT}
oLbx:aHJustify :={HA_CENTER,HA_CENTER,HA_CENTER,HA_CENTER,HA_CENTER,HA_CENTER,HA_CENTER,HA_CENTER,HA_CENTER}
oLbx:aColSizes := {170,80,85,80,85,110,92,85,130 }
oLbx:bSkip = { | nRecs | oProex:Skipper( nRecs ) }
oLbx:nLineStyle := 3
oLbx:lAdjlastcol:= .T.
oLbx:nClrBackFocus := CLR_CYAN
oLbx:nClrForeFocus := CLR_WHITE
oLbx:nClrPane := { || iif(!empty(oProex:dolar),rgb(175,221,245),rgb(255,255,255)) }

[ADBLANCO]

prueba definiendo:

oLbx:cAlias:=oProex:calias

[surGom]

No así tampoco. este código es la copia de otro hecho en 16 bits y funciona correctamente, en wbrowse de Hernán dice estar reparado este bug, pero...
fwh2.6, xharbour .99.61, workshop, verce.

Gracias

[ADBLANCO]

A mi se presento ese problema y era que desconocía la tabla, (en mysql)
y logré corregirla con
oLbx2:cAlias := "ARRAY"
Pero no creo que sea tu caso

[Francisco Horta]

surgom,

a mi no me pasa eso, y lo uso asi:
REDEFINE LISTBOX oBTmp ;
FIELDS Rg_Bmp(cBmp),;
(oDTmp)->TMP_DESCRI,;
Rg2_Bmp(cBmp2),;
Tran((oDTmp)->TMP_CANTID,"999,999.999"),;
Tran((oDTmp)->TMP_PREUNI,"9999,999.99"),;
Tran((oDTmp)->TMP_IMPORT,"9999,999.99") ;
HEADERS "","D E S C R I P C I O N","","CANT","PRECIO","IMPORTE" ;
SIZES 16,262,17,64,77,82 ;
ON DBLCLICK ( IF(oBTmp:nAtCol(nCol)==1,BorraPartidas(),) ) ;
WHEN (!DbEmpty(oDTmp) .AND. !lPago) ID 108 OF oDlg

oBTmp:cAlias := oDTmp
oBTmp:SetFont(oFnt[2])
oBTmp:bLogicLen := { || (oDTmp)->(OrdKeyCount()) }
oBTmp:aHJustify := { 2,2,2,2,2,2 }
oBTmp:aJustify := { 2,0,2,1,1,1 }
oBTmp:lAdjLastCol := .F.
oBTmp:lDrawFocusRect:= .T.
oBTmp:nHeaderHeight := 32

[surGom]

Antes que nada, les pido disculpas a todos los que se interesaron en el problema que me surgió. El error radicaba en que mi compilación (en la oficina) había agregado hace un tiempo wbrowse en el script, ya que estaba haciendo unas pruebas... y me olvidé. Como también trabajo en mi casa y en la empresa que usa el software, no me percataba del error ya que en la empresa llevo en un pendrive las fuentes y los compiladores en los cuales no hacía la llamada al wbrowse y sólo utilizaba la librería que contiene enlazados los prg del wbrowse.
Les pido mil disculpas por mi distracción

Luis

[ADBLANCO]

No te preocupes, eso ocurre hasta en las mejores Familias!