FiveTech Software tech support forums

... HEADERS "M","FECHA","CORRELATIVO","DETALLE","VALOR"; ON DBLCLICK ( Marca(PEND),oBrwPen:DrawSelect() ); FONT oLetra oBrwPen:nMarqueeStyle := MARQSTYLE_HIGHLROW oBrwPen:M:SetCheck( , .t. ) oBrwPen:CreateFromCode() oVenChPen:oClient:=oBrwPen ...

What's the equivalent function to allow the logic below to be applied to an xBrowse? I only know for sure oBrw:DrawSelect() can be rewritten as oBrw:refreshCurrent().      uVar := eval(oBrw:aColumns[2]:bData)     if oBrw:lEditCol( 2, @uVar, "@!",,CLR_BLACK,CLR_WHITE ...

... => (b)ERRORSYS( 23 ) Called from: .\source\classes\WBROWSE.PRG => WBRWLINE( 2529 ) Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:DRAWSELECT( 458 ) Called from: .\source\classes\WBROWSE.PRG => (b)TWBROWSE( 191 ) Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:LOSTFOCUS( ...

... => TWBROWSE:LSELECT( 0 ) Called from: livencli.prg => (b)LIVENCLI( 116 ) Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:DRAWSELECT( 458 ) Called from: .\source\classes\WBROWSE.PRG => (b)TWBROWSE( 191 ) Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:LOSTFOCUS( ...

... intentdo varias formas sin exito alguno, como lo siguiente: oBROWSE:nLen:=OrdKeyCount() oBROWSE:nRowPos:=OrdKeyNo() oBROWSE:GoPos(recno()) oBROWSE:DrawSelect() oBROWSE:UpStable() oBROWSE:Refresh(.t.) y al hacer el refresh() no me posiciona mi sbrowse en el nuevo registro que añadi a mi dbf. Alguna ...

... 0 , .f., ::bTextColor, ::bBkColor, ::nClrLine,; ::oBrush:nRGBColor, ::bFont ) ) #endif if ::nLen < ::nRowPos ::nRowPos = ::nLen endif ::DrawSelect() endif ::DispEnd( aInfo ) If ::oVScroll != Nil .and. ::bLogicPos != Nil if ::lHitTop .or. ( ::nLogicPos!= nil .and. ::nLogicPos <= 1 ...

... MANT_SUCU Stack Calls =========== Called from: Prg\Hexalis.prg => (b)SUCURSALES(75) Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:DRAWSELECT(464) Called from: .\source\classes\WBROWSE.PRG => (b)TWBROWSE:TWBROWSE(197) Called from: => TWBROWSE:LOSTFOCUS(0) Called from: .\source\classes\CONTROL.PRG ...

... edito mis tados e) al aceptar, hago un "append blank" f) reemplazo mis datos, y hago un "commit" g) realizo: oBwr:Reset() oBwr:DrawSelect(nNuevoReg) oBwr:Refresh(.t.) Pero, el asunto es qu no me refresco el browse exactamente en mi nuevo registro o linea, si lo agrega desdeluego, ...

... commit al final oBROWSE:Resfresh() El PROBLEMA: cuando se trata de una modificacion no hay nigun problema ya que simplemente hago un oBROWSE:DrawSelect(), el problema es en un nuevo registro, aunque hago el oBROWSE:Refresh() mi browse se distorciona y no me muesntra las filas del browse como ...

... commit al final oBROWSE:Resfresh() El PROBLEMA: cuando se trata de una modificacion no hay nigun problema ya que simplemente hago un oBROWSE:DrawSelect(), el problema es en un nuevo registro, aunque hago el oBROWSE:Refresh() mi browse se distorciona y no me muesntra las filas del browse como ...

... IF x<>0 ADel(aSel,x) ASize(aSel,Len(aSel)-1) ELSE AAdd(aSel,Round((cRec_Desp)->(Recno() ),0)) ENDIF oLbx:DrawSelect() oLbx:SetFocus() RETURN NIL STAT FUNC SeleccionTodas(oLbx,aSel) *-------------------------------------- LOCAL x:=AScan(aSel,Round((cRec_Desp)->(Recno()),0)) ...

... IF x<>0 ADel(aSel,x) ASize(aSel,Len(aSel)-1) ELSE AAdd(aSel,Round((cRec_Desp)->(Recno() ),0)) ENDIF oLbx:DrawSelect() oLbx:SetFocus() RETURN NIL STAT FUNC SeleccionTodas(oLbx,aSel) *-------------------------------------- LOCAL x:=AScan(aSel,Round((cRec_Desp)->(Recno()),0)) ...

... AAdd(aSel,Round((cRec_Desp)->(Recno() ),0)) (cRec_Desp)->(DbSkip()) ENDDO (cRec_Desp)->(DBGOTOP()) Endif oLbx:Refresh() oLbx:DrawSelect() oLbx:SetFocus() RETURN NIL Espero q te sirva saludos Hola buenos dias, gracias JBRITA, pero funcionara desde un encabezado con el control ...

... AAdd(aSel,Round((cRec_Desp)->(Recno() ),0)) (cRec_Desp)->(DbSkip()) ENDDO (cRec_Desp)->(DBGOTOP()) Endif oLbx:Refresh() oLbx:DrawSelect() oLbx:SetFocus() RETURN NIL Espero q te sirva saludos

... 5.3-20110518 SN0000000001 Error BASE/1132 Bound error: array access Args: (A:{ ... }) (N:-3) 20110608;10:10:14 (b)TRY@16 (b)STARTPCR@1590 TWBROWSE:DRAWSELECT@464 TWBROWSE:LBUTTONDOWN@1216 Alias PLU PC/Register+(tm) 5.3-20110518 SN0000000001 Error BASE/1132 Bound error: array access Args: (A:{ ... ...