|
v7: 1С 7,7 в запросе поставить условие, все контрагенты, кроме | ☑ | ||
---|---|---|---|---|
0
aleksander1sk
26.08.15
✎
10:44
|
Есть запрос:
//******************************************* // Процедура генерации запроса Сформировать. // Процедура Сформировать() Перем Запрос, ТекстЗапроса, Таб; //Создание объекта типа Запрос Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(Сформировать) |Период с ВыбНачПериода по ВыбКонПериода; |Обрабатывать НеПомеченныеНаУдаление; |Продажи = Регистр.Продажи.Товар; |Продажи1 = Регистр.Продажи.ТочкаДоставки; |Сумма = Регистр.Продажи.Сумма; |ТП = Регистр.Продажи.ТП; |Товар = Регистр.Продажи.Товар; |дкРасходнаяНакладная = Регистр.Продажи.ТекущийДокумент.дкРасходнаяНакладная.ТекущийДокумент; |Функция СуммаСумма = Сумма(Сумма); |Функция Счётчик = Счётчик(); |Группировка ТП; |Группировка дкРасходнаяНакладная упорядочить по дкРасходнаяНакладная.рПунктДоставки; |Условие(ТП в ВыбТП); |Условие(Товар в ВыбТовар); |"//}}ЗАПРОС ; // Если ошибка в запросе, то выход из процедуры Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Возврат; КонецЕсли; // Подготовка к заполнению выходных форм данными запроса Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Сформировать"); // Заполнение полей "Заголовок" Таб.ВывестиСекцию("Заголовок"); Состояние("Заполнение выходной таблицы..."); Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0); Пока Запрос.Группировка(1) = 1 Цикл // Заполнение полей ТП Таб.ВывестиСекцию("ТП"); Пока Запрос.Группировка(2) = 1 Цикл // Заполнение полей дкРасходнаяНакладная Таб.ВывестиСекцию("дкРасходнаяНакладная"); КонецЦикла; КонецЦикла; // Заполнение полей "Итого" Таб.ВывестиСекцию("Итого"); // Вывод заполненной формы Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать", ""); КонецПроцедуры Как написать условие, чтобы выбирались контрагенты все, кроме некоторых конкретных? |
|||
1
ДенисЧ
26.08.15
✎
10:48
|
Условие (НЕ(Контрагент В СписокКонтрагентов));
|
|||
2
aleksander1sk
26.08.15
✎
10:50
|
(1) Спасибо, а как в СписокКонтрагентов добавить контрагентов со справочника, по коду например?
|
|||
3
ДенисЧ
26.08.15
✎
10:50
|
Создать список
найти по коду добавить .ТекущийЭлемент() повторить |
|||
4
aleksander1sk
26.08.15
✎
11:11
|
(3) Спасибо, понимаю, что это уже наглость с моей стороны, но может ли кто-то написать эту часть на языке 1с:
Справочник - спКонтрагенты |
|||
5
ДенисЧ
26.08.15
✎
11:13
|
сз = СоздатьОбъект("СписокЗначений");
спр = СоздатьОбъект("Справочник.Контрагенты"); спр.НайтиПоКоду(12345); сз.ДобавитьЗначение(спр.текущийЭлемент()); спр.НайтиПоКоду(23456); сз.ДобавитьЗначение(спр.текущийЭлемент()); Сообщить("А теперь вызовем программиста, и он запилит всё это по-нормальному"); |
|||
6
aleksander1sk
26.08.15
✎
11:29
|
(5) Огромное спасибо, я работаю сисадмином на фирме и пока только начинаю работать с программированием в 1с.
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |