Alain da Silva

Deve ser show de bola, embora que para mim a possibilidade de ir é pequena. Mas mesmo assim valeu. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Resolvido. Eu não tinha incluido no projeto o arquivo WBRWLINE.C. Obrigado Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Boa dica. Agora voltando ao problema, eu deletei o arquivo e criei um novo e entrei com ele vazio. Observe na imagem que ele traz as cores do meu fundo principal misturado com o logotipo do cliente. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Bom dia João. É o seguinte. Eu mudei para TWBROWSE ou pelo menos acho que mudei só que o problema continua. Eu até tirei a barra vertical só que quando entro no browse e movimento as setas do teclado, acontece a mesma coisa da imagem acima. TWBrowse():lHScroll:=.F. TWBrowse():lVScroll:=.F. @000,000 LISTBOX obrw FIELDS strzero(bebida->CODIGO,2),BEBIDA->DESCRICAO,TRANS(BEBIDA->VALOR,"@E 99,999.99"),STR(BEBIDA->ESTOQUE,3) Alias "BEBIDA" ; HEADERS "Código","Descrição","Preço/Venda","Estoque" ; FieldSizes 78,310,85,85 Pixel Size 298,110 ; COLOR PRETO,CINZA OF FOLCAR:ADIALOGS[2] **--[ Colunas do ListBox ]--** OBRW:AACTIONS :={ {||cQualInd("CODIGO")},{||cQualInd("DESCRICAO")},{||cQualInd("VALOR")} } OBRW:NCLRBACKHEAD := GETSYSCOLOR(16) // COR DO FUNDO DO CABEÇALHO OBRW:nClrText :={ || PRETO } OBRW:nClrPane :={ || IIF(BEBIDA->(OrdKeyNo())%2==0,VERDEC,CINZA)} // cor do fundo OBRW:nClrForeFocus :={ || BRANCO } OBRW:nClrBackFocus :={ || XPAZUL } // cor do fundo barra ativa OBRW:nClrNFBack :={ || IIF(BEBIDA->(OrdKeyNo())%2==0,VERDEC,CINZA)} // cor da barra ativa (DISABLE) OBRW:nClrNFFore :={ || PRETO } // cor da letra na barra ativa (DISABLE) OBRW:aHJustify :={2,0,1,2} OBRW:aJustify :={2,0,1,2} OBRW:nLineHeight :=22 OBRW:nLineStyle :=0 OBRW:nHeaderStyle :=0 OBRW:nHeaderHeight :=20 OBRW:bFont :={|nRow,nCol,nStyleLine| pFonteBrowse( FOLCAR:ADIALOGS[2], OBRW, nRow, nCol, nStyleLine,FNORMAL,FNORMAL,FBOLD,IIF(OBRW:lFocused,FBOLD,FNORMAL) ) } OBRW:bBkColor :={|nRow,nCol,nStyleLine| IF( nStyleLine == 1, IF( nCol == 1, BEGE , ), ) } id=code>id=code>Obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Boa tarde pessoal, estou tendo problemas quando eu clico na barra vertical do browse. Alguém poderia dizer o que esta errado. @000,-001 BROWSE OBRW COLOR PRETO,CINZA FONT FNORMAL OF FOLCAR:ADIALOGS[2] PIXEL SIZE 298,110 UPDATE ADD COLUMN TO BROWSE OBRW DATA STRZERO(BEBIDA->CODIGO,2) WIDTH 78 ALIGN CENTER HEADER "Código" ADD COLUMN TO BROWSE OBRW DATA BEBIDA->DESCRICAO WIDTH 310 HEADER "Descrição" ADD COLUMN TO BROWSE OBRW DATA TRANS(BEBIDA->VALOR,"@E 99,999.99")+" " WIDTH 78 HEADER "Valor " ALIGN RIGHT ADD COLUMN TO BROWSE OBRW DATA STR(BEBIDA->ESTOQUE,3) WIDTH 78 HEADER "Estoque" ALIGN CENTER OBRW:AACTIONS :={ {||cQualInd("CODIGO")},{||cQualInd("DESCRICAO")},{||cQualInd("VALOR")} } OBRW:nHeaderStyle := 6 //1 2 3 4 5 6 OBRW:nLineStyle := 0 //1 2 3 4 5 6 OBRW:NCLRBACKHEAD := GETSYSCOLOR(16) // COR DO FUNDO DO CABEÇALHO OBRW:NCLRFOREFOCUS := BRANCO // COR DA LETRA DA BARRA ATIV OBRW:NCLRBACKFOCUS := XPAZUL // COR DO CURSOR EM CIMA DO ÖTEM OBRW:bLDblClick:= { | NKEY | IIF( NKEY = VK_RETURN,MANUTIB("A"),.T.)} OBRW:LNOHSCROLL:=.T. // SCROLL BAR, NÃO USAR .T., POIS ABORTA, SE SE CLICA NA BARRA OBRW:REFRESH() id=code>id=code> Obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 Editado por - boingo on 17/07/2007 14:27:44 Editado por - boingo on 17/07/2007 14:35:45 Editado por - boingo on 17/07/2007 14:44:57 Editado por - boingo on 17/07/2007 15:11:53

Boa tarde pessoal, estou tendo problemas quando eu clico na barra vertical do browse. Alguém poderia dizer o que esta errado. @000,-001 BROWSE OBRW COLOR PRETO,CINZA FONT FNORMAL OF FOLCAR:ADIALOGS[2] PIXEL SIZE 298,110 UPDATE ADD COLUMN TO BROWSE OBRW DATA STRZERO(BEBIDA->CODIGO,2) WIDTH 78 ALIGN CENTER HEADER "Código" ADD COLUMN TO BROWSE OBRW DATA BEBIDA->DESCRICAO WIDTH 310 HEADER "Descrição" ADD COLUMN TO BROWSE OBRW DATA TRANS(BEBIDA->VALOR,"@E 99,999.99")+" " WIDTH 78 HEADER "Valor " ALIGN RIGHT ADD COLUMN TO BROWSE OBRW DATA STR(BEBIDA->ESTOQUE,3) WIDTH 78 HEADER "Estoque" ALIGN CENTER OBRW:AACTIONS :={ {||cQualInd("CODIGO")},{||cQualInd("DESCRICAO")},{||cQualInd("VALOR")} } OBRW:nHeaderStyle := 6 //1 2 3 4 5 6 OBRW:nLineStyle := 0 //1 2 3 4 5 6 OBRW:NCLRBACKHEAD := GETSYSCOLOR(16) // COR DO FUNDO DO CABEÇALHO OBRW:NCLRFOREFOCUS := BRANCO // COR DA LETRA DA BARRA ATIV OBRW:NCLRBACKFOCUS := XPAZUL // COR DO CURSOR EM CIMA DO ÖTEM OBRW:bLDblClick:= { | NKEY | IIF( NKEY = VK_RETURN,MANUTIB("A"),.T.)} OBRW:LNOHSCROLL:=.T. // SCROLL BAR, NÃO USAR .T., POIS ABORTA, SE SE CLICA NA BARRA OBRW:REFRESH() id=code>id=code> Obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 Editado por - boingo on 17/07/2007 14:27:44 Editado por - boingo on 17/07/2007 14:35:45 Editado por - boingo on 17/07/2007 14:44:57 Editado por - boingo on 17/07/2007 15:11:53

Valeu Beto, funcionou. Obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Luiz, eu tentei colocar da forma que você falou, mas o erro continua. Error description Error BASE/1004 Class "NIL" HAS NO EXPORTED METHOD:DISABLE ICONDICAO=OBTNB[2]:DISABLE() @145,160 SBUTTON oBtn[1] PROMPT "&Novo" OF TLCAR; SIZE 40, 20 PIXEL ; resource "incluir"; TOOLTIP "Cadastrar Bebidas" ; COLORS ""; //CLR_BLACK, { CLR_WHITE, CLR_NBROWN, 1 } ; ACTION IIF(FOLCAR:NOPTION=1,MSGINFO("AA"),IIF(FOLCAR:NOPTION=2,MANUTIB("I"),.F.)); TEXT POSITION ON_RIGHT NOBORDER; WHEN(ICONDICAO) id=code>id=code>Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Como vai gente. Eu errei na hora de postar. a função é MANUTIB() Essa é a função inteira. @145,160 SBUTTON oBtn[1] PROMPT "&Novo" OF TLCAR; SIZE 40, 20 PIXEL ; resource "incluir"; TOOLTIP "Cadastrar Bebidas" ; COLORS ""; //CLR_BLACK, { CLR_WHITE, CLR_NBROWN, 1 } ; ACTION IIF(FOLCAR:NOPTION=1,MSGINFO("AA"),IIF(FOLCAR:NOPTION=2,MANUTIB("I"),.F.)); TEXT POSITION ON_RIGHT NOBORDER FUNCTION MANUTIB(OPCAO) LOCAL TLINGRE,TELAINGRE LOCAL NCOD:=0,OBTNB:=ARRAY(3) MEMVAR VARINGRE ************* VARIAVEIS SELE 3 IF OPCAO="I" DBSETORDER(1) GO BOTT VARINGRE:={0,SPACE(40),0,0,0} VARINGRE[1]=CODIGO+1 OBTNB[2]:Disable() ELSE VARINGRE:={CODIGO,DESCRICAO,custo,valor,estant} ENDIF **************************** *----------- DEFINE A TELA ----------------------------* DEFINE DIALOG TLINGRE FROM 1, 1 TO 380, 650 ; TITLE IIF(OPCAO="I","Inclusão","Exibir/Alterar") + " de Bebidas"; STYLE nOr(WS_POPUP, ; WS_VISIBLE, ; WS_CAPTION) PIXEL TLINGRE : LHELPICON := .F. // TIRA A ? DA JANELA TLINGRE:bRClicked = { || MsgInfo( OemToAnsi( "Sem Efeito" ), ; ( OemToAnsi( "Informação" ) ) ) } *----------- SAYs/GETs-------------------------------------* @003,010 SAY "Código" OF TLINGRE pixel COLORS CLR_BLUE,GETSYSCOLOR(15) @003,050 SAY MOSTRA1 VAR STRZERO(VARINGRE[1],2) OF TLINGRE PIXEL PICTURE "99" COLORS CLR_BLACK,GETSYSCOLOR(15) BORDER SIZE 15,12 @018,010 SAY "Descrição" OF TLINGRE pixel COLORS CLR_BLUE,GETSYSCOLOR(15) @018,050 GET MOSTRA2 VAR VARINGRE[2] PICTURE "@!" WHEN (OPCAO="I".OR.OPCAO="A") OF TLINGRE PIXEL @033,010 SAY "Preço/Custo" OF TLINGRE pixel COLORS CLR_BLUE,GETSYSCOLOR(15) @033,050 GET MOSTRA3 VAR VARINGRE[3] PICTURE "99.99" WHEN (OPCAO="I".OR.OPCAO="A") OF TLINGRE PIXEL @048,010 SAY "Preço/Venda" OF TLINGRE pixel COLORS CLR_BLUE,GETSYSCOLOR(15) @048,050 GET MOSTRA3 VAR VARINGRE[4] PICTURE "99.99" WHEN (OPCAO="I".OR.OPCAO="A") OF TLINGRE PIXEL @063,010 SAY "Est.Anterior" OF TLINGRE PIXEL COLORS CLR_BLUE,GETSYSCOLOR(15) @063,050 GET MOSTRA4 VAR VARINGRE[5] PICTURE "999" WHEN (OPCAO="I".OR.OPCAO="A") OF TLINGRE PIXEL *-----------BOTÔES------------------------------------------------------------------------------ @135,010 GRAY BOX SIZE 300, 40 OF TLINGRE PIXEL TEXT "Opções" ; FONT FNORMAL ALIGN DT_CENTER ROUNDED COLORS CLR_BLUE,BRANCO @8.5,12 BUTTON OBTNB[1] PROMPT " &Salvar " ACTION(GRAVAB(OPCAO,TLINGRE)) @8.5,22 BUTTON OBTNB[2] PROMPT " &Excluir" ACTION(IIF(MSGYESNO("Confirma Exclusão","CONFIRMA"),APAGABEBI(TLINGRE),)) @8.5,32 BUTTON OBTNB[3] PROMPT "&Cancelar" ACTION(SAIDLG:=.T.,OBRW:REFRESH(),TLINGRE:END()) OBTNB[3]:LCANCEL:=.T. *----------------------------------------------------------------------------------------------- SAIDLG:=.F. ACTIVATE DIALOG TLINGRE CENTERED VALID SAIDLG RETURN NIL id=code>id=code>Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 Editado por - boingo on 16/07/2007 10:56:06 Editado por - boingo on 16/07/2007 10:58:55

Bom dia pessoal, estou querendo desabilitar um botão e aparece o seguinte erro: Error description Error BASE/1004 Class "NIL" HAS NO EXPORTED METHOD:DISABLE @145,160 SBUTTON oBtn[1] PROMPT "&Novo" OF TLCAR; SIZE 40, 20 PIXEL ; resource "incluir"; TOOLTIP "Cadastrar Bebidas" ; COLORS ""; //CLR_BLACK, { CLR_WHITE, CLR_NBROWN, 1 } ; ACTION IIF(FOLCAR:NOPTION=1,MSGINFO("AA"),IIF(FOLCAR:NOPTION=2,MANUTIB("I"),.F.)); TEXT POSITION ON_RIGHT NOBORDER FUNCTION MANUTB(OPCAO) IF OPCAO="I" OBTNB[2]:Disable() ENDIF @8.5,12 BUTTON OBTNB[1] PROMPT " &Salvar " ACTION(GRAVAB(OPCAO,TLINGRE)) @8.5,22 BUTTON OBTNB[2] PROMPT " &Excluir" ACTION(IIF(MSGYESNO("A Bebida Será Excluída !","CONFIRMA"),APAGABEBI(TLINGRE),)) @8.5,32 BUTTON OBTNB[3] PROMPT "&Cancelar" ACTION(SAIDLG:=.T.,OBRW:REFRESH(),TLINGRE:END()) id=code>id=code>Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 Editado por - boingo on 16/07/2007 08:57:02

Bom dia pessoal, estou querendo desabilitar um botão e aparece o seguinte erro: Error description Error BASE/1004 Class "NIL" HAS NO EXPORTED METHOD:DISABLE @145,160 SBUTTON oBtn[1] PROMPT "&Novo" OF TLCAR; SIZE 40, 20 PIXEL ; resource "incluir"; TOOLTIP "Cadastrar Bebidas" ; COLORS ""; //CLR_BLACK, { CLR_WHITE, CLR_NBROWN, 1 } ; ACTION IIF(FOLCAR:NOPTION=1,MSGINFO("AA"),IIF(FOLCAR:NOPTION=2,MANUTIB("I"),.F.)); TEXT POSITION ON_RIGHT NOBORDER FUNCTION MANUTB(OPCAO) IF OPCAO="I" OBTNB[2]:Disable() ENDIF @8.5,12 BUTTON OBTNB[1] PROMPT " &Salvar " ACTION(GRAVAB(OPCAO,TLINGRE)) @8.5,22 BUTTON OBTNB[2] PROMPT " &Excluir" ACTION(IIF(MSGYESNO("A Bebida Será Excluída !","CONFIRMA"),APAGABEBI(TLINGRE),)) @8.5,32 BUTTON OBTNB[3] PROMPT "&Cancelar" ACTION(SAIDLG:=.T.,OBRW:REFRESH(),TLINGRE:END()) id=code>id=code>Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 Editado por - boingo on 16/07/2007 08:57:02

Obrigado Oscar, resolvido o problema da dialog. Agora como faço para tirar a linha de grade da tcbrowse. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Pessoal, como faço para criar uma dialog sem a parte do título, tipo child no ws. DEFINE DIALOG TLCAR FROM 1, 1 TO 350, 640 ; TITLE "Cardápio Fornalha"; STYLE nOr(WS_POPUP, ; WS_VISIBLE, ; WS_CAPTION) PIXEL TLCAR : LHELPICON := .F. // TIRA A ? DA JANELA TLCAR:bRClicked = { || MsgInfo( OemToAnsi( "Sem Efeito" ), ; ( OemToAnsi( "Informação" ) ) ) } id=code>id=code>Gostaria de saber também como tirar as linhas de grade do tcbrowse. Coloquei os comandos abaixo mudando o número de 1 a 8 OBRW:nLineStyle := 8 // box OBRW:nHeaderStyle := 8 // header Obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Pessoal, como faço para criar uma dialog sem a parte do título, tipo child no ws. DEFINE DIALOG TLCAR FROM 1, 1 TO 350, 640 ; TITLE "Cardápio Fornalha"; STYLE nOr(WS_POPUP, ; WS_VISIBLE, ; WS_CAPTION) PIXEL TLCAR : LHELPICON := .F. // TIRA A ? DA JANELA TLCAR:bRClicked = { || MsgInfo( OemToAnsi( "Sem Efeito" ), ; ( OemToAnsi( "Informação" ) ) ) } id=code>id=code>Gostaria de saber também como tirar as linhas de grade do tcbrowse. Coloquei os comandos abaixo mudando o número de 1 a 8 OBRW:nLineStyle := 8 // box OBRW:nHeaderStyle := 8 // header Obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Bom dia Luiz, recebi seu email. Desculpe mas eu tinha esquecido que aqui a gente usa o antspan. Agora quanto aos arquivos eu uso xharbour e pelo que me parece o arquivo msgtools.obj foi criado em 16 bits, você teria este arquivo em 32 bits. Obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Boa tarde Luiz, você poderia me enviar também estes arquivos. Obrigado. valpanemaserraria@uol.com.br Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Alessandro, desculpe eu não tinha visto que você se ofereceu para verificar o prg. Estou te enviando. Obrigado Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Valeu gente, mas pelo que vi, terei que colocar mais linhas de programação do que com o comando KEYBD_EVENT(9,,,). Mesmo assim obrigado e até mais. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Como vai gente, é o seguinte das duas formas não funciona (xsetfocus(mostra2) ou mostra2:setfocus) após a ação do botão o foco vai para o outro botão. Só funciona colocando na função do botão: KEYBD_EVENT(9,,,) && . Será que não teria que desabilitar o outro botão? obtn confirma .. action(minhafunção(),desabilitabotão(),xsetfocus(mostra2)) Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Boa tarde pessoal. É o seguinte. Eu não consigo fazer com que após passar por um get e acionar um botão para confirmar os dados que o foco volte para o get, ele vai para o botão seguinte. @003,010 SAY "Código" OF TLINGRE pixel COLORS CLR_BLUE,GETSYSCOLOR(15) @003,050 SAY MOSTRA1 VAR STRZERO(VARINGRE[1],2) OF TLINGRE PIXEL PICTURE "99" COLORS CLR_BLACK,GETSYSCOLOR(15) BORDER SIZE 15,12 FONT OFNC2 @018,010 SAY "Ingrediente" OF TLINGRE pixel COLORS CLR_BLUE,GETSYSCOLOR(15) @018,050 GET MOSTRA2 VAR VARINGRE[2] PICTURE "@!" WHEN (OPCAO="I".OR.OPCAO="A") OF TLINGRE PIXEL *-----------BOTÔES------------------------------------------------------------------------------ @060,005 GROUP oGroup TO 090 , 195 PROMPT "" OF TLINGRE PIXEL @03.9,07 BUTTON OBTN[1] PROMPT "&Confirma" ACTION (GRAVAI("I",OPCAO),XSETFOCUS(MOSTRA2)) @03.9,17 BUTTON OBTN[2] PROMPT " Ca&ncela" ACTION(SAIDLG:=.T.,TLINGRE:END()) OBTN[2]:LCANCEL:=.T. id=code>id=code>A única forma que consegui, foi colocar na função o seguinte comando: FUNCTION GRAVAI(ORELHA,OPCAO) ... KEYBD_EVENT(9,,,) && MOSTRA2:SETFOCUS() RETURN(.T.) *********************************************************** DLL32 FUNCTION keybd_event(bVk AS 7,bScan AS 7,dwFlags AS ; 8,dwExtraInfo AS 7) AS 7 PASCAL LIB "User32.dll" *********************************************************** id=code>id=code>É isso mesmo ou existe outra opção para que meu get receba o foco. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 Editado por - boingo on 26/06/2007 16:10:16 Editado por - boingo on 27/06/2007 08:06:00

Boa tarde pessoal. É o seguinte. Eu não consigo fazer com que após passar por um get e acionar um botão para confirmar os dados que o foco volte para o get, ele vai para o botão seguinte. @003,010 SAY "Código" OF TLINGRE pixel COLORS CLR_BLUE,GETSYSCOLOR(15) @003,050 SAY MOSTRA1 VAR STRZERO(VARINGRE[1],2) OF TLINGRE PIXEL PICTURE "99" COLORS CLR_BLACK,GETSYSCOLOR(15) BORDER SIZE 15,12 FONT OFNC2 @018,010 SAY "Ingrediente" OF TLINGRE pixel COLORS CLR_BLUE,GETSYSCOLOR(15) @018,050 GET MOSTRA2 VAR VARINGRE[2] PICTURE "@!" WHEN (OPCAO="I".OR.OPCAO="A") OF TLINGRE PIXEL *-----------BOTÔES------------------------------------------------------------------------------ @060,005 GROUP oGroup TO 090 , 195 PROMPT "" OF TLINGRE PIXEL @03.9,07 BUTTON OBTN[1] PROMPT "&Confirma" ACTION (GRAVAI("I",OPCAO),XSETFOCUS(MOSTRA2)) @03.9,17 BUTTON OBTN[2] PROMPT " Ca&ncela" ACTION(SAIDLG:=.T.,TLINGRE:END()) OBTN[2]:LCANCEL:=.T. id=code>id=code>A única forma que consegui, foi colocar na função o seguinte comando: FUNCTION GRAVAI(ORELHA,OPCAO) ... KEYBD_EVENT(9,,,) && MOSTRA2:SETFOCUS() RETURN(.T.) *********************************************************** DLL32 FUNCTION keybd_event(bVk AS 7,bScan AS 7,dwFlags AS ; 8,dwExtraInfo AS 7) AS 7 PASCAL LIB "User32.dll" *********************************************************** id=code>id=code>É isso mesmo ou existe outra opção para que meu get receba o foco. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 Editado por - boingo on 26/06/2007 16:10:16 Editado por - boingo on 27/06/2007 08:06:00

Blz João, desculpe pela demora da resposta, mas é que estou sem computador no final de semana. Assim que terminar o programa eu mando para você. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Obrigado João, vou analisar com calma o que você passou e ver se consigo aplicar no meu programa. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 Editado por - boingo on 22/06/2007 13:59:21

Obrigado João, vou analisar com calmo que você me passou e ver se consigo aplicar no meu programa. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Tudo Bem Kapiaba. Sim o programa é de pizzaria. É o seguinte, eu não estou tendo problema para localizar e sim para mostrar no browse. Ex: atum calabresa catu atum No meu Get: Digito a letra "c" o cursor do browser vai para a palavra calabresa, continuo digitando a palavra até a letra "t" o cursor vai para a palavra "catu", mas se eu retornar "visualmente" os dados sobem a palavra "atum" some ficando "calabresa","catu" e o cursor fica na palavra "catu". Mas se eu teclo e entro no browser ele muda ficando na palavra "calabresa", isto mostra que a busca esta ok somente os dados mostrados no browser que ficam confusos. Obs: a mesma rotina usando TCBROWSER funcionava perfeitamente. É isso. Obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5