create or alter procedure moneytostr_ge0 (
    numb bigint,
    val varchar( 10 ) = null)
returns (
    text varchar( 1000 ))
AS
declare variable N1000 varchar( 200 );
declare variable N100 varchar( 10 );
declare variable N99 varchar( 30 );
declare variable N19 varchar( 200 );
declare variable NUn varchar( 2 );
declare variable maxd bigint = 1e12;
declare variable d int =  4 ;
declare variable emp varchar( 10 ) = '@';
declare variable ost bigint;
declare variable num bigint;
declare variable intnum int;
declare variable intnum0 int;
declare variable Text999 varchar( 100 );
declare variable Text99 varchar( 100 );
begin
  N1000 = coalesce(val, emp)||',aTasi,milioni,miliardi,trilioni'; --1e0, 1e3, 1e6, 1e9, 1e12
  N100 = 'asi'; -- 100
  N19 = 'erTi,ori,sami,oTxi,xuTi,eqvsi,Svidi,rva,cxra,aTi,TerTmeti,Tormeti,cameti,ToTxmeti,TxuTmeti,Teqvsmeti,Cvidmeti,Tvrameti,cxrameti'; -- 1-19
  N99 = 'oci,ormoci,samoci,oTxmoci'; -- 20, 40, 60, 80
  NUn = 'da';

  if (numb > maxd* 1000 ) then
    text = numb;
  else if (numb =  0 ) then
    text = 'nuli';
  else
  begin
    text = '';
    ost = numb;

    while (ost >  0 ) do
    begin
      maxd = maxd /  1000 ;
      num = ost / maxd;
      ost = ost - num * maxd;
      if (Num >  0 ) then
      begin
        Text999 = '';
        IntNum = Num /  100 ;
        if (IntNum >  0 ) then
        begin
          if (IntNum >  1 ) then
            select trim(trailing 'i' from code) from get_wordnum(:N19, ',', :IntNum) into Text999;
          Text999 = Text999 || N100;
        end

        IntNum = Num - IntNum *  100 ;
        if (IntNum >  0 ) then
        begin
          Text99 = '';
          IntNum0 = IntNum;
          IntNum = IntNum0 /  20 ;
          if (IntNum >  0 ) then
            select code from get_wordnum(:N99, ',', :IntNum) into Text99;
          IntNum = IntNum0 - IntNum *  20 ;
          if (IntNum >  0 ) then
          begin
            if (Text99 > '') then
              Text99 = trim(trailing 'i' from Text99) || :NUn;
            select :Text99||code from get_wordnum(:N19, ',', :IntNum) into Text99;
          end
          Text999 = trim(trailing 'i' from Text999)||' '||Text99;
        end
        select trim(trailing 'i' from :text)||' '||:Text999||' '||code from get_wordnum(:N1000, ',', :d) into text;
      end
      d = d -  1 ;
    end

    text = trim(replace(text, emp, ''));
  end
  suspend;
end;

create or alter procedure moneytostr_ge (
    summa numeric( 12 , 2 ))
returns (
    text varchar( 1000 ))
AS
declare variable signN int;
declare variable hi int;
declare variable lo int;
begin
  signN = sign(summa);
  summa = abs(summa);
  hi = floor(summa);
  lo = floor((summa - floor(summa))* 100 );

  text = iif(signN = - 1 , 'minusia', '');
  select :text||' '||trim(text) from moneytostr_ge0(:hi, 'lari')  into text;
  select :text||' '||trim(text) from moneytostr_ge0(:lo, 'TeTri') into text;
  text = trim(text);
  suspend;
end;