DROP PROCEDURE IF EXISTS num_to_text_3r;
delimiter $$

#в качестве аргумента принимаеться целое число, либо число с одним или двумя знаками после запятой. разделители "," и "."
#напр.  12   12 . 99   12 , 90   12 , 9 
CREATE PROCEDURE num_to_text_3r(orignum VARCHAR( 128 ))
p_body:BEGIN

	DECLARE origlen INT( 11 ); 
	DECLARE iSot INT( 11 );
	DECLARE r INT( 11 );
	DECLARE i INT( 11 );
	DECLARE c1Sot VARCHAR( 32 );
	DECLARE c2Sot VARCHAR( 32 );
	DECLARE c3Sot VARCHAR( 32 );
	DECLARE rtext text;
	DECLARE esuff VARCHAR( 32 );

	#последние три цифры в числе считаються копейками, в случае отсутствия разделителя добавляем  000 
	IF locate('.',orignum)> 0  OR locate(',',orignum)> 0  THEN
		IF length(substring(orignum,locate('.',orignum)))= 2  OR length(substring(orignum,locate(',',orignum)))= 2 
		THEN
			SET orignum = replace(orignum,'.','0');
			SET orignum = replace(orignum,',','0');
			SET orignum = CONCAT(orignum,'0');
		ELSE	
			SET orignum = replace(orignum,'.','0');
			SET orignum = replace(orignum,',','0');
		END IF;
	ELSE
		SET orignum = concat(orignum,'000');
	END IF; 

	SET origlen = (SELECT length(orignum));
	SET r = round(origlen/ 3 + 0 . 3 );
	SET i =  0 ;
	SET rtext = ' ';
	SET esuff = ' ';

	WHILE (i<r) DO
		SET i = i+ 1 ;
		SET iSot = substring(LPAD(orignum,r* 3 ,'0'), -( 3 *i), 3 );
		#SELECT iSot,orignum;

		CASE substring(iSot,- 3 , 1 )
			WHEN  1  THEN SET c1Sot = 'сто';
			WHEN  2  THEN SET c1Sot = 'двести';
			WHEN  3  THEN SET c1Sot = 'триста';
			WHEN  4  THEN SET c1Sot = 'четыреста';
			WHEN  5  THEN SET c1Sot = 'пятьсот';
			WHEN  6  THEN SET c1Sot = 'шестьсот';
			WHEN  7  THEN SET c1Sot = 'семьсот';
			WHEN  8  THEN SET c1Sot = 'восемьсот';
			WHEN  9  THEN SET c1Sot = 'девятьсот';
			WHEN  0  THEN SET c1Sot = ' ';
		END CASE;

		IF i= 1  OR i= 3  THEN
			CASE substring(iSot,- 1 , 1 )
				WHEN  1  THEN SET c3Sot = 'одна';
				WHEN  2  THEN SET c3Sot = 'две';
				WHEN  3  THEN SET c3Sot = 'три';
				WHEN  4  THEN SET c3Sot = 'четыре';
				WHEN  5  THEN SET c3Sot = 'пять';
				WHEN  6  THEN SET c3Sot = 'шесть';
				WHEN  7  THEN SET c3Sot = 'семь';
				WHEN  8  THEN SET c3Sot = 'восемь';
				WHEN  9  THEN SET c3Sot = 'девять';
				WHEN  0  THEN SET c3Sot = ' ';
			END CASE;
		ELSE
			CASE substring(iSot,- 1 , 1 )
				WHEN  1  THEN SET c3Sot = 'один';
				WHEN  2  THEN SET c3Sot = 'два';
				WHEN  3  THEN SET c3Sot = 'три';
				WHEN  4  THEN SET c3Sot = 'четыре';
				WHEN  5  THEN SET c3Sot = 'пять';
				WHEN  6  THEN SET c3Sot = 'шесть';
				WHEN  7  THEN SET c3Sot = 'семь';
				WHEN  8  THEN SET c3Sot = 'восемь';
				WHEN  9  THEN SET c3Sot = 'девять';
				WHEN  0  THEN SET c3Sot = ' ';
			END CASE;
		END IF;
	
		CASE substring(iSot,- 2 , 1 )
			WHEN  1  THEN 
				BEGIN
					SET c2Sot = ' ';
					CASE substring(iSot,- 1 , 1 )
						WHEN  1  THEN SET c3Sot = 'одиннадцать';
						WHEN  2  THEN SET c3Sot = 'двенадцать';
						WHEN  3  THEN SET c3Sot = 'тринадцать';
						WHEN  4  THEN SET c3Sot = 'четырнадцать';
						WHEN  5  THEN SET c3Sot = 'пятнадцать';
						WHEN  6  THEN SET c3Sot = 'шестнадцать';
						WHEN  7  THEN SET c3Sot = 'семнадцать';
						WHEN  8  THEN SET c3Sot = 'восемнадцать';
						WHEN  9  THEN SET c3Sot = 'девятнадцать';
						WHEN  0  THEN SET c3Sot = 'десять';
					END CASE;
				END;
			WHEN  2  THEN SET c2Sot = 'двадцать';
			WHEN  3  THEN SET c2Sot = 'тридцать';
			WHEN  4  THEN SET c2Sot = 'сорок';
			WHEN  5  THEN SET c2Sot = 'пятьдесят';
			WHEN  6  THEN SET c2Sot = 'шестьдесят';
			WHEN  7  THEN SET c2Sot = 'семьдесят';
			WHEN  8  THEN SET c2Sot = 'восемьдесят';
			WHEN  9  THEN SET c2Sot = 'девяносто';
			WHEN  0  THEN SET c2Sot = ' ';
		END CASE;

		CASE i
			WHEN  1  THEN
				BEGIN
					IF substring(iSot,- 1 , 1 )= 1  THEN SET esuff='копейка'; END IF;
					IF substring(iSot,- 1 , 1 )> 1  THEN SET esuff='копейки'; END IF;
					IF substring(iSot,- 1 , 1 )> 4  THEN SET esuff='копеек'; END IF;
					IF substring(iSot,- 1 , 1 )= 0  THEN SET esuff='копеек'; END IF;
					IF substring(iSot,- 2 , 1 )= 1  THEN SET esuff='копеек'; END IF;
					IF substring(iSot,- 2 , 1 )= 0  AND substring(iSot,- 1 , 1 )= 0  THEN
						SET esuff='ноль копеек'; END IF;
					
				END;
			WHEN  2  THEN
				BEGIN
					IF substring(iSot,- 1 , 1 )= 1  THEN SET esuff='рубль'; END IF;
					IF substring(iSot,- 1 , 1 )> 1  THEN SET esuff='рубля'; END IF;
					IF substring(iSot,- 1 , 1 )> 4  THEN SET esuff='рублей'; END IF;
					IF substring(iSot,- 1 , 1 )= 0  THEN SET esuff='рублей'; END IF;
					IF substring(iSot,- 2 , 1 )= 1  THEN SET esuff='рублей'; END IF;
				END;
			WHEN  3  THEN
				BEGIN
					IF substring(iSot,- 1 , 1 )= 1  THEN SET esuff='тысяча'; END IF;
					IF substring(iSot,- 1 , 1 )> 1  THEN SET esuff='тысячи'; END IF;
					IF substring(iSot,- 1 , 1 )> 4  THEN SET esuff='тысяч'; END IF;
					IF substring(iSot,- 1 , 1 )= 0  THEN SET esuff='тысяч'; END IF;
					IF substring(iSot,- 2 , 1 )= 1  THEN SET esuff='тысяч'; END IF;
					IF substring(iSot,- 3 , 1 )= 0  AND substring(iSot,- 2 , 1 )= 0 
						AND substring(iSot,- 1 , 1 )= 0  THEN SET esuff=' '; END IF;
				END;
			WHEN  4  THEN
				BEGIN
					IF substring(iSot,- 1 , 1 )= 1  THEN SET esuff='миллион'; END IF;
					IF substring(iSot,- 1 , 1 )> 1  THEN SET esuff='миллиона'; END IF;
					IF substring(iSot,- 1 , 1 )> 4  THEN SET esuff='миллионов'; END IF;
					IF substring(iSot,- 1 , 1 )= 0  THEN SET esuff='миллионов'; END IF;
					IF substring(iSot,- 2 , 1 )= 1  THEN SET esuff='миллионов'; END IF;
					IF substring(iSot,- 3 , 1 )= 0  AND substring(iSot,- 2 , 1 )= 0 
						AND substring(iSot,- 1 , 1 )= 0  THEN SET esuff=' '; END IF;
				END;
			WHEN  5  THEN
				BEGIN
					IF substring(iSot,- 1 , 1 )= 1  THEN SET esuff='миллиард'; END IF;
					IF substring(iSot,- 1 , 1 )> 1  THEN SET esuff='миллиарда'; END IF;
					IF substring(iSot,- 1 , 1 )> 4  THEN SET esuff='миллиардов'; END IF;
					IF substring(iSot,- 1 , 1 )= 0  THEN SET esuff='миллиардов'; END IF;
					IF substring(iSot,- 2 , 1 )= 1  THEN SET esuff='миллиардов'; END IF;
					IF substring(iSot,- 3 , 1 )= 0  AND substring(iSot,- 2 , 1 )= 0 
						AND substring(iSot,- 1 , 1 )= 0  THEN SET esuff=' '; END IF;
				END;
			ELSE SET esuff='ERR:слишком большая сумма';
		END CASE;
		SET rtext = CONCAT(c1Sot,' ',c2Sot,' ',c3Sot,' ',esuff,' ',rtext);
	END WHILE;
	SET rtext = REPLACE(REPLACE(REPLACE(REPLACE(LTRIM(rtext),'  ',' '),'  ',' '),'  ',' '),'  ',' ');
	IF locate('рубл',rtext)= 1  THEN SET rtext=concat('ноль ',rtext); END IF;
	SELECT rtext;

END;$$
delimiter ;