convertir numeros a texto en firebird 1.0. es posible?

[Gabichu]

hola a todos...quizas el titulo de este mensaje suena un poco descabellado pero es lo que necesito lograr y quiero saber si es posible, si alquien ya lo hizo o si es factible implementarlo...

Necesito convertir el valor del monto de una factura a letras en la base de datos.

desde ya gracias a todos!!

[[RONPABLO]]

Yo desde Delphi uso las siguientes funciones para hacer eso... No se si lo puedes hacer desde allí... o tratar de pasar dicha función a un procedimiento almacenado en Firebird...

Código Delphi [-]
function TFRepFactura.IntToLetras(Numero:LongInt):String;
var
   Millones,Miles,Unidades: Longint;
   Linea : String;
begin
  {Inicializamos el string que contendrá las letras según el valor
  numérico}
  if numero=0 then Linea := 'CERO'
  else if numero<0 then
     Linea := 'MENOS '
  else if numero=1 then
  begin
     Linea := 'UN';
     result := Linea;
     exit
  end
  else if numero>1 then
     Linea := '';

  {Determinamos el Nº de millones, miles y unidades de numero en
  positivo}
  Numero   := Abs(Numero);
  Millones := numero div 1000000;
  Miles     := (numero - (Millones*1000000)) div 1000;
  Unidades  := numero - ((Millones*1000000)+(Miles*1000));

  {Vamos poniendo en el string las cadenas de los números(llamando
  a subfuncion)}
  if Millones=1 then Linea:= Linea + ' UN MILLON '
  else if Millones>1 then Linea := Linea + xIntToLetras(Millones)
                                   + ' MILLONES ';

  if Miles =1 then Linea:= Linea + ' MIL '
  else if Miles>1 then Linea := Linea + xIntToLetras(Miles)+
                                ' MIL ';

  if Unidades >0 then Linea := Linea + xIntToLetras(Unidades);
  Linea:= Linea + ' PESOS';
  result := Linea;
end;

function TFRepFactura.xIntToLetras(Valor:LongInt):String;
const
 aUnidad : array[1..15] of string =
   ('UN','DOS','TRES','CUATRO','CINCO','SEIS',
    'SIETE','OCHO','NUEVE','DIEZ','ONCE','DOCE',
    'TRECE','CATORCE','QUINCE');
 aCentena: array[1..9]  of string =
   ('CIENTO','DOSCIENTOS','TRESCIENTOS',
    'CUATROCIENTOS','QUINIENTOS','SEISCIENTOS',
    'SETECIENTOS','OCHOCIENTOS','NOVECIENTOS');
 aDecena : array[1..9]  of string =
  ('DIECI','VEINTI','TREINTA','CUARENTA','CINCUENTA',
   'SESENTA','SETENTA','OCHENTA','NOVENTA');
var
 Centena, Decena, Unidad, Doble: LongInt;
 Linea: String;
begin
   if valor=100 then Linea:=' CIEN '
   else
   begin
     Linea:='';
     Centena := Valor div 100;
     Doble   := Valor - (Centena*100);
     Decena  := (Valor div 10) - (Centena*10);
     Unidad  := Valor - (Decena*10) - (Centena*100);

     if Centena>0 then Linea := Linea + Acentena[centena]+' ';

     if Doble>0 then begin
       if Doble=20 then Linea := Linea +' VEINTE '
         else begin
          if doble<16 then Linea := Linea + aUnidad[Doble]
            else begin
                 Linea := Linea +' '+ Adecena[Decena];
                 if (Decena>2) and (Unidad<>0) then Linea := Linea+' Y ';
                 if Unidad>0 then Linea := Linea + aUnidad[Unidad];
            end;
         end;
     end;
   end;
   Result := Linea;
end;