Список Справочника, Документов, Регистров

v8: Дата начала в открытом общем журнале

07.09.2011 20:23

Прочитано: 4437

Подскажите новичку как при открытии и изменении интервала получить дату начала интервала или момент времени первого документа. Нужно расчитывать сумму продаж от начала и до конца журнала. И выводить его в саму форму журнала.

Yandex

Возможно, вас также заинтересует

E_Migachev

08.09.2011 10:31

Ответ № 1

(0) Vedis70, смотри у списка настройкиОтбора

Vedis70

08.09.2011 19:20

Ответ № 2

Ну подскажите кто нибудь. В семерке все просто. В журнале вводим
НачИнтервала = НачалоИнтервала();
КонИнтервала = КонецИнтервала();
И все получаем.
А КАК ЭТО В 8 сделать???

E_Migachev

09.09.2011 10:57

Ответ № 3

(2) Vedis70, вот так:

Код 1C v 8.х

  Если ДокументСписок.Отбор.Дата.Использование Тогда

       //Значит используется отбор по дате документа

       Сообщить("Дата начала периода:" + ДокументСписок.Отбор.Дата.ЗначениеС);

       Сообщить("Дата окончания периода:" + ДокументСписок.Отбор.Дата.ЗначениеПо);

   Иначе

       Сообщить("Период не установлен");

   КонецЕсли;

Vedis70

10.09.2011 11:36

Ответ № 4

Все ровно не понял! Простите тупого!!
Пишу

Код 1C v 8.2 УП

 Процедура ПриОткрытии()

	Если ЭтаФорма.Отбор.Дата.Использование Тогда;

		ТекНачало = ЭтаФорма.Отбор.Дата.ЗначениеС;

		Сообщить("Начало " + ТекНачало);

		ТекКонец = ЭтаФорма.Отбор.Дата.ЗначениеПо;

		Сообщить("Конец: " + ТекКонец);

	КонецЕсли;

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

Если стоит период с начала месяца по конец месяца (или еще как нибудь, но определенно) получаю все правильно. Но если стоит начало "Начало месяца", а конец "Без ограничения" Тогда получаю "Начало 01.01.0001 0:00:00 Конец: 01.01.0001 0:00:00". Вопрос: Куды начало дели, интересно именно оно !?!

typeharley

13.09.2011 23:04

Ответ № 5

На, получи ))))))

Код 1C v 8.2 УП

  Процедура ПриОткрытии()

      Если ЭтаФорма.Отбор.Дата.Использование Тогда;

           Если СокрЛП(ЭтаФорма.Отбор.Дата.ВидСравнения) = "Больше или равно" Тогда

                ТекНачало = ЭтаФорма.Отбор.Дата.Значение;

          Иначе

		ТекНачало = ЭтаФорма.Отбор.Дата.ЗначениеС;  

          КонецЕсли;

	  Сообщить("Начало " + ТекНачало);

          Если СокрЛП(ЭтаФорма.Отбор.Дата.ВидСравнения) = "Меньше или равно" Тогда

             ТекКонец = ЭтаФорма.Отбор.Дата.Значение;

          Иначе

		ТекКонец = ЭтаФорма.Отбор.Дата.ЗначениеПо;

          КонецЕсли;

	  Сообщить("Конец: " + ТекКонец);

    КонецЕсли;

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

Изменено 14.09.11 10:04:28

DJ_Serega

14.09.2011 11:41

Ответ № 6

(5) typeharley, а чем не подходит следующий код?

Код 1C v 8.х

 

СокрЛП(ЭтаФорма.Отбор.Дата.ВидСравнения) = ВидСравнения.БольшеИлиРавно

и

СокрЛП(ЭтаФорма.Отбор.Дата.ВидСравнения) = ВидСравнения.МеньшеИлиРавно

Изменено 14.09.11 11:43:04

typeharley

14.09.2011 13:23

Ответ № 7

Ты имеешь ввиду:

Код 1C v 8.2 УП

 ЭтаФорма.Отбор.Дата.ВидСравнения = ВидСравнения.БольшеИлиРавно

и

ЭтаФорма.Отбор.Дата.ВидСравнения = ВидСравнения.МеньшеИлиРавно

Да, можно и так (более красивее)

DJ_Serega

14.09.2011 13:33

Ответ № 8

да точно

не вник в код *12

Подсказка: Для быстрого перемещения к последнему ответу или к вопросу используйте или .