CREATE OR REPLACE FUNCTION fn_convert_num_to_char(IN _value text)
  RETURNS text AS
$BODY$
declare
	_ret text;
	tmpstr text;
	i int4;
	
	Mas1 text[ 9 ][ 3 ];
	Mas2 text[ 9 ];
	Mas3 text[ 2 ];
	Mas4 text[ 9 ][ 4 ];

begin

SELECT '{{"", "", ""}, {"сто ", "", "один "}, {"двести ", "двадцать ", "два "}, {"триста ", "тридцать ", "три "},
{"четыреста ", "сорок ", "четыре "}, {"пятьсот ", "пятьдесят ", "пять "}, {"шестьсот ", "шестьдесят ", "шесть "}, {"семьсот ", "семьдесят ", "семь "}, 
{"восемьсот ", "восемьдесят ", "восемь "}, {"девятьсот ", "девяносто ", "девять "}}'::text[][] into Mas1;

SELECT '{"десять ", "одиннадцать ", "двенадцать ", "тринадцать ", "четырнадцать ", "пятнадцать ", "шестнадцать ", "семнадцать ", "восемнадцать ", "девятнадцать "}'::text[] into Mas2; 

SELECT '{"одна ", "две "}'::text[] into Mas3;

select '{{"", "тысяч ", "миллионов ", "миллиардов "}, {"", "тысяча ", "миллион ", "миллиард "}, {"", "тысячи ", "миллиона ", "миллиарда "}, 
{"", "тысячи ", "миллиона ", "миллиарда "},  {"", "тысячи ", "миллиона ", "миллиарда "},  {"", "тысяч ", "миллионов ", "миллиардов "}, 
{"", "тысяч ", "миллионов ", "миллиардов "}, {"", "тысяч ", "миллионов ", "миллиардов "}, {"", "тысяч ", "миллионов ", "миллиардов "}}'::text[][] into Mas4;


_ret:= '';
tmpstr:= $ 1 ;
i:=  1 ;

while i < Length(tmpstr) loop
	if substr(tmpstr, i,  1 ) <> '0' then EXIT; end if;
	i:= i +  1 ;
end loop;
    
if i = Length($ 1 ) then
    _ret:= 'Ноль';
    exit;
end if;

while mod(length(tmpstr),  3 ) <>  0  loop
	tmpstr:= '0'||tmpstr;
end loop;

i:= ((Length(tmpstr)/ 3 )::text)::int4;
while i >=  1  loop

	if (substr(tmpstr,  1 ,  1 ) = '0') and (substr(tmpstr,  2 ,  1 ) = '0') and (substr(tmpstr,  3 ,  1 ) = '0') then
		tmpstr:= substr(tmpstr,  4 , length(tmpstr) -  3 );
		Continue;
	end if;
	_ret:= _ret || Mas1[substr(tmpstr,  1 ,  1 )::int4 +  1 ][ 1 ];

	if substr(tmpstr,  2 ,  1 ) = '1' then
		_ret:= _ret || Mas2[substr(tmpstr,  3 ,  1 )::int4 +  1 ] || Mas4[ 1 ][i];
	else
		_ret:= _ret || Mas1[substr(tmpstr,  2 ,  1 )::int4 +  1 ][ 2 ];
		if (i =  2 ) and (substr(tmpstr,  3 ,  1 ) = '1' or substr(tmpstr,  3 ,  1 ) =  '2') then
			_ret:= _ret || Mas3[substr(tmpstr,  3 ,  1 )::int4 ];
		else
			_ret:= _ret || Mas1[substr(tmpstr,  3 ,  1 )::int4 +  1 ][ 3 ];
		end if;
		
		_ret:= _ret || Mas4[substr(tmpstr,  3 ,  1 )::int4 +  1 ][i];

	end if;

	tmpstr:= substr(tmpstr,  4 , length(tmpstr) -  3 );
	
	i:= i -  1 ;
end loop;


return _ret;

end;
$BODY$
  LANGUAGE 'plpgsql' VOLATILE SECURITY DEFINER;