Fabio Ramirez Posted February 6, 2006 Report Share Posted February 6, 2006 Bom Dia. Estou com problema em um get com validacao em FOLDER. Acontece o seguinte : Se eu deixar este get como 1 campo a ser digitado, todos os demais gets tambem passam pela funcao de validacao do 1 get, mesmo nao tendo chamada alguma nos gets. Porem se eu tiver um get antes deste que tem a validacao o programa roda normalmente. Alguem ja passou por algo parecido ??? Ex : REDEFINE GET oGetCot[1] VAR mCotacao ID 35 OF oFld:aDialogs[7] PICTURE "999999" FONT FT_DTCAD WHEN .F. REDEFINE GET oGetCot[2] VAR mDataCot ID 44 OF oFld:aDialogs[7] PICTURE "@d" WHEN .F. REDEFINE GET oGetCot[3] VAR vn_prod ID 32 OF oFld:aDialogs[7] PICTURE "999999" VALID CHKPR() REDEFINE GET oGetCot[4] VAR vn_descr ID 50 OF oFld:aDialogs[7] PICTURE "@!" REDEFINE GET oGetCot[5] VAR vn_cf ID 66 OF oFld:aDialogs[7] PICTURE "@!" REDEFINE GET oGetCot[6] VAR vn_peripi ID 49 OF oFld:aDialogs[7] PICTURE "99" ....... No exemplo acima o 1 get a ser digitado eh o oGetCot[3] que chama a funcao CHKPR, dai pra baixo em todos os gets tambem passam pela funcao CHKPR, mesmo nao tendo nenhuma chamada, porem, se eu tirar a clausula whe .f. do oGetCot[2] funciona maravilha. A Funcao CHKPR() nao eh o problema, pois, mesmo que eu faco isso : Static Function CHKPR() msginfo("Passei") Retu(.t.) os Gets acabam passando por ela. Se Alguem puder me ajudar agradeco. Fabio FW2.3 - Clipper5.3 - WS4.5 Quote Link to comment Share on other sites More sharing options...
Fabio Ramirez Posted February 6, 2006 Author Report Share Posted February 6, 2006 Bom Dia. Estou com problema em um get com validacao em FOLDER. Acontece o seguinte : Se eu deixar este get como 1 campo a ser digitado, todos os demais gets tambem passam pela funcao de validacao do 1 get, mesmo nao tendo chamada alguma nos gets. Porem se eu tiver um get antes deste que tem a validacao o programa roda normalmente. Alguem ja passou por algo parecido ??? Ex : REDEFINE GET oGetCot[1] VAR mCotacao ID 35 OF oFld:aDialogs[7] PICTURE "999999" FONT FT_DTCAD WHEN .F. REDEFINE GET oGetCot[2] VAR mDataCot ID 44 OF oFld:aDialogs[7] PICTURE "@d" WHEN .F. REDEFINE GET oGetCot[3] VAR vn_prod ID 32 OF oFld:aDialogs[7] PICTURE "999999" VALID CHKPR() REDEFINE GET oGetCot[4] VAR vn_descr ID 50 OF oFld:aDialogs[7] PICTURE "@!" REDEFINE GET oGetCot[5] VAR vn_cf ID 66 OF oFld:aDialogs[7] PICTURE "@!" REDEFINE GET oGetCot[6] VAR vn_peripi ID 49 OF oFld:aDialogs[7] PICTURE "99" ....... No exemplo acima o 1 get a ser digitado eh o oGetCot[3] que chama a funcao CHKPR, dai pra baixo em todos os gets tambem passam pela funcao CHKPR, mesmo nao tendo nenhuma chamada, porem, se eu tirar a clausula whe .f. do oGetCot[2] funciona maravilha. A Funcao CHKPR() nao eh o problema, pois, mesmo que eu faco isso : Static Function CHKPR() msginfo("Passei") Retu(.t.) os Gets acabam passando por ela. Se Alguem puder me ajudar agradeco. Fabio FW2.3 - Clipper5.3 - WS4.5 Quote Link to comment Share on other sites More sharing options...
Fabio Ramirez Posted February 6, 2006 Author Report Share Posted February 6, 2006 Bom Dia. Estou com problema em um get com validacao em FOLDER. Acontece o seguinte : Se eu deixar este get como 1 campo a ser digitado, todos os demais gets tambem passam pela funcao de validacao do 1 get, mesmo nao tendo chamada alguma nos gets. Porem se eu tiver um get antes deste que tem a validacao o programa roda normalmente. Alguem ja passou por algo parecido ??? Ex : REDEFINE GET oGetCot[1] VAR mCotacao ID 35 OF oFld:aDialogs[7] PICTURE "999999" FONT FT_DTCAD WHEN .F. REDEFINE GET oGetCot[2] VAR mDataCot ID 44 OF oFld:aDialogs[7] PICTURE "@d" WHEN .F. REDEFINE GET oGetCot[3] VAR vn_prod ID 32 OF oFld:aDialogs[7] PICTURE "999999" VALID CHKPR() REDEFINE GET oGetCot[4] VAR vn_descr ID 50 OF oFld:aDialogs[7] PICTURE "@!" REDEFINE GET oGetCot[5] VAR vn_cf ID 66 OF oFld:aDialogs[7] PICTURE "@!" REDEFINE GET oGetCot[6] VAR vn_peripi ID 49 OF oFld:aDialogs[7] PICTURE "99" ....... No exemplo acima o 1 get a ser digitado eh o oGetCot[3] que chama a funcao CHKPR, dai pra baixo em todos os gets tambem passam pela funcao CHKPR, mesmo nao tendo nenhuma chamada, porem, se eu tirar a clausula whe .f. do oGetCot[2] funciona maravilha. A Funcao CHKPR() nao eh o problema, pois, mesmo que eu faco isso : Static Function CHKPR() msginfo("Passei") Retu(.t.) os Gets acabam passando por ela. Se Alguem puder me ajudar agradeco. Fabio FW2.3 - Clipper5.3 - WS4.5 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 6, 2006 Report Share Posted February 6, 2006 COLOQUE A ORDEM DOS ID'S -> <1,2> DO WORKSHOP.EXE CORRETAMENTE, CHAME NO MODULO NA MESMA ORDEM QUE CRIASTES OS ID'S. VEJA SE O BUTTON NAO ESTA DEFAULT, DESLIGUE! João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.50 / 0.99.51 - WorkShop.Exe Homenagem ao Fivewin 2.7 For [x]Harbour e ao Cris: Quote Link to comment Share on other sites More sharing options...
Fabio Ramirez Posted February 6, 2006 Author Report Share Posted February 6, 2006 Kapi, o ordem do WS <1/2> esta exatamente igual a ordem de digitacao. Eu so nao entendi que BUTTON que eu tenho que desabilitar. Fabio Ramirez FW2.3 - Clipper5.3 - WS4.5 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 6, 2006 Report Share Posted February 6, 2006 A ORDEM DOS ID'S ESTA ERRADA, OLHE DE NOVO... SE TEM UM BOTAO NA DIALOG, NAO PODE SER DEFAULT. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.50 / 0.99.51 - WorkShop.Exe Homenagem ao Fivewin 2.7 For [x]Harbour e ao Cris: Quote Link to comment Share on other sites More sharing options...
Fabio Ramirez Posted February 6, 2006 Author Report Share Posted February 6, 2006 Kapi. Por desencargo de conciencia fui na dialog e coloquei novamente em ordem (o que ja estava) e o problema continua, ainda nao sei o que vc desta querendo dizer com BUTTON default. (Desculpe a ignorancia) FW2.3 - Clipper5.3 - WS4.5 Quote Link to comment Share on other sites More sharing options...
kleyber Posted February 6, 2006 Report Share Posted February 6, 2006 Fábio, Experimente assim: REDEFINE GET oGetCot[3] VAR vn_prod ID 32 OF oFld:aDialogs[7] PICTURE "999999" VALID (CHKPR(),.T.) Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São LuÃs - MA A Ilha dos Amores Quote Link to comment Share on other sites More sharing options...
Fabio Ramirez Posted February 6, 2006 Author Report Share Posted February 6, 2006 Kleyber, obrigado pela forca, mas, tambem nao funcionou. Ele continua executando o chkpr() em todos os gets. Valeu. FW2.3 - Clipper5.3 - WS4.5 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 6, 2006 Report Share Posted February 6, 2006 INSISTO QUE A ORDEM DOS ID'S ESTà ERRADA! VEJA NA TELA, NAO É ESTA ORDEM... É ORDEM SEQUENCIAL, DEPOIS TESTE COM O DO WORKSHOP.EXE A 'QUEDA' TEM QUE SER NA ORDEM DOS IDS, NO FONTE IDEM. ESQUEÇA O BOTAO POR ENQUANTO. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.50 / 0.99.51 - WorkShop.Exe Homenagem ao Fivewin 2.7 For [x]Harbour e ao Cris: Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted February 6, 2006 Report Share Posted February 6, 2006 Fábio Não tem lógica. Provavelmente você errou no ARRAY. Acho que todos os objetos são iguais. Faça um teste: REDEFINE GET oGetCot1 VAR mCotacao ID 35 OF oFld:aDialogs[7] PICTURE "999999" FONT FT_DTCAD WHEN .F. REDEFINE GET oGetCot2 VAR mDataCot ID 44 OF oFld:aDialogs[7] PICTURE "@d" WHEN .F. REDEFINE GET oGetCot3 VAR vn_prod ID 32 OF oFld:aDialogs[7] PICTURE "999999" VALID CHKPR() REDEFINE GET oGetCot4 VAR vn_descr ID 50 OF oFld:aDialogs[7] PICTURE "@!" REDEFINE GET oGetCot5 VAR vn_cf ID 66 OF oFld:aDialogs[7] PICTURE "@!" REDEFINE GET oGetCot6 VAR vn_peripi ID 49 OF oFld:aDialogs[7] PICTURE "99" ...... Editado por - pauloaraujo on 06/02/2006 14:11:14 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 6, 2006 Report Share Posted February 6, 2006 LOCAL oGetCot := Array(8) //-> Por exemplo. Assim está correto. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.50 / 0.99.51 - WorkShop.Exe Homenagem ao Fivewin 2.7 For [x]Harbour e ao Cris: Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 6, 2006 Report Share Posted February 6, 2006 NA DIALOG COTACAO, IDS, ESTAO FORA DE ORDEM. A ORDEM NUMERICA. OS BOTOES, ESTAO COM A SEQUENCIA DOS ID'S DOS GETS E OUTROS BICHINHOSS. SEPARE E IDENTE. EX.: SAYS - IDS 401 A... GETS - IDS 21 A... BOTOES - 201 A.. OUTRES 301, 501, 601, 701... ETC. IDENTE. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.50 / 0.99.51 - WorkShop.Exe Homenagem ao Fivewin 2.7 For [x]Harbour e ao Cris: Editado por - kapiaba on 06/02/2006 14:38:33 Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted February 6, 2006 Report Share Posted February 6, 2006 citação:LOCAL oGetCot := Array(8) //-> Por exemplo. Assim está correto. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.50 / 0.99.51 - WorkShop.Exe Homenagem ao Fivewin 2.7 For [x]Harbour e ao Cris: id=quote>id=quote>Kapiaba, Say que deve ter outros bichinhos, mas você Koncorda que o problema deve ser que todos os objetos são iguais, principalmente após a informação de que retirando o WHEN .f. do segundo objeto tudo funcionou??? Um abraço Quote Link to comment Share on other sites More sharing options...
Fabio Ramirez Posted February 6, 2006 Author Report Share Posted February 6, 2006 Paulo, eu sei que nao faz sentido. O array e de 13 campos, de acordo com a qtdade de gets, ja olhei o fonte e nao consegui ver nada de anormal. Valeu - Fabio FW2.3 - Clipper5.3 - WS4.5 Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted February 6, 2006 Report Share Posted February 6, 2006 citação:Paulo, eu sei que nao faz sentido. O array e de 13 campos, de acordo com a qtdade de gets, ja olhei o fonte e nao consegui ver nada de anormal. Valeu - Fabio FW2.3 - Clipper5.3 - WS4.5 id=quote>id=quote>Você fez o teste, substituindo oGetCot[1] por oGetCot1, e assim por diante......... ?????????? Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 6, 2006 Report Share Posted February 6, 2006 citação: citação:Paulo, eu sei que nao faz sentido. O array e de 13 campos, de acordo com a qtdade de gets, ja olhei o fonte e nao consegui ver nada de anormal. Valeu - Fabio FW2.3 - Clipper5.3 - WS4.5 id=quote>id=quote>Você fez o teste, substituindo oGetCot[1] por oGetCot1, e assim por diante......... ?????????? id=quote>id=quote>PAULO, SE ELE DECLAROU O ARRAY COMO INDIQUEI, TANTO FAZ! João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.50 / 0.99.51 - WorkShop.Exe Homenagem ao Fivewin 2.7 For [x]Harbour e ao Cris: Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted February 6, 2006 Report Share Posted February 6, 2006 se............ Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 6, 2006 Report Share Posted February 6, 2006 EM DIALOG COTACAO... FRAME STYLE DIALOG FRAME. MUDE... João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.50 / 0.99.51 - WorkShop.Exe Homenagem ao Fivewin 2.7 For [x]Harbour e ao Cris: Quote Link to comment Share on other sites More sharing options...
Fabio Ramirez Posted February 6, 2006 Author Report Share Posted February 6, 2006 Kapi. Eu criei a variavel oGetCot como MEMVAR desta forma MEMVAR oGetCot oGetCot := Array(13) Nao faco na mesma linha MEMVAR oGetCot:=Array(13), pois, da erro. A maneira que faco esta correta ??? Eu procuro trabalhar com matriz, pra nao encher de variaveis. Vou tentar mudar para ogetcot1,etc. Mas sinceramente nao acredito que o problema seja este, assim como tambem nao acredito que possa ser a numeracao dos IDs, mas, como vcs vivem o FW 24Hrs por dia, vou tentar mudar na dll. Obrigado por enquanto. Fabio Ramirez FW2.3 - Clipper5.3 - WS4.5 Quote Link to comment Share on other sites More sharing options...
Fabio Ramirez Posted February 6, 2006 Author Report Share Posted February 6, 2006 Kapi, mudei para Dialog FRAME e tambem nao adiantou. Vou mudar os IDs pra ver no que dá. - Obrigado - Fabio FW2.3 - Clipper5.3 - WS4.5 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 6, 2006 Report Share Posted February 6, 2006 MEMVAR oGetCot oGetCot := Array(13) TAMBÉM ESTà CORRETO. LA NA FUNCAO DE DESVIO, DIGITE TAMBÉM: MEMVAR oGetCot João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.50 / 0.99.51 - WorkShop.Exe Homenagem ao Fivewin 2.7 For [x]Harbour e ao Cris: Quote Link to comment Share on other sites More sharing options...
Fabio Ramirez Posted February 6, 2006 Author Report Share Posted February 6, 2006 Kapi. Coloquei os enderecos na ordem e nada. Criei a dialog novamente colando os objetos da dialog velha e nada. Criei a dialog criando objeto por objeto e nada. Nao sei mais o que fazer. Fabio Ramirez FW2.3 - Clipper5.3 - WS4.5 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 6, 2006 Report Share Posted February 6, 2006 citação:Kapi. Coloquei os enderecos na ordem e nada. Criei a dialog novamente colando os objetos da dialog velha e nada. Criei a dialog criando objeto por objeto e nada. Nao sei mais o que fazer. Fabio Ramirez FW2.3 - Clipper5.3 - WS4.5 id=quote>id=quote>UUUIII... Me laskey(). ZIPA ESSA BAGAÇA AI, E ENVIA NO MEU MAIL, QUE EU VEJO ESTE 'MISTÉRIO'. DOCUMENTE ONDE É O PROBELMA, POIS NÃO TENHO MUITO TEMPO PARA FICAR 'BISBILHOTANDO', SÓ PORQUE É UMA EMERGENCIA. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.50 / 0.99.51 - WorkShop.Exe Homenagem ao Fivewin 2.7 For [x]Harbour e ao Cris: Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted February 6, 2006 Report Share Posted February 6, 2006 Mas esse "UUUIII" tá cada vez mais suspeito. Ainda acho que a única forma desse VALID atuar em todos os GETS é ter um único objeto. Faça um teste: Se o Handle retornar o mesmo número em todas as mensagens, o problema está aÃ. REDEFINE GET oGetCot[1] VAR mCotacao ID 35 OF oFld:aDialogs[7] PICTURE "999999" FONT FT_DTCAD WHEN .F. REDEFINE GET oGetCot[2] VAR mDataCot ID 44 OF oFld:aDialogs[7] PICTURE "@d" WHEN .F. REDEFINE GET oGetCot[3] VAR vn_prod ID 32 OF oFld:aDialogs[7] PICTURE "999999" VALID CHKPR() REDEFINE GET oGetCot[4] VAR vn_descr ID 50 OF oFld:aDialogs[7] PICTURE "@!" REDEFINE GET oGetCot[5] VAR vn_cf ID 66 OF oFld:aDialogs[7] PICTURE "@!" REDEFINE GET oGetCot[6] VAR vn_peripi ID 49 OF oFld:aDialogs[7] PICTURE "99" msginfo(oGetCot[3]:hWnd) msginfo(oGetCot[4]:hWnd) msginfo(oGetCot[5]:hWnd) msginfo(oGetCot[6]:hWnd) 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.