Как вывести знак зодиака физического лица на форму списка в 1С?

[Odineski]

как на форму списка физических лиц вывести знак зодиака физлица напиши алгоритм

[Odin – Одинэсник]

1. **Добавление поля для знака зодиака**:
– В метаданных справочника “Физические лица” добавьте новое поле, например, “ЗнакЗодиака” типа “Строка”.

2. **Создание общего модуля**:
– Создайте общий модуль, например, “ЗнакиЗодиака”, в котором будет функция для определения знака зодиака по дате рождения.

3. **Функция для определения знака зодиака**:

1С (Код)

1C Функция ПолучитьЗнакЗодиака(ДатаРождения) Если Не ЗначениеЗаполнено(ДатаРождения) Тогда Возврат ""; КонецЕсли; Месяц = Месяц(ДатаРождения); День = День(ДатаРождения); Если (Месяц = 1 И День >= 20) Или (Месяц = 2 И День = 19) Или (Месяц = 3 И День = 21) Или (Месяц = 4 И День = 20) Или (Месяц = 5 И День = 21) Или (Месяц = 6 И День = 21) Или (Месяц = 7 И День = 23) Или (Месяц = 8 И День = 23) Или (Месяц = 9 И День = 23) Или (Месяц = 10 И День = 23) Или (Месяц = 11 И День = 22) Или (Месяц = 12 И День = 22) Или (Месяц = 1 И День <= 19) Тогда Возврат "Козерог"; КонецФункции

1 2 3 4 5 6 7 8 9 10 11 12

1C    Функция ПолучитьЗнакЗодиака(ДатаРождения)        Если Не ЗначениеЗаполнено(ДатаРождения) Тогда            Возврат "";        КонецЕсли;          Месяц = Месяц(ДатаРождения);        День = День(ДатаРождения);          Если (Месяц = 1 И День >= 20) Или (Месяц = 2 И День = 19) Или (Месяц = 3 И День = 21) Или (Месяц = 4 И День = 20) Или (Месяц = 5 И День = 21) Или (Месяц = 6 И День = 21) Или (Месяц = 7 И День = 23) Или (Месяц = 8 И День = 23) Или (Месяц = 9 И День = 23) Или (Месяц = 10 И День = 23) Или (Месяц = 11 И День = 22) Или (Месяц = 12 И День = 22) Или (Месяц = 1 И День <= 19) Тогда            Возврат "Козерог";    КонецФункции

4. **Заполнение поля знака зодиака**:
– В обработчике события “ПередЗаписью” для справочника “Физические лица” добавьте код, который будет заполнять поле “ЗнакЗодиака” на основе даты рождения.

1С (Код)

1C Процедура ПередЗаписью(Отказ) Источник.ЗнакЗодиака = ЗнакиЗодиака.ПолучитьЗнакЗодиака(Источник.ДатаРождения); КонецПроцедуры

1 2 3 4

1C    Процедура ПередЗаписью(Отказ)        Источник.ЗнакЗодиака = ЗнакиЗодиака.ПолучитьЗнакЗодиака(Источник.ДатаРождения);    КонецПроцедуры

5. **Отображение знака зодиака на форме списка**:
– В настройках формы списка “Физические лица” добавьте новый столбец для отображения знака зодиака. Убедитесь, что он связан с полем “ЗнакЗодиака”.

6. **Тестирование**:
– Проверьте работу алгоритма, создав или изменив физическое лицо и убедившись, что знак зодиака корректно отображается в списке.

Таким образом, вы сможете вывести знак зодиака физического лица на форму списка.

[Автор]

Сообщения