SumInWords

Функции

---

Функция PostgreSQL для написания суммы словами.

SELECT SumInWords(356859.25);
result:  'триста пятьдесят шесть тысяч восемьсот пятьдесят девять  рублeй 25 копeeк'

---

  
   CREATE OR REPLACE FUNCTION SumInWords(numeric)
     RETURNS character varying AS
   $BODY$
   DECLARE
   	tnInNmb			ALIAS FOR $1 ;
       
       result			VARCHAR ;
   BEGIN
      -- k - копейки
     result := ltrim(to_char(tnInNmb, '9,9,,9,,,,,,9,9,,9,,,,,9,9,,9,,,,9,9,,9,,,.99')) || 'k';
     -- t - тысячи; m - милионы; M - миллиарды;
     result := replace( result, ',,,,,,', 'eM');
     result := replace( result, ',,,,,', 'em');
     result := replace( result, ',,,,', 'et');
     -- e - единицы; d - десятки; c - сотни;
     result := replace( result, ',,,', 'e');
     result := replace( result, ',,', 'd');
     result := replace( result, ',', 'c');
     --
     result := replace( result, '0c0d0et', '');
     result := replace( result, '0c0d0em', '');
     result := replace( result, '0c0d0eM', '');
     --
     result := replace( result, '0c', '');
     result := replace( result, '1c', 'сто ');
     result := replace( result, '2c', 'двести ');
     result := replace( result, '3c', 'триста ');
     result := replace( result, '4c', 'четыреста ');
     result := replace( result, '5c', 'пятьсот ');
     result := replace( result, '6c', 'шестьсот ');
     result := replace( result, '7c', 'семьсот ');
     result := replace( result, '8c', 'восемьсот ');
     result := replace( result, '9c', 'девятьсот ');
     --
     result := replace( result, '1d0e', 'десять ');
     result := replace( result, '1d1e', 'одиннадцать ');
     result := replace( result, '1d2e', 'двенадцать ');
     result := replace( result, '1d3e', 'тринадцать ');
     result := replace( result, '1d4e', 'четырнадцать ');
     result := replace( result, '1d5e', 'пятнадцать ');
     result := replace( result, '1d6e', 'шестнадцать ');
     result := replace( result, '1d7e', 'семьнадцать ');
     result := replace( result, '1d8e', 'восемнадцать ');
     result := replace( result, '1d9e', 'девятнадцать ');
     --
     result := replace( result, '0d', '');
     result := replace( result, '2d', 'двадцать ');
     result := replace( result, '3d', 'тридцать ');
     result := replace( result, '4d', 'сорок ');
     result := replace( result, '5d', 'пятьдесят ');
     result := replace( result, '6d', 'шестьдесят ');
     result := replace( result, '7d', 'семьдесят ');
     result := replace( result, '8d', 'восемьдесят ');
     result := replace( result, '9d', 'девяносто ');
     --
     result := replace( result, '0e', '');
     result := replace( result, '5e', 'пять ');
     result := replace( result, '6e', 'шесть ');
     result := replace( result, '7e', 'семь ');
     result := replace( result, '8e', 'восемь ');
     result := replace( result, '9e', 'девять ');
     --
     result := replace( result, '1e.', 'один рубль ');
     result := replace( result, '2e.', 'два рубля ');
     result := replace( result, '3e.', 'три рубля ');
     result := replace( result, '4e.', 'четыре рубля ');
     result := replace( result, '1et', 'одна тысяча ');
     result := replace( result, '2et', 'две тысячи ');
     result := replace( result, '3et', 'три тысячи ');
     result := replace( result, '4et', 'четыре тысячи ');
     result := replace( result, '1em', 'один миллион ');
     result := replace( result, '2em', 'два миллиона ');
     result := replace( result, '3em', 'три миллиона ');
     result := replace( result, '4em', 'четыре миллиона ');
     result := replace( result, '1eM', 'один милиард ');
     result := replace( result, '2eM', 'два милиарда ');
     result := replace( result, '3eM', 'три милиарда ');
     result := replace( result, '4eM', 'четыре милиарда ');
     --
     result := replace( result, '11k', '11 копеек');
     result := replace( result, '12k', '12 копеек');
        result := replace( result, '13k', '13 копеек');
     result := replace( result, '14k', '14 копеек');
     result := replace( result, '1k', '1 копейка');
     result := replace( result, '2k', '2 копейки');
     result := replace( result, '3k', '3 копейки');
     result := replace( result, '4k', '4 копейки');
     --
   
     if not (substr(result,1,1)='.') then
     result := replace( result, '.', ' рублeй ');
     else
     result := replace( result, '.', 'ноль рублeй ');
     end if;
     result := replace( result, 't', 'тысяч ');
     result := replace( result, 'm', 'миллионов ');
     result := replace( result, 'M', 'милиардов ');
     result := replace( result, 'k', ' копeeк');
     --
     RETURN(result);
   END;
   $BODY$
     LANGUAGE plpgsql STABLE STRICT
     COST 100;
   ALTER FUNCTION SumInWords(numeric)
     OWNER TO adempiere;