Здравствуйте друзья. Нужно помощь по 1С
Значит Есть справочник - СегментыЦен ( Никаких реквизитов нету кроме системного Наименование)
Есть документ ПрайсЛист ( Внутри ТабличнаяЧасть )
Реквизиты ТабЧасти
Номенклатура - Тип СправочникСсылка.Номенклатура
ЕдИзмирение - Тип СправочникСсылка.ЕдИзмирение
Цена - Тип Число 6, Точность 3
Что я собираюсь делать в табчасти создал кнопку. Хочу при нажатие на эту кнопку Открывалось СписокВыбора На справочник СегментыЦен Оттуда я выбераю те сегменты цен которые хочу. напирмер могу всех выбрать могу одного не имеет значение. Нажимаю ок. В табличной части создаются новые колонки под названиеями этих СегментыЦен. Написал код
Код на Модуле обьекта
&НаСервере
Процедура ВыбратьСегментыНаСервере(Результат)
// Логика для выбора сегментов
Сегменты = Справочники.СегментыЦен.Выбрать(); // Пример выборки
Если Сегменты.Количество() > 0 Тогда
Результат = Сегменты; // Возвращаем выбранные сегменты
Иначе
Результат = Неопределено; // Если сегменты не выбраны
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ОбработатьСегментыНаСервере(ВыбранныеСегменты)
// Проверка, если сегменты выбраны
Если Не ВыбранныеСегменты.Пустая() Тогда
// Обработка выбранных сегментов
Для Каждого Сегмент Из ВыбранныеСегменты Цикл
// Добавить сегмент в табличную часть документа
НоваяСтрока = ЭтотОбъект.ТабличнаяЧасть.Добавить();
НоваяСтрока.Сегмент = Сегмент; // Добавление сегмента в строку
КонецЦикла;
Сообщить("Сегменты успешно добавлены в табличную часть");
Иначе
Сообщить("Не выбраны сегменты для добавления");
КонецЕсли;
КонецПроцедуры
Потом код на Форме документа
НаКлиенте
Процедура КнопкаВыбораСегментов(Кнопка)
// Создаем переменную для получения результатов
Результат = Неопределено;
// Получаем объект документа
ДокументОбъект = ЭтотОбъект; // Или получаем через форму, если требуется
// Вызов серверной процедуры для получения выбранных сегментов
ДокументОбъект.ВыбратьСегментыНаСервере(Результат);
Если Результат <> Неопределено Тогда
Сообщить("Сегменты успешно выбраны: " + Строка(Результат));
// Передаем выбранные сегменты на сервер для дальнейшей обработки
ЭтотОбъект.ОбработатьСегментыНаСервере(Результат);
Иначе
Сообщить("Сегменты не выбраны.");
КонецЕсли;
КонецПроцедуры
Ошибки нету. Но в предпринятие когда захочу программа ругается что выбрать сегмент насервере не обнаружен. Прошу помочь а может код вообще не правильно написал
(2) Здравствуйте я ничего не брал обратно. помогаете помогите и получите вознограждение нет не верите не нужно. Никто тут не собирается кого-то обманывать!
Послушай родной мой, во первый я от тебя не боюсь что бы тебе врать ) Во вторых Я вообще не помню все это. Во вторых нужно помощь, сможешь сделаешь получишь вознограждение. это для меня не такая большая вешь. стоит тут на баланке хер знает с каких пор. так что давай не будем друг другу что либо доказывать а реально либо помогать либо нет