ИсторияИзминениеЦен

1. user1087014 12.01.25 14:19 Сейчас в теме
Здравствуйте друзья. Нужно помощь по 1С
Значит Есть справочник - СегментыЦен ( Никаких реквизитов нету кроме системного Наименование)
Есть документ ПрайсЛист ( Внутри ТабличнаяЧасть )
Реквизиты ТабЧасти
Номенклатура - Тип СправочникСсылка.Номенклатура
ЕдИзмирение - Тип СправочникСсылка.ЕдИзмирение
Цена - Тип Число 6, Точность 3

Что я собираюсь делать в табчасти создал кнопку. Хочу при нажатие на эту кнопку Открывалось СписокВыбора На справочник СегментыЦен Оттуда я выбераю те сегменты цен которые хочу. напирмер могу всех выбрать могу одного не имеет значение. Нажимаю ок. В табличной части создаются новые колонки под названиеями этих СегментыЦен. Написал код
Код на Модуле обьекта
&НаСервере
Процедура ВыбратьСегментыНаСервере(Результат)
// Логика для выбора сегментов
Сегменты = Справочники.СегментыЦен.Выбрать(); // Пример выборки

Если Сегменты.Количество() > 0 Тогда
Результат = Сегменты; // Возвращаем выбранные сегменты
Иначе
Результат = Неопределено; // Если сегменты не выбраны
КонецЕсли;
КонецПроцедуры




&НаСервере
Процедура ОбработатьСегментыНаСервере(ВыбранныеСегменты)
// Проверка, если сегменты выбраны
Если Не ВыбранныеСегменты.Пустая() Тогда
// Обработка выбранных сегментов
Для Каждого Сегмент Из ВыбранныеСегменты Цикл
// Добавить сегмент в табличную часть документа
НоваяСтрока = ЭтотОбъект.ТабличнаяЧасть.Добавить();
НоваяСтрока.Сегмент = Сегмент; // Добавление сегмента в строку
КонецЦикла;
Сообщить("Сегменты успешно добавлены в табличную часть");
Иначе
Сообщить("Не выбраны сегменты для добавления");
КонецЕсли;
КонецПроцедуры
Потом код на Форме документа
НаКлиенте
Процедура КнопкаВыбораСегментов(Кнопка)
// Создаем переменную для получения результатов
Результат = Неопределено;

// Получаем объект документа
ДокументОбъект = ЭтотОбъект; // Или получаем через форму, если требуется

// Вызов серверной процедуры для получения выбранных сегментов
ДокументОбъект.ВыбратьСегментыНаСервере(Результат);

Если Результат <> Неопределено Тогда
Сообщить("Сегменты успешно выбраны: " + Строка(Результат));

// Передаем выбранные сегменты на сервер для дальнейшей обработки
ЭтотОбъект.ОбработатьСегментыНаСервере(Результат);
Иначе
Сообщить("Сегменты не выбраны.");
КонецЕсли;
КонецПроцедуры
Ошибки нету. Но в предпринятие когда захочу программа ругается что выбрать сегмент насервере не обнаружен. Прошу помочь а может код вообще не правильно написал
Вознаграждение за ответ
Показать полностью
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. user1863362 12.01.25 20:23 Сейчас в теме
(1)
Сумма: 1 $m
Добавили:
user1087014 (1 $m)

Краткая история по всем твоим темам с вознаграждениями:

Вознаграждение выдано:
1. Всплывающее окно справочника

Вознаграждение никому не выдано, сумма так и висит:
1. Отчет Диаграммы
2. Help!

Забрал вознаграждение себе обратно:
1. Текущая дата и момент времени
2. ПодРасходы перечисление
3. Декорация Текст
4. Скд Отчет для начальной страницы
5. 1С:Библиотека подключаемого оборудования
6. Найти Обьект
7. Получить Данные из РегистраСведений
8. Запись в регистр сведений
9. Добавление картинки на документ
10. Напоминание от системы
11. При нажатие на кнопку Сформировать
12. Загрузка из экзель
13. Разрешить или запретить редактировать Элементы
14. Функция добавление фотографию через свой ПК...
15. Можно ли поставить переключатель?
16. Конечный остаток кассы

Как планируешь поступить в этой теме? Стоит пытаться тебе помочь?
nodalt; user734789; jirtrest; user2107191; +4 Ответить
3. user2107191 12.01.25 20:36 Сейчас в теме
(2) Да ты еще и аналитик...
4. user1087014 14.01.25 18:37 Сейчас в теме
(2) Здравствуйте я ничего не брал обратно. помогаете помогите и получите вознограждение нет не верите не нужно. Никто тут не собирается кого-то обманывать!
5. user1863362 14.01.25 19:38 Сейчас в теме
(4)
Здравствуйте я ничего не брал обратно. помогаете помогите и получите вознограждение нет не верите не нужно.
Э-э-э, брат, мамой клянусь, ничто нэ знаю, да.

16 ссылок привел, а ему хоть в глаза ссы.
user2107191; Fox-trot; +2 Ответить
6. user1087014 14.01.25 23:52 Сейчас в теме
(5)
о нэ знаю, да.

16 ссылок привел, а ему хоть в глаза ссы
Послушай родной мой, во первый я от тебя не боюсь что бы тебе врать ) Во вторых Я вообще не помню все это. Во вторых нужно помощь, сможешь сделаешь получишь вознограждение. это для меня не такая большая вешь. стоит тут на баланке хер знает с каких пор. так что давай не будем друг другу что либо доказывать а реально либо помогать либо нет
7. starik-2005 3167 15.01.25 00:24 Сейчас в теме
(6)
либо нет
Bair107; nodalt; user1863362; user734789; user2107191; +5 Ответить
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот