Naruto uZumaki Posted March 19, 2008 Report Share Posted March 19, 2008 Boa tarde ! Moçada , teria como verificar se foi alterado alguma coisa em um GET , igual o office "WORD, EXCEL" fazem voce abre um arquivo , se alterar um virgula e sair sem salvar , ele da uma msg que tem alterações e se voce quer salvar se tiverem algo ... té++ Xharbour /fivewin sqlrdd"Gatinhando" workshop /VSX Quote Link to comment Share on other sites More sharing options...
Naruto uZumaki Posted March 19, 2008 Author Report Share Posted March 19, 2008 Boa tarde ! Moçada , teria como verificar se foi alterado alguma coisa em um GET , igual o office "WORD, EXCEL" fazem voce abre um arquivo , se alterar um virgula e sair sem salvar , ele da uma msg que tem alterações e se voce quer salvar se tiverem algo ... té++ Xharbour /fivewin sqlrdd"Gatinhando" workshop /VSX Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted March 19, 2008 Report Share Posted March 19, 2008 citação:Boa tarde ! Moçada , teria como verificar se foi alterado alguma coisa em um GET , igual o office "WORD, EXCEL" fazem voce abre um arquivo , se alterar um virgula e sair sem salvar , ele da uma msg que tem alterações e se voce quer salvar se tiverem algo ... té++ Xharbour /fivewin sqlrdd"Gatinhando" workshop /VSX id=quote>id=quote> Um if não resolve ?? cGet:="pipi popo" Redefine get oGet Var xGet ... If xGet#cGet VaiSalvar() Endif VaiSair()id=code>id=code>Luiz Arruda - Corumbá/MS FWH 2.4 - WS - xHB 09950 - xDev ico.corumba@gmail.com Quote Link to comment Share on other sites More sharing options...
Naruto uZumaki Posted March 19, 2008 Author Report Share Posted March 19, 2008 Olha só rapaz ! Comparar o Objeto com a Variavel , que idéia bacana hehe , só que vai ter que ter uma função dessa para cada GET ... Xharbour /fivewin sqlrdd"Gatinhando" workshop /VSX Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 19, 2008 Report Share Posted March 19, 2008 citação:Olha só rapaz ! Comparar o Objeto com a Variavel , que idéia bacana hehe , só que vai ter que ter uma função dessa para cada GET ... Xharbour /fivewin sqlrdd"Gatinhando" workshop /VSX id=quote>id=quote>VOCE QUER CHECAR TODOS OS GET´S?? ENTAO USE UM ARRAY DE GETS E DISPARE COM O VALID NO ULTIMO GET PARA CHECAR UM POR UM EM UM FUNCAO. 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 Quote Link to comment Share on other sites More sharing options...
gilmer Posted March 19, 2008 Report Share Posted March 19, 2008 Olá, Você pode tentar oGet:oGet:changed, propriedade da classe get interna (xharbour), usada pelo FW. Obs. Nunca testei. Acho também que vc não deveria usar de ironia com os usuário, pode começar outra GUERRA, se a resposta no lhe serviu, deixe. e-mail: gilmer@fivewin.com.br msn: fivewinbrasil@hotmail.com Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted March 19, 2008 Report Share Posted March 19, 2008 citação:Olha só rapaz ! Comparar o Objeto com a Variavel , que idéia bacana hehe , só que vai ter que ter uma função dessa para cada GET ... Xharbour /fivewin sqlrdd"Gatinhando" workshop /VSX id=quote>id=quote>Seria +- assim ( to saindo e não testei ) Local cGet[10] cGet[1]="pipi popo" cGet[2]="popo pipi" Redefine get oGet1 Var xGet1 ... Valid(suaValid) Redefine get oGet2 Var xGet2 ... Valid(SuaValid) ------------------- Function suaValid() If xGet1#cGet[1] Gravar() ElseIf xGet2#cget[2] Gravar() Endif.. id=code>id=code>Não precisaria uma Function para cada Get.. O caminho é esse... Luiz Arruda - Corumbá/MS FWH 2.4 - WS - xHB 09950 - xDev ico.corumba@gmail.com Editado por - ico on 19/03/2008 17:32:25 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 19, 2008 Report Share Posted March 19, 2008 citação:Olá, Você pode tentar oGet:oGet:changed, propriedade da classe get interna (xharbour), usada pelo FW. Obs. Nunca testei. Acho também que vc não deveria usar de ironia com os usuário, pode começar outra GUERRA, se a resposta no lhe serviu, deixe. e-mail: gilmer@fivewin.com.br msn: fivewinbrasil@hotmail.com id=quote>id=quote>E AI, EU ENTRO E QUEBRO O PAU!! KKKKKKK. QUEM ENTRA NA XUVA, É PARA SE ´MOLHAR´ CARISSIMO GILMER! FAZ BEM A ALMA, BRINCAR DE BRIGAR DE VEZ EM QUANDO... SÓ DE VEZ EM QUANDO. 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 Quote Link to comment Share on other sites More sharing options...
vagner Posted March 19, 2008 Report Share Posted March 19, 2008 Olá VGet Neles @ 00,00 VGet oGet Var cGet ... ? oGet:Alterou() Vagner Wirts VI Encontro está chegando , não perca Quote Link to comment Share on other sites More sharing options...
Delair José Gasperin Posted March 19, 2008 Report Share Posted March 19, 2008 Se os Get editam campos de um DBF, não seria só abrir a base utilizando TDataBase, colocar :SeuCampo no Get e no final testar com :Modified() e chamar :Save() se afirmativo? ----------------------------------------------------------- FiveWin 1.92 / Clipper 5.3b / Blinker 7.0 / Workshop / ADS 6.11 Quote Link to comment Share on other sites More sharing options...
Naruto uZumaki Posted March 19, 2008 Author Report Share Posted March 19, 2008 citação:Olá, Você pode tentar oGet:oGet:changed, propriedade da classe get interna (xharbour), usada pelo FW. Obs. Nunca testei. Acho também que vc não deveria usar de ironia com os usuário, pode começar outra GUERRA, se a resposta no lhe serviu, deixe. e-mail: gilmer@fivewin.com.br msn: fivewinbrasil@hotmail.com id=quote>id=quote>Não pelo contrario , achei uma otima idéia , e gosto dete tipo de idéia , sem muita coisera mesmo , o lance é ser funcional! té++ ________________________________________________________________ Se os Get editam campos de um DBF, não seria só abrir a base utilizando TDataBase, colocar :SeuCampo no Get e no final testar com :Modified() e chamar :Save() se afirmativo? R: se o que voce disse é se os gets editam DIRETO no DBf a resposta é não , apenas pegam os dados do DBF e colocam dentro das variaveis __________________________________________________________ Olá VGet Neles @ 00,00 VGet oGet Var cGet ... ? oGet:Alterou() R: Vget ??? brother tô por fora , como funciona _________________________________________________________ E AI, EU ENTRO E QUEBRO O PAU!! KKKKKKK. QUEM ENTRA NA XUVA, É PARA SE ´MOLHAR´ CARISSIMO GILMER! FAZ BEM A ALMA, BRINCAR DE BRIGAR DE VEZ EM QUANDO... SÓ DE VEZ EM QUANDO. R: Olha que bato forte hein hehehe té++ VOCE QUER CHECAR TODOS OS GET´S?? ENTAO USE UM ARRAY DE GETS E DISPARE COM O VALID NO ULTIMO GET PARA CHECAR UM POR UM EM UM FUNCAO. R:Sim , é uma otima idéia tambem Ps: Galera ,eu soou bonzimmm Xharbour /fivewin sqlrdd"Gatinhando" workshop /VSX Editado por - naruto UZumaki on 19/03/2008 21:16:42 Quote Link to comment Share on other sites More sharing options...
vagner Posted March 19, 2008 Report Share Posted March 19, 2008 citação: Olá VGet Neles @ 00,00 VGet oGet Var cGet ... ? oGet:Alterou() R: Vget ??? brother tô por fora , como funciona id=quote>id=quote>Procure na página principal por VGet, vai aparecer um monte de dicas, inclusive com demo, e têm a free que funciona redondinho Vagner Wirts VI Encontro está chegando , não perca Quote Link to comment Share on other sites More sharing options...
ronaldo Posted March 20, 2008 Report Share Posted March 20, 2008 Estive analisando e consegui fazer desta forma: crie no inicio do programa a variavel: lAlterado:=.F. Antes do ACTIVE DIALOG coloque o comando abaixo: aEval( oDlg:aControls, {|o| If(o:ClassName() == "TGET", o:bChange:={||lAlterado:=.t.}, NIL) } ) Pronto, vc pode ver a variavel se lAlterado:=.t., então algum mudou algo Ronaldo Minacapelli (11) 6950 3069 Quote Link to comment Share on other sites More sharing options...
Naruto uZumaki Posted March 20, 2008 Author Report Share Posted March 20, 2008 OK, irei verificar as possibilidades até++ Xharbour /fivewin sqlrdd"Gatinhando" workshop /VSX Quote Link to comment Share on other sites More sharing options...
vagner Posted March 20, 2008 Report Share Posted March 20, 2008 citação:Estive analisando e consegui fazer desta forma: crie no inicio do programa a variavel: lAlterado:=.F. Antes do ACTIVE DIALOG coloque o comando abaixo: aEval( oDlg:aControls, {|o| If(o:ClassName() == "TGET", o:bChange:={||lAlterado:=.t.}, NIL) } ) Pronto, vc pode ver a variavel se lAlterado:=.t., então algum mudou algo Ronaldo Minacapelli (11) 6950 3069 id=quote>id=quote>Olá Ronaldo, Isso não funcionaria, pois se vc usar a seta ele executa o bchange, mesmo não tendo alterado nada Vagner Wirts VI Encontro está chegando , não perca Quote Link to comment Share on other sites More sharing options...
helio1361303486 Posted March 20, 2008 Report Share Posted March 20, 2008 Naruto, Eu também jogo todas os campos do dbf para variáveis de memória, e as diferencio colocando um "v" antes delas, ai depois eu gravo no dbf. para resolver este problema eu fiz assim: ... ACTIVATE DIALOG oDlg VALID( Gravar() ) FUNCTION Gravar() tcpo = fcount() for i = 1 to tcpo xcpo=field(i) vcpo="v"+LOWER(xcpo) if &xcpo<>&vcpo oGrava:=.t. endif next if oGrava if MsgYesno("Deseja gravar as alterações ?") ... endif endif Espero que ajude. Hélio. Quote Link to comment Share on other sites More sharing options...
ronaldo Posted March 20, 2008 Report Share Posted March 20, 2008 isso é simples... vc podera tratar as teclas que não deseja que assuma como alteração... Ronaldo Minacapelli (11) 6950 3069 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.