Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Условие Между 2 страниц V  < 1 2          
alex040269 Подменю пользователя
сообщение 11.10.12, 11:05
Сообщение #21

Крутой
Иконка группы
Группа: Местный
Сообщений: 1626
Из: Гуляйполе
Спасибо сказали: 236 раз
Рейтинг: 0

Цитата(VolandMaster @ 11.10.12, 11:37) *
При таких условиях пользователь не сможет самостоятельно создавать тарифы

способ вполне жизненный, только нужна грамотная реализация.


Signature
Никогда не бойся делать то, что не умеешь, помни - Ноев ковчег был построен любителем, профессионалы построили Титаник.
ЗиУП

VolandMaster Подменю пользователя
сообщение 11.10.12, 15:03
Сообщение #22

Говорящий
***
Группа: Пользователи
Сообщений: 70
Из: Ровно
Спасибо сказали: 3 раз
Рейтинг: 0

Как задать параметр &КонецТарифа и &НачалоТарифа, создавать вложений запрос с РС?

sava1 Подменю пользователя
сообщение 11.10.12, 15:56
Сообщение #23

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2752
Из: Проскуров
Спасибо сказали: 708 раз
Рейтинг: 686.5

Каркас для работы (умному достаточно имхо)

запрос= Новый Запрос();
запрос.Текст = "
|ВЫБРАТЬ
  |    ТипЦенСрезПоследних.Цена,
  |    ТипЦенСрезПоследних.НачалоТарифа,
  |    ТипЦенСрезПоследних.ОкончаниеТарифа
  |ИЗ
  |    РегистрСведений.ТипЦен.СрезПоследних КАК ТипЦенСрезПоследних
  |ГДЕ
  |    ТипЦенСрезПоследних.ТипЦен = &ТипЦен"
|";

запрос.УстановитьПараметр("ТипЦен", );
тз = запрос.Выполнить().Выгрузить();

запрос = Новый Запрос();
ТекстЗапроса="";
сч=1;
Для каждого стр Из тз Цикл
    Если сч>1 Тогда
        ТекстЗапроса=ТекстЗапроса+"UNION ALL "+Символы.ПС;        
    КонецЕсли;
    ТекстЗапроса=ТекстЗапроса+"
    |ВЫБРАТЬ
      |    ДокументОплаты.Администратор,
      |    ДокументОплаты.Компютер,
      |    ДокументОплаты.НачалоСеанса,
      |    ДокументОплаты.ОкончаниеСеанса,
      |    ДокументОплаты.Тариф,
      |    (CASE WHEN ОкончаниеСеанса>&ОкончаниеСеанса"+сч+" THEN &ОкончаниеСеанса"+сч+" ELSE  ОкончаниеСеанса END -
      |    CASE WHEN НачалоСеанса<&ОкончаниеСеанса"+сч+" THEN &ОкончаниеСеанса"+сч+" ELSE  НачалоСеанса END) как ПродолжРаботыВСекундах
//      | дальше можно умножить на цену , чтобы получить сумму
      |ИЗ
      |    Документ.ДокументОплаты КАК ДокументОплаты
      |ГДЕ
      |    ДокументОплаты.НачалоСеанса = &НачалоСеанса"+сч+"
      |    И ДокументОплаты.ОкончаниеСеанса = &ОкончаниеСеанса"+сч+"
    |";
    
    запрос.УстановитьПараметр("НачалоСеанса"+сч,стр.НачалоТарифа);
    запрос.УстановитьПараметр("ОкончаниеСеанса"+сч,стр.ОкончаниеТарифа);
    
    сч=сч+1;
КонецЦикла;

табл=Запрос.Выполнить().Выгрузить();
табл.ВыбратьСтроку()


код написан на коленке - поэтому прошу не пинать

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


2 страниц V  < 1 2
Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 16.06.25, 21:44
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!