Время в заголовке документа. УТ 11.4

Клиенту понадобилось выводить время в заголовок документов отгрузки клиентам. Потому что отгрузка на складе производится по FIFO-очереди и нужно знать время отгрузки, чтобы клиенты долго не ждали.

Процедура, где 1С формирует заголовок документа:

Решают изменять уже готовый результат, а не вмешиваться в ход функции.

1С использует формат даты DD:

Для отображения даты можно использовать формат DDT, но время будет с секундами, что лишнее для данной задачи:

Поэтому используем свой формат даты dd MMM yyyy «г.» HH:mm:

Осталось отладчиком посмотреть, как называются документы, для которых нужно вставлять время. Хотя название выводится прямо в печатную форму в заголовок, можно обойтись и без отладки. Клиенту нужно время в следующих печатных формах:

  • Заказ клиента
  • Товарный чек
  • Реализация товаров

Расширяю модуль ОбщегоНазначенияУТКлиентСервер:


&Вместо("СформироватьЗаголовокДокумента")
Функция дор_СформироватьЗаголовокДокумента(Шапка, Знач НазваниеДокумента, УдалитьТолькоЛидирующиеНулиИзНомераОбъекта)
	Результат = ПродолжитьВызов(Шапка, НазваниеДокумента, УдалитьТолькоЛидирующиеНулиИзНомераОбъекта);
	
	ДанныеДокумента = Новый Структура("Дата, Ссылка");
	ЗаполнитьЗначенияСвойств(ДанныеДокумента, Шапка);
	
	//Осипов 2022-07-24
	Если ЗначениеЗаполнено(ДанныеДокумента.Дата) 
		И (
		НазваниеДокумента = "Заказ клиента"
		ИЛИ НазваниеДокумента = "Товарный чек"
		ИЛИ НазваниеДокумента = "Реализация товаров"
		)
		Тогда
		СтрокаДатыЗаменяемая = Формат(Шапка.Дата, "ДЛФ=DD");
		СтрокаДатыНовая = Формат(Шапка.Дата, "ДФ='dd MMM yyyy ""г."" HH:mm'");
		Результат = СтрЗаменить(Результат, СтрокаДатыЗаменяемая, СтрокаДатыНовая);
	КонецЕсли;
	
	Возврат Результат;
КонецФункции

Среда: УТ 11.4.13.46 Объем: 1 час.

fixin

Программирую на 1С с 1999 года. В 1С просто Гений. В 2020 году ушел из офиса на вольные хлеба фриланса. Принимаю заказы.

Читайте также:

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *