GeneXus - Funcion Numeros Romanos

Hola buenas tardes, alguien podria decirme de alguna funcion para convertir un numero arabigo a romano en genexus 9..

No lo tengo pero podrías buscarlo en el sitio GxOpen, no estoy muy seguro pero me parece que en alguna ocasión vi la Kb que necesitas para descargarla.

Toma, yo tengo esta. Le pasas una variable numerica y te la devuelve en caracter romano. Me base en un programa de visual basic que encontre en la web, no me acuerdo de quien era.

//&Unidad C(10) Vector de 10
//&Decena C(10) Vector de 10
//&Centena C(10) Vector de 10
//&NumRom1 N(10)
//&NumRom2 N(10)
//&NumRom3 N(10)
//&Numero //C(20)

&Unidad(1) = 'I'
&Unidad(2) = 'II'
&Unidad(3) = 'III'
&Unidad(4) = 'IV'
&Unidad(5) = 'V'
&Unidad(6) = 'VI'
&Unidad(7) = 'VII'
&Unidad(8) = 'VIII'
&Unidad(9) = 'IX'
&Unidad(10) = ''

&Decena(1) = 'X'
&Decena(2) = 'XX'
&Decena(3) = 'XXX'
&Decena(4) = 'XL'
&Decena(5) = 'L'
&Decena(6) = 'LX'
&Decena(7) = 'LXX'
&Decena(8) = 'LXX'
&Decena(9) = 'XC'
&Decena(10) = ''

&Centena(1) = 'C'
&Centena(2) = 'CC'
&Centena(3) = 'CCC'
&Centena(4) = 'CD'
&Centena(5) = 'D'
&Centena(6) = 'DC'
&Centena(7) = 'DCC'
&Centena(8) = 'DCCC'
&Centena(9) = 'CM'
&Centena(10) = ''

&NumRom1 = Val(SubStr(Str(&Num,3,0),3,1))
&NumRom2 = Val(SubStr(Str(&Num,3,0),2,1))
&NumRom3 = Val(SubStr(Str(&Num,3,0),1,1))
If &NumRom1 = 0
&NumRom1 = 10
EndIf
If &NumRom2 = 0
&NumRom2 = 10
EndIf
If &NumRom3 = 0
&NumRom3 = 10
EndIf

&Numero = &Centena(&NumRom3) + &Decena(&NumRom2) + &Unidad(&NumRom1)