Boolean	lb_yes
Long		ll_len, i, j, ll_count
String	ls_ret, ls_lit
String	ls_rus[] =	{"а", "б", "в", "г", "д", "е", "ё", "ж", "з", "и", "й", "к", "л", "м", &
							"н", "о", "п", "р", "с", "т", "у", "ф", "х", "ц", "ч", "ш", "щ", "ъ", &
							"ы", "ь", "э", "ю", "я"}
String	ls_lat[] =	{"a", "b", "v", "g", "d", "e", "yo", "j", "z", "i", "iy", "k", "l", "m", &
							"n", "o", "p", "r", "s", "t", "u", "f", "h", "ts", "ch", "sh", "sch", "", &
							"i", "", "e", "yu", "ya"}
IF IsNull(as_text) THEN as_text = ""
ls_ret = ""
ll_len = Len(as_text)
IF ll_len =  0  THEN RETURN ""
ll_count = UpperBound(ls_rus)

FOR i =  1  TO ll_len
	lb_yes = False
	ls_lit = Mid(as_text, i,  1 )
	FOR j =  1  TO ll_count
		IF Lower(ls_lit) = ls_rus[j] THEN
			lb_yes = True
			EXIT
		END IF
	NEXT
	IF lb_yes THEN
		IF gnv_app.inv_string.of_IsUpper(ls_lit) THEN
			ls_ret += gnv_app.inv_string.of_WordCap(ls_lat[j])
		ELSE
			ls_ret += ls_lat[j]
		END IF
	ELSE
		ls_ret += ls_lit
	END IF
NEXT

RETURN ls_ret