Clipper On Line • Ver Tópico - Formatar variavel ainda no Get com StrZero()

Formatar variavel ainda no Get com StrZero()

Discussão sobre a linguagem CA-Clipper.

Moderador: Moderadores

 

Formatar variavel ainda no Get com StrZero()

Mensagempor Grings » 03 Out 2005 19:01

Como posso fazer para formatar uma variável quando ainda estiver no Get ? Exemplo: digitando 5 quero que apareça 005.
Grato!
Grings
Grings
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 338
Data de registro: 18 Ago 2004 13:51
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Mensagempor Augusto » 03 Out 2005 19:06

Pode ser que eu me engane...
Mais vc só vai conseguir isso depois do READ através do "@ say" com a variável já transformada pelo STRZERO()..

Vamos ver o q os outros colegas do Fórum vão dizer...
:xau Fui...
goulart@provsul.com.br

Faça da PROVSUL o seu Provedor de Serviços WEB
Visite: www.PROVSUL.com.br
Avatar de usuário

Augusto
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 465
Data de registro: 26 Ago 2003 17:50
Cidade/Estado: Maricá/RJ
Curtiu: 3 vezes
Mens.Curtidas: 1 vez

Mensagempor Visitante » 03 Out 2005 19:11

Com certeza....

Só se valida o conteúdo da mesma após a saída do Get.

Um Clip Abraço
Visitante
 

Mensagempor Grings » 03 Out 2005 19:24

O exemplo dessa rotina consta aquí no fórum, porém não consigo encontrar. Perdí o programa fonte que fazia isso, tem como fazer, talvez tenha me expressado mal, quando digito 5 e teclo ENTER o campo auto-completa 005.
Grings
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 338
Data de registro: 18 Ago 2004 13:51
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Mensagempor Augusto » 03 Out 2005 19:54

Bem... insisto em dizer que, antes do READ... nada feito...
:xau Fui...
goulart@provsul.com.br

Faça da PROVSUL o seu Provedor de Serviços WEB
Visite: www.PROVSUL.com.br
Avatar de usuário

Augusto
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 465
Data de registro: 26 Ago 2003 17:50
Cidade/Estado: Maricá/RJ
Curtiu: 3 vezes
Mens.Curtidas: 1 vez

Mensagempor Poka » 03 Out 2005 21:04

Prezado colega, será que seria isto.



cls
vcodigo:=space(05)
@ 10,10 say "Codigo: " get vcodigo pict"@k9";
valid funger()
read
retu nil
/////////////

stat func funger
if readvar()="VCODIGO"
vcodigo:=strzero( val(vcodigo),len(vcodigo))
endif
retu .t.




Obs. em todos os cadastros do meu sistema eu uso a funcao FUNGER(),
assim voce pode testar os campos que quiser.

espero que seja isto

um abraço



Poka
Avatar de usuário

Poka
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 509
Data de registro: 25 Out 2004 21:26
Cidade/Estado: Leme/SP
Curtiu: 0 vez
Mens.Curtidas: 23 vezes

Mensagempor janio » 03 Out 2005 21:55

Olá,

Outra opção seria:
LOCAL nCodItem:=0 
@ 02, 02 SAY "CODIGO ITEM :" GET nCodItem   PICTURE "99999" ;
VALID  EVAL( { || nCodItem:= STRZERO(nCodItem, 5), .T. } )
Read


Um abraço,

Janio
fui...
e-mail:janioaguiar@yahoo.com.br
msn: janio_aguiar@hotmail.com
xHarbour1.2.1/Harbour3.2 + wvg + hwgui + Mediator + MySql
Avatar de usuário

janio
Colaborador

Colaborador
 
Mensagens: 1835
Data de registro: 06 Jul 2004 07:43
Cidade/Estado: UBAJARA - CE
Curtiu: 8 vezes
Mens.Curtidas: 68 vezes

É isso mesmo Jânio!

Mensagempor Grings » 04 Out 2005 09:51

Valeu Jânio, tinha certeza que tem como fazer... Poka, obrigado também mas a solução do Jânio é mais prática.
Grings
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 338
Data de registro: 18 Ago 2004 13:51
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Mensagempor Paulao » 04 Out 2005 19:26

Eu Faço assim



m->NUMPED:=SPAC(5)
@ 21,02 say "Num pedido: "get m->numped pict"@!K"valid completa("m->numped",5)

function completa(campo,qtd)
&campo=padl(alltrim(&campo),qtd,"0")
return .t.
Paulao
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 183
Data de registro: 09 Jul 2004 11:03
Cidade/Estado: Franca
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Formatar variavel ainda no Get com StrZero()

Mensagempor JoséQuintas » 29 Ago 2018 11:17

Dependendo do caso, uso função própria.

... GET cItem VALID FillZeros( @cItem )

... GET cItem VALID OkItem( @cItem )


Uma validação específica para o cadastro, ou uma genérica de preencher.

FUNCTION FilllZeros( cVar )

   cVar := StrZero( Val( cVar ), Len( cVar ) )

   RETURN .T.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes




Retornar para CA-Clipper

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 9 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro