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

21.01.09

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

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
Translit .1228468912 64,00Kb 130	130	Скачать (1 SM)	Купить за 1 850 руб.

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

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

+10 –

См. также

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

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

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

1 стартмани

22.12.2023 1554 14 user706545_kseg1971 0

Функции работы с расписанием конфигурации Аналит.Стоматология 7.7

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

Функции работы со временем (расчета номеров блоков) для обработки расписания конфигурации Аналит.Стоматология 7.7.

25.11.2022 1124 igor7777 0

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

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

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

25.04.2022 2450 zhenyat 7

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

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

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

30.06.2021 5370 Zoltan_Black 11

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

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

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

1 стартмани

13.02.2019 14059 4 alsen 3

Заполнение реквизитов документов из предыдущего документа

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

Функция для автоматического заполнения реквизитов документов.

04.02.2019 7442 drevilo 2

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

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

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

1 стартмани

10.12.2018 10963 malovandrey 7

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

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

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

1 стартмани

27.09.2016 18940 2 HAMMER_59 6

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. NoMax 233 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".

5. NoMax 233 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)))));
КонецЦикла;
Возврат Рез;
КонецФункции

Не переводит все в Капс.