Пустографка на скорую руку

Сделал клиенту отчет, где показывались продажи по складам помесячно, интервал всегда год, 12 колонок. Но как сердцем чуял, что клиент сделает замечаний, что нет пропущенных месяцев.

И действительно, клиент спросил, можно ли выводить с пустыми колонками помесячно.

Пришлось набросать на скорую руку код:

Может быть можно было как-то и в СКД и в запросе, но вот как есть:

	Если ТЗ.Количество() = 0 Тогда
		ТекСклад = Неопределено;
		ТекНоменклатура = Неопределено;
	Иначе
		ТекСклад = ТЗ[0].Склад;
	КонецЕсли;      
	
	//Добавляем даты чтобы были пустые графы
	ТекДата = Дата1;
	Пока ТекДата <= Дата2 Цикл
		НСтр = ТЗ.Добавить();
		НСтр.Месяц = НачалоМесяца(ТекДата);
		НСтр.Склад = ТекСклад;
		ТекДата = ДобавитьМесяц(ТекДата, 1);
	КонецЦикла;

Работает!

image_pdfimage_print

fixin

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

Вам может также понравиться...

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

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