Здравствуйте друзья. Нужно помощь по 1С
Значит Есть справочник - СегментыЦен ( Никаких реквизитов нету кроме системного Наименование)
Есть документ ПрайсЛист ( Внутри ТабличнаяЧасть )
Реквизиты ТабЧасти
Номенклатура - Тип СправочникСсылка.Номенклатура
ЕдИзмирение - Тип СправочникСсылка.ЕдИзмирение
Цена - Тип Число 6, Точность 3
Что я собираюсь делать в табчасти создал кнопку. Хочу при нажатие на эту кнопку Открывалось СписокВыбора На справочник СегментыЦен Оттуда я выбераю те сегменты цен которые хочу. напирмер могу всех выбрать могу одного не имеет значение. Нажимаю ок. В табличной части создаются новые колонки под названиеями этих СегментыЦен. Написал код
Код на Модуле обьекта
Ошибки нету. Но в предпринятие когда захочу программа ругается что выбрать сегмент насервере не обнаружен. Прошу помочь а может код вообще не правильно написал
Значит Есть справочник - СегментыЦен ( Никаких реквизитов нету кроме системного Наименование)
Есть документ ПрайсЛист ( Внутри ТабличнаяЧасть )
Реквизиты ТабЧасти
Номенклатура - Тип СправочникСсылка.Номенклатура
ЕдИзмирение - Тип СправочникСсылка.ЕдИзмирение
Цена - Тип Число 6, Точность 3
Что я собираюсь делать в табчасти создал кнопку. Хочу при нажатие на эту кнопку Открывалось СписокВыбора На справочник СегментыЦен Оттуда я выбераю те сегменты цен которые хочу. напирмер могу всех выбрать могу одного не имеет значение. Нажимаю ок. В табличной части создаются новые колонки под названиеями этих СегментыЦен. Написал код
Код на Модуле обьекта
&НаСервере
Процедура ВыбратьСегментыНаСервере(Результат)
// Логика для выбора сегментов
Сегменты = Справочники.СегментыЦен.Выбрать(); // Пример выборки
Если Сегменты.Количество() > 0 Тогда
Результат = Сегменты; // Возвращаем выбранные сегменты
Иначе
Результат = Неопределено; // Если сегменты не выбраны
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ОбработатьСегментыНаСервере(ВыбранныеСегменты)
// Проверка, если сегменты выбраны
Если Не ВыбранныеСегменты.Пустая() Тогда
// Обработка выбранных сегментов
Для Каждого Сегмент Из ВыбранныеСегменты Цикл
// Добавить сегмент в табличную часть документа
НоваяСтрока = ЭтотОбъект.ТабличнаяЧасть.Добавить();
НоваяСтрока.Сегмент = Сегмент; // Добавление сегмента в строку
КонецЦикла;
Сообщить("Сегменты успешно добавлены в табличную часть");
Иначе
Сообщить("Не выбраны сегменты для добавления");
КонецЕсли;
КонецПроцедуры
Потом код на Форме документа
НаКлиенте
Процедура КнопкаВыбораСегментов(Кнопка)
// Создаем переменную для получения результатов
Результат = Неопределено;
// Получаем объект документа
ДокументОбъект = ЭтотОбъект; // Или получаем через форму, если требуется
// Вызов серверной процедуры для получения выбранных сегментов
ДокументОбъект.ВыбратьСегментыНаСервере(Результат);
Если Результат <> Неопределено Тогда
Сообщить("Сегменты успешно выбраны: " + Строка(Результат));
// Передаем выбранные сегменты на сервер для дальнейшей обработки
ЭтотОбъект.ОбработатьСегментыНаСервере(Результат);
Иначе
Сообщить("Сегменты не выбраны.");
КонецЕсли;
КонецПроцедуры ПоказатьОшибки нету. Но в предпринятие когда захочу программа ругается что выбрать сегмент насервере не обнаружен. Прошу помочь а может код вообще не правильно написал
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(1)
Краткая история по всем твоим темам с вознаграждениями:
Вознаграждение выдано:
1.
Вознаграждение никому не выдано, сумма так и висит:
1.
2.
Забрал вознаграждение себе обратно:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Как планируешь поступить в этой теме? Стоит пытаться тебе помочь?
Сумма: 1 $m
Добавили:
user1087014 (1 $m)
Добавили:
user1087014 (1 $m)
Краткая история по всем твоим темам с вознаграждениями:
Вознаграждение выдано:
1.
Вознаграждение никому не выдано, сумма так и висит:
1.
2.
Забрал вознаграждение себе обратно:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Как планируешь поступить в этой теме? Стоит пытаться тебе помочь?
(5)
о нэ знаю, да.
16 ссылок привел, а ему хоть в глаза ссы
Послушай родной мой, во первый я от тебя не боюсь что бы тебе врать ) Во вторых Я вообще не помню все это. Во вторых нужно помощь, сможешь сделаешь получишь вознограждение. это для меня не такая большая вешь. стоит тут на баланке хер знает с каких пор. так что давай не будем друг другу что либо доказывать а реально либо помогать либо нет
16 ссылок привел, а ему хоть в глаза ссы
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот
