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

Сделать свой подбор

Автор John46, 29 июл 2010, 00:43

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

John46

спасибо вам! я хотел такое попробовать, но что-то не попробовал - приморило и заснул. сейчас сделаю

John46

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

John46

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

John46

Уже не в тему, но всё-таки
Процедура ЗаполнитьСтандартноНажатие(Элемент)
   выборка = Справочники.Материалы.Выбрать();
   пока выборка.Следующий() Цикл
      элемент = выборка.ПолучитьОбъект();
      если не элемент.ЭтоГруппа тогда
         новая = Материалы.Добавить();
         новая.Наименование = элемент.Наименование; // эта строка не работает
         новая.Объект = элемент.Родитель;
         новая.Единицы = элемент.Единицы;
         новая.Цена = элемент.Цена;
         новая.Количество = 1;
         ЭлементыФормы.Материалы.ТекущаяСтрока = новая;
         нов = ЭлементыФормы.Материалы.ТекущаяСтрока;
         нов.Сумма = нов.Количество*нов.Цена;
      КонецЕсли;
   КонецЦикла;
КонецПроцедуры

Варианты этой строки пробовал разные. Остальные поля заполняются. Возможно, не работает потому что Наименование - ссылка на справочник. Тогда как мне заполнить ТЧ? Подскажите пожалуйста!

Теги:

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

Рейтинг@Mail.ru

Поиск