1С-программист: Помощник с нейросетью онлайн

Решение

Ниже пример запроса для 1С:Предприятие, который берет остатки товаров по складам на дату и отбирает только строки, где остаток больше 0.

Запрос

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

Запрос.УстановитьПараметр("ДатаОстатков", Дата(2026, 1, 31));

Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();

Пока Выборка.Следующий() Цикл
    Сообщить(Выборка.Номенклатура);
КонецЦикла;

Что здесь важно

• Остатки(&ДатаОстатков, ) — виртуальная таблица остатков на нужную дату.
• КоличествоОстаток — поле с остатком по ресурсу количества.
• Условие > 0 убирает нулевые и отрицательные остатки.
• УПОРЯДОЧИТЬ ПО помогает удобно вывести данные по складу и номенклатуре.

Если нужен отбор по конкретному складу

Добавьте параметр и условие в ГДЕ:

ГДЕ
    Остатки.КоличествоОстаток > 0
    И Остатки.Склад = &Склад

И установите параметр:

Запрос.УстановитьПараметр("Склад", Справочники.Склады.НайтиПоНаименованию("Основной склад"));

Совет

Если нужно вывести отчетом, лучше сразу формировать табличный документ или использовать СКД, чтобы пользователь мог фильтровать по складам, номенклатуре и датам.

Отчёт по продажам по менеджерам

Ниже пример, как собрать такой отчёт в 1С:Предприятии через запрос и вывести итоговую таблицу по менеджерам.

Что получится

• выручка за период;
• количество проданных товаров;
• отбор по отделу;
• группировка по менеджеру.

Пример запроса

ВЫБРАТЬ
    Продажи.Менеджер КАК Менеджер,
    Продажи.Подразделение КАК Подразделение,
    СУММА(Продажи.СуммаДокумента) КАК Выручка,
    СУММА(Продажи.Количество) КАК Количество
ИЗ
    РегистрНакопления.Продажи.Обороты(&НачалоПериода, &КонецПериода, ,
        ) КАК Продажи
ГДЕ
    Продажи.Подразделение = &Подразделение
СГРУППИРОВАТЬ ПО
    Продажи.Менеджер,
    Продажи.Подразделение
УПОРЯДОЧИТЬ ПО
    Выручка УБЫВ

Пояснение

• Обороты(...) берет данные регистра накопления за период.
• &НачалоПериода и &КонецПериода - параметры отчета.
• &Подразделение - выбранный отдел в форме отчета.
• СГРУППИРОВАТЬ ПО нужна, чтобы получить итог по каждому менеджеру.

Как заполнить параметры в коде формы

Запрос = Новый Запрос;
Запрос.Текст = ТекстЗапроса;

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

Результат = Запрос.Выполнить();
Таблица = Результат.Выгрузить();

Если нужен отбор не обязательный

Если пользователь не выбрал отдел, лучше не фильтровать по нему жестко. Тогда запрос можно сделать так:

ГДЕ
    (&Подразделение ЕСТЬ NULL
     ИЛИ Продажи.Подразделение = &Подразделение)

Так отчёт будет работать и с отбором, и без него.

Полезный совет

Если в отчёте нужны не суммы документа, а именно суммы продаж по строкам, лучше брать поля из табличной части документа или из регистра с уже рассчитанной суммой продажи.

Если хотите, могу сразу показать:

1. вариант такого отчёта через СКД,
2. вариант с выводом в ТабличныйДокумент,
3. вариант с фильтром по нескольким отделам.

Решение

Да, это удобно делать внешней обработкой или обработкой в конфигурации:

1. читаем CSV;
2. для каждой строки ищем контрагента по ИНН + КПП;
3. если найден - пропускаем;
4. если нет - создаём нового и заполняем основные реквизиты.

Ниже пример для встроенного языка 1С. Он подходит как основа для обработки загрузки.

Формат CSV

Пример файла:

Наименование;ИНН;КПП;Телефон;Email
ООО Ромашка;7701234567;770101001;+7(495)123-45-67;sales@romashka.ru
ООО Вектор;7807654321;780701001;+7(812)555-11-22;info@vector.ru

Пример кода

Процедура ЗагрузитьКонтрагентовИзCSV(ПутьКФайлу) Экспорт
	Если Не ФайлСуществует(ПутьКФайлу) Тогда
		Сообщить("Файл не найден: " + ПутьКФайлу);
		Возврат;
	КонецЕсли;
	
	Чтение = Новый ЧтениеТекста(ПутьКФайлу, КодировкаТекста.UTF8);
	
	// Пропускаем заголовок
	Если Чтение.КонецФайла() Тогда
		Сообщить("Файл пустой");
		Возврат;
	КонецЕсли;
	Чтение.ПрочитатьСтроку();
	
	Пока Не Чтение.КонецФайла() Цикл
		СтрокаФайла = СокрЛП(Чтение.ПрочитатьСтроку());
		Если ПустаяСтрока(СтрокаФайла) Тогда
			Продолжить;
		КонецЕсли;
		
		Колонки = СтрРазделить(СтрокаФайла, ";");
		Если Колонки.Количество() < 5 Тогда
			Сообщить("Пропущена строка: " + СтрокаФайла);
			Продолжить;
		КонецЕсли;
		
		Наименование = СокрЛП(Колонки[0]);
		ИНН          = СокрЛП(Колонки[1]);
		КПП          = СокрЛП(Колонки[2]);
		Телефон      = СокрЛП(Колонки[3]);
		Email        = СокрЛП(Колонки[4]);
		
		Если ПустаяСтрока(ИНН) Тогда
			Сообщить("У строки не заполнен ИНН: " + Наименование);
			Продолжить;
		КонецЕсли;
		
		Если КонтрагентСуществует(ИНН, КПП) Тогда
			Сообщить("Контрагент уже существует: " + Наименование + " (" + ИНН + "/" + КПП + ")");
			Продолжить;
		КонецЕсли;
		
		СоздатьКонтрагента(Наименование, ИНН, КПП, Телефон, Email);
	КонецЦикла;
	
	Сообщить("Загрузка завершена");
КонецПроцедуры

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

Процедура СоздатьКонтрагента(Наименование, ИНН, КПП, Телефон, Email) Экспорт
	НовыйКонтрагент = Справочники.Контрагенты.СоздатьЭлемент();
	НовыйКонтрагент.Наименование = Наименование;
	НовыйКонтрагент.ИНН = ИНН;
	НовыйКонтрагент.КПП = КПП;
	
	// Эти реквизиты есть не во всех конфигурациях,
	// поэтому при необходимости проверьте состав справочника.
	Если НовыйКонтрагент.Метаданные().Реквизиты.Найти("Телефон") <> Неопределено Тогда
		НовыйКонтрагент.Телефон = Телефон;
	КонецЕсли;
	
	Если НовыйКонтрагент.Метаданные().Реквизиты.Найти("Email") <> Неопределено Тогда
		НовыйКонтрагент.Email = Email;
	КонецЕсли;
	
	НовыйКонтрагент.Записать();
КонецПроцедуры

Что важно учесть

• Дубликаты лучше проверять не только по ИНН + КПП, но и по нормализованному ИНН, если в базе встречаются ошибки в КПП.
• Если загружаете много строк, лучше делать пакетную проверку через временную таблицу или заранее получать список существующих контрагентов.
• В типовых конфигурациях реквизиты могут отличаться, поэтому Телефон и Email нужно сверить с метаданными.
• Если нужен именно безопасный импорт, добавьте журнал ошибок по строкам файла.

Как улучшить обработку

• Добавить выбор файла через диалог.
• Сделать предварительный просмотр данных перед загрузкой.
• Подсвечивать строки с ошибками отдельно.
• Загружать не только контрагентов, но и банковские счета, адреса и договоры.

Если хотите, я могу сразу дать готовую внешнюю обработку с формой: выбор CSV, таблица предпросмотра и кнопка "Загрузить".