FiveTech Support Forums

Sr. Manuel, ao entrar na dialog eu posicionei o browse obrw3 com o browse obrw2 (obrw3:nat:=obrw2:nat), funcionou perfeitamente, porém percebi que a SCROLL BAR VERTICAL estava desposicionada, então arrastei ela, quando me aconteceu o erro abaixo mencionado:



REDEFINE BROWSE oBrw3 ID 4002 OF oDlg FONT fonte_TCS COLOR CLRT,CLRT1

obRW3:setArray(asubgrupos)
obRW3:Refresh()
obRW3:nHeightCell := 60
obRW3:lInitGoTop := .F.
obRW3:lMChange := .F.
obRW3:lDrawHeaders:= .F.
obRW3:lFooting := .F.
obRW3:lNoMoveCols := .T.
obRW3:bchange := {|| carregaprodutos(If( Len(asubgrupos)<1 .or. obRW3:nAt>Len(asubgrupos),0,asubgrupos[obRW3:nat,2]),@a2prodsubs,@ncpg,@ncto,oGroup,ltipo,fwdeabrtc,cDigProdvd,@VoBc,@ToBi,@ToBc,20) }
bColor := {|| If(oBrw3:nLogicPos() % 2 = 0,CLRT1,CLRT2) }
obRW3:SetColor( { 1, 3, 4, 5, 6, 9, 10, 13, 15, 11, 12 }, ;
{ CLR_BLACK,;
CLR_BLACK,;
nRGB(211, 227, 247),;
CLR_WHITE,;
CLR_HBLUE,;
CLR_BLACK,;
nRGB(211, 227, 247),;
CLR_WHITE,;
CLR_BLACK,;
CLR_WHITE,;
CLR_HBBLUE } )

ADD COLUMN TO BROWSE obRW3 DATA ARRAY ELEMENT 1;
SIZE 126 ;
COLORS CLRT, bColor;
3DLOOK TRUE;
ALIGN DT_CENTER


ACTIVATE DIALOG oDlg CENTERED on init(obrw3:nat:=obrw2:nat)


Error:
description: Error DBCMD/2001 Workarea not in use: ORDKEYGOTO

Stack Calls
===========
Called from: => ORDKEYGOTO(0)
Called from: TSBROWSE.PRG => (b)TSBROWSE:RESETBARPOS(8441)
Called from: => EVAL(0)
Called from: TSBROWSE.PRG => TSBROWSE:VSCROLL(10543)
Called from: TSBROWSE.PRG => TSBROWSE:HANDLEEVENT(6126)
Called from: window.prg => _FWH(3252)



Muito obrigado e Parabéns pelo excelente trabalho, quero deixar registrado que mesmo com esses pequenos detalhes a serem resolvidos de todas as classes para BROWSE, TSBROWSE é a melhor.

TSBROWSE e TSBUTTON são as melhores!!!

Obrigado Maestro.


SGS
José Ubiratan dos Santos

Sr. Manuel, o erro acontece em qualquer momento que se clique e arraste a VSCROLL BAR. Indiferente de se posicionar ou não o browse.

No meu sistema(PRG PRINCIPAL) tenho estas declarações que evitavam o mesmo erro na TWBROWSE:

EXTERNAL OrdKeyCount, OrdKeyGoTo, OrdKeyNo, Ordcreate

Será que pode estar influenciando ?

Grato

SGS wrote:o erro acontece em qualquer momento que se clique e arraste a VSCROLL BAR. Indiferente de se posicionar ou não o browse.

Nadie aparte de tí me ha reportado ese error y yo tampoco lo he observado.

SGS wrote:No meu sistema(PRG PRINCIPAL) tenho estas declarações que evitavam o mesmo erro na TWBROWSE:EXTERNAL OrdKeyCount, OrdKeyGoTo, OrdKeyNo, OrdcreateSerá que pode estar influenciando ?

La verdad no sé, yo nunca he usado esas definiciones. Posiblemente hayan sido necesarias con Clipper pero con (x)Harbour definitivamente no lo son.

Saludos.

Manuel Mercado