Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
01 авг 2021, 13:22

Программирование во внешней обработке

Автор Nika Vibliani, 28 окт 2020, 18:12

0 Пользователей и 1 гость просматривают эту тему.

Nika Vibliani

Привет всем,
у меня есть один вопрос, Я делаю Внешняя обработка и я хочу отфильтровать документы с моим ТекущийПользователь. документ - ОперацияБух.

как мне взять этот фильтр? 1C Версия - 8.2

спасибо заранее

Запрос = Новый Запрос("ВЫБРАТЬ
   |   ХозрасчетныйДвиженияССубконто.Регистратор КАК Регистратор,
   |   ХозрасчетныйДвиженияССубконто.Период КАК Период
   |ИЗ
   |   РегистрБухгалтерии.Хозрасчетный.ДвиженияССубконто(
   |         &датанач,
   |         &датаКон,
   |         Регистратор ССЫЛКА Документ.ОперацияБух
   |            И (СчетДт.Валютный
   |                  И (ВалютаДт = &Валюта
   |                     ИЛИ ВалютнаяСуммаДт = 0)
   |               ИЛИ СчетКт.Валютный
   |                  И (ВалютаКт = &Валюта
   |                     ИЛИ ВалютнаяСуммаКт = 0)),
   |                 
   |         ,       
   |         ) КАК ХозрасчетныйДвиженияССубконто    
   |      
   |СГРУППИРОВАТЬ ПО
   |   ХозрасчетныйДвиженияССубконто.Регистратор,
   |   ХозрасчетныйДвиженияССубконто.Период
   |
   |УПОРЯДОЧИТЬ ПО
   |   Период");
   
   Пользователь = ПараметрыСеанса.ТекущийПользователь;

      
   
   Запрос.УстановитьПараметр("датанач", НачалоДня(ДатаНач));
   Запрос.УстановитьПараметр("датаКон", КонецДня(ДатаКон));
   
   Запрос.УстановитьПараметр("Валюта",Справочники.Валюты.ПустаяСсылка());   

      
   
   Выбор = Запрос.Выполнить().Выгрузить();
   
   ТЧ.Очистить();
   ТЧ.Загрузить(Выбор);

Nika Vibliani

этот файл форматирует весь документ, в котором не указывается валюта, и я хочу форматировать только свои документы. (документы, автором которых я являюсь)

LexaK

попробуйте так

Запрос = Новый Запрос("ВЫБРАТЬ
   |   ХозрасчетныйДвиженияССубконто.Регистратор КАК Регистратор,
   |   ХозрасчетныйДвиженияССубконто.Период КАК Период
   |ИЗ
   |   РегистрБухгалтерии.Хозрасчетный.ДвиженияССубконто(
   |         &датанач,
   |         &датаКон,
   |         Регистратор ССЫЛКА Документ.ОперацияБух
   |            И (СчетДт.Валютный
   |                  И (ВалютаДт = &Валюта
   |                     ИЛИ ВалютнаяСуммаДт = 0)
   |               ИЛИ СчетКт.Валютный
   |                  И (ВалютаКт = &Валюта
   |                     ИЛИ ВалютнаяСуммаКт = 0)),
   |                 
   |         ,       
   |         ) КАК ХозрасчетныйДвиженияССубконто   
   |
   |левое соединение Документ.ОперацияБух Док
   | по ХозрасчетныйДвиженияССубконто.Регистратор = Док.Ссылка
   |
   |Где
   |   Док.Ответственный = &Ответственный
   |     
   |СГРУППИРОВАТЬ ПО
   |   ХозрасчетныйДвиженияССубконто.Регистратор,
   |   ХозрасчетныйДвиженияССубконто.Период
   |
   |УПОРЯДОЧИТЬ ПО
   |   Период");
   
   Пользователь = ПараметрыСеанса.ТекущийПользователь;
   Запрос.УстановитьПараметр("Ответственный",Пользователь);   
   
   Запрос.УстановитьПараметр("датанач", НачалоДня(ДатаНач));
   Запрос.УстановитьПараметр("датаКон", КонецДня(ДатаКон));
   
   Запрос.УстановитьПараметр("Валюта",Справочники.Валюты.ПустаяСсылка());   
   
   Выбор = Запрос.Выполнить().Выгрузить();
   
   //ТЧ.Очистить(); //это лишнее
   ТЧ.Загрузить(Выбор);
 
ответ Понравился? (в смысле пригодился?)

Nika Vibliani

LexaK,

Большое спасибо, всё получилось отлично. :)

Теги:

Похожие темы (5)

Рейтинг@Mail.ru Rambler's Top100

Поиск