>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.

---

Steve,
Padl() is the key function. However I wonder how this code work with that "if" unless you always have special values for "valu". ie: if valu = "38", it would fail on entry and no seek would be performed.
padl() would place leading zeroes, OK. But how it keeps in touch with the index ? Is it also padl() or by some other means zero leaded ? If that's "characterized" integer field, then wouldn't an index using bintoc(val(valu)) be better ?
With the expressions you used it sounds to me this is a pure digits containing field :)
Cetin