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

Расчёт даты

Автор WarBoot, 12 мая 2015, 21:09

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

Евгений@


ИначеЕсли Объект.Тарификация = Перечисления.Тарификация.Месяц Тогда         
    Дата = ДобавитьМесяц(Объект.Дата, Объект.СрокСтоянки);

WarBoot

Цитата: cska-fanat-kz от 13 мая 2015, 09:21
Функция ДобавитьКДате(Дата, Тип, Количество)

   Запрос = Новый Запрос;
   Запрос.Текст =
      "ВЫБРАТЬ
      |   ДОБАВИТЬКДАТЕ(&Дата, "+Тип+", &Количество) КАК Результат";

   Запрос.УстановитьПараметр("Дата", Дата);
   Запрос.УстановитьПараметр("Количество", Количество);

   Результат = Запрос.Выполнить();

   ВыборкаДетальныеЗаписи = Результат.Выбрать();
   ВыборкаДетальныеЗаписи.Следующий();
   
   Возврат ВыборкаДетальныеЗаписи.Результат;

КонецФункции // ДобавитьКДате()

Вы взорвали мне голову... Что тут надо изменять?

cska-fanat-kz

Цитата: WarBoot от 13 мая 2015, 09:26
Цитата: cska-fanat-kz от 13 мая 2015, 09:21
Функция ДобавитьКДате(Дата, Тип, Количество)

   Запрос = Новый Запрос;
   Запрос.Текст =
      "ВЫБРАТЬ
      |   ДОБАВИТЬКДАТЕ(&Дата, "+Тип+", &Количество) КАК Результат";

   Запрос.УстановитьПараметр("Дата", Дата);
   Запрос.УстановитьПараметр("Количество", Количество);

   Результат = Запрос.Выполнить();

   ВыборкаДетальныеЗаписи = Результат.Выбрать();
   ВыборкаДетальныеЗаписи.Следующий();
   
   Возврат ВыборкаДетальныеЗаписи.Результат;

КонецФункции // ДобавитьКДате()

Вы взорвали мне голову... Что тут надо изменять?

вполне себе самодостаточная функция...
вызывается например так:
Объект.ДатаОкончания = ДобавитьКДате(Объект.Дата, "МЕСЯЦ", Объект.СрокСтоянки);
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

WarBoot

Мне кажется что то тут не так :(

Добавлено: 13 мая 2015, 09:35


Цитата: Евгений@ от 13 мая 2015, 09:25

ИначеЕсли Объект.Тарификация = Перечисления.Тарификация.Месяц Тогда         
    Дата = ДобавитьМесяц(Объект.Дата, Объект.СрокСтоянки);

Это гораздо проще и яснее, спасибо большое :)

cska-fanat-kz

это какой код так выполнился?
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

WarBoot

Цитата: cska-fanat-kz от 13 мая 2015, 09:36
это какой код так выполнился?
Вот этот :D
Функция ДобавитьКДате(Дата, Тип, Количество)

   Запрос = Новый Запрос;
   Запрос.Текст =
      "ВЫБРАТЬ
      |   ДОБАВИТЬКДАТЕ(&Дата, "+Тип+", &Количество) КАК Результат";

   Запрос.УстановитьПараметр("Дата", Дата);
   Запрос.УстановитьПараметр("Количество", Количество);

   Результат = Запрос.Выполнить();

   ВыборкаДетальныеЗаписи = Результат.Выбрать();
   ВыборкаДетальныеЗаписи.Следующий();
   
   Возврат ВыборкаДетальныеЗаписи.Результат;

КонецФункции // ДобавитьКДате()

cska-fanat-kz

и чему равен каждый из трех параметров?
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

WarBoot

Цитата: cska-fanat-kz от 13 мая 2015, 09:46
и чему равен каждый из трех параметров?
Да от куда мне знать, я чайник в этом... Ну я кажется понял, что дата = объект.Дата, Тип это час, сутки, неделя, месяц... Ну а количество это СрокСтоянки... Далее вы написали как присваивать... Да и Как показал Евгений, проще и кода меньше... Но вам всё ровно спасибо
Добавлено: 13 мая 2015, 09:55


Цитата: cska-fanat-kz от 13 мая 2015, 09:46
и чему равен каждый из трех параметров?
Вы очень сильно пытались мне помочь, но я не дорос до вашего уровня, что бы всё это понять

cska-fanat-kz

ставите точку останова где нибудь внутри функции, наводите на каждый из параметров и комментарием всплывает значение.
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

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

Рейтинг@Mail.ru

Поиск