Отбор по реквизиту в отчете 1С 7.7

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v7.7

1. jusin 4 16.11.18 17:46 Сейчас в теме

Всем привет!

С 7кой работала минимально, а можно сказать не работала Вообще ).
Есть отчет в 7ке, конфигурация самописная, нужно добавить в него отбор по Контрагенту.

Модуль:

Перем СписокПодбора,ПеремПодбора,ПризнакЗаказчика;

Процедура Сформировать()
	Таб=СоздатьОбъект("Таблица");
	Таб.ИсходнаяТаблица("Таблица");
	Таб.ВывестиСекцию("Шапка");
	
	Док = СоздатьОбъект("Документ");	
	Док.ВыбратьДокументы(ВыбНачПериода, ВыбКонПериода); 
	Итого = 0; 
	
	
	Пока Док.ПолучитьДокумент() = 1 Цикл
		Если (Док.Вид() = "План") или(Док.Вид() = "Переадресация") Тогда
		Иначе
			Продолжить;
		КонецЕсли;
		Если Док.Проведен() = 0 Тогда
		    Продолжить;
		КонецЕсли;   
			
		Если ДОк.Машина.Признак = Перечисление.ВидПеревозки.Аренда Тогда
			Таб.ВывестиСекцию("Строка");  
			Итого = Итого + Док.Количество;
		КонецЕсли;
		
	КонецЦикла;     
	
	Таб.ВывестиСекцию("Подвал");
	Таб.ТолькоПросмотр(1);
	Таб.Опции(0,0,0,0);
	Таб.Показать("Отчет по арендованным АБС");

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

Показать

Скрин формы в файле.
Подскажите пжл как это сделать с минимальными изменениями.
Заранее всем спасибо.

Прикрепленные файлы:

По теме из базы знаний

Вознаграждение за ответ

Сумма: 0 $m

Добавили:
jusin (1.00 $m)

Получили:

CheBurator (1 $m)

Показать полностью

Найденные решения

2. CheBurator 3119 16.11.18 21:24 Сейчас в теме +1 $m

Контрагент - где? В астарахани? на МКС? в черных списках черных риэлторов черных квартир..? В табличной части документа? В шапке документа?

Как-то так:

Если ВыбКонтрагенты.Выбран()=1 Тогда
    Если Док.Контрагент <> ВыбКонтрагенты Тогда Продолжить; КонецЕсли;
КонецЕсли;

Если ДОк.Машина.Признак = Перечисление.ВидПеревозки.Аренда Тогда 

   Таб.ВывестиСекцию("Строка"); 
   Итого = Итого + Док.Количество; 
КонецЕсли;

Показать

Остальные ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. CheBurator 3119 16.11.18 21:24 Сейчас в теме +1 $m

Если ВыбКонтрагенты.Выбран()=1 Тогда
    Если Док.Контрагент <> ВыбКонтрагенты Тогда Продолжить; КонецЕсли;
КонецЕсли;

Если ДОк.Машина.Признак = Перечисление.ВидПеревозки.Аренда Тогда 

   Таб.ВывестиСекцию("Строка"); 
   Итого = Итого + Док.Количество; 
КонецЕсли;

Показать

3. jusin 4 19.11.18 11:12 Сейчас в теме

(2), да, реквизит в шапке документа, и это работает, спасибо!

Внимание! Тема сдана в архив