Как сменить время в реализации товаров и услуг?

Question

[ademar26]

Не могу понять где в коде прописать, чтобы при создании нового документа и проведении реализации прописывалась текущая дата но со временем 23:59:59 а в поступлении товаров время 00:00:00

Answer 1

[Дмитрий Кинаш]

В модуле объекта документа найдите или создайте процедуру ПередЗаписью и туда пишите установку вашего времени. Получится что-то типа такого:

Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
   // какой-то текст, который был ранее...
   Дата = КонецДня(Дата); // или НачалоДня(Дата)
КонецПроцедуры // ПередЗаписью

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

Comments

[ademar26]

Где создать подписку в каком месте?

[Дмитрий Кинаш]

[ademar26]

Сделал подписку, ДокументОбъект.РеализацияТоваровУслуг
Создал модуль с процедурой

Процедура ДатаИзм()
Дата = КонецДня(Дата);
КонецПроцедуры

В поле обработчик я не вижу этого модуля.

[Дмитрий Кинаш]

ademar26: первые 3 ссылки из гугла и все в тему:
v8.1c.ru/overview/Term_000000153.htm
howknow1c.ru/programmirovanie-1c/podpiski-na-sobyt...
programmist1s.ru/podpiska-na-sobyitie-1s

[ademar26]

Сделал все по мануалам Код обработчика

Функция ДатаР(Дата)
	Дата = КонецДня(Дата);
	КонецФункции
Процедура ПодпискаНаСобытие1ПередЗаписью(Источник, Отказ, РежимЗаписи, РежимПроведения) Экспорт
	// Вставить содержимое обработчика.
	Дата = ДатаР(Дата);
КонецПроцедуры

Теперь при проведении документа пишет
Ошибка при выполнении обработчика - 'ПередЗаписью'
по причине:
{ОбщийМодуль.ОбщийМодуль111.Модуль(3)}: Преобразование значения к типу Дата не может быть выполнено

[Дмитрий Кинаш]

ademar26: а теперь перечитайте что я написал в своем ответе:

В модуле объекта документ...

Именно в модуле объекта документа можно напрямую обращаться к Дате и прочим реквизитам документа по имени. Во всех остальных модулях программы нужно использовать обращение через точку от переменной, которая связана с нужным объектом. В вашем случае это будет переменная под названием Источник:

Процедура ПодпискаНаСобытие1ПередЗаписью(Источник, Отказ, РежимЗаписи, РежимПроведения) Экспорт
  // Вставить содержимое обработчика.
  Источник.Дата = ДатаР(Источник.Дата);
КонецПроцедуры

[ademar26]

Встала проблемка. Почему то при создании нового документа время проставляется текущее. А когда перепроводишь документ либо помечаешь на удаление то время устанавливается нужное. В чем может быть загвостка? Может нужно еще прописать в процедуру ПослеЗаписи() ?

[Дмитрий Кинаш]

ademar26: это особенность документов с оперативным проведением. ПослеЗаписи - срабатыет уже "после записи", когда документ уже занесен в базу с текущей датой. Но с другой стороны, если вы хотите инициировать повторную запись, то это неплохое место - только добавьте какую-то проверку, что бы не получить зацикливание с вечным перепроведением.

Но вообще трудно что-то советовать не понимая что вы делаете. Конец дня от текущего дня - это будущий период. Оперативно проводимые документы не могут быть проведены будущим периодом. Возможно вам просто нужно было на форме (если все документы вносятся операторами, а не попадают из каких-то обменов с внешними системами) вынести в событие формы ПриОткрытии код типа такого:

Если Ссылка.Пустая() Тогда
   Дата = НачалоДня(ТекущаяДата());  // КонецДня(ТекущаяДата())
КонецЕсли;

[Дмитрий Кинаш]

где
Ссылка.Пустая() - признак того, что это форма нового документа, а не открытие старого
Дата - это реквизит документа, с которым сейчас работаем
ТекущаяДата() - функция получения текущей даты с точностью до секунды.

[ademar26]

Сделал при открытии выводит время то что нужно но при записи в формеСписка время стоит текущее :(
Это необходимо сделать для бухгалтерии. Чтобы поступление товаров при создании документов проставлялось в 00:00:00 а реализация в 23:59:59. У меня уже 3 день мозг закипает )))

[ademar26]

Нашел решение через основной модуль

Процедура ОбработкаПроведения(Отказ, РежимПроведения)
Если РежимПроведения=РежимПроведенияДокумента.Оперативный Тогда
        Дата = КонецДня(Дата);
        Записать();
    КонецЕсли;
КонецПроцедуры

[Дмитрий Кинаш]

ademar26: тоже вариант. У метода Записать() параметр по-умолчанию - это неопреративная запись. С учетом вашей подписки ПередЗаписью установка тут даты уже избыточна. Рекомендую вашу вставку сделать в начале модуля проведения и после метода Записать() сделать Возврат - что бы не тратить время на проведение, которое через мгновение будет перепроведено.

Да и вообще если вы уже меняете модуль документа и нужно делать дополнение процедуры ПередЗаписью только у одного объекта, то проще не делать подписку, а сразу править модуль этого документа.

Кстати, не пробовал, но согласно документации в процедуре ПередЗаписью документа можно сменить вид проведения. Тогда вы избежите двойной записи документа! У вас будет что-то типа такого:

Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
        Дата = КонецДня(Дата);
        Если РежимПроведения=РежимПроведенияДокумента.Оперативный Тогда
                 РежимПроведения=РежимПроведенияДокумента.Неоперативный;
        КонецЕсли;   
КонецПроцедуры

[ademar26]

Можно попробовать я просто сделал 4 подписки чтобы не трогать документы

Процедура ПодпискаНаСобытиеРТУПередЗаписью(Источник, Отказ, РежимЗаписи, РежимПроведения) Экспорт
	// Вставить содержимое обработчика.
	Источник.Дата = КонецДня(Источник.Дата);
КонецПроцедуры

Процедура ПодпискаНаСобытиеРТУПОбработкаПроведения(Источник, Отказ, РежимПроведения) Экспорт
	// Вставить содержимое обработчика.
	Если РежимПроведения=РежимПроведенияДокумента.Оперативный Тогда
        Источник.Дата = КонецДня(Источник.Дата);
        Источник.Записать();
    КонецЕсли;

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

Процедура ПодпискаНаСобытиеПТУПередЗаписью(Источник, Отказ, РежимЗаписи, РежимПроведения) Экспорт
	// Вставить содержимое обработчика.
	Источник.Дата = НачалоДня(Источник.Дата);
КонецПроцедуры

Процедура ПодпискаНаСобытиеПТУПОбработкаПроведения(Источник, Отказ, РежимПроведения) Экспорт
	// Вставить содержимое обработчика.
	Если РежимПроведения=РежимПроведенияДокумента.Оперативный Тогда
        Источник.Дата = НачалоДня(Источник.Дата);
        Источник.Записать();
    КонецЕсли;

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

[ademar26]

Я так понял можно оставить 2 вместо 4-х

Процедура ПодпискаНаСобытиеРТУПередЗаписью(Источник, Отказ, РежимЗаписи, РежимПроведения) Экспорт
  // Вставить содержимое обработчика.
  Источник.Дата = КонецДня(Источник.Дата);
Если РежимПроведения=РежимПроведенияДокумента.Оперативный Тогда
                 РежимПроведения=РежимПроведенияДокумента.Неоперативный;
        КонецЕсли;
КонецПроцедуры

Процедура ПодпискаНаСобытиеПТУПередЗаписью(Источник, Отказ, РежимЗаписи, РежимПроведения) Экспорт
  // Вставить содержимое обработчика.
  Источник.Дата = НачалоДня(Источник.Дата);
Если РежимПроведения=РежимПроведенияДокумента.Оперативный Тогда
                 РежимПроведения=РежимПроведенияДокумента.Неоперативный;
        КонецЕсли;
КонецПроцедуры

Answer 2

[ademar26]

В модуле документа писал так

Процедура ДатаПриИзменении(Элемент)

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

	ПересчитатьАвтоматическиеСкидки();

КонецПроцедуры // ДатаПриИзменении()

И не работает :(

Answer 3

[Иван]

В модуле документа писал так

Процедура ДатаПриИзменении() отработает только если вы принудительно вызовите эту процедуру, либо если вы изменили поле "Дата" вручную на форме. Вам надо или в процедуре "ПриСозданииНаСервере" прописать

Если Объект.Ссылка.Пустая() Тогда
Дата1 = КонецДня(Дата);
КонецЕсли;

Или, как уже говорилось в процедуре "ПередЗаписью" модуля формы.