kapiaba Posted August 9, 2005 Report Share Posted August 9, 2005 citação:Kapiaba, BINGO!!!!!! BOLA SETE NA CAÇAPA!!!!!! Essa vai ficar para a biblioteca do FW. Você sabe o que fez dar certo?????? Não foi o BgOTfOCUS. Naquela função PESQPRODU, o foco deveria ir para oQt, mas você deixou na última linha: oVrun:SetFocus() Quer dizer, ele não te obedeceu e foi para oQt, sem o erro. O problema foi transferido para a função PESQQT cujo foco deveria ir para oVrun. No final dela eu menti e ela caiu. Deveria ser oVrun:SetFocus() mas eu coloquei oQt:SetFocus(). Agora, se eu tiver que continuar a "mentir" para o sistema, imagine o tamanho do meu nariz??? Um abraço. Paulo/CONTATO SISTEMAS Clipper53b / FW26 / Blinker70 Ajudar é um prazer, agradecer é uma obrigação Prestigiem o III Encontro de Usuários de Fivewin id=quote>id=quote>PAULO... EU NÃO ESTOU ENTENDENDO... SE VOCÊ TEM O FIVE 2.6, POR QUE DIABOS, INSISTE COM ESTA PORCARIA DO 2.0??? JOGUE ISSO NO LIXO MEU QUERIDO. ISTO É PASSADO... Jà ERA! FINITO! MORTO! MUSEUUUUU... Abraços. http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=4624 Bad Boy - São Paulo. kmt_karinha@pop.com.br - 1 GB de Espaço. FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted August 9, 2005 Report Share Posted August 9, 2005 Kapiaba, Isso é breja ou é pelo Ibope??? HÃ! HÃ! HÃ! HÃ! Só citei a versão 2.0 porque o Beto e o Kleyton usam e testaram sem dar o erro. Todos os testes que fiz foi na 2.6 e acho que é ela que está com algum problema. Vou fazer alguns questionamentos à Virtual amanhã, pois, além do que mostrei, o oObj:SetFocus() deveria ter obedecido o último comando. Dê uma olhada no seu 2º exemplo e me diga para onde deveria ter ido o foco na função Pesqprodu(): oQt ou oVrun ????????? Aguardo uma resposta, MAN!!!!! Paulo/CONTATO SISTEMAS Clipper53b / FW26 / Blinker70 Ajudar é um prazer, agradecer é uma obrigação PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 9, 2005 Report Share Posted August 9, 2005 /* Na 2.3C funciona ate deste jeito... Tente agora */ ** TESTE.PRG #Include "FiveWin.Ch" FUNCTION TESTE() LOCAL oDlg, WFONTE_FIXEDSYS MEMVAR WPRODU, OPRODU, WQT, WVRUN, OQT, OVRUN WPRODU := SPACE(10) WQT := 0 WVRUN := 0 DEFINE FONT wfonte_FixedSys NAME "FixedSys" SIZE 10,10 DEFINE DIALOG oDlg FROM 0, 0 TO 300,450 ; TITLE "Pedidos - Produtos" PIXEL ; FONT wfonte_FixedSys @ 01,10 GET oProdu VAR wProdu PICTURE "@!" OF oDlg ; SIZE 50, 12 ; CENTER ; VALID PESQPRODU( oDlg ) @ 03,10 GET oQt VAR wQt PICTURE "@K 9999.99" OF oDlg ; SIZE 50, 12 ; CENTER ; VALID PESQQT( oDlg ) @ 05,10 GET oVrun VAR wVrun PICTURE "@KE 999,999.99" OF oDlg ; SIZE 50, 12 ; CENTER @ 07,10 BUTTON "&Sair" OF oDlg ACTION( oDlg:End() ) CANCEL ACTIVATE DIALOG oDlg CENTERED EndDialog() GlobalFree() Release All ResAllFree() RETURN NIL FUNC PESQPRODU( oDlg ) MEMVAR WPRODU, OPRODU, WQT, WVRUN, OQT, OVRUN IF wProdu = SPACE(10) MsgInfo( OemToAnsi( "Busca Inv lida " ), "Erro Geral" ) RETURN( .F. ) ELSE wQt := 1.00 oQt:Varput(wQt) wVrun := 8.95 RETURN( .T. ) ENDIF RETURN NIL FUNC PESQQT( oDlg ) MEMVAR WPRODU, OPRODU, WQT, WVRUN, OQT, OVRUN IF wQt = 0 MsgInfo( OemToAnsi( "Digite Um Valor V lido " ), "Erro de Valor" ) RETURN( .F. ) ELSE IF wQt < 100 oVrun:bGotFocus := { || oVrun:SetPos( 0 ), Nil } oVrun:Refresh() wVrun := 10.00 ELSE oVrun:bGotFocus := { || oVrun:SetPos( 0 ), Nil } oVrun:Refresh() wVrun := 8.95 ENDIF ENDIF RETURN( .T. ) // FIM DO PROGRAMA Bad Boy - São Paulo. kmt_karinha@pop.com.br - 1 GB de Espaço. FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted August 9, 2005 Report Share Posted August 9, 2005 Kapiaba, Funcionou na PESQPRODU() e o problema passou para a PESQQT() Funcionou porque você retirou o oQt:Refresh() Paulo/CONTATO SISTEMAS Clipper53b / FW26 / Blinker70 Ajudar é um prazer, agradecer é uma obrigação PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005 Editado por - pauloaraujo on 09/08/2005 18:15:10 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 9, 2005 Report Share Posted August 9, 2005 Ai, é só acertar a lógica... Quer saber... Say lá entende... hehehehe. Bad Boy - São Paulo. kmt_karinha@pop.com.br - 1 GB de Espaço. FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted August 9, 2005 Report Share Posted August 9, 2005 citação:Ai, é só acertar a lógica... Quer saber... Say lá entende... hehehehe. Bad Boy - São Paulo. kmt_karinha@pop.com.br - 1 GB de Espaço. FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE id=quote>id=quote>Não Kapiaba, a coisa não é tão simples assim como no exemplo. Eu só criei esse teste para demonstrar mais fácil o que está acontecendo. No sistema eu atualizo vários objetos numa única função. Esta, por sua vez, é chamada em vários GETS. Do 1º GET para o 2º, realmente não há necessidade de se dar o Refresh(). Agora, quando chamada pelo 3º em diante eu vou precisar dar o Refresh no 2º, entendeu? O engraçado é que: - Para o Beto (versão 2.0) bastou retirar o oQt:Varput(wQt) que o problema parou. - o Kleyton (versão 2.0) compilou e executou o SEU exemplo sem problemas. - com você (versão 2.3c) o problema não se manifesta. Estou meio sem chão para resolver. Mostrei tudo: fonte,lnk,o que uso,etc. Percebi que: se no final da função eu mandar um foco para um objeto que não tenha nada a ver com a função, o problema para. Não tem a mÃnima lógica. Não esquenta. Quem sabe a gente não esbarra com a solução mais pra frente?? Abraços a todos que tentaram ajudar. Paulo/CONTATO SISTEMAS Clipper53b / FW26 / Blinker70 Ajudar é um prazer, agradecer é uma obrigação PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005 Quote Link to comment Share on other sites More sharing options...
Paulo1361303230 Posted August 9, 2005 Author Report Share Posted August 9, 2005 Oi Paulo Araujo Boa Noite Pelo visto a minha dúvida gerou uma junta médica, mas fico feliz com o interesse de todos em ajudar. Assim que eu estiver craque no FW tb quero colaborar com os amigos. Abraços Paulo Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted August 9, 2005 Report Share Posted August 9, 2005 citação:Oi Paulo Araujo Boa Noite Pelo visto a minha dúvida gerou uma junta médica, mas fico feliz com o interesse de todos em ajudar. Assim que eu estiver craque no FW tb quero colaborar com os amigos. Abraços Paulo id=quote>id=quote>Xará, a briga ainda não acabou. Eu tenho 6 anos a mais de teimosia que o Kapiaba (ele tem que me aguentar). Aliás, você viu que eu estou me batendo com a versão do FW. O que você usa??? Se quizer colocar suas versões em todo tópico que entrar, basta clicar em "Meu Perfil" e digitar em "Assinatura". Um abraço Paulo/CONTATO SISTEMAS Clipper53b / FW26 / Blinker70 Ajudar é um prazer, agradecer é uma obrigação PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005 Quote Link to comment Share on other sites More sharing options...
Geraldo (gbsilva) Posted August 10, 2005 Report Share Posted August 10, 2005 Paulo no fim de semana vou testar, pois eu tenho o FW 2.6 depois retorno. Geraldo Barbosa da Silva FW 2.6 + Clipper 5.3b + Blinker 6.0 + WS 4.5 FWH 2.6 + xHarbour 0.99.50 (Simplex) + Bcc55 + Pelles + MyMake Windows Xp SP2 lucgera@terra.com.br Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 10, 2005 Report Share Posted August 10, 2005 citação:Paulo no fim de semana vou testar, pois eu tenho o FW 2.6 depois retorno. Geraldo Barbosa da Silva FW 2.6 + Clipper 5.3b + Blinker 6.0 + WS 4.5 FWH 2.6 + xHarbour 0.99.50 (Simplex) + Bcc55 + Pelles + MyMake Windows Xp SP2 lucgera@terra.com.br id=quote>id=quote>BOA GERALDO... AI, USE O XSETFOCUS, QUE RESOLVERA O PROBLEMA, POIS DESDE A VERSÃO 2.4, QUE O FIVE PARA CLIPPER, NÃO SOFREU ALTERAÇÕES. QUERO DEIXAR CLARO, QUE COMPILEI COM O PODEROSO E PERFEITO CLIPPER 5.3B. É ISSO. Mira aki: http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=4624 Bad Boy - São Paulo. kmt_karinha@pop.com.br - 1 GB de Espaço. FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
Geraldo (gbsilva) Posted August 13, 2005 Report Share Posted August 13, 2005 Paulo testei em Fivewin 2.6 e aconteceu exatamente como o seu, na última versão postada pelo Kapiaba funcionou no 1º get numérico e no 2º não. Tentarei mais alguns testes, depois retorno. Geraldo Barbosa da Silva FW 2.6 + Clipper 5.3b + Blinker 6.0 + WS 4.5 FWH 2.6 + xHarbour 0.99.50 (Simplex) + Bcc55 + Pelles + MyMake Windows Xp SP2 lucgera@terra.com.br Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted August 13, 2005 Report Share Posted August 13, 2005 citação:Paulo testei em Fivewin 2.6 e aconteceu exatamente como o seu, na última versão postada pelo Kapiaba funcionou no 1º get numérico e no 2º não. Tentarei mais alguns testes, depois retorno. Geraldo Barbosa da Silva FW 2.6 + Clipper 5.3b + Blinker 6.0 + WS 4.5 FWH 2.6 + xHarbour 0.99.50 (Simplex) + Bcc55 + Pelles + MyMake Windows Xp SP2 lucgera@terra.com.br id=quote>id=quote>Obrigado Geraldo. Pensava que era só comigo. Um abraço Paulo/CONTATO SISTEMAS Clipper53b / FW26 / Blinker70 Ajudar é um prazer, agradecer é uma obrigação PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.