Anthony Ormond

Eu não gostaria de me pronunciar, mas devido aos fatos que aconteceram no jogo de ontem.... É muito triste ser eliminado na semi-final e ainda pior ser eliminado para um time da segunda divisão. Eu não consigo acessar esses links que você postou mas se voce quiser me informar o que está escrito nesses links, eu agradeço citação:Anderson, pelo amor de DEUS, socorre o menino, a coisa ficou mais feia ainda... JESUS, ACENDE A LUZ. http://g1.globo.com/Noticias/Rio/0,,MUL582735-5606,00-MPF+DENUNCIA+ALVARO+LINS+GAROTINHO+E+MAIS+PESSOAS.html É muita tristeza para uma pessoa só... kkkkkkkkkkkkkkkkkk. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>

Se depender do Lacosta e do gordinho Herrera, vocês estarão perdidos.... citação: citação:Quero ver a semi-final quarta-feira... Corinthians já perdeu mais um titular(Perdigão), isto é, já são 5 titulares fora do jogo de quarta-feira. Daqui a pouco vão jogar com o time reserva. Viva Fogão...... id=quote>id=quote>RELAXA FRIEND, PRECISAMOS SOMENTE DE UM GOOOLLZIIINHOOOO. DIRETORIA DO CORINTHIANS, Jà ENTROU EM CONTACTO COM VOLKSWAGEN. A VOLKS, FICOU DE MANDAR UM GOL ´BOLA´. KKKKKKKKKKKKKKKKKKKKKKKKKKKKKK. VIVA O SÃO PAULO!!! VIVA O FLUMINENSE!! NEEEENNSEEEEEE!! HEHE. Abraços, corinthianos. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>

Quero ver a semi-final quarta-feira... Corinthians já perdeu mais um titular(Perdigão), isto é, já são 5 titulares fora do jogo de quarta-feira. Daqui a pouco vão jogar com o time reserva. Viva Fogão......

Quero ver o próximo jogo, o Corinthians sem 4 titulares. citação: citação:Saudações Botafoguenses ao mestre Kapiaba... rs rs rsrs rs rs rs rs. id=quote>id=quote>kkkkkkkkkkkkk. A casa caiu, friend. Mas, quem ti por último, ri melhor... Ou chora melhor.... hehehehehehehe. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>

Saudações Botafoguenses ao mestre Kapiaba... rs rs rsrs rs rs rs rs.

é uma linha só, eles são responsáveis para exibição e naveção corretamente no listbox. Editado por - aormond on 30/04/2008 09:38:10

Veja agora colocado a linha: Redefine LISTBOX oBrw1 fields aCodE[oBrw1], ; aCodE[oBrw1] ; update ; Id 119 ; Sizes 220,70 ; headers "Fornecedor","Cod. Externo" ; of oCadPro:oDialog (426)oBrw1:nAt:=1 (427)oBrw1:bGoTop:={||oBrw1:nAt := 1 } (428)oBrw1:bGoBottom:={||oBrw1:nAt:=Eval(oBrw1:bLogicLen ) } (429)oBrw1:bSkip := { | nWant, nOld | nOld := oBrw1:nAt,; (430)oBrw1:nAt += nWant, ; (431)oBrw1:nAt := Max( 1, Min( oBrw1:nAt , ; (432)Eval( oBrw1:bLogicLen ) ) ), ; (433)oBrw1:nAt - nOld } (434)oBrw1:bLogicLen = { || Len( aCodE ) } Editado por - aormond on 30/04/2008 09:31:02 Editado por - aormond on 30/04/2008 09:39:24 Editado por - aormond on 30/04/2008 09:40:06

Segue a figura: Obs: O listbox com a matriz é o que contem Fornecedor e Cod.Externo.

Pelos testes que eu fiz, a função pesquisa está correta, quando saiu da pesquisa o foco vai para o listbox da matriz, isto é, o erro só ocorre quando retorno para o listbox da matriz. A pesquisa esta funcionando normalmente. Tirando a matriz do listbox e utilizando um listbox comum, funciona perfeitamente para efeito de teste. Desde já, obrigado. Editado por - aormond on 29/04/2008 20:41:17 Editado por - aormond on 30/04/2008 09:02:25

Boa a tarde a todos!!! Tenho uma tela de cadastro que contem um listbox com uma matriz. Quando abro uma tela de pesquisa por cima e mudo o foco para um outro programa eh gerado o erro a seguir: =========== Path and name: G:\prog\FiveWin\RCA Trade\RCATRADE.EXE (32 bits) Size: 5,601,792 bytes Time from start: 0 hours 0 mins 44 secs Error occurred at: 29/04/2008, 16:00:17 Descricao do erro: Error BASE/1081 Erro nos parƒmetros: + Args: [ 1] = U [ 2] = N 0 Stack Calls =========== Called from: CADPRO.prg => (b)REDEFINIR(433) Called from: wbrowse.prg => TWBROWSE:SKIP(1583) Called from: wbrowse.prg => TWBROWSE:PAINT(703) Called from: wbrowse.prg => TWBROWSE:DISPLAY(2038) Called from: CONTROL.PRG => TWBROWSE:HANDLEEVENT(0) Called from: WINDOW.PRG => _FWH(0) Called from: => DIALOGBOX(0) Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0) Called from: DlgCadastro.prg => PESQUISAR(1503) Called from: DlgCadastro.prg => TDLGCADASTRO:FIND(1321) Called from: DlgCadastro.prg => (b)TDLGCADASTRO:CUSTOMTOOLBAR(349) Called from: BTNBMP.PRG => TBTNBMP:CLICK(0) Called from: BTNBMP.PRG => TBTNBMP:LBUTTONUP(0) Called from: => TWINDOW:HANDLEEVENT(0) Called from: CONTROL.PRG => TCONTROL:HANDLEEVENT(0) Called from: BTNBMP.PRG => TBTNBMP:HANDLEEVENT(0) Called from: WINDOW.PRG => _FWH(0) Called from: => DIALOGBOX(0) Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0) Called from: DlgCadastro.prg => TDLGCADASTRO:SHOW(156) Called from: CADPRO.prg => CADPRO(162) Called from: RCAVENDA.PRG => (b)CREATETOOLBAR(991) Called from: BTNBMP.PRG => TBTNBMP:CLICK(0) Called from: BTNBMP.PRG => TBTNBMP:LBUTTONUP(0) Called from: => TWINDOW:HANDLEEVENT(0) Called from: CONTROL.PRG => TCONTROL:HANDLEEVENT(0) Called from: BTNBMP.PRG => TBTNBMP:HANDLEEVENT(0) Called from: WINDOW.PRG => _FWH(0) Called from: => WINRUN(0) Called from: WINDOW.PRG => TWINDOW:ACTIVATE(0) Veja como faço: Redefine LISTBOX oBrw1 fields aCodE[oBrw1], ; aCodE[oBrw1] ; update ; Id 119 ; Sizes 220,70 ; headers "Fornecedor","Cod. Externo" ; of oCadPro:oDialog oBrw1:nAt := 1 oBrw1:bGoTop := {||oBrw1:nAt := 1 } oBrw1:bGoBottom:= {||oBrw1:nAt := Eval( oBrw1:bLogicLen ) } oBrw1:bSkip := { | nWant, nOld | nOld := oBrw1:nAt, oBrw1:nAt += nWant,; oBrw1:nAt := Max( 1, Min( oBrw1:nAt ,; Eval( oBrw1:bLogicLen ) ) ),; oBrw1:nAt - nOld } oBrw1:bLogicLen = { || Len( aCodE ) } id=code>id=code>Help Please!!!!

Boa a tarde a todos!!! Tenho uma tela de cadastro que contem um listbox com uma matriz. Quando abro uma tela de pesquisa por cima e mudo o foco para um outro programa eh gerado o erro a seguir: =========== Path and name: G:\prog\FiveWin\RCA Trade\RCATRADE.EXE (32 bits) Size: 5,601,792 bytes Time from start: 0 hours 0 mins 44 secs Error occurred at: 29/04/2008, 16:00:17 Descricao do erro: Error BASE/1081 Erro nos parƒmetros: + Args: [ 1] = U [ 2] = N 0 Stack Calls =========== Called from: CADPRO.prg => (b)REDEFINIR(433) Called from: wbrowse.prg => TWBROWSE:SKIP(1583) Called from: wbrowse.prg => TWBROWSE:PAINT(703) Called from: wbrowse.prg => TWBROWSE:DISPLAY(2038) Called from: CONTROL.PRG => TWBROWSE:HANDLEEVENT(0) Called from: WINDOW.PRG => _FWH(0) Called from: => DIALOGBOX(0) Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0) Called from: DlgCadastro.prg => PESQUISAR(1503) Called from: DlgCadastro.prg => TDLGCADASTRO:FIND(1321) Called from: DlgCadastro.prg => (b)TDLGCADASTRO:CUSTOMTOOLBAR(349) Called from: BTNBMP.PRG => TBTNBMP:CLICK(0) Called from: BTNBMP.PRG => TBTNBMP:LBUTTONUP(0) Called from: => TWINDOW:HANDLEEVENT(0) Called from: CONTROL.PRG => TCONTROL:HANDLEEVENT(0) Called from: BTNBMP.PRG => TBTNBMP:HANDLEEVENT(0) Called from: WINDOW.PRG => _FWH(0) Called from: => DIALOGBOX(0) Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0) Called from: DlgCadastro.prg => TDLGCADASTRO:SHOW(156) Called from: CADPRO.prg => CADPRO(162) Called from: RCAVENDA.PRG => (b)CREATETOOLBAR(991) Called from: BTNBMP.PRG => TBTNBMP:CLICK(0) Called from: BTNBMP.PRG => TBTNBMP:LBUTTONUP(0) Called from: => TWINDOW:HANDLEEVENT(0) Called from: CONTROL.PRG => TCONTROL:HANDLEEVENT(0) Called from: BTNBMP.PRG => TBTNBMP:HANDLEEVENT(0) Called from: WINDOW.PRG => _FWH(0) Called from: => WINRUN(0) Called from: WINDOW.PRG => TWINDOW:ACTIVATE(0) Veja como faço: Redefine LISTBOX oBrw1 fields aCodE[oBrw1], ; aCodE[oBrw1] ; update ; Id 119 ; Sizes 220,70 ; headers "Fornecedor","Cod. Externo" ; of oCadPro:oDialog oBrw1:nAt := 1 oBrw1:bGoTop := {||oBrw1:nAt := 1 } oBrw1:bGoBottom:= {||oBrw1:nAt := Eval( oBrw1:bLogicLen ) } oBrw1:bSkip := { | nWant, nOld | nOld := oBrw1:nAt, oBrw1:nAt += nWant,; oBrw1:nAt := Max( 1, Min( oBrw1:nAt ,; Eval( oBrw1:bLogicLen ) ) ),; oBrw1:nAt - nOld } oBrw1:bLogicLen = { || Len( aCodE ) } id=code>id=code>Help Please!!!!

Também voltei atrás, pois com grande frequencia acontecia um erro e abortava. Voltei para versão 4.50.113.

Rs rs rs rs rs rs citação: citação: citação: citação:Uma das Linguagens de Programação Mais Simples do Mundo: FIVEWIN. Sucessor do CLIPPER. he! he! he!.. Luiz Arruda - Corumbá/MS FWH 2.4 - WS - xHB 09950 - xDev ico.corumba@gmail.com id=quote>id=quote>Simples e LINDA!!! kkkkkkk. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>Posso estragar a lua de mel e dizer q ela eh bugada?! id=quote>id=quote>BUGADO É TEU CÉREBRO!id=size5> KKKKKKKKKKKKKKKK. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>

Uma dica para o mestre Vailton colocar no xDev: um botão e poder configurar para executar o aplicativo criado pelo projeto. Hoje eu tenho que compilar para executar o programa. Obrigado.

Olá Lailton, tanto no PellesC ou no Workshop tem que ser definido o Drop down list. No Workshop, no combobox, é só clicar com o botão direito é ir na opção style - type. No Properties do combobox, selecione o Style como DropDown list. Anthony Ormond FWH(7.12)- xHabour 1.1.0 (simplex) - Pelles C 4.50 - xDev Studio v0.65

citação: citação:voce consegue fazer isto com um timer!! id=quote>id=quote>COMO ANDERSON??? COMO É QUE VOCE FARIA PARA PISCAR OS ITENS DE UMA LISTBOX, COM UM TIMER()??? MOSTRE-NOS. Obrigado. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>Anthony Ormond FWH(7.12)- xHabour 1.1.0 (simplex) - Pelles C 4.50 - xDev Studio v0.65

Neste caso eu não preciso redefinir meu ID do say, pois eu não altero o conteudo do say. Eu defino o conteudo no Pelles. Da forma que você me passou estava ficando com uma porda branca. Conseguiu entender???? Anthony Ormond FWH(7.12)- xHabour 1.1.0 (simplex) - Pelles C 4.50 - xDev Studio v0.65

Kapiaba meu querido, colocando a cor ou não colocando, ocorre a mesma coisa, isto é continuava aparecendo a borda, para mim o importante é não aparecer o fundo branco e não aparecer a borda. Desde já, muito obrigado. citação: citação:No Pelles a borda está como não. Coloquei de diversas formas e continuou com uma borda. For IDCor = 4002 To 4002 REDEFINE SENSITIVE SAY ID IDCor ; OF oPagsFolder:aDialogs [ 1 ] ; UPDATE RAISED LEFT ; TRANSPARENT Next IDCor Anthony Ormond FWH(7.12)- xHabour 1.1.0 (simplex) - Pelles C 4.50 - xDev Studio v0.65 id=quote>id=quote>O MEU PAI ETERNO!! CADE A CORid=size5> VEJA MEU EXEMPLO: COLORS CLR_BLACK, CLR_VERDE_BURRO... ETC. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>Anthony Ormond FWH(7.12)- xHabour 1.1.0 (simplex) - Pelles C 4.50 - xDev Studio v0.65

Kleber, como eu não utilizo este ID, ficou Show. Muito Obrigado. Anthony Ormond FWH(7.12)- xHabour 1.1.0 (simplex) - Pelles C 4.50 - xDev Studio v0.65 Editado por - aormond on 04/04/2008 14:55:57 Editado por - aormond on 04/04/2008 15:06:17

No Pelles a borda está como não. Coloquei de diversas formas e continuou com uma borda. For IDCor = 4002 To 4002 REDEFINE SENSITIVE SAY ID IDCor ; OF oPagsFolder:aDialogs [ 1 ] ; UPDATE RAISED LEFT ; TRANSPARENT Next IDCor Anthony Ormond FWH(7.12)- xHabour 1.1.0 (simplex) - Pelles C 4.50 - xDev Studio v0.65

kapiaba, fiz o teste mas ficou uma borda em branco em volta do say. É isso mesmo?? Anthony Ormond FWH(7.12)- xHabour 1.1.0 (simplex) - Pelles C 4.50 - xDev Studio v0.65

Bom dia!!! Eu utilizo o manifest do xp e algum computadores estão ficando o say com o fundo branco dentro do folder. Eu sei que o padrão do folder é fundo brando. Como faço para acertar esse fundo branco que está ficando no Say nos folders??? Desde já, obrigado. Anthony Ormond FWH(7.12)- xHabour 1.1.0 (simplex) - Pelles C 4.50 - xDev Studio v0.65 Editado por - aormond on 04/04/2008 14:58:05

Bom dia!!! Eu utilizo o manifest do xp e algum computadores estão ficando o say com o fundo branco dentro do folder. Eu sei que o padrão do folder é fundo brando. Como faço para acertar esse fundo branco que está ficando no Say nos folders??? Desde já, obrigado. Anthony Ormond FWH(7.12)- xHabour 1.1.0 (simplex) - Pelles C 4.50 - xDev Studio v0.65 Editado por - aormond on 04/04/2008 14:58:05

Olá Paulo, Muito obrigado pela ajuda. Vamos lá... Como disse anteriormente já utilizei de todas as formas segue os procedimentos que já fiz. - O problema só acontece com o servidor, mesmo estando todos os terminais desligados e reiniciado o servidor. - Já utilizei o ferase, erase e até com o API(deletefile) do windows para deletar o índice. Exemplo um pouco mais acima deste tópico. - antes de deletar o índice, não tenho nenhum dbf aberto. - antes de deletar verifico se ele está aberto depois desses acontecimentos. segue mais um exemplo igual ao meu prg e desde já obrigado a todos. if select("EMPRESA") > 0 close EMPRESA endif ferase("EMPRESA.CDX") do while file("EMPRESA.CDX") msg("Tentando apagar arquivo EMPRESA.CDX") // não sai dessa mensagem ferase("EMPRESA.CDX") enddo if !net_use("EMPRESA",,"E") return endif pack oText:SetText("Atualizando " + alias() + "...") oMeter:nTotal := lastrec() nCount++ ; oMeter:Set(nCount) index on CODIGOEMP tag EMCODIGO to ("EMPRESA") ; eval ( oMeter:Set( RecNo() ), SysRefresh() ) every 10 index on NOME tag EMNOME to ("EMPRESA") ; eval ( oMeter:Set( RecNo() ), SysRefresh() ) every 10 citação:Anthony, Até agora você não mostrou nenhum código de como está tentando deletar o CDX. close all ou if select("Dbf")>0 só tem utilidade se VOCÊ MESMO ABRIU algum DBF. Se ele está aberto por outro usuário, necas de pitibiriba. Das duas uma: ou você tenta abrir o DBF de forma exclusiva (ANTES DE DELETAR) para ter certeza de que outros usuários não estão "on line" ou tem erro bravo de programação da sua parte. Outra coisa, o fato de conseguir deletar pelo DOS não significa nada. Qualquer arquivo, mesmo aberto id=red>, pode ser DELETADO se for XP.Fui Editado por - pauloaraujo on 11/03/2008 21:10:51 id=quote>id=quote>Anthony Ormond FWH(7.12)- xHabour 1.1.0 (simplex) - Pelles C 4.50 - xDev Studio v0.65

rs rs rs.... Giovanni e Kapiaba, eu não abro o índice junto com o dbf. Eu simplesmente efetuo um close all(por seguraça, verifico se foi realmente fechado por causa desse problema) e depois tento queimar os índices e não consigo. Segue a rotina que utilizo cInd := pDir + (cInd) + ".CDX" deletefile(cInd) //api do windows do while file(cInd) msg("Arquivo " + cInd + " em uso. Libere-o") deletefile(cInd) enddo citação: citação: citação: citação:Para entender, para que serve esses comandos?? citação:Antes de abrir os arquivos chame a função: #define HB_SET_AUTOPEN 45 SET(HB_SET_AUTOPEN,.F.) Giovany Vecchi - Jales - SP FWH 2.8 /Clipper 5.3b /Blinker 5.0 / Harbour 0.99 / xHarbour 99.71/ Bcc 5.6 / Ads 7.1 /PellesC Editado por - giovanyvecchi on 10/03/2008 17:29:43 id=quote>id=quote>Anthony Ormond FWH(7.12)- xHabour 1.1.0 (simplex) - Pelles C 4.50 - xDev Studio v0.65 id=quote>id=quote>Para que os arquivos de indices não sejam abertos junto com os dbfs automaticamente Giovany Vecchi - Jales - SP FWH 2.8 /Clipper 5.3b /Blinker 5.0 / Harbour 0.99 / xHarbour 99.71/ Bcc 5.6 / Ads 7.1 /PellesC Editado por - giovanyvecchi on 11/03/2008 10:09:58 id=quote>id=quote>Giovany, quem seria IDIOTA o suficiente, para abrir arquivos de INDICES junto com o DBF, na hora de INDEXAR? Oia... esta reposta é cruel! kkkkkkkkkkkkkkk. Cada doido que aparece de vez em quando... João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>Pode ser que apareca um Giovany Vecchi - Jales - SP FWH 2.8 /Clipper 5.3b /Blinker 5.0 / Harbour 0.99 / xHarbour 99.71/ Bcc 5.6 / Ads 7.1 /PellesC id=quote>id=quote>Anthony Ormond FWH(7.12)- xHabour 1.1.0 (simplex) - Pelles C 4.50 - xDev Studio v0.65 Editado por - aormond on 11/03/2008 11:21:57