Let´s consider that cont_pic is a public variable that contains the picture for numeric values i.e: "999,999,999,999.99"

FUNCTION pc
param numero
local a,b,c,d
d="iif(numero<0,' ','')+strtran(transform(numero,'@( "+cont_pic+"'),' ','')"
a=&d
b=len(alltrim(cont_pic))
c=len(alltrim(a))
a=repl(" ",b-c)+a
return a