AMBROSIO Posted June 29, 2010 Report Share Posted June 29, 2010 Como faço pra mudar o GET neste caso: IF cUni=="MILHEIRO" .OR. cUni=="CENTO" .OR. cUni=="KILO" cMasc:="9999.999" ELSE cMasc:="9999" ENDIF @ 10,20 GET oGet[1] VAR nQtde PICT cMascid=red> Ambrosio de Barros Filho. JRAMBRO - jrambro@hotmail.com Iniciante: Por eqto ainda no Clipper5.0 Editado por - ambrosio on 29/06/2010 18:29:37 Quote Link to comment Share on other sites More sharing options...
AMBROSIO Posted June 29, 2010 Author Report Share Posted June 29, 2010 Como faço pra mudar o GET neste caso: IF cUni=="MILHEIRO" .OR. cUni=="CENTO" .OR. cUni=="KILO" cMasc:="9999.999" ELSE cMasc:="9999" ENDIF @ 10,20 GET oGet[1] VAR nQtde PICT cMascid=red> Ambrosio de Barros Filho. JRAMBRO - jrambro@hotmail.com Iniciante: Por eqto ainda no Clipper5.0 Editado por - ambrosio on 29/06/2010 18:29:37 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 29, 2010 Report Share Posted June 29, 2010 Desviando para uma funcao com um VALID. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Luisão Posted June 29, 2010 Report Share Posted June 29, 2010 Em tempo de execução ? Faça assim: oGet[1]:oGet:Picture:= cMasc oGet[1]:Refresh()id=code>id=code>Luis Fernando Jr. (Luisão) "Death smiles at us all. All a man can do is smile back" FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY + [Ghost/Java]Script + GMaps E-Mail: juninho.luisao@gmail.com MSN: juninho_luisao@hotmail.com Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted June 29, 2010 Report Share Posted June 29, 2010 Tenta assim tb. Local odlg, cUni:=Space(20), nQtde:=0, oGet[2],cMasc:="" Define dialog odlg from 00,00 to 34,100 @02,02 Get oGet[1] Var cUni Picture "@!" Of oDlg Valid Mascara(oDlg,oGet,cUni,cMasc) @04,02 GET oGet[2] VAR nQtde PICT cMasc Of oDlg Activate Dialog odlg Centered Return(Nil) Procedure Mascara(oDlg,oGet,cUni,cMasc) IF cUni="MILHEIRO" .or. cUni="CENTO" .OR. cUni="KILO" cMasc="9999.999" ELSE cMasc="9999" ENDIF oGet[2]:Varput(cMasc) oGet[2]:Refresh() return .t.id=code>id=code>Voce ainda pode colocar tudo num action no Get com Iff Abraços.. Luiz Arruda-Corumba(MS) ico.corumba@gmail.com FiveWin Desde 2004id=blue> [x]Harbour xDev WS Não Abandone seu tópico Retorne avisando se a dica funcionouid=red> Quote Link to comment Share on other sites More sharing options...
AMBROSIO Posted June 29, 2010 Author Report Share Posted June 29, 2010 citação:Em tempo de execução ? Faça assim: oGet[1]:oGet:Picture:= cMasc oGet[1]:Refresh()id=code>id=code>Luis Fernando Jr. (Luisão) "Death smiles at us all. All a man can do is smile back" FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY + [Ghost/Java]Script + GMaps E-Mail: juninho.luisao@gmail.com MSN: juninho_luisao@hotmail.com id=quote>id=quote>Luiz!! Verdade quero em tempo de execução, mas... da erro!!!! Propriedade invalida nvalid property CPICTUREid=red> on MOSTRAETQ(INV_001.PRW) 29/06/2010 line : 661 Ambrosio de Barros Filho. JRAMBRO - jrambro@hotmail.com Iniciante: Por eqto ainda no Clipper5.0 Quote Link to comment Share on other sites More sharing options...
AMBROSIO Posted June 29, 2010 Author Report Share Posted June 29, 2010 citação:Tenta assim tb. Local odlg, cUni:=Space(20), nQtde:=0, oGet[2],cMasc:="" Define dialog odlg from 00,00 to 34,100 @02,02 Get oGet[1] Var cUni Picture "@!" Of oDlg Valid Mascara(oDlg,oGet,cUni,cMasc) @04,02 GET oGet[2] VAR nQtde PICT cMasc Of oDlg Activate Dialog odlg Centered Return(Nil) Procedure Mascara(oDlg,oGet,cUni,cMasc) IF cUni="MILHEIRO" .or. cUni="CENTO" .OR. cUni="KILO" cMasc="9999.999" ELSE cMasc="9999" ENDIF oGet[2]:Varput(cMasc) oGet[2]:Refresh() return .t.id=code>id=code>Voce ainda pode colocar tudo num action no Get com Iff Abraços.. Luiz Arruda-Corumba(MS) ico.corumba@gmail.com FiveWin Desde 2004id=blue> [x]Harbour xDev WS Não Abandone seu tópico Retorne avisando se a dica funcionouid=red> id=quote>id=quote>Ico! Tbm nao deu assim nQtdeid=red> acabou recebendo 99999.999id=red> como conteudo... Ambrosio de Barros Filho. JRAMBRO - jrambro@hotmail.com Iniciante: Por eqto ainda no Clipper5.0 Quote Link to comment Share on other sites More sharing options...
AMBROSIO Posted June 29, 2010 Author Report Share Posted June 29, 2010 Obrigado meus amigos... Luiz, Kapi, Ico id=red> ... oGet[2]:oGet:Picture:=cMasc oGet[2]:Refresh() Return Ambrosio de Barros Filho. JRAMBRO - jrambro@hotmail.com Iniciante: Por eqto ainda no Clipper5.0 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.