1c7. черный запрос

@kyr · Регистрация: 04.12.2005

Студворк — интернет-сервис помощи студентам

Пожалуйста помогите - всю голову поламал!
Есть запорос

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
ТекстЗапроса = "//{{ЗАПРОС(ЗапросСчет)
|Период с ТЗ_ДатаДок по ТЗ_ДатаДок;
|ОбрабатыватьДокументы все;
|Без итогов;
|ДатаДок = Документ.Счет.ДатаДок;
|Контрагент = Документ.Счет.Контрагент;
|Всего = Документ.Счет.Всего;
|Условие(ДатаДок = ТЗ_ДатаДок);
|Условие(Контрагент = ТЗ_Контрагент);
|Условие(Всего = ТЗ_суммаДокумента + ТЗ_Сумма2);
|"//}}ЗАПРОС;
Если Запрос.Выполнить(ТекстЗапроса) = 1 Тогда
Запрос.Выгрузить(ТаблицаЗапроса,0,0);
Если ТаблицаЗапроса.КоличествоСтрок() <> 0 Тогда
Сообщить("Счет для "+ТЗ_Контрагент+" на сумму: "+Строка(ТЗ_СуммаДокумента)+" уже есть в системе!");
Иначе
СоздатьДокумент(ТЗ_ДатаДок, ТЗ_Сумма2, ТЗ_СуммаДокумента, ТЗ_Контрагент, ТЗ_Товар);
КонецЕсли;
КонецЕсли;

По идее должен отобрать существующие Счета и выгрузить их потом в табличку и вывалить ошибку. Табличка получается пустая. Хотя после этого создается документ с такой же датой, суммой на того же контрагента, что были переданны в запрос. Такое происходит только в случае если в документе есть 2 и более строчки. где я ошибся?

@Zob · 09.07.2008, 17:58

Группировку добавь, да?

@vytfyt · 09.07.2008, 19:14

группировко однозначно!

@tsh · 09.07.2008, 20:47

Или вот так:
Запрос.Выгрузить(ТаблицаЗапроса,1,0);

@kyr · 10.07.2008, 09:52

LSH, такой вариант не сработал(((

vitfil, Zab, а можно поподробнее про группировку? Написал так - не помогло:

Code
1
2
3
4
5
6
7
8
9
10
11
12
"//{{ЗАПРОС(ЗапросСчет)
|Период с ТЗ_ДатаДок по ТЗ_ДатаДок;
|ОбрабатыватьДокументы все;
|Без итогов;
|ДатаДок = Документ.Счет.ДатаДок;
|Контрагент = Документ.Счет.Контрагент;
|Всего = Документ.Счет.Всего;
|Группировка Всего;
|Условие(ДатаДок = ТЗ_ДатаДок);
|Условие(Контрагент = ТЗ_Контрагент);
|Условие(Всего = СуммаДокумента);
|"//}}ЗАПРОС

@vbs · 10.07.2008, 10:30

"//{{ЗАПРОС(ЗапросСчет)
|Период с ТЗ_ДатаДок по ТЗ_ДатаДок;
|ОбрабатыватьДокументы все;
|Без итогов;
|ДатаДок = Документ.Счет.ДатаДок;
|Контрагент = Документ.Счет.Контрагент;
|Всего = Документ.Счет.Всего;
|Группировка Документ;
|Условие(ДатаДок = ТЗ_ДатаДок);
|Условие(Контрагент = ТЗ_Контрагент);
|Условие(Всего = СуммаДокумента);
|"//}}ЗАПРОС

@kyr · 10.07.2008, 10:56

Не работает((((
Для проверки поставил ТаблицаЗапроса.выбратьстроку();

@vytfyt · 10.07.2008, 10:58

"//{{ЗАПРОС(ЗапросСчет)
|Период с ТЗ_ДатаДок по ТЗ_ДатаДок;
|ОбрабатыватьДокументы все;
|Без итогов;
//|ДатаДок = Документ.Счет.ДатаДок; Ересь!

|Документ = Документ.Счет.ТекущийДокумент;

|Контрагент = Документ.Счет.Контрагент;
|Всего = Документ.Счет.Всего;
|Группировка Документ;
//|Условие(ДатаДок = ТЗ_ДатаДок); Это тоже ересь!
|Условие(Контрагент = ТЗ_Контрагент);
|Условие(Всего = СуммаДокумента);
|"//}}ЗАПРОС

И бегом арш читать ЖКК! Там про запросы довольно популярно с примерами написано.

@vbs · 10.07.2008, 11:00

Так может, в этом диапазоне просто нет документов ?
Vytfil прав
Период с ТЗ_ДатаДок по ТЗ_ДатаДок; - уже достаточно для отслеживания дат, я как-то невнимательно посмотрел на запрос, только на группировку

@kyr · 10.07.2008, 11:25

vitfil прямая ссылка на ЖКК есть?

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
    "//{{ЗАПРОС(ЗапросСчет)
|Период с ТЗ_ДатаДок по ТЗ_ДатаДок;
|ОбрабатыватьДокументы все;
|Без итогов;
//  |ДатаДок = Документ.Счет.ДатаДок;
|Контрагент = Документ.Счет.Контрагент;
|Всего = Документ.Счет.Всего;
|ТекущийДокумент = Документ.Счет.ТекущийДокумент;
|Группировка Документ;
//  |Условие(ДатаДок = ТЗ_ДатаДок);
|Условие(Контрагент = ТЗ_Контрагент);
|Условие(Всего = СуммаДокумента);
|"//}}ЗАПРОС

Тоже не отрабатывает. Никак не могу понярть почему счет, в котором есть одна строка - отбирается нормально, а в котором 2 - не отбирается??? Может ли на это влиять как-то номер счета? Счета с одной строкой подобны 00000100, а с двумя 0000010В
Причем со счетами-фактурами все нормально работает, а счета не отбирает

@vytfyt · 10.07.2008, 13:27

Поставьте 1С++ и напишите прямой запрос.
А у вас итог по колонке "Всего"?

Вообще, с точки зрения банальной эрудиции, запросы 1С ересь полнейшая... Кто-нить когда-нить смотрел, как она их переводит в T-SQL? Хочется обнять и плакать!

Еще смущает условие (Всего = Сумма документа).
Мот документов с такой сумой нетуть.

@kyr · 10.07.2008, 13:54

Насколько я понял рассматривая документ Счета - это сумма строк + сумма НДС всех строк. самое удивительное что счетах-фактурах отрабатывает нормально, а со Счетами ни в какую. Где взять 1С++?

@puh14 · 10.07.2008, 16:55

Ну дык в счете реквизит Всего - табличный, то есть при таком запросе ПОСЛЕДНЕЕ строчное значение табличной части документа сравнивается в суммой документа, что лажа. вариант - суммировать функцией и отлавливать по условию на выходе. Добавить типа |Функция СумВсего = Сумма(Всего);

а отлов пока Запрос.Группировка() = 1 Цикл
Если Запрос.СумВсего = СуммаДокумента тогда
Таб. вывестисекцию - ни или добавить в ТЗ или список - энто уже по желанию;
КонецЕсли;
конецЦикла;

Удачи!

@kyr · 10.07.2008, 17:25

puh14, а можешь полностью плиз текст запроса написать, а то я запутался совсем?

@puh14 · 10.07.2008, 17:43

Перем Запрос, ТекстЗапроса, Таб;//надо, ну если по другому называется - то иначе
Запрос = СоздатьОбъект("Запрос");
текстзапроса =
"//{{ЗАПРОС(ЗапросСчет)
|Период с ТЗ_ДатаДок по ТЗ_ДатаДок;
|ОбрабатыватьДокументы все;
|Без итогов;
|Контрагент = Документ.Счет.Контрагент;
|Всего = Документ.Счет.Всего;
|ТекущийДокумент = Документ.Счет.ТекущийДокумент;
|Группировка Документ;
|Условие(Контрагент = ТЗ_Контрагент);
|Функция СумВсего = Сумма(Всего);
|"//}}ЗАПРОС

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
Пока запрос.Группировка() = 1 Цикл
Если Запрос.СумВсего = СуммаДокумента тогда
\\тут - что делать с строчкой
КонецЕсли;
КонецЦикла;

Кроме того - рекомендую добавить вместо |Контрагент = Документ.Счет.Контрагент;

|Контрагент = Документ.Счет.Контрагент,Справочник.Клие нты.ТекущийЭлемент;
- Тогда выдаст по всем контрагентам, а то пока его не выберешь - ничего не покажет.
синтаксис проверь - мож где ошибся в буквах.

@kyr · 14.07.2008, 17:03

НЕ... никак не выходит(((
Как еще кроме запроса можно получить документы Счета с отбором по дате, контрагенту и общей сумме документа?

@jj_moyt · 14.07.2008, 21:46

А ничего, что нужно сделать выборку с точностью до строки документа ?

@Koo · 15.07.2008, 09:25

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
ТекстЗапроса = "//{{ЗАПРОС(ЗапросСчет)
|Период с ТЗ_ДатаДок по ТЗ_ДатаДок;
|ОбрабатыватьДокументы все;
//   |Без итогов;
|Счет = Документ.Счет.ТекущийДокумент;
|Контрагент = Документ.Счет.Контрагент;
|Всего = Документ.Счет.Всего;
//   |Условие(ДатаДок = ТЗ_ДатаДок);
|Функция ВсегоСумма = Сумма(Всего);
|Условие(Контрагент = ТЗ_Контрагент);
|Условие(ВсегоСумма = ТЗ_суммаДокумента + ТЗ_Сумма2);
|Группировка Счет;
|"//}}ЗАПРОС;
Если Запрос.Выполнить(ТекстЗапроса) = 1 Тогда
Запрос.Выгрузить(ТаблицаЗапроса,0,0);
Если ТаблицаЗапроса.КоличествоСтрок() <> 0 Тогда
Сообщить("Счет для "+ТЗ_Контрагент+" на сумму: "+Строка(ТЗ_СуммаДокумента)+" уже есть в системе!");
Иначе
СоздатьДокумент(ТЗ_ДатаДок, ТЗ_Сумма2, ТЗ_СуммаДокумента, ТЗ_Контрагент, ТЗ_Товар);
КонецЕсли;
КонецЕсли;

@kyr · 15.07.2008, 09:32

jj_mail , опиши подробнее плиз.

kaa
ВСЕГОСУММА<<?>>
Переменная не определена (ВСЕГОСУММА)
Если Запрос.Выполнить(ТекстЗапроса) = 1 Тогда
{V:\СЧЕТА.ERT(520)}: Условие(ВсегоСумма <<?>> = ТЗ_суммаДокумента + ТЗ_Сумма2);
Запрос[9] : Ошибка в выражении ВсегоСумма

@Koo · 15.07.2008, 09:43

Протупил Я
Строчку с условием убери

Если Запрос.Выполнить(ТекстЗапроса) = 1 Тогда
Нашли = 0;
Пока Запрос.Группировка(1)= 1 Цикл
Если Запрос.ВсегоСумма = ТЗ_суммаДокумента + ТЗ_Сумма2 Тогда
Нашли =1;
Прервать;
КонецЕсли;
КонецЦикла;
Если Нашли =1 Тогда
Сообщить("Счет для "+ТЗ_Контрагент+" на сумму: "+Строка(ТЗ_СуммаДокумента)+" уже есть в системе!");
КонецЕсли;
Иначе
СоздатьДокумент(ТЗ_ДатаДок, ТЗ_Сумма2, ТЗ_СуммаДокумента, ТЗ_Контрагент, ТЗ_Товар);
КонецЕсли;
КонецЕсли;

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Zob 0 / 0 / 0 Регистрация: 11.11.2005 Сообщений: 584
	09.07.2008, 17:58
	Группировку добавь, да? 0

@vytfyt 0 / 0 / 0 Регистрация: 28.03.2004 Сообщений: 1,913
	09.07.2008, 19:14
	группировко однозначно! 0

@tsh 0 / 0 / 0 Регистрация: 10.07.2017 Сообщений: 350
	09.07.2008, 20:47
	Или вот так: Запрос.Выгрузить(ТаблицаЗапроса,1,0); 0

@vbs 0 / 0 / 1 Регистрация: 22.06.2013 Сообщений: 9
	10.07.2008, 10:30
	"//{{ЗАПРОС(ЗапросСчет) \|Период с ТЗ_ДатаДок по ТЗ_ДатаДок; \|ОбрабатыватьДокументы все; \|Без итогов; \|ДатаДок = Документ.Счет.ДатаДок; \|Контрагент = Документ.Счет.Контрагент; \|Всего = Документ.Счет.Всего; \|Группировка Документ; \|Условие(ДатаДок = ТЗ_ДатаДок); \|Условие(Контрагент = ТЗ_Контрагент); \|Условие(Всего = СуммаДокумента); \|"//}}ЗАПРОС 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	10.07.2008, 10:56
	Не работает(((( Для проверки поставил ТаблицаЗапроса.выбратьстроку(); 0

@vytfyt 0 / 0 / 0 Регистрация: 28.03.2004 Сообщений: 1,913
	10.07.2008, 10:58
	"//{{ЗАПРОС(ЗапросСчет) \|Период с ТЗ_ДатаДок по ТЗ_ДатаДок; \|ОбрабатыватьДокументы все; \|Без итогов; //\|ДатаДок = Документ.Счет.ДатаДок; Ересь! \|Документ = Документ.Счет.ТекущийДокумент; \|Контрагент = Документ.Счет.Контрагент; \|Всего = Документ.Счет.Всего; \|Группировка Документ; //\|Условие(ДатаДок = ТЗ_ДатаДок); Это тоже ересь! \|Условие(Контрагент = ТЗ_Контрагент); \|Условие(Всего = СуммаДокумента); \|"//}}ЗАПРОС И бегом арш читать ЖКК! Там про запросы довольно популярно с примерами написано. 0

@vbs 0 / 0 / 1 Регистрация: 22.06.2013 Сообщений: 9
	10.07.2008, 11:00
	Так может, в этом диапазоне просто нет документов ? Vytfil прав Период с ТЗ_ДатаДок по ТЗ_ДатаДок; - уже достаточно для отслеживания дат, я как-то невнимательно посмотрел на запрос, только на группировку 0

@vytfyt 0 / 0 / 0 Регистрация: 28.03.2004 Сообщений: 1,913
	10.07.2008, 13:27
	Поставьте 1С++ и напишите прямой запрос. А у вас итог по колонке "Всего"? Вообще, с точки зрения банальной эрудиции, запросы 1С ересь полнейшая... Кто-нить когда-нить смотрел, как она их переводит в T-SQL? Хочется обнять и плакать! Еще смущает условие (Всего = Сумма документа). Мот документов с такой сумой нетуть. 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	10.07.2008, 13:54
	Насколько я понял рассматривая документ Счета - это сумма строк + сумма НДС всех строк. самое удивительное что счетах-фактурах отрабатывает нормально, а со Счетами ни в какую. Где взять 1С++? 0

@puh14 0 / 0 / 0 Регистрация: 07.07.2008 Сообщений: 1,401
	10.07.2008, 16:55
	Ну дык в счете реквизит Всего - табличный, то есть при таком запросе ПОСЛЕДНЕЕ строчное значение табличной части документа сравнивается в суммой документа, что лажа. вариант - суммировать функцией и отлавливать по условию на выходе. Добавить типа \|Функция СумВсего = Сумма(Всего); а отлов пока Запрос.Группировка() = 1 Цикл Если Запрос.СумВсего = СуммаДокумента тогда Таб. вывестисекцию - ни или добавить в ТЗ или список - энто уже по желанию; КонецЕсли; конецЦикла; Удачи! 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	10.07.2008, 17:25
	puh14, а можешь полностью плиз текст запроса написать, а то я запутался совсем? 0

@puh14 0 / 0 / 0 Регистрация: 07.07.2008 Сообщений: 1,401
	10.07.2008, 17:43
	Перем Запрос, ТекстЗапроса, Таб;//надо, ну если по другому называется - то иначе Запрос = СоздатьОбъект("Запрос"); текстзапроса = "//{{ЗАПРОС(ЗапросСчет) \|Период с ТЗ_ДатаДок по ТЗ_ДатаДок; \|ОбрабатыватьДокументы все; \|Без итогов; \|Контрагент = Документ.Счет.Контрагент; \|Всего = Документ.Счет.Всего; \|ТекущийДокумент = Документ.Счет.ТекущийДокумент; \|Группировка Документ; \|Условие(Контрагент = ТЗ_Контрагент); \|Функция СумВсего = Сумма(Всего); \|"//}}ЗАПРОС Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Возврат; КонецЕсли; Пока запрос.Группировка() = 1 Цикл Если Запрос.СумВсего = СуммаДокумента тогда \\тут - что делать с строчкой КонецЕсли; КонецЦикла; Кроме того - рекомендую добавить вместо \|Контрагент = Документ.Счет.Контрагент; \|Контрагент = Документ.Счет.Контрагент,Справочник.Клие нты.ТекущийЭлемент; - Тогда выдаст по всем контрагентам, а то пока его не выберешь - ничего не покажет. синтаксис проверь - мож где ошибся в буквах. 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	14.07.2008, 17:03
	НЕ... никак не выходит((( Как еще кроме запроса можно получить документы Счета с отбором по дате, контрагенту и общей сумме документа? 0

@jj_moyt 0 / 0 / 0 Регистрация: 25.02.2007 Сообщений: 88
	14.07.2008, 21:46
	А ничего, что нужно сделать выборку с точностью до строки документа ? 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	15.07.2008, 09:32
	jj_mail , опиши подробнее плиз. kaa ВСЕГОСУММА<<?>> Переменная не определена (ВСЕГОСУММА) Если Запрос.Выполнить(ТекстЗапроса) = 1 Тогда {V:\СЧЕТА.ERT(520)}: Условие(ВсегоСумма <<?>> = ТЗ_суммаДокумента + ТЗ_Сумма2); Запрос[9] : Ошибка в выражении ВсегоСумма 0

@Koo 0 / 0 / 0 Регистрация: 22.04.2010 Сообщений: 38
	15.07.2008, 09:43
	Протупил Я Строчку с условием убери Если Запрос.Выполнить(ТекстЗапроса) = 1 Тогда Нашли = 0; Пока Запрос.Группировка(1)= 1 Цикл Если Запрос.ВсегоСумма = ТЗ_суммаДокумента + ТЗ_Сумма2 Тогда Нашли =1; Прервать; КонецЕсли; КонецЦикла; Если Нашли =1 Тогда Сообщить("Счет для "+ТЗ_Контрагент+" на сумму: "+Строка(ТЗ_СуммаДокумента)+" уже есть в системе!"); КонецЕсли; Иначе СоздатьДокумент(ТЗ_ДатаДок, ТЗ_Сумма2, ТЗ_СуммаДокумента, ТЗ_Контрагент, ТЗ_Товар); КонецЕсли; КонецЕсли; 0