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

По скидкам

Автор Zverff, 10 апр 2013, 15:20

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

Zverff

Здравствуйте, подскажите вот у меня ТЧ Услуга, есть колонка, скидки, но скидки ставятся на каждую строку услугу, если там 15 услуг. можно ли разом как нибудь их проставить на все услуги?

MuI_I_Ika

Какая программа?

Zverff


MuI_I_Ika

Цитата: Zverff от 10 апр 2013, 15:491с 8.1 Рарус

какой из? http://rarus.ru/1c-rarus/

В общем не важно. Где то в шапке документа должна быть кнопка установки скидок. Ищите ее.

Zverff

Мне кажется что не важно какой там из списка, к примеру я создам на форме ПолеВвода для скидки, а что писать в при при выборе и изменения?

Процедура пвСкидкаПриВыбора
Для каждого строка из Услуги цикл
Строка.СкидкаНаТовар = ПвСКидка.Значения;
КонецЦикла
КонецПроцедуры

MuI_I_Ika

Наверное там где то нужно процент считать

Besart

Создаете команду на форме УстановитьСкидкуДляВсехТоваров

&НаКлиенте
Процедура УстановитьСкидкуДляВсехТоваров(Команда)

Для каждого ТекТовар Из Объект.Товары Цикл

ТекТовар.Цена = ТекТовар.Цена - ТекТовар.Цена*Объект.Скидка/100;
//Где Объект.Скидка - ваша скидка в %

КонецЦикла;

КонецПроцедуры


Добавлено: 11 апр 2013, 09:23


это если форма управляемая, на обычной не знаю как

Zverff

печально(
Добавлено: 12 апр 2013, 13:28


Может я не так обьяснил? в ТЧ Услуги добавляют услуга, но им приходиться делать на каждую строку добавлять скидку. Хотят что бы можно было разом добавить скидку на все услуги которые выбрали в ТЧ услуги

Dethmontt

Процедура КнопкаДобавитьВсемСкидки(Элемент)
   
   Перем тСкидка;
   Если ВвестиЧисло(тСкидка,"Введите скидку для всех строк!",5,2) Тогда
      Для каждого Стр Из ТабличнаяЧастьУслуги Цикл
         Стр.Скидка = тСкидка;
      КонецЦикла;
   КонецЕсли;
   
КонецПроцедуры
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Теги:

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

Рейтинг@Mail.ru

Поиск