помогите разобраться начинающему программисту

1. byshchenko 5 23.01.21 19:44 Сейчас в теме
Доброго времени суток, помогите разобраться начинающему программисту.
Суть проблемы такова ,сделал отчет для ПУБ Украина ,не могу в нем вывести с разбивкой по периодам.
как такое можно сделать..
Сам отчет прикрепил
Вот код модуля

Функция УстДоступность()
	Форма.фДокументы.Видимость(фКлиенты);
    Форма.фМесяц.Видимость(фКлиенты);
    Форма.фНеделя.Видимость(фКлиенты);
	Форма.фДень.Видимость(фКлиенты);
	Форма.фДетали.Видимость(фКлиенты);
КонецФункции
//*******************************************
// Процедура генерации запроса Сформировать.

Процедура Сформировать()
	Перем Запрос, ТекстЗапроса, Таб;
	
	
	
	//Создание объекта типа Запрос

    

	Запрос = СоздатьОбъект("Запрос");
	ТекстЗапроса = 
	"//{{ЗАПРОС(Сформировать)
	|Период с ВыбНачПериода по ВыбКонПериода;
	|Дата = Документ.РасходнаяНакладная.ДатаДок;
	|Фирма = Документ.РасходнаяНакладная.Фирма;
	|Контрагент = Документ.РасходнаяНакладная.Контрагент;
	|Менеджер = Документ.РасходнаяНакладная.Отпустил;
	|СуммаБезНДС = Документ.РасходнаяНакладная.СуммаБезНДС;
	|СуммаСНДС = Документ.РасходнаяНакладная.СуммаСНДС;
	|ТекДок = Документ.РасходнаяНакладная.ТекущийДокумент;
	|Функция ИтБезНДС = Сумма(СуммаБезНДС);
	|Функция ИтСНДС = Сумма(СуммаСНДС);
	|Группировка Менеджер без групп;
	|"//}}ЗАПРОС
	;   
	Если фКлиенты=1 Тогда
		ТекстЗапроса = ТекстЗапроса + "
		|Группировка Контрагент без групп;
		|"//}}ЗАПРОС
		;   
	КонецЕсли;
	Если фДокументы=1 Тогда
		ТекстЗапроса = ТекстЗапроса + "
		|Группировка ТекДок;
		|"//}}ЗАПРОС
		;   
	КонецЕсли;
   
	Если фДень=1 Тогда
		ТекстЗапроса = ТекстЗапроса + "
		|Группировка День;
		|"//}}ЗАПРОС
	    ;
	КонецЕсли;    ;     
	
	Если фНеделя=1 Тогда
		ТекстЗапроса = ТекстЗапроса + "
		|Группировка Неделя;
		|"//}}ЗАПРОС
	    ;
	КонецЕсли;    ;
	
	Если фМесяц=1 Тогда
		ТекстЗапроса = ТекстЗапроса + "
		|Группировка Месяц;
		|"//}}ЗАПРОС
	    ;
	КонецЕсли; 
	
	
	ТекстЗапроса = ТекстЗапроса + "
	|Условие(Менеджер в ВыбМенеджер);
	|Условие(Фирма в ВыбФирма);
	|"//}}ЗАПРОС
	;
	// Если ошибка в запросе, то выход из процедуры
	Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
		Возврат;
	КонецЕсли;
    
	
 
	
	// Подготовка к заполнению выходных форм данными запроса
	Таб = СоздатьОбъект("Таблица");
	Таб.ИсходнаяТаблица("Сформировать");
	// Заполнение полей "Заголовок"
	Таб.ВывестиСекцию("Заголовок|Менеджер_");
	Таб.ПрисоединитьСекцию("Заголовок|ЗаголовокС"); 
	Состояние("Заполнение выходной таблицы...");
	Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);   
	
	Пока Запрос.Группировка(1) = 1 Цикл
	     
		Таб.ВывестиСекцию("Менеджер|Менеджер_");
     	
		Таб.ПрисоединитьСекцию("Менеджер|СуммаСНДС"); 
		  Если фКлиенты=1 Тогда
			 Пока Запрос.Группировка(2) = 1 Цикл  
			    Таб.ВывестиСекцию("Контрагент|Менеджер_");
		        Таб.ПрисоединитьСекцию("Контрагент|СуммаСНДС");
				
				 Если фДокументы=1 Тогда
				Пока Запрос.Группировка(3) = 1 Цикл
				Таб.ВывестиСекцию("Документ|Менеджер_");
		        Таб.ПрисоединитьСекцию("Документ|СуммаСНДС");                                   
				     
		Если фНеделя=1 Тогда
				Пока Запрос.Группировка(6) = 1 Цикл		   
			    Таб.ВывестиСекцию("Строка|Менеджер_");
		        Таб.ПрисоединитьСекцию("Строка|СуммаСНДС");   
				
			    
			    КонецЦикла;
		        КонецЕсли;
			  КонецЦикла;
			
	        КонецЕсли;
	       КонецЦикла;
		  КонецЕсли;
	     КонецЦикла;
        
	   



//Таб.ВывестиСекцию("Итого");
//	
	Таб.ТолькоПросмотр(1);
	Таб.Показать("Сформировать", "");
КонецПроцедуры

Процедура ПриОткрытии()
	ВыбФирма=Константа.БазФирма;
КонецПроцедуры
Показать


Нужно вывести по периодам СуммаСНДС
По теме из базы знаний
Найденные решения
8. byshchenko 5 24.01.21 00:56 Сейчас в теме
Спасибо огромное ,помог в решение вопроса CheBurator
отчет формируется с помощью этого https://infostart.ru/public/14794/
Очень полезная вещь для отчетов.
Остальные ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
3. AnryMc 848 23.01.21 20:24 Сейчас в теме
(1)
Сам отчет прикрепил



Где?
2. byshchenko 5 23.01.21 19:52 Сейчас в теме
4. AnryMc 848 23.01.21 20:26 Сейчас в теме
|Дата = Документ.РасходнаяНакладная.ДатаДок;

НомерМесяца = Сред(Дата, 3,2) если по месяцам
5. byshchenko 5 23.01.21 20:50 Сейчас в теме
6. byshchenko 5 23.01.21 20:51 Сейчас в теме
7. byshchenko 5 23.01.21 21:26 Сейчас в теме
Я так понимаю штатно можно только выгрузив в таблицу значений и потом уже оттуда в таблицу ???
8. byshchenko 5 24.01.21 00:56 Сейчас в теме
Спасибо огромное ,помог в решение вопроса CheBurator
отчет формируется с помощью этого https://infostart.ru/public/14794/
Очень полезная вещь для отчетов.
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот