Последние сообщения

#41
7.7 / Re: Все ВошедшиеВзапрос - пояс...
Последний ответ от Злоп - 16 ноября 2025, 16:01
Да как сто вывести я как-то соображу.
По-прежнему непонятно что такое все вошедшие в запрос
#42
7.7 / Re: Все ВошедшиеВзапрос - пояс...
Последний ответ от Харлампий Дымба - 16 ноября 2025, 13:43
А, ну да. Затупил в том плане, что Склады можно не укладывать в список.
//Товар - k-ая группировка из n
Пока Запрос.Группировка(1) = 1 Цикл
..
Пока Запрос.Группировка(k-1) = 1 Цикл
 Для СчетчикТоваров = 1 По СписокТоваров.РазмерСписка () Цикл
  ТекТовар = СписокТоваров.ПолучитьЗначение(СчетчикТоваров);
  Если Запрос.Получить(Запрос.ЗначениеГруппировки(1)..,Запрос.ЗначениеГруппировки(k-1), ТекТовар ,,,,,,) = 1 Тогда
   //отрабатываешь нижележащие группировки по товару с остатком
   Пока Запрос.Группировка(k+1) = 1 Цикл
    ..
    Пока Запрос.Группирока(n) = 1 Цикл
     //дошли до конца
    КонецЦикла;
    ..
   Запрос.Получить(Запрос.ЗначениеГруппировки(1)..,Запрос.ЗначениеГруппировки(k-1);//вернемся на начало выборки по товару
  Иначе
   //отрабатываешь товар без остатка
  КонецЕсли;
 КонецЦикла;
КонецЦикла;     
..
КонецЦИкла;

Цитата: Злоп от 15 ноября 2025, 00:26как черным запросом получить отчет по остаткам товаров из списка, когда по всем товарам в списке - нет остатков?
Ты хочешь получить пустографку со складами и товарами? А как тогда определить какие склады должны быть в этой пустографке, если остатка нет ни по одному?
Ну а так - в случае, если выборка по остаткам оказалась пуста, делай вторую выборку по справочнику товаров (и складов?), где для товаров(не для складов!) используй "без групп все ВошедшиеВЗапрос". Можно даже и функции свои добавить (типа "Функция КонОстКоличество = Сумма(0);"), чтобы структура выборки оказалась идентична той, что по остаткам - тогда у тебя обход группировок не будет различаться.

#43
7.7 / Re: Все ВошедшиеВзапрос - пояс...
Последний ответ от Злоп - 16 ноября 2025, 03:11
какой-то адский ад
если группировок больше - мутузить кучу циклов или писать универсальную какую-то рекурсию.. по получению данных? что-то это как-то не очень...
#44
7.7 / Re: Все ВошедшиеВзапрос - пояс...
Последний ответ от Харлампий Дымба - 16 ноября 2025, 01:25
Все и Все ВошедшиеВЗапрос - почти всегда злобное зло. Всегда избегать - если надо, распишу.

Цитата: Злоп от 15 ноября 2025, 00:26И как это сделать?
//1. Убрать слово Все из запроса;
//2. СписокТоваров - содержит твою специфкацию на 5 позиций.

СписокСкладов = СоздатьОбъект("СписокЗначений");
Пока Запрос.Группировка(1)  = 1 Цикл
 СписокСкладов.ДобавитьЗначение(Запрос.Склад);
КонецЦикла;
Для СчетчикСкладов = 1 По СписокСкладов.РазмерСписка() Цикл
 ТекСклад = СписокСкладов.ПолучитьЗначение(СчетчикСкладов);
 Для СчетчикТоваров = 1 По СписокТоваров.РазмерСписка () Цикл
  ТекТовар = СписокТоваров.ПолучитьЗначение(СчетчикТоваров);
  Запрос.вНачалоВыборки();//люблю перестраховаться 
  Если Запрос.Получить(ТекСклад, ТекТовар) = 1 Тогда
   //отрабатываешь остаток
  Иначе
   //отрабатываешь пустой остаток
  КонецЕсли;
 КонецЦикла;
КонецЦикла;

+Можно чуть поускорять запрос.



#45
7.7 / Re: Все ВошедшиеВзапрос - пояс...
Последний ответ от Злоп - 15 ноября 2025, 00:26
Условие(Номенклатура в ВыбТМЦ);
если в ВыбТМЦ положить элемент (остаток = 0) - отчет будет пустой.
если в ВыбТМЦ положить список элементов (остаток по всем в списке = 0) - отчет будет пустой.
если в ВыбТМЦ положить элемент (остаток хотя бы по одному из списка ненулевой ) - отчет по всем элементам списка, на одном элементе остатки, на остальных - будут пустой остаток.
.
и тогда вопрос: как черным запросом получить отчет по остаткам товаров из списка, когда по всем товарам в списке - нет остатков?
.
вполне себе задача: есть спецификация допустим из 5 позиций. Снимаю отчет по списку из этих 5 позиций. Хочу получить отчет не пустую выборку, а выборку с пятью элементами, с указанием остаток = 0... И как это сделать?
#46
7.7 / Re: Все ВошедшиеВзапрос - пояс...
Последний ответ от Злоп - 15 ноября 2025, 00:18
да и Все отрабатывает как-то криво...
Период с ДатаКонца по ДатаКонца;
Фирма = Регистр.ОстаткиТоваров.Документ.Фирма;
Поставщик = Регистр.ОстаткиТоваров.Документ.Клиент;
МОЛ = Регистр.ОстаткиТоваров.Склад.МОЛ;
Склад = Регистр.ОстаткиТоваров.Склад; 
Производитель = Регистр.ОстаткиТоваров.Товар.Производитель;
Страна = Регистр.ОстаткиТоваров.Товар.Производитель.Страна;
Номенклатура = Регистр.ОстаткиТоваров.Товар;
Код = Регистр.ОстаткиТоваров.Товар.Код;
БазоваяЕдиница = Регистр.ОстаткиТоваров.Товар.БазоваяЕдиницаИзмерения;
ВидТовара = Регистр.ОстаткиТоваров.Товар.ВидТовара;
Партия = Регистр.ОстаткиТоваров.Документ;                 
ПризнакДоговора = Регистр.ОстаткиТоваров.Документ.Договор.ТипДоговора;

Стоимость = Регистр.ОстаткиТоваров.Стоимость;
СтоимостьВал = Регистр.ОстаткиТоваров.СтоимостьВал;
Количество = Регистр.ОстаткиТоваров.Количество;

Функция КонОстКоличество = КонОст(Количество);
Функция КонОстСтоимость = КонОст(Стоимость);
Функция КонОстСтоимостьВал = КонОст(СтоимостьВал);
Функция КонОстРезерв = Сумма(0); // болванка, куда подсунуть резерв из другого запроса

Условие(Номенклатура в ВыбТМЦ);
Группировка Склад Без групп;
Группировка Номенклатура Без групп Все;

 --- вот здесь --- ВЫБТМЦ = конкретный элемент справочника. На остатках выбтмц = 0.
Выборка получается пустой, хотя есть "ВСЕ" и написано "Все - в запрос выводятся все значения, и нулевые тоже (используется для группировок по справочникам и временных группировок)."
???
#47
7.7 / Re: Все ВошедшиеВзапрос - пояс...
Последний ответ от Злоп - 14 ноября 2025, 19:51
Что значит "включены данные по которым есть значение хотя бы в одной строке запроса"..? Не понимаю.
Все - понятно, будет включены даже если по переменным запросам нулевые значения.
Если убрать "все" - попадут только те, у которых есть ненулевые значения. Чем это отличается от всевошедшиевзапрос?
#48
7.7 / Re: Все ВошедшиеВзапрос - пояс...
Последний ответ от swa - 14 ноября 2025, 15:12
Цитата:
Все - в запросе будут все возможные значения данных.
ВошедшиеВЗапрос - уточняет условие Все и будут включены данные, по которым есть значение хотя бы в одной строке запроса.
https://1c-pro.org/threads/gruppirovka-vse-voshedshievzapros.29547/

Сам я давно не использую запрос 1с 7.7. 1cpp намного интереснее с прямыми запросами.
#49
7.7 / Все ВошедшиеВзапрос - поясните...
Последний ответ от Злоп - 14 ноября 2025, 03:10
Все - в запрос выводятся все значения, и нулевые тоже (используется для группировок по справочникам и временных группировок).
ВошедшиеВЗапрос - уточняет предыдущее ключевое слово 'Все'. Использование данного слова подразумевает, что в каждую строку запроса будут включены значения данных (в том числе нулевые), для которых есть ненулевое значение хотя бы в одной строке запроса.

Все - понятно.
ВошедшиеВЗапрос - ...ваще не понял.
Может кто-то пояснить по-человечески?
Спасибо.
#50
Дружественные проекты / Re: DialMail новая версия
Последний ответ от swa - 13 ноября 2025, 20:47
Цитата: swa от 13 ноября 2025, 16:14
Цитата: mic22 от 12 ноября 2025, 18:41Компонента HTTP для чего? Есть пример?
HTTP - служит для обращения к сайтам/ресурсам по одноименному протоколу. SSL поддерживается, но нужны доп. файлы.

WinHTTP  = СоздатьОбъект("AddIn.HTTP");
Пока й = 1 по 3 Цикл
    WinHTTP.open("GET", "https://fias.nalog.ru/WebServices/Public/GetAllDownloadFileInfo");
    WinHTTP.setRequestHeader("User-Agent", "1C+Enterprise/8.3");
    WinHTTP.setRequestHeader("Content-Type", "application/json; charset=utf-8");
    WinHTTP.setRequestHeader("SOAPAction", "http://ws.unisoft/FNSNDSCAWS2/Request");
    WinHTTP.send();
   
    Если (WinHTTP.status() = 500)
    или (WinHTTP.status() = 0)
    Тогда
        Продолжить;
    КонецЕсли;
КонецЦикла;
Сообщить(WinHTTP.status());
Сообщить(WinHTTP.ResponseText());


Стормозил...

WinHTTP  = СоздатьОбъект("AddIn.HTTP");
Пока й = 1 по 3 Цикл
    WinHTTP.open("GET", "https://fias.nalog.ru/WebServices/Public/GetAllDownloadFileInfo");
    WinHTTP.setRequestHeader("User-Agent", "1C+Enterprise/8.3");
    WinHTTP.setRequestHeader("Content-Type", "application/json; charset=utf-8");
    WinHTTP.setRequestHeader("SOAPAction", "http://ws.unisoft/FNSNDSCAWS2/Request");
    WinHTTP.send();
   
    Если (WinHTTP.status() = 500)
    или (WinHTTP.status() = 0)
    Тогда
        Продолжить;
    КонецЕсли;
    Прервать;
КонецЦикла;
Сообщить(WinHTTP.status());
Сообщить(WinHTTP.ResponseText());