Alain da Silva

Gente, testei as duas formas mas o browse continua da mesma maneira. Vejam o código inteiro para ver se ajuda. #INCLUDE "FIVEWIN.CH" #include "folder.ch" #include "TSBROWSE.ch" #include "TSButton.ch" #INCLUDE "CORGET.CH" #define CLR_PINK nRGB( 255, 128, 128) #define CLR_NBLUE nRGB( 128, 128, 192) #define CLR_NBROWN nRGB( 130, 99, 53) #define CLR_1 nRGB( 190, 215, 190 ) #define CLR_2 nRGB( 230, 230, 230 ) #define CLR_3 nRGB( 217, 217, 255 ) #define CLR_LIGHT nRGB( 192, 192, 56 ) #define CLR_SHADOW nRGB( 102, 51, 0 ) FUNCTION CARDAPIO() LOCAL TLCAR,OBTN:=ARRAY(6),CNOM:=SPACE(20) PRIVATE OBRW IF .NOT. ABRE1() MSGALERT("NAO FOI POSSIVEL ABRIR OS ARQUIVOS, TENTE NOVAMENTE...","MENSAGEM",TLCAR:END()) ENDIF *----------- DEFINE A TELA ----------------------------* DEFINE DIALOG TLCAR FROM 1, 1 TO 420, 690 ; 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" ) ) ) } DEFINE BRUSH aBrush RESOURCE "WALL" SELE 1 DBSETORDER(2) DBGOTOP() *----------- SAYs/GETs-------------------------------------* @003,010 VFOLDER FOLCAR OF TLcar pixel size 325,180 PROMPTS "Pizzas","Bebidas","Porções"; COLOR {CLR_BLACK, CLR_BLACK},{ ; {CLR_WHITE, CLR_NBROWN},; {CLR_WHITE, CLR_NBROWN},; {CLR_WHITE, CLR_NBROWN},} @004,010 SAY "Pesquisar" OF folcar:adialogs[1] PIXEL COLORS CLR_BLUE,GETSYSCOLOR(15) @004,060 GET OGNC VAR CNOM PICTURE "@!" OF FOLCAR:ADIALOGS[1] PIXEL //; ON CHANGE ( ::ASSIGN(), DBSETORDER(2),; IF( DBSEEK( ALLTRIM(UPPER(CNOM)), .F.,(DbGoTop(),obrw:refresh(),.F.)),; ( OBRW:UPSTABLE(), OBRW:REFRESH(), .T. ),; ( OBRW:UPSTABLE(), OBRW:REFRESH(), .T. ) ) ) UPDATE * oGNC:bPostKey :={|| Pesquisa(oGNC) } @020,010 BROWSE obrw SIZE 300,160 PIXEL OF FOLCAR:ADIALOGS[1] UPDATE//ON DBLCLICK ATUATRI() // 1,2 cor das células - TEXTO E FUNDO // 3,4 cor do cabeçalho - TEXTO E FUNDO // 5,6 cor da célula com foco - TEXTO E FUNDO // 7,8 cor da célula SENDO EDITADA - TEXTO E FUNDO // 9,10 cor do RODAPÉ - TEXTO E FUNDO // 13,14 cor controlling index column cells // 15 cor grade OBRW:SetColor( { 1, 3, 5, 13 }, { CLR_BLACK, CLR_BLACK, CLR_BLACK, CLR_BLACK } ) OBRW:SetColor( { 2, 4, 6, 12, 14 },; { CLR_WHITE, ; ABRUSH, ; // degraded headers { CLR_WHITE, CLR_NBROWN }, ; // degraded cursor { CLR_BLACK, CLR_NBROWN }, ; // degraded selected cells { CLR_HGREEN, CLR_BLACK } } ) // degraded active index header ADD COLUMN TO BROWSE OBRW SIZE 60 HEADER "Sequência" ; DATA STRZERO(CARDAPIO->codigo,2) ; ALIGN DT_CENTER, DT_CENTER, DT_CENTER ; // Celula, Header, Footer 3DLOOK FALSE, FALSE, TRUE // Celula, Header, Footer ADD COLUMN TO BROWSE OBRW SIZE 250 HEADER "Nome" ; DATA CARDAPIO->descricao ; ALIGN DT_CENTER, DT_CENTER, DT_CENTER ; // Celula, Header, Footer 3DLOOK FALSE, FALSE, TRUE // Celula, Header, Footer ADD COLUMN TO BROWSE OBRW SIZE 100 HEADER "Pequena" + CRLF + "R$"; DATA STR(CARDAPIO->pequena,10,2) ; ALIGN DT_CENTER, DT_CENTER, DT_CENTER ; // Celula, Header, Footer 3DLOOK FALSE, FALSE, TRUE // Celula, Header, Footer ADD COLUMN TO BROWSE OBRW SIZE 100 HEADER "Média" + CRLF + "R$"; DATA STR(CARDAPIO->media,10,2) ; ALIGN DT_CENTER, DT_CENTER, DT_CENTER ; // Celula, Header, Footer 3DLOOK FALSE, FALSE, TRUE // Celula, Header, Footer ADD COLUMN TO BROWSE OBRW SIZE 100 HEADER "Grande" + CRLF + "R$"; DATA STR(CARDAPIO->Grande,10,2) ; ALIGN DT_CENTER, DT_CENTER, DT_CENTER ; // Celula, Header, Footer 3DLOOK FALSE, FALSE, TRUE // Celula, Header, Footer // OBRW:bKeyDown:={|nKey| IF(nKey==VK_RETURN,ATUATRI(),)} OBRW:nLineStyle := LINES_VERT OBRW:lNoHScroll:=.T. OBRW:NFREEZE := 5 // Não permite alterar o tam. da coluna c/ o mouse <-> // OBRW:LNOGRAYBAR:=.T. // Tira a Barra Cinza OBRW:CTOOLTIP := "Duplo Click Aceita Código" oBrw:nHeightCell+=2 oBrw:nHeightHead+=6 oBrw:lMChange:=.F. oBrw:nAdjColumn:=2 (oBrw:GoTop(),OBRW:UPSTABLE(),oBrw:Refresh(),OGNC:SETFOCUS()) *------------------------------ **"NOBOX", "NOBORDER", "BORDER", "W97", "LOOK W97" @187,010 SBUTTON oBtn[1] PROMPT "Inclusão" OF tlcar ; SIZE 50, 20 PIXEL ; resource "incluir"; TOOLTIP "Cadastrar Pizza" ; COLORS ""; //CLR_BLACK, { CLR_WHITE, CLR_NBROWN, 1 } ; ACTION ""; //oDlg:End() TEXT POSITION ON_RIGHT LOOK W97 @187,065 SBUTTON oBtn[2] PROMPT "Exclusão" OF tlcar ; SIZE 50, 20 PIXEL ; resource "Excluir"; TOOLTIP "Excluir Pizza" ; COLORS "";//CLR_BLACK, { CLR_WHITE, CLR_NBROWN, 1 } ; ACTION ""; //oDlg:End() TEXT POSITION ON_RIGHT LOOK W97 @187,120 SBUTTON oBtn[3] PROMPT "Alteração" OF tlcar ; SIZE 50, 20 PIXEL ; resource "Alterar"; TOOLTIP "Alterar Pizza" ; COLORS "";//CLR_BLACK, { CLR_WHITE, CLR_NBROWN, 1 } ; ACTION ""; //oDlg:End() TEXT POSITION ON_RIGHT LOOK W97 @187,175 SBUTTON oBtn[4] PROMPT "Consultar" OF tlcar ; SIZE 50, 20 PIXEL ; resource "consulta"; TOOLTIP "Consultar Pizza" ; COLORS "";//CLR_BLACK, { CLR_WHITE, CLR_NBROWN, 1 } ; ACTION ""; //oDlg:End() TEXT POSITION ON_RIGHT LOOK W97 @187,230 SBUTTON oBtn[5] PROMPT "Imprimir" OF tlcar ; SIZE 50, 20 PIXEL ; resource "impress"; TOOLTIP "Imprimir Cardápio" ; COLORS "";//CLR_BLACK, { CLR_WHITE, CLR_NBROWN, 1 } ; ACTION ""; //oDlg:End() TEXT POSITION ON_RIGHT LOOK W97 @187,285 SBUTTON oBtn[6] PROMPT "Fechar" OF tlcar ; SIZE 50, 20 PIXEL; resource "quit"; TOOLTIP "Fechar/Sair" ; COLORS "";//CLR_BLACK, { CLR_WHITE, CLR_NBROWN, 7 } ; ACTION (SAIDLG:=.T.,TLCAR:END()); TEXT POSITION ON_RIGHT LOOK W97 *------------------------------ SAIDLG:=.F. ACTIVATE DIALOG TLCAR CENTERED VALID SAIDLG RETURN NIL Function Pesquisa( obj ) LOCAL cTEXTO:=obj:oGET:buffer LOCAL cPESQU:="" IF cTEXTO#NIL cPESQU=ALLTRIM(obj:oGET:buffer) ELSE cPESQU=ALLTRIM(obj:oGET:varGet()) ENDIF DBSETORDER(2) IF DBSEEK(cPesqu) OBRW:UPSTABLE() OBRW:REFRESH() ENDIF RETURN id=code>id=code>Obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Como vai Alessandro. No meu comando ja tem o alltrim IF( DBSEEK( ALLTRIM(UPPER(CNOM)), .F. , .F. ),; id=code>id=code>Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Mais um caso. Meu browse aparece da seguinte forma: codigo nome 01 alain 02 jorge 03 carlos Quando eu digito a letra "j" meu cursor aparece na palavra certa, mas se eu volto a letra ele não atualiza meu browse aparecendo: codigo nome 02 jorge O mesmo se aplica quando as palavras são parecidas. por exemplo: carla, carlos. Se eu colocar carlos ele aparece na palavra correta mas se vou retornando ele não volta para a palavra anterior que seria carla. O que fazer. @004,060 GET OGNC VAR CNOM PICTURE "@!" OF FOLCAR:ADIALOGS[1] PIXEL; ON CHANGE ( ::ASSIGN(), DBSETORDER(2),; IF( DBSEEK( ALLTRIM(UPPER(CNOM)), .F.,.F.),; ( OBRW:UPSTABLE(), OBRW:REFRESH(), .T. ),; ( OBRW:UPSTABLE(), OBRW:REFRESH(), .T. ) ) ) UPDATE id=code>id=code>Obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Rapaz que marcada. Obrigado Luiz, tem coisa que a gente passa umas quinhentas vezes e não acha o erro. Ogrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Bom dia pessoal, usando o WS e redefine funcionava normalmente. REDEFINE GET OGNC VAR CNOM ID 101 PICTURE "@!" OF FOLCLI:ADIALOGS[1] ; ON CHANGE ( ::ASSIGN(), DBSETORDER(2),; IF( DBSEEK( ALLTRIM(UPPER(CNOM)), .F. , .F. ),; ( LISTCLI:UPSTABLE(), LISTCLI:REFRESH(), .T. ),; ( LISTCLI:UPSTABLE(), LISTCLI:REFRESH(), .T. ) ) ) UPDATE id=code>id=code>Agora em uma tela programa usando a mesma síntese trocando pelo @Say dá um erro na compilação. @004,010 SAY GET OGNC VAR CNOM PICTURE "@!" OF FOLCAR:ADIALOGS[1] PIXEL; ON CHANGE ( ::ASSIGN(), DBSETORDER(2),; IF( DBSEEK( ALLTRIM(UPPER(CNOM)), .F. , .F. ),; ( OBRW:UPSTABLE(), OBRW:REFRESH(), .T. ),; ( OBRW:UPSTABLE(), OBRW:REFRESH(), .T. ) ) ) UPDATE id=code>id=code>Lembrando que esta pesquisa esta atualizando um browse e estou usando a TSBROWSE 7.1. Agradeço a quem puder ajudar. Obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 Editado por - boingo on 22/06/2007 08:10:18 Editado por - boingo on 22/06/2007 08:11:09

Bom dia pessoal, usando o WS e redefine funcionava normalmente. REDEFINE GET OGNC VAR CNOM ID 101 PICTURE "@!" OF FOLCLI:ADIALOGS[1] ; ON CHANGE ( ::ASSIGN(), DBSETORDER(2),; IF( DBSEEK( ALLTRIM(UPPER(CNOM)), .F. , .F. ),; ( LISTCLI:UPSTABLE(), LISTCLI:REFRESH(), .T. ),; ( LISTCLI:UPSTABLE(), LISTCLI:REFRESH(), .T. ) ) ) UPDATE id=code>id=code>Agora em uma tela programa usando a mesma síntese trocando pelo @Say dá um erro na compilação. @004,010 SAY GET OGNC VAR CNOM PICTURE "@!" OF FOLCAR:ADIALOGS[1] PIXEL; ON CHANGE ( ::ASSIGN(), DBSETORDER(2),; IF( DBSEEK( ALLTRIM(UPPER(CNOM)), .F. , .F. ),; ( OBRW:UPSTABLE(), OBRW:REFRESH(), .T. ),; ( OBRW:UPSTABLE(), OBRW:REFRESH(), .T. ) ) ) UPDATE id=code>id=code>Lembrando que esta pesquisa esta atualizando um browse e estou usando a TSBROWSE 7.1. Agradeço a quem puder ajudar. Obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 Editado por - boingo on 22/06/2007 08:10:18 Editado por - boingo on 22/06/2007 08:11:09

João não capitei a mensagem. Este comando é para colocar dentro do meu browse. LOCAL nRecno //-> Posiciona Cursor no Registro nRecNo:=( CADMOVCP )->( RecNo() ) GoTo( nRecNo ) FORNECOD2:=FORNECOD Não sei se informei direito. Quando chamo meu browser o cursor sempre aparece no primeiro registro, mesmo eu buscando com dbseek e refresh() na tabela. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Pessoal, mais um problema. No meu arquivo de tributação tem apenas 10 registros. Quando eu estou alterando o produto, o código de tributação já existe. Vamos dizer que seja o código nº 5. Quando eu chamo a tabela sua barra esta sempre no primeiro registro. Eu coloquei um dbseek() e refresh() na tabela mas ela sempre fica no primeiro registro. SELE 5 DBSETORDER(1) DBSEEK(VARPROX) @005,010 BROWSE obrw SIZE 100,80 PIXEL OF BUSCATRI FONT OFONT ON DBLCLICK BUSCATRI:END() OBRW:SetColor( { 1, 3, 5, 13 }, { CLR_BLACK, CLR_BLACK, CLR_BLACK, CLR_BLACK } ) OBRW:SetColor( { 2, 4, 6, 12, 14 }, { CLR_WHITE, ; // brushed cells { CLR_WHITE, CLR_NBROWN }, ; // degraded headers { CLR_WHITE, CLR_NBROWN }, ; // degraded cursor { CLR_HRED, CLR_BLACK }, ; // degraded selected cells { CLR_HGREEN, CLR_BLACK } } ) // degraded active index header ADD COLUMN TO BROWSE OBRW SIZE 60 HEADER "Código" ; DATA ARQTRI->CODIGO ; ALIGN DT_CENTER, DT_CENTER, DT_CENTER ; // Celula, Header, Footer 3DLOOK FALSE, FALSE, TRUE // Celula, Header, Footer ADD COLUMN TO BROWSE OBRW SIZE 60 HEADER "Tributação" + CRLF + "%"; DATA STRZERO(ARQTRI->ALIQUOTA,2) ; ALIGN DT_CENTER, DT_CENTER, DT_CENTER ; // Celula, Header, Footer 3DLOOK FALSE, FALSE, TRUE // Celula, Header, Footer ADD COLUMN TO BROWSE OBRW SIZE 60 HEADER "Redução" ; DATA STR(ARQTRI->REDUCAO,5,2) ; ALIGN DT_CENTER, DT_CENTER, DT_CENTER ; // Celula, Header, Footer 3DLOOK FALSE, FALSE, TRUE // Celula, Header, Footer OBRW:bKeyDown:={|nKey| IF(nKey==VK_RETURN,(BUSCATRI:End()),)} // OBRW:nLineStyle := LINES_VERT OBRW:lNoHScroll:=.T. OBRW:NFREEZE := 3 // Não permite alterar o tam. da coluna c/ o mouse <-> OBRW:LNOGRAYBAR:=.T. // Tira a Barra Cinza OBRW:CTOOLTIP := "Duplo Click Aceita Código" OBRW:REFRESH() id=code>id=code>Como faço para que o ponteiro fique no código da busca. obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 Editado por - boingo on 20/06/2007 15:03:07

Obrigado amigos. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Pessoal, em meu browse através do comando on dlbclick buscatri:end() eu fecho meu browse. Como faço para fechar ou outra função também através da tecla enter. @005,010 BROWSE obrw SIZE 100,80 PIXEL OF BUSCATRI FONT OFONT ON DBLCLICK BUSCATRI:END() OBRW:SetColor( { 1, 3, 5, 13 }, { CLR_BLACK, CLR_BLACK, CLR_BLACK, CLR_BLACK } ) OBRW:SetColor( { 2, 4, 6, 12, 14 }, { CLR_WHITE, ; // brushed cells { CLR_WHITE, CLR_NBROWN }, ; // degraded headers { CLR_WHITE, CLR_NBROWN }, ; // degraded cursor { CLR_HRED, CLR_BLACK }, ; // degraded selected cells { CLR_HGREEN, CLR_BLACK } } ) // degraded active index header ADD COLUMN TO BROWSE OBRW SIZE 60 HEADER "Código" ; DATA ARQTRI->CODIGO ; ALIGN DT_CENTER, DT_CENTER, DT_CENTER ; // Celula, Header, Footer 3DLOOK FALSE, FALSE, TRUE // Celula, Header, Footer ADD COLUMN TO BROWSE OBRW SIZE 60 HEADER "Tributação" + CRLF + "%"; DATA STRZERO(ARQTRI->ALIQUOTA,2) ; ALIGN DT_CENTER, DT_CENTER, DT_CENTER ; // Celula, Header, Footer 3DLOOK FALSE, FALSE, TRUE // Celula, Header, Footer ADD COLUMN TO BROWSE OBRW SIZE 60 HEADER "Redução" ; DATA STR(ARQTRI->REDUCAO,5,2) ; ALIGN DT_CENTER, DT_CENTER, DT_CENTER ; // Celula, Header, Footer 3DLOOK FALSE, FALSE, TRUE // Celula, Header, Footer OBRW:nLineStyle := LINES_VERT OBRW:lNoHScroll:=.T. OBRW:NFREEZE := 3 // Não permite alterar o tam. da coluna c/ o mouse <-> OBRW:LNOGRAYBAR:=.T. // Tira a Barra Cinza OBRW:CTOOLTIP := "Duplo Click Aceita Código" id=code>id=code>obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Pessoal, em meu browse através do comando on dlbclick buscatri:end() eu fecho meu browse. Como faço para fechar ou outra função também através da tecla enter. @005,010 BROWSE obrw SIZE 100,80 PIXEL OF BUSCATRI FONT OFONT ON DBLCLICK BUSCATRI:END() OBRW:SetColor( { 1, 3, 5, 13 }, { CLR_BLACK, CLR_BLACK, CLR_BLACK, CLR_BLACK } ) OBRW:SetColor( { 2, 4, 6, 12, 14 }, { CLR_WHITE, ; // brushed cells { CLR_WHITE, CLR_NBROWN }, ; // degraded headers { CLR_WHITE, CLR_NBROWN }, ; // degraded cursor { CLR_HRED, CLR_BLACK }, ; // degraded selected cells { CLR_HGREEN, CLR_BLACK } } ) // degraded active index header ADD COLUMN TO BROWSE OBRW SIZE 60 HEADER "Código" ; DATA ARQTRI->CODIGO ; ALIGN DT_CENTER, DT_CENTER, DT_CENTER ; // Celula, Header, Footer 3DLOOK FALSE, FALSE, TRUE // Celula, Header, Footer ADD COLUMN TO BROWSE OBRW SIZE 60 HEADER "Tributação" + CRLF + "%"; DATA STRZERO(ARQTRI->ALIQUOTA,2) ; ALIGN DT_CENTER, DT_CENTER, DT_CENTER ; // Celula, Header, Footer 3DLOOK FALSE, FALSE, TRUE // Celula, Header, Footer ADD COLUMN TO BROWSE OBRW SIZE 60 HEADER "Redução" ; DATA STR(ARQTRI->REDUCAO,5,2) ; ALIGN DT_CENTER, DT_CENTER, DT_CENTER ; // Celula, Header, Footer 3DLOOK FALSE, FALSE, TRUE // Celula, Header, Footer OBRW:nLineStyle := LINES_VERT OBRW:lNoHScroll:=.T. OBRW:NFREEZE := 3 // Não permite alterar o tam. da coluna c/ o mouse <-> OBRW:LNOGRAYBAR:=.T. // Tira a Barra Cinza OBRW:CTOOLTIP := "Duplo Click Aceita Código" id=code>id=code>obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

obrigado Marcelo. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Valeu, funcionou. Coloquei na minha função do browse MOSTRA7:VARPUT(CODIGO) MOSTRA7:REFRESH() Agora, teria como colocar esta atualização na minha chamada da função? Não sei se é assim que se usa. ACTION { ||LOCTRI(VARPRO[7]),mostra7:varput(arqtri->codigo),mostra7:refres()} id=code>id=code>Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Bom dia Marcelo, é o seguinte. No meu programa de produto eu tenho um campo de tributação. Nesse get tem um botão que chama uma tabela com um browse no arquivo de tributação. ***** programa funções SELE 5 // arquivo de tributação DBSETORDER(1) DBGOTOP() @005,010 BROWSE obrw SIZE 100,80 PIXEL OF BUSCATRI FONT OFONT ON DBLCLICK BUSCATRI:END(); id=code>id=code>O que eu quero é ao sair desta tabela/browse o código da tributação passe para meu get (varpro[7]) Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5

Amigos, gostaria de saber como atualizar minha variável em meu get através de botão que chama um browse com uma tabela de tributação. *------- programa cadastro de produto ----* @093,010 SAY "Tributação" OF TLPRO PIXEL COLORS CLR_BLUE,GETSYSCOLOR(15) @093,050 TBTNGET MOSTRA7 VAR VARPRO[7] WHEN (OPCAO="I".OR.OPCAO="A") OF TLPRO PIXEL SIZE 20,12 resource "BUSCAR" PICTURE "99" ACTION LOCTRI(VARPRO[7]) *--- obs: função loctri() esta no programa funções.prg nela contém o browse. id=code>id=code>Obrigado. Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5 Editado por - boingo on 20/06/2007 08:32:16

Amigos, gostaria de saber como atualizar minha variável em meu get através de botão que chama um browse com uma tabela de tributação. *------- programa cadastro de produto ----* @093,010 SAY "Tributação" OF TLPRO PIXEL COLORS CLR_BLUE,GETSYSCOLOR(15) @093,050 TBTNGET MOSTRA7 VAR VARPRO[7] WHEN (OPCAO="I".OR.OPCAO="A") OF TLPRO PIXEL SIZE 20,12 resource "BUSCAR" PICTURE "99" ACTION LOCTRI(VARPRO[7]) *--- obs: função loctri() esta no programa funções.prg nela contém o browse. id=code>id=code>Obrigado. Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5 Editado por - boingo on 20/06/2007 08:32:16

OK gente, vocês me convenceram. Abraços. Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5

Tudo bem Marcelo. É como eu disse. Minha intenção era passar de 16 p/ 32bits. Estou muito no começo, ainda conhecendo os comandos, os recursos. Após um domínio maior acho que não será difícil mudar para xharbour e quando isso acontecer gostaria de contar com sua ajuda e dos amigos. Mas e aí, você ou alguém teria alguma sugestão sobre algum browser para harbour. Obrigado. Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5

Como vai Alessandro, estou começando no Fivewin e mudei de FWH clipper para FWH harbour. Eu não gostaria de mudar agora para xharbour. Quando eu tiver um domínio maior eu mudo, agora se não tiver como usar a tsbrowse em harbour tentarei achar outro browse. Agradeço a atenção. Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5

Amigos, estou tentando montar minha browse utilizando a tsbrowse, só que não cheguei a um acordo quanto aos arquivos que devo baixar. Baixei a tsbrowse701 mas não consigo fazer rodar o programa. Uso o harbour e não estou usando WS uso @L,C. Agradeço a quem me ajudar, porque já estou perdido com tantos exemplos que baixei e não consigo sair do lugar. Caso alguém tenha os arquivos corretos e possa estar me enviando, meu email é valpanemaserraria@uol.com.br Obrigado. Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5

Amigos, estou tentando montar minha browse utilizando a tsbrowse, só que não cheguei a um acordo quanto aos arquivos que devo baixar. Baixei a tsbrowse701 mas não consigo fazer rodar o programa. Uso o harbour e não estou usando WS uso @L,C. Agradeço a quem me ajudar, porque já estou perdido com tantos exemplos que baixei e não consigo sair do lugar. Caso alguém tenha os arquivos corretos e possa estar me enviando, meu email é valpanemaserraria@uol.com.br Obrigado. Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5

Amigo, baixei a tsbrowse 7.1 em dicas mas da um erro na ora de linkar: Unresolved external _HB__FUN_TOLEAUTO referende tsbrowse.obj Fiz o seguinte: copiei os arquivos tsbrowse.ch,sbrowex.lib coloquei o tsbrowse.prg em meu projeto. meu código ficou assim: @003,010 BROWSE oBrw SIZE 365,175 PIXEL ALIAS "ARQTRI" OF BUSCATRI ADD COLUMN TO oBrw DATA ARQTRI->Codigo TITLE "Código" SIZE 48 Align DT_RIGHT ADD COLUMN TO oBrw DATA STR(ARQTR->ALIQUOTA,2) TITLE "Aliquota" SIZE 248 Align DT_LEFT id=code>id=code>Alessandro, você poderia me ajudar no que estou errando. Obrigado. Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5

Como vai, realmente isso acontece, quando eu coloco apenas uma colona as barras de rolagem somem, porém quando eu coloco mais de uma coluna ararecem as barras horizontal e vertical. O tamanho das colunas não é maior que o browse, já que nesse exemplo minha coluna "código" fica pequena já a coluna "aliquota" acompanha o tamanho do browse. @003,010 BROWSE OBRW OF BUSCATRI SIZE 150,100 PIXEL ADD COLUMN TO BROWSE OBRW DATA ARQTRI->CODIGO ALIGN CENTER HEADER "Codigo" SIZE 40 PIXEL ADD COLUMN TO BROWSE OBRW DATA STR(ARQTRI->ALIQUOTA,2) ALIGN CENTER HEADER "Alíquota" SIZE 40 PIXEL id=code>id=code>Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5

Pessoal, estou usando browse com @l,c e eu não consigo tirar as barras de rolagem na horizontal e vertical. Qual o comando que retira estas barras. Vejam meu código. É um programa de cadastro de produto que chama esta função que é somente uma janela com um browse com os tipos de tributação. *--------------- PROGRAMA FUNCOES.PRG------------* #INCLUDE "TCBROWSE.CH" FUNCTION LOCTRI() *----------- DEFINE A TELA ----------------------------* DEFINE DIALOG BUSCATRI FROM 1, 1 TO 300, 300 ; TITLE "Tabela de Tributação"; STYLE nOr(WS_POPUP, ; WS_VISIBLE, ; WS_CAPTION) PIXEL BUSCATRI: LHELPICON := .F. // TIRA A ? DA JANELA BUSCATRI:bRClicked = { || MsgInfo( OemToAnsi( "Sem Efeito" ), ; ( OemToAnsi( "Informação" ) ) ) } *-------------------------------------* XFAL=ALIAS() SELE 5 DBSETORDER(1) DBGOTOP() @003,010 BROWSE OBRW OF BUSCATRI SIZE 130,100 PIXEL ADD COLUMN TO BROWSE OBRW DATA ARQTRI->CODIGO WIDTH 78 ALIGN CENTER HEADER "Codigo" ADD COLUMN TO BROWSE OBRW DATA STR(ARQTRI->ALIQUOTA,2) WIDTH 78 ALIGN CENTER HEADER "Alíquota" ADD COLUMN TO BROWSE OBRW DATA STR(ARQTRI->REDUCAO,5,2) WIDTH 78 ALIGN CENTER HEADER "Redução" OBRW:NFREEZE := 3 OBRW:CTOOLTIP := "Escolhe a Tributação" OBRW:LNOHSCROLL:=.F. OBRW:bLDblClick= { | | BUSCATRI:END()} OBRW:REFRESH() ACTIVATE DIALOG BUSCATRI CENTER VARPRO7:=CODIGO SELE &XFAL RETURN(VARPRO7) id=code>id=code>Obrigado. Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5

Pessoal, estou usando browse com @l,c e eu não consigo tirar as barras de rolagem na horizontal e vertical. Qual o comando que retira estas barras. Vejam meu código. É um programa de cadastro de produto que chama esta função que é somente uma janela com um browse com os tipos de tributação. *--------------- PROGRAMA FUNCOES.PRG------------* #INCLUDE "TCBROWSE.CH" FUNCTION LOCTRI() *----------- DEFINE A TELA ----------------------------* DEFINE DIALOG BUSCATRI FROM 1, 1 TO 300, 300 ; TITLE "Tabela de Tributação"; STYLE nOr(WS_POPUP, ; WS_VISIBLE, ; WS_CAPTION) PIXEL BUSCATRI: LHELPICON := .F. // TIRA A ? DA JANELA BUSCATRI:bRClicked = { || MsgInfo( OemToAnsi( "Sem Efeito" ), ; ( OemToAnsi( "Informação" ) ) ) } *-------------------------------------* XFAL=ALIAS() SELE 5 DBSETORDER(1) DBGOTOP() @003,010 BROWSE OBRW OF BUSCATRI SIZE 130,100 PIXEL ADD COLUMN TO BROWSE OBRW DATA ARQTRI->CODIGO WIDTH 78 ALIGN CENTER HEADER "Codigo" ADD COLUMN TO BROWSE OBRW DATA STR(ARQTRI->ALIQUOTA,2) WIDTH 78 ALIGN CENTER HEADER "Alíquota" ADD COLUMN TO BROWSE OBRW DATA STR(ARQTRI->REDUCAO,5,2) WIDTH 78 ALIGN CENTER HEADER "Redução" OBRW:NFREEZE := 3 OBRW:CTOOLTIP := "Escolhe a Tributação" OBRW:LNOHSCROLL:=.F. OBRW:bLDblClick= { | | BUSCATRI:END()} OBRW:REFRESH() ACTIVATE DIALOG BUSCATRI CENTER VARPRO7:=CODIGO SELE &XFAL RETURN(VARPRO7) id=code>id=code>Obrigado. Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5