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

Moderador: Moderadores
LOCAL nCodItem:=0
@ 02, 02 SAY "CODIGO ITEM :" GET nCodItem PICTURE "99999" ;
VALID EVAL( { || nCodItem:= STRZERO(nCodItem, 5), .T. } )
Read
... GET cItem VALID FillZeros( @cItem )
... GET cItem VALID OkItem( @cItem )
FUNCTION FilllZeros( cVar )
cVar := StrZero( Val( cVar ), Len( cVar ) )
RETURN .T.
Usuários vendo este fórum: Nenhum usuário registrado online e 9 visitantes