public function string of_amountinwords (readonly decimal ac_amount);/*
Функция для прописи суммы (в рублях и копейках)
ac_Amount - сумма
*/
String ls_AmountString

if (  999999999999 . 99  < ac_Amount ) then
	//сумма ограничена классом миллиардов
	ls_AmountString = String( ac_Amount, '###,###,###,###,###,###,###,###,###,###,###,###,###,##0.00' )
	return ls_AmountString
end if

/*
	k - копейки
	e - единицы
	d - десятки
	c - сотни
	t - тысячи
	m - милионы
	M - миллиарды
*/

String ls_ReplaceTable[ ] = { &
	'$$$$$$', 'eM', &
	'$$$$$', 'em', &
	'$$$$', 'et', &
	'$$$', 'e', &
	'$$', 'd', &
	'$', 'c', &
	&	
	'0c0d0et', '', &
	'0c0d0em', '', &
	'0c0d0eM', '', &
	&	
	'0c', '', &
	'1c', 'сто ', &
	'2c', 'двести ', &
	'3c', 'триста ', &
	'4c', 'четыреста ', &
	'5c', 'пятьсот ', &
	'6c', 'шестьсот ', &
	'7c', 'семьсот ', &
	'8c', 'восемьсот ', &
	'9c', 'девятьсот ', &
	&
	'1d0e', 'десять ', &
	'1d1e', 'одиннадцать ', &
	'1d2e', 'двенадцать ', &
	'1d3e', 'тринадцать ', &
	'1d4e', 'четырнадцать ', &
	'1d5e', 'пятнадцать ', &
	'1d6e', 'шестнадцать ', &
	'1d7e', 'семьнадцать ', &
	'1d8e', 'восемнадцать ', &
	'1d9e', 'девятнадцать ', &
	&
	'0d', '', &
	'2d', 'двадцать ', &
	'3d', 'тридцать ', &
	'4d', 'сорок ', &
	'5d', 'пятьдесят ', &
	'6d', 'шестьдесят ', &
	'7d', 'семьдесят ', &
	'8d', 'восемьдесят ', &
	'9d', 'девяносто ', &
	&
	'0e', '', &
	'5e', 'пять ', &
	'6e', 'шесть ', &
	'7e', 'семь ', &
	'8e', 'восемь ', &
	'9e', 'девять ', &
	&
	'1e.', 'один рубль ', &
	'2e.', 'два рубля ', &
	'3e.', 'три рубля ', &
	'4e.', 'четыре рубля ', &
	'1et', 'одна тысяча ', &
	'2et', 'две тысячи ', &
	'3et', 'три тысячи ', &
	'4et', 'четыре тысячи ', &
	'1em', 'один миллион ', &
	'2em', 'два миллиона ', &
	'3em', 'три миллиона ', &
	'4em', 'четыре миллиона ', &
	'1eM', 'один милиард ', &
	'2eM', 'два милиарда ', &
	'3eM', 'три милиарда ', &
	'4eM', 'четыре милиарда ', &
	&
	'11k', '11 копеек', &
	'12k', '12 копеек', &
	'13k', '13 копеек', &
	'14k', '14 копеек', &
	'1k', '1 копейка', &
	'2k', '2 копейки', &
	'3k', '3 копейки', &
	'4k', '4 копейки', &
	&
	'.', 'рублей ', &
	't', 'тысяч ', &
	'm', 'миллионов ', &
	'M', 'милиардов ', &
	'k', ' копеек', &
	'-', 'минус ' &
}

ls_AmountString = String( ac_Amount,'#$#$$#$$$$$$#$#$$#$$$$$#$#$$#$$$$#$#$$#$$$.##k;-#$#$$#$$$$$$#$#$$#$$$$$#$#$$#$$$$#$#$$#$$$.##k' )
if  0  < Pos( ls_AmountString, ',' ) then ls_AmountString = Replace( ls_AmountString, Pos( ls_AmountString, ',' ),  1 , '.' )

int i
for i =  1  to UpperBound( ls_ReplaceTable[ ] ) step  2 
	do while (  0  < Pos( ls_AmountString, ls_ReplaceTable[ i ] ) ) 
		ls_AmountString = Replace( ls_AmountString, Pos( ls_AmountString, ls_ReplaceTable[ i ] ), Len( ls_ReplaceTable[ i ] ), ls_ReplaceTable[ i +  1  ] )
	loop
next

ls_AmountString = Trim( Upper( Left( ls_AmountString,  1  ) ) + Lower( Mid( ls_AmountString ,  2  ) ) )

return ls_AmountString
end function