1С: ИИ-нейросеть для запросов, обработок и ТЗ программисту онлайн

Вот запрос для получения остатков товаров на складе с ценами из вида цен «Розничная» в конфигурации «Управление торговлей», ред. 11. Запрос включает все необходимые условия и параметры.

Запрос = Новый Запрос;

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

";

Запрос.УстановитьПараметр("Дата", &Дата);
Запрос.УстановитьПараметр("Склад", &Склад);
Запрос.УстановитьПараметр("ВидЦены", "Розничная"); // уточнить

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

Пока Выборка.Следующий() Цикл
    Если ЗначениеЗаполнено(Выборка.ВНаличииОстаток) Тогда
        // Обработка результата
    КонецЕсли;
КонецЦикла;

Пояснения:

1. Запрос выбирает номенклатуру и их остатки на складе, используя соединение с таблицей цен.
2. Остаток фильтруется на больше нуля, а также по виду цен.
3. Используется агрегат СУММ для суммирования остатков и МАКСИМУМ для получения максимальной цены.
4. Установлены необходимые параметры для выполнения запроса.
5. Обход результата осуществляется с проверкой на заполненность значения остатка.

Не забудьте протестировать код на копии базы.

Для реализации вашего запроса на расширении конфигурации «Управление нашей фирмой», ред. 3, необходимо создать обработчик, который будет заполнять колонку «Склад» во всех строках табличной части «Запасы» при выборе склада в шапке документа «Заказ-наряд».

Вот пример кода:

// Обработчик, который срабатывает после выбора склада
&После("ИмяОбработчика") // [ПРОВЕРИТЬ: имя в конфигурации]
Процедура ОбработкаВыбораСклада(Элемент)
    // Получаем текущий документ
    ЗаказНаряд = ЭтотОбъект;
    
    // Проверяем, установлен ли склад
    Если ЗначениеЗаполнено(ЗаказНаряд.Склад) Тогда
        // Запускаем серверную процедуру для заполнения склада в строках
        ЗаполнитьСкладВСтроках(ЗаказНаряд);
    КонецЕсли;
КонецПроцедуры

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

Пояснения к коду:

1. Обработка выбора склада:
   • Используется аннотация &После("ИмяОбработчика"), чтобы указать, что этот код сработает после выполнения стандартного обработчика выбора склада. Необходимо уточнить имя обработчика, который вызывается при выборе склада в шапке документа.
2. Проверка заполненности склада:
   • Перед тем, как заполнять строки табличной части, проверяем, заполнено ли значение склада в шапке документа. Если да, то вызываем серверную процедуру для заполнения.
3. Серверная процедура ЗаполнитьСкладВСтроках:
   • Эта процедура выполняется на сервере и перебирает все строки табличной части «Запасы».
   • Внутри цикла проверяем, заполнено ли значение склада в текущей строке. Если не заполнено, то заполняем его значением из шапки документа.

Важно:

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

Ошибка, с которой вы столкнулись, указывает на то, что объекты или реквизиты, к которым вы обращаетесь, не существуют или не доступны в данной конфигурации. В данном случае ошибка говорит о том, что для объекта Номенклатура не найдено поле ЦенаПродажи.

Причины ошибки:

1. Поле ЦенаПродажи не существует в объекте Номенклатура в конфигурации «Бухгалтерия предприятия» ред. 3.0.
2. Возможно, поле называется иначе или не добавлено в метаданные.

Исправление:

Для правильного заполнения цены необходимо выяснить, как называется нужное поле. Предположим, что нужное поле называется Цена. Обратите внимание, что данное имя является предложением, и его необходимо проверить в метаданных.

Исправленный фрагмент кода:

Процедура ЗаполнитьНаСервере()
	Для Каждого Стр Из Объект.Товары Цикл
		Стр.Цена = Стр.Номенклатура.Цена; // уточнить правильное название поля
	КонецЦикла;
КонецПроцедуры

Доработка:

Если вы хотите добавить обработчик, чтобы выполнить проверку или изменить поведение, вы можете использовать аннотацию. Например:

&После("ЗаполнитьНаСервере") // проверяем, что дальше делать
Процедура ДополнительнаяОбработка()
	// Здесь другая логика
КонецПроцедуры

Не забудьте протестировать изменения на копии базы данных, чтобы избежать потери данных или некорректной работы основной конфигурации.

Техническое задание для программиста 1С

1. Цель

Создать поисковую карточку контрагента для службы экономической безопасности (СЭБ), которая позволит быстро и удобно получать информацию о договоре, неоплаченных счетах, просрочках и истории проверок по ИНН или названию контрагента.

2. Как сейчас

В настоящее время сотрудники СЭБ собирают необходимые данные вручную из трёх различных отчетов, что занимает около 20 минут на одного контрагента. Процесс трудоемкий и требует значительных временных затрат.

3. Что доработать

• Объекты метаданных:
  • Справочник.Контрагенты
  • Справочник.ДоговорыКонтрагентов
  • Документ.СчетНаОплату
  • РегистрСведений.ПроверкиКонтрагентов
• Формы:
  • Создать новую форму для отображения карточки контрагента с полями для ввода ИНН или названия.
• Отчёты:
  • Разработать единый отчет, который будет выводить все необходимые данные.
• Права:
  • Обеспечить доступ к новой форме и отчету для 4 сотрудников СЭБ.

4. Алгоритм по шагам

1. Разработать форму для ввода ИНН или названия контрагента.
2. Реализовать механизм поиска по указанным критериям.
3. Объединить данные из объектов метаданных:
   • Получить договоры из Справочник.ДоговорыКонтрагентов.
   • Получить неоплаченные счета из Документ.СчетНаОплату.
   • Получить данные о просрочках и проверки из РегистрСведений.ПроверкиКонтрагентов.
4. Отобразить результаты на форме в удобном для восприятия виде.

5. Пример «было — стало»

• Было: Сотрудник СЭБ собирает информацию из трёх различных отчетов:
  • Отчет по договорам нет в запросе
  • Отчет по неоплаченным счетам нет в запросе
  • Отчет по проверкам контрагентов нет в запросе
• Стало: Сотрудник вводит ИНН или название контрагента в поисковую карточку и получает:
  • Все договоры
  • Неоплаченные счета
  • Информацию о просрочках
  • Историю проверок в одном месте за считанные минуты.

6. Критерии приёмки

• Форма поиска работает корректно и позволяет искать по ИНН и названию контрагента.
• Отчет выводит все необходимые данные без ошибок.
• Время, необходимое для получения информации, не превышает 2 минут для одного контрагента.
• Доступ к функции ограничен только для 4 сотрудников СЭБ.
• Все данные отображаются корректно и в структурированном виде.

7. Недостающие данные

[ЗАПОЛНИТЬ: что] - необходимо уточнить, какие именно поля должны быть включены в результаты отчета и какие условия для фильтрации данных.

Этот код представляет собой процедуру для пересчета премий сотрудников в конфигурации «Зарплата и управление персоналом», ред. 3.

Объяснение кода:

1. Процедура ПересчитатьПремии(Отказ):
   • Начало процедуры, которая будет пересчитывать премии для сотрудников.
2. Создание запроса:
   • Создается новый объект Запрос, который будет использоваться для получения информации о зарплате сотрудников.
3. Цикл Для Каждого Стр Из Начисления:
   • Итерируется по каждой строке в коллекции Начисления, которая, вероятно, содержит информацию о начислениях для сотрудников.
4. Запрос к регистру:
   • Внутри цикла формируется SQL-запрос для получения актуального оклада сотрудника из регистра сведений ОкладыСотрудников по дате и идентификатору сотрудника.
   • Параметры Дата и Сотрудник устанавливаются для фильтрации данных.
5. Выполнение запроса:
   • Запрос выполняется, и результат помещается в Выборка.
6. Проверка наличия результата:
   • Если найдена строка с окладом (то есть Выборка.Следующий() возвращает истину), то:
     • В поле Результат текущей строки Стр рассчитывается премия как 20% от оклада.

Изменения в базе после запуска:

• В базе данных произойдет обновление значений поля Результат в каждом элементе коллекции Начисления для сотрудников, у которых есть оклад на указанную дату. Если оклад не найден, значение Результат не изменится.

Опасности в коде:

1. Запись без проверки:
   • Код не проверяет, была ли предыдущая запись в поле Результат, что может привести к неправильным данным, если процедура будет вызвана несколько раз подряд.
2. Удаление:
   • В текущем коде нет операций удаления, но стоит быть внимательным, если в дальнейшем будут добавлены такие операции.
3. Запросы в цикле:
   • Запрос выполняется внутри цикла для каждого сотрудника, что может значительно увеличить время выполнения процедуры и нагрузку на базу данных, особенно при большом количестве сотрудников.

Эти моменты стоит учитывать при тестировании и использовании этого кода в реальных условиях.

Вот запрос на языке запросов 1С:Предприятие 8 для конфигурации «Комплексная автоматизация», ред. 2, который отвечает на вашу задачу:

Запрос = Новый Запрос;
Запрос.Текст = 
    "ВЫБРАТЬ 
        Менеджер КАК Менеджер,
        МЕСЯЦ(Документ.Дата) КАК Месяц,
        СУММ(РегистрНакопления.ВыручкаИСебестоимостьПродаж.Выручка) КАК Выручка,
        КОЛИЧЕСТВО(РАЗЛИЧНЫЕ Документ.РеализацияТоваровУслуг) КАК КоличествоДокументов 
    ИЗ 
        РегистрНакопления.ВыручкаИСебестоимостьПродаж 
    ГДЕ 
        Документ.РеализацияТоваровУслуг.Дата МЕЖДУ &НачалоПериода И &КонецПериода 
        И Документ.РеализацияТоваровУслуг.Статус = 'Проведён' 
    СГРУППИРОВАТЬ ПО 
        Менеджер, МЕСЯЦ(Документ.Дата) 
    ИМЕЮЩИЕ 
        СУММ(РегистрНакопления.ВыручкаИСебестоимостьПродаж.Выручка) > 0";

Запрос.УстановитьПараметр("НачалоПериода", &НачалоПериода);
Запрос.УстановитьПараметр("КонецПериода", &КонецПериода);
Запрос.УстановитьПараметр("Дата", &Дата);

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

// Обход результата выборки.
Пока Выборка.Следующий() Цикл
    Если ЗначениеЗаполнено(Выборка.Выручка) Тогда
        // Обработка данных: [ПРОВЕРИТЬ: действия с результатами]
    КонецЕсли;
КонецЦикла;

Пояснения к коду:

1. Создание запроса: Создаётся новый объект Запрос.
2. Текст запроса:
   • Выполняется выборка менеджера, месяца и агрегатов (выручка и количество документов) из регистра накопления.
   • Отбор по дате и статусу проведённых документов.
   • Группировка по менеджеру и месяцу.
   • Условие на фильтрацию по сумме выручки.
3. Установка параметров: Параметры запроса устанавливаются с помощью Запрос.УстановитьПараметр.
4. Выполнение запроса: Запрос выполняется, и создаётся выборка.
5. Обход выборки: Используется цикл для обхода результатов выборки. Проверяется, заполнено ли значение выручки.

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