>Can I condense this code where I am inserting leading zeroes?
>It's not easy to read and it's also hard to follow. All it does is insert leading zeroes so I can do a seek.
>
>IF VALU $ "0123456789"
> DO CASE
> CASE VAL(VALU) < 10
> SEEKIT = "0000000" + UPPER(ALLTRIM(THISFORM.t_ln.VALUE))
> CASE VAL(VALU) < 100 AND VAL(VALU) > 9
> SEEKIT = "000000" + UPPER(ALLTRIM(THISFORM.t_ln.VALUE))
> CASE VAL(VALU) < 1000 AND VAL(VALU) > 99
> SEEKIT = "00000" + UPPER(ALLTRIM(THISFORM.t_ln.VALUE))
> CASE VAL(VALU) < 10000 AND VAL(VALU) > 999
> SEEKIT = "0000" + UPPER(ALLTRIM(THISFORM.t_ln.VALUE))
> CASE VAL(VALU) < 100000 AND VAL(VALU) > 9999
> SEEKIT = "000" + UPPER(ALLTRIM(THISFORM.t_ln.VALUE))
> CASE VAL(VALU) < 1000000 AND VAL(VALU) > 99999
> SEEKIT = "00" + UPPER(ALLTRIM(THISFORM.t_ln.VALUE))
> CASE VAL(VALU) < 10000000 AND VAL(VALU) > 999999
> SEEKIT = "0" + UPPER(ALLTRIM(THISFORM.t_ln.VALUE))
> CASE VAL(VALU) < 100000000 AND VAL(VALU) > 9999999
> SEEKIT = UPPER(ALLTRIM(THISFORM.t_ln.VALUE))
> ENDCASE
>ENDIF
>
>Thanks in advance.
Yet another way would be:
SEEKIT = TRANSFORM(thisform.t_ln.Value,"@L #######")
This will add your leading zeros, too.