FiveTech Support Forums

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

Puedes poner el codigo donde se te comporta así

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)) }

prueba definiendo:

oLbx:cAlias:=oProex:calias

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

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

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

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

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