Cezar

Bom dia, Para selecionar um item no controle COMBOX, voce pode abrir com o mouse e clicar no item desejado ou nas setas prá cima/baixo; até aqui tudo bem! O problema é que para sair do combobox para outro controle, só com dando TAB ou ENTER, porque a seta prá-esquerda/direita também muda o item que está selecionado na caixa. Como inibir que as setas prá-esquerda/direita possa passar para o próximo controle sem modificar o item já selecionado, por experiência, sei que isso dificulta a navegação, principalmente se esta COMBOBOX estiver próximo a Buttons ??? Grato. Editado por - Cezar on 26/08/2003 12:01:37

Bom dia, Desculpe-me, está em duplicata!! Veja o próximo tópico. Grato. Editado por - Cezar on 26/08/2003 12:07:10 Editado por - Cezar on 26/08/2003 12:09:21

Ola, Tambem gostaria nuito de participar!! Cezar.

Ola, Voce diz que só será apresentado em arquivo muito grandes: Quanto ??? ( + 100.000 regs ) Grato.

Boa noite Gilmer, Eu testei o exemplo "MMTADS.zip" que voce postou em dicas mas acho que não está funcionando ou não entendi o uso!! Testei usando um arquivo com +80.000 regs. e foi tão rápido que nem dá prá ver a barra. Nele tem 2 funçoes que não encontrei no manual do ADS. Tenho dúvida de como usar?? Quem calcula a variável nPercent ??? Grato. // Exemplo de como fazer um meter na indexacao com ADS #include "FiveWin.ch" #include "ads.ch" REQUEST _ADS //-------------------------------------------------------// function Main() SET 3DLOOK ON rddRegister( "ADS", 1 ) rddsetdefault( "ADS" ) SET SERVER LOCAL SET FILETYPE TO CDX USE Customer MsgMeter( { | oMeter, oText, oDlg, lEnd | ; BuildIndex( oMeter, oText, oDlg, @lEnd ) },; "Building the Index..." ) USE return nil //-------------------------------------------------------// function BuildIndex( oMeter, oText, oDlg, lEnd ) FIELD First oMeter:nTotal = 100 AdsRegCallBack( {|nPercent| oMeter:Set(nPercent),SysRefresh(),.t.} ) INDEX ON First Tag 1 TO CustLast AdsClrCallBack() return nil //-----------------------------------------------------// Function Teste(nPercent) Logfile("txt.log",{nPercent}) Return .t. Editado por - Cezar on 18/08/2003 18:34:44

Boa tarde Alexandre, Vagner. Se o RDDADS não está funcionando, o que voces me sugerem: Mudar de Harbour para xHarbour ?? Mudar de DBF para MySql ou SQL ?? Agradeço a orientação. Um abraço. ********************************************************* citação:Olá Cezar e Vagner Cezar, se está usando o RDDADS não funciona mesmo. []´s Alexandre id=quote>id=quote>

Ola Vagner, Fiz como disse, mas não funcionou !! Tentei isso: INDEX ON Field->NomFor TAG Ind2 TO (cFile) EVAL( Msginfo("Entrei??") ) EVERY 1 A mensagem não apareceu !! Será que no FWH 2.4 é diferente? Grato.

Ola, Utilizo o FWH 2.4 + ADS No exemplo abaixo, a indexação do arquivo CADFOR é realizada, mas a barra de progresso NÃO é mostrada !! Porque o bloco EVAL {|| oMeter:Set( nRec++ ), SysRefresh() } não é executado !!! Agora, porque o Bloco não é executado ??? Agradeço a ajuda!!! EXEMPLO: Function Indexa( oMeter ) nRec := 0 cFile := cDados + "CADFOR" cAlias := OpenNet( cFile, "CADFOR", "E", "W" ) nTot := Lastrec() * 4 Msginfo( "Total:" + Str(nTot) ) //oMeter:nTotal := nTot oMeter:SetTotal( nTot ) // 84000 regs!! INDEX ON STR(Field->CodFor,6) TAG Ind1 TO (cFile) EVAL {|| oMeter:Set(nRec++), SysRefresh() } EVERY 1 INDEX ON Field->NomFor TAG Ind2 TO (cFile) EVAL {|| oMeter:Set(nRec++), SysRefresh() } EVERY 1 INDEX ON Field->NomFan TAG Ind3 TO (cFile) EVAL {|| oMeter:Set(nRec++), SysRefresh() } EVERY 1 INDEX ON Field->CgcCpf TAG Ind4 TO (cFile) EVAL {|| oMeter:Set(nRec++), SysRefresh() } EVERY 1 Msginfo( "Registros indexados:"+Str(nRec,6) ) // Retorna nRec = (0)zero

Bom dia Karinh, Como principiante em FIVEWIN o que estou querendo saber que lógica ou função posso usar no lugar do INKEY(), pois esta função trava minha maquina no FWH 2.4. ??? O objetivo é construir uma rotina de pesquisa incremental, de forma que possa pesquisar palavras com Til, cedilha, etc.. Na rotina abaixo, quando pressiono qualquer tecla no ListBox, o "nKey" será avaliado na funcão Pesq(..). Se a tecla pressionada for o Til ( ~ ), a rotina espera que digitação de uma segunda tecla para saber que letra vai concatenar na string de pesquisa ( ã, Ã, etc.. ) Essa mesma lógica eu uso no clipper ( DOS ). No ListBox eu tenho a linha de comando abaixo: oBrw:bKeyDown := {|nKey| Pesq( nKey, oDlg, oBrw, oDbf } } Na função abaixo eu preciso pegar o valor de uma segunda tecla. Function Pesq( nKey, oDlg, oBrw, oDbf ) } Local nTecla if nKey = Til nTecla := Inkey(0) // Este inkey trava a maq.!! cPsq := cPsq + ã elseif nKey = Cedilha nTecla := Inkey(0) cPsq := cPsq + ç else cPsq := cPsq + nKey endif oDbf:seek( cPsq ) Se precisar de nais informações?? Grato.

Boa noite, A idéia é a seguinte: No ListBox eu tenho a linha de comando abaixo: oBrw:bKeyDown := {|nKey| Pesq( nKey, oDlg, oBrw, oDbf } } Na função abaixo eu preciso pegar o valor de uma segunda tecla. Function Pesq( nKey, oDlg, oBrw, oDbf ) } Local nTecla nTecla := Inkey(0) // Este inkey trava a maq.!! Qual função substiuiria o inkey no FWH 2.4 ?? Grato.

Bom dia, Seria ótimo para todos se puderem disponibilizar no site. Grato.

Ola, Uma sugestão! Use o RIGHT no DEFINE GET, mas tem que criar uma picture "9999-9".

Ola pessoal, No FWH + ADS, quando faço um Seek no arquivo com indice que foi montado concatenando 2 campos, sempre retorna que não foi encontrado! Ex: campo1 = "NF" campo2 = "01","02,"03",.. Index on Campo1+Campo2 tag I1 to arq NF01,NF02,NF03,.... ( Está é a chave ) Já tentei... oDbf:Seek( campo1+campo2, .f. ), ou oDbf:Seek( campo1+campo2, .t. ) Fiz um teste indexando somente o campo2 e o seek passa a funcionar !!! Será que em ADS (.cdx) não funciona com indices com campos concatenados??? Grato.

Bom dia Elias, Recebi seu email com a BTNGET, grato !!!

Bom dia Elias e Sergio, Tirando só uma dúvida: O { @ i,c BMPGET nome... } é nativa do F.W.H. ?? As classes VGet e BtnGet são compativeis com F.W.H. ?? O VGet do Vagner eu posso baixar aqui no forum e o BtnGet onde posso baixar a versão mais recente?? Mais uma vez, grato.

Boa noite, Poderiam me orientar como faço para colocar dentro de um get um Botão para executar uma função de pesquiza?? Exemplo: +-------------------------------------+-----+ | digitar o nome da pessoa |Icon | +-------------------------------------+-----+ Neste Icon executa um ListBox para pesquizar o nome da pessoa. Escolhido o nome, ele será colocado automaticamente no Get. Se precisar usar uma classe de terceiros qual a mais indicada para FWH. Grato.

Boa noite Alexandre, Como te disse anteriormente, estou terminado a conversão do meu primeiro sistema para FWH, e seguirei o seu conselho. Foi muito proveitoso este nosso papo, clareou o caminho. Estamos sempre aqui. Um abraço.

Este forum é reflexo da importância do bom convivio entre pessoas que não se conhecem. Um abraço aos amigos e parceiros.

Ola Alexandre, É, então tem ?? Também estou usando ADS LOCAL e como sou novo em FWH ( pouco mais de 2 meses ), toda vez que leio um comentário desses, balanço. Se o ADS LOCAL se mostrar problemático, qual será nossa opçao, MYSQL ?? Um abraço. Cezar.

Ola Karinh, Qual é o forum internacional que o Ednaldo participa?? Grato. .......................

Ola Alexandre, Se entendi o primeiro parágrafo voce disse que Harbour e xHarbour tem problemas com ADS ??? Um abraço.

Para não !!!!! Justo agora que tô começando!!!!!! Grato.

Bom dia, Atualização, que bom!! Grato e um abraço. ////////////////////////////////// citação:Olá, Eu fiz um teste e funcionou normalmente, mas vamos fazer o seguinte, nesta próxima semana estarei recebendo uma atualização, e mandarei ela para você id=quote>id=quote>

Bom dia Gilmer, Coloquei para teste, dentro da função Valida( ... ), uma Msginfo( "Passou!" ), e não passou! Experimentei usar uTemp e uVar que esta dentro classe que seriam as variáveis de trabalho dela, sem sucesso. ********************* Bom dia João, O objetivo é alterar na propria linha do ListBox os valores de "S" para "N" ou vice-versa: ------------------------------------- Opção Incluir Alterar Excluir ------------------------------------- Cadastro........S.......S........S... Faturamento.....S.......S........S... Grato. Editado por - Cezar on 16/07/2003 12:16:09

Ola pessoal, Eu uso FWH 2.4. No exemplo abaixo o bValid não está sendo avaliado dentro da classe TwBrowse!! Aonde erro??? Grato. Exemplo: FUNCTION Edita( oLbx ) local n, u, bValid // Este Valid não funciona!!! bValid := {|uTemp| Valida(uTemp) } n := 2 // Coluna oLbx u := ( oLbx:cAlias )->( FieldGet( 3 ) ) oLbx:lEditCol( n, @u, "!", bValid ) oLbx:DrawSelect() SysRefresh() If ( oLbx:cAlias )->( RLock() ) ( oLbx:cAlias )->( FieldPut( 3, u ) ) UNLOCK else MsgAlert( "Arquivo não disponível!" ) endif RETURN nil FUNCTION Valida( uTemp ) IF !uTemp$"SN" RETURN .F. ENDIF RETURN .T.