Транслитерация текста для Документа "Заявка на открытие счетов"

21.01.09

Разработка - Универсальные функции

Транслитерация текста для Документа "Заявка на открытие счетов". Eказывается текст, эмбоссированный на карточке.

Скачать файлы

Наименование Файл Версия Размер
Translit
.1228468912 64,00Kb
130
.1228468912 64,00Kb 130 Скачать

Функция добавляется в документ "Завяка на открытие счетов" , для автоматического эмбоссированния текста.

Можно настраивать свои правила для транслитерации.

См. также

Библиотека процедур и функций для технологической платформы "1С: Предприятие 7.7"

Универсальные функции Платформа 1С v7.7 Россия Абонемент ($m)

В библиотеку собраны различные функции по работе с документами, журналами, типами данных, строками, датой и временем, таблицами значений, Excel, файлами, XML, JSON, Http-сервисами, SMTP серверами и т.п.

1 стартмани

22.12.2023    657    9    user706545_kseg1971    0    

4

1С 7.7 и новый 1С:Контрагент

Универсальные функции Платформа 1С v7.7 Конфигурации 1cv7 Россия Бесплатно (free)

Получение реквизитов контрагентов из 1С:Контрагент для старых конфигураций под 1с 7.7.

25.04.2022    1820    zhenyat    7    

6

Печать таблицы значений в 1С 7.7 при отладке

Универсальные функции Платформа 1С v7.7 Россия Бесплатно (free)

Функция выводит таблицу значений в табличный документ. (v7.7) Особенно полезно при отладке. Не нужно вносить изменения в код, вызываем функцию как вычисляемое выражение при останове. Если таблица обрабатывается в несколько этапов, можно вывести её после каждого и визуально проследить эволюцию.

30.06.2021    4399    Zoltan_Black    11    

2

Установка принтера по умолчанию для 1С 7.7

Универсальные функции Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Установка принтера по умолчанию в 1С 7.7. Обработка может быть полезна в том случае, когда нужно установить принтер по умолчанию, а доступа к рабочему столу нет (например, терминальный режим без рабочего стола или remoteApp)

1 стартмани

13.02.2019    13286    4    alsen    3    

4

Формирование строки json в 1С: 7.7

Универсальные функции Платформа 1С v7.7 Конфигурации 1cv7 1С:Комплексная 7.7 Абонемент ($m)

Предлагается набор функций 1с 7.7 для формирования строки json стандартными средствами.

1 стартмани

10.12.2018    10094    malovandrey    2    

18

Как создать индикатор в 1С:Предприятии 7.7

Универсальные функции Работа с интерфейсом Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m)

В статье дано описание создания индикатора на форме в среде разработки 1С:Предприятие 7.7 исключительно типовыми средствами.

1 стартмани

27.09.2016    18672    2    HAMMER_59    6    

2
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. NoMax 232 05.10.09 16:48 Сейчас в теме
Код фунции
Функция Transliterate(srtRusWord)

strRUS = "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ";
strENG = "A///B///V///G///D///E///YO//ZH//Z///I///Y///K///L///M///N//­/O///P///R///S///T///U///F///KH//TS//CH//SH//SHCH'///Y//////­/E///YU//JA//";

strResult = "";

Для i = 1 по СтрДлина(srtRusWord) Цикл

s = Сред(srtRusWord, i,1);
s=ВРег(s);

k = Найти(strRUS, s);

Если k = 0 тогда

strResult = strResult + s;

Иначе
strResult = strResult + СтрЗаменить(Сред(strENG, (k - 1) * 4 + 1, 4), "/", "");

КонецЕсли

КонецЦикла ;

Возврат strResult;
КонецФункции
4. maxchaos 22 22.10.10 20:16 Сейчас в теме
(1) Спасибо, работает!
Для тех, кто скопи-пастит код из (1):
в конечном коде в значении переменной strENG удалите дефис после "N//", т.к. дефис - это не часть переменной, это автоперенос длинной строки текста данной публикации!
Иначе получите Иванов -> IVAN-OV
Для себя я еще заменил соответствие для "Я" на "YA" вместо "JA".
bellserok; +1 Ответить
5. NoMax 232 25.10.10 12:31 Сейчас в теме
(4) Это глюк IE, под Оперой все нормально.
2. so-quest 140 10.12.09 11:52 Сейчас в теме
спасибо. а то ломает писать самому
3. foxey 4 23.12.09 10:07 Сейчас в теме
Так понимаю, все переводится в верхний регистр... Я такую вот функцию написал в свое время:
Функция Транслитерация(Стр) ЭКСПОРТ
Рез = СокрЛП(Стр);
СтрРус = "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ";
СтрАнг = "ABVGDEEZHZIYKLMNOPRSTUFHTSCHSHSCH Y EYUYA";
КолСим = "111111121111111111111112223111122";
СтрРус = СтрРус + Нрег(СтрРус);
СтрАнг = СтрАнг + Нрег(СтрАнг);
КолСим = КолСим + КолСим;
Для сч = 1 по СтрДлина(СтрРус) Цикл
Место = 1;
Для сч1 = 1 по сч-1 Цикл
Место = Место + Число(Сред(КолСим,сч1,1));
КонецЦикла;
Рез = СтрЗаменить(Рез, Сред(СтрРус,сч,1), СокрЛП(Сред(СтрАнг,Место,Число(Сред(КолСим,сч,1)))));
КонецЦикла;
Возврат Рез;
КонецФункции

Не переводит все в Капс.
6. integragirl 27.03.12 13:09 Сейчас в теме
NoMAx, респект тебе за код!
Оставьте свое сообщение