Архивы: right

Работаем с персональными данными в запросе 1С

Опубликовал(а): в: 27.01.2025 Нет комментариев

Иногда требуется выдернуть из справочника с полными ФИО данные для представления результата пользователю в усеченном виде.

С учетом того, что в версии 1С 8.3.20 появились некоторые новые функции в запросах 1С, можно использовать следующие варианты сокращений ФИО:

  1. Только фамилия:
    ЛЕВ(Объект.Наименование, СТРНАЙТИ(Объект.Наименование, " ") - 1)

  2. Фамилия и инициал только имени:
    (ВЫРАЗИТЬ(ЛЕВ(Объект.Наименование, СТРНАЙТИ(Объект.Наименование, " ") + 1) КАК СТРОКА(100))) + "."

  3. Фамилия и полные инициалы (имя, отчество):
    (ВЫРАЗИТЬ(ЛЕВ(Объект.Наименование, СТРНАЙТИ(Объект.Наименование, " ") + 1) КАК СТРОКА(100))) + "." + (ВЫРАЗИТЬ(ПОДСТРОКА(ПРАВ(ПРАВ(Объект.Наименование, ДЛИНАСТРОКИ(Объект.Наименование) - СТРНАЙТИ(Объект.Наименование, " ")), ДЛИНАСТРОКИ(ПРАВ(Объект.Наименование, ДЛИНАСТРОКИ(Объект.Наименование) - СТРНАЙТИ(Объект.Наименование, " "))) - СТРНАЙТИ(ПРАВ(Объект.Наименование, ДЛИНАСТРОКИ(Объект.Наименование) - СТРНАЙТИ(Объект.Наименование, " ")), " ")), 1, 1) КАК СТРОКА(1))) + "."

Ошибка отрисовки SynEdit при расположении на форме справа

Опубликовал(а): в: 05.01.2022 Нет комментариев

Сегодня я столкнулся с ошибкой отрисовки компонента SynEdit. При этом стоит оговориться, что при использовании SynEdit из оригинального репозитория такой проблемы нет. Я устанавливал себе TurboPack SynEdit (версия 2021.08) через менеджер пакетов GetIt в среде разработки Embarcadero Delphi 10.4 Community Edition. Использую при этом операционную систему MS Windows 11 (21H2).

Ошибка проявляется следующим образом:

  1. Свойство Align компонента TSynEdit равно значению alRight.
  2. Свойство WindowState компонента TForm переводим в значение wsMaximized.

Чтобы устранить эту проблему, временно использую в обработчике формы TForm.OnResize процедуру перерисовки компонента TSynEdit при изменении размеров окна:
SynEdit1.Repaint;

UPDATE 07.01.2022: Озвученная ошибка была исправлена 19 ноября. Пока пакет TurboPack SynEdit не обновился в менеджере пакетов GetIt, можно скачать и установить вручную свежую версию из репозитория проекта.