aokisantos Posted February 2, 2010 Report Share Posted February 2, 2010 Pessoal, Qual a mascara em um GET para digitar da direita para esquerda em um campo de valor? get nvalor picture "@E 999.99" <-Esquerda para direita E ao contrario? FWH9.12 PELLES+SQLLIB+SQLRDD+MYSQL Quote Link to comment Share on other sites More sharing options...
aokisantos Posted February 2, 2010 Author Report Share Posted February 2, 2010 Pessoal, Qual a mascara em um GET para digitar da direita para esquerda em um campo de valor? get nvalor picture "@E 999.99" <-Esquerda para direita E ao contrario? FWH9.12 PELLES+SQLLIB+SQLRDD+MYSQL Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 2, 2010 Report Share Posted February 2, 2010 veja \samples\testgetr.prg 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 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
aokisantos Posted February 2, 2010 Author Report Share Posted February 2, 2010 kapiaba, Talvez eu tenha explicado errado. O que eu preciso é digitar dos centavos para os inteiros. Ex: Se digitar 1 no get ficaria assim: 0,01 Se digitar 12 no get ficaria assim: 0,12 Se digitar 123 no get ficaria assim: 1,23 Desculpe se expliquei errado. FWH9.12 PELLES+SQLLIB+SQLRDD+MYSQL Editado por - aokisantos on 02/02/2010 16:47:02 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 2, 2010 Report Share Posted February 2, 2010 Se não me falha as minhocas, PICTURE "@R 9.999,99" ou o inverso PICTURE "@R 9,999.99" Eu acho... Mas eu acho que vão te dar uma FUNÇÃO que faça o que queres. 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 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
aokisantos Posted February 3, 2010 Author Report Share Posted February 3, 2010 Valeu ajuda Kapiaba, mais não seria isso o que estou precisando, imagino que eu tenha que criar uma função que va tratando em tempo real o que esta sendo digitado no get. FWH9.12 PELLES+SQLLIB+SQLRDD+MYSQL Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 3, 2010 Report Share Posted February 3, 2010 //-> seria algo +- assim: // ----------------------------------------------------------------------- // Funci¢n ...: Num2Str // Descripci¢n: Convierte un campo num‚rico a cadena, para mostrarlo en un // LISTBOX. // Par metros : nCampo -> Valor Num‚rico. // Devolve ..: Cadena formateada. // ----------------------------------------------------------------------- FUNCTION Num2Str( nCampo, nSize, nDec ) LOCAL cPicture := "@E 999,999,999,999" DO CASE CASE nSize = 12 .AND. nDec = 0 cPicture := "@E 999,999,999,999" CASE nSize = 12 .AND. nDec = 2 cPicture := "@E 999,999,999.99" CASE nSize = 12 .AND. nDec = 3 cPicture := "@E 99,999,999.999" CASE nSize = 08 .AND. nDec = 0 cPicture := "@E 99,999,999" CASE nSize = 08 .AND. nDec = 2 cPicture := "@E 99,999.99" CASE nSize = 08 .AND. nDec = 3 cPicture := "@E 9,999.999" CASE nSize = 07 .AND. nDec = 0 cPicture := "@E 9,999,999" CASE nSize = 07 .AND. nDec = 2 cPicture := "@E 9,999.99" CASE nSize = 07 .AND. nDec = 3 cPicture := "@E 999.999" CASE nSize = 05 .AND. nDec = 0 cPicture := "@E 99,999" CASE nSize = 05 .AND. nDec = 2 cPicture := "@E 99.99" CASE nSize = 05 .AND. nDec = 3 cPicture := "@E 9.999" CASE nSize = 02 .AND. nDec = 0 cPicture := "99" ENDCASE RETURN Transform( nCampo, cPicture ) id=code>id=code>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 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
sambomb Posted February 3, 2010 Report Share Posted February 3, 2010 Poderia colocar um get e um say, no get vc obtem o número, com máscara "99999999999999" e no say você formata usando o Valor/100 como base Obs.: Você pode colocar o Get "invisÃvel" e o say por cima, e para atualizar o say use o oget:bChange := {|| AtualizaSay() } MSN: samirabreu@hotmail.comid=black> Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 Quote Link to comment Share on other sites More sharing options...
aokisantos Posted February 3, 2010 Author Report Share Posted February 3, 2010 sambomb É isso mesmo muito obrigado valeu kapiaba. FWH9.12 PELLES+SQLLIB+SQLRDD+MYSQL 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.