get format from amount with currency

Hi,

i have to get in a string an amount formatted with sprintf$ in a certain way, like this:
r.amti.str = sprintf$("%A005", r.amti, r.ih.ccur)
in r.amti i have my amount, in r.ih.ccur i have the currency, but in r.amti.str it returns me a format that is not the r.ih.ccur one, it seems to take another currency (maybe the default?). How can i get the format from the currency?

thanks in advance,
regards,