padl(alltrim(transform(str(678,6), "@R 999,999")),7,'0') should do the trick.

>Hi all. I'm back from my holidays
>
>A custom wants the code of his products were printed always (always) with zeros in the left side and thousands separator.
>
>The problem is when the numbre is < 1000: fox replace separator with another zero.
>¿Some other idea?
>¿Must i write a routine to converting in a string like long time ago?
>
>trans(45678, "@L 999,999") returns 045.678
>trans(678, "@L 999,999") returns 0000678