1С 8.3 Получить синоним реквизита
Данные > Примеры кода 1С > 1С 8.3 Форма, элементы
Перейти в раздел примеры кода 1С 8.3:
Функция возвращает синоним реквизита в 1С 8.3 (типовая):
Функция СинонимИзИмени(ИмяРеквизита) Экспорт
ДопустимыеАббревиатуры = Новый Массив;
ДопустимыеАббревиатуры.Добавить("ИНН");
ДопустимыеАббревиатуры.Добавить("КПП");
ДопустимыеАббревиатуры.Добавить("НДС");
ДопустимыеАббревиатуры.Добавить("ОС");
ДопустимыеАббревиатуры.Добавить("НМА");
СловаСинонима = Новый Массив;
УровниИмени = СтрРазделить(ИмяРеквизита, ".", Истина);
Для Каждого УровеньИмени Из УровниИмени Цикл
ЧастьСинонима = СтрокаСПробеламиИзСтиляТРегБезПробелов(УровеньИмени,
ДопустимыеАббревиатуры);
СловаСинонима.Добавить(КапитализироватьСтроку(ЧастьСинонима));
КонецЦикла;
Возврат СтрСоединить(СловаСинонима, ".");
КонецФункции
ДопустимыеАббревиатуры = Новый Массив;
ДопустимыеАббревиатуры.Добавить("ИНН");
ДопустимыеАббревиатуры.Добавить("КПП");
ДопустимыеАббревиатуры.Добавить("НДС");
ДопустимыеАббревиатуры.Добавить("ОС");
ДопустимыеАббревиатуры.Добавить("НМА");
СловаСинонима = Новый Массив;
УровниИмени = СтрРазделить(ИмяРеквизита, ".", Истина);
Для Каждого УровеньИмени Из УровниИмени Цикл
ЧастьСинонима = СтрокаСПробеламиИзСтиляТРегБезПробелов(УровеньИмени,
ДопустимыеАббревиатуры);
СловаСинонима.Добавить(КапитализироватьСтроку(ЧастьСинонима));
КонецЦикла;
Возврат СтрСоединить(СловаСинонима, ".");
КонецФункции
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник