Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
05 фев 2025, 22:10

Срочно нужна помощь

Автор programiss1C, 29 янв 2025, 10:19

0 Пользователей и 1 гость просматривают эту тему.

programiss1C

Есть конфигурация 1С «Спорткомплекс». В нее входят следующие СПРАВОЧНИКИ:
1. Услуги с реквизитом НаименованиеУслуги(строка);
2. Менеджер с реквизитами ФИО(строка), ставка(число);
3. ТипАбонемента с реквизитами: Название (строка), СрокДействия (строка), Цена (число), табличная часть «Опции», с реквизитами: Услуги(справочникссылка.услуги) , Количество (число);
4. Клиенты с реквизитами: ФИО(строка), ТипАбонемента(справочникссылка.ТипАбонемента), НомерТелефона(строка).
Помимо справочников, в конфигурации «Спорткоплекс» есть ДОКУМЕНТЫ:
1. Абонемент с реквизитами: ДатаПокупки(дата), Клиент (СправочникСсылка.Клиенты), ТипАбонемента (справочникссылка.ТипАбонемента) и табличная часть опции с реквизитами : Услуги(справочникссылка.Услуги) , Количество (число);
2. ПродажаАбонементов с реквизитами: ДатаПродажи(дата), Клиент (СправочникСсылка.Клиенты), Менеджер (СправочникСсылка.Менеджер), табличная часть «Продажа» с реквизитами: Абонемент(ДокументСсылка.Абонемент), Цена(число).
Задание: сделать так, чтобы в документа ПродажаАбонементов при выборе Клиента автоматически выбирался Абонемент, закрепленный за ним в документе Абонемент.

alexandr_ll

programiss1C, В конфигурации должен быть регистр сведений по абонементам. При проведении документа Абонемент делаются записи в этот регистр. В документе Продажа при выборе Клиента делается запрос к этому регистру для определения закрепленного Абонемента. Абонементов у одного клиента может быть несколько?

programiss1C

alexandr_ll, нет, абонемент у каждого может быть только один.

LexaK

programiss1C, план примерно такой
на формте документа ПродажаАбонементов, на поле Клиент
назначить обработчмк события ПриИзменении

НаКлиенте
Процедура ...
Если ЗначениеЗаполнено(Объект.Клиент) Тогад
объект.Абонент = НайтиАбонентНаСервере(Объект.Клиент);
Иначе
объект.Абонент = Неопределено;
КонецЕсли;


НаСервереБезКонтекста
Функция НайтиАбонентНаСервере(Клиент)
//здесь вставить запрос получения последнего Абонента клиента
если помогло нажмите: Спасибо!

programiss1C

LexaK, моя база

programiss1C

LexaK, еще фото

programiss1C

alexandr_ll, моя база

programiss1C

alexandr_ll, еще фото

Теги:

Похожие темы (4)

Рейтинг@Mail.ru

Поиск