LLM и 1С: изучаем сервисы для автоматизации написания кода 1С07.06.2024 08:30

Написание кода по текстовому описанию 

Напиши на языке 1С код отправки сообщений в telegram 

Напиши на языке запросов 1С запрос получения свободных остатков товара на складах для УТ 10.3  

Как на языке 1С в конфигурации УТ 11 проверить наличие свойства у объекта или ссылки 

Как в 1С получить значение реквизита «Наименование» элемента справочника «Контрагенты» если у него код равен »000001» 

Авто завершение кода (для плагинов IDE) 

СоединениеHTTP =  

ЗапросHTTP 

ОбщегоНазначенияКлиентСервер 

Понимание кода (описание логики выполнения кода, что делает код) 

Что делает этот код 1С?

Функция Функция1(НачСтрока,ЗаданнаяДлина) Экспорт 
  ЧислоПробелов=ЗаданнаяДлина-СтрДлина(НачСтрока); 
  ТекущаяСтрока=НачСтрока; 
 
  Если ЧислоПробелов<0 Тогда 
    Возврат Лев(НачСтрока,ЗаданнаяДлина); 
  Иначе 
    Для Индекс=1 По ЧислоПробелов Цикл 
      ТекущаяСтрока=ТекущаяСтрока+" "; 
    КонецЦикла; 
    Возврат ТекущаяСтрока; 
  КонецЕсли; 
КонецФункции 

 

Написание тестов 

Есть функция на языке 1С. Нужно выполнить модульное тестирование с помощью YAxUnit. Для этого нужно подготовить текст для модуля регистрации тестов:  

Функция МаксимальноеЗначениеВМассиве(Массив) 
     
    МаксимальноеЗначение = 0; 
     
    Для Индекс = 0 По Массив.Количество() - 1 Цикл 
        Значение = Массив[Индекс]; 
         
        Если МаксимальноеЗначение < Значение Тогда 
            МаксимальноеЗначение = Значение; 
        КонецЕсли; 
    КонецЦикла; 
     
    Возврат МаксимальноеЗначение; 
     
КонецФункции 

Оптимизация кода 

Оптимизировать код на языке 1С:

Запрос = Новый Запрос; 
               Запрос.Текст = " 
               |ВЫБРАТЬ 
               |   Ссылка 
               |ИЗ 
               |  Справочник.Контрагенты 
               |ГДЕ 
               |   Менеджер = &Менеджер 
               |             И Не ПометкаУдаления 
               |"; 

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

Рефакторинг 

При подаче на вход комментарии, описывающие ошибки, очищались.

Выполни рефакторинг кода на языке 1С:

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

 

  //Ненужная усложненность, однострочные вложенные сокращения и оператор «?» вместо использования условий  ИспользоватьКонтроль = ?(ЗначениеЗаполнено(Партнер),?(ЗначениеЗаполнено(Договор),?(Договор.Контроль=Истина,Истина,Ложь),Ложь),Истина) 
  Запрос.УстановитьПараметр("ИспользоватьКонтроль", ИспользоватьКонтроль);   
 
  Возврат Запрос.Выполнить().Выгрузить();  
 
КонецФункции 
 
  // Отсуствие форматирования 
  МассивСтрок = Новый Массив; 
  Если ЗначениеЗаполнено(Организация) Тогда 
  Для Каждого тмп из ТаблицаТовары Цикл 
      Если НЕ тмп.Организация=Организация Тогда 
  МассивСтрок.Добавить(Новый Структура("стр",тмп)); 
  КонецЕсли; 
      КонецЦикла; 
  КонецЕсли; 
 
  // Чрезмерное сокращение 
   М = Преобр_НСТ_в_СПТР(); 
   Для каждого эл из М Цикл 
       Если ПР_На_ВЗ_и_КВД(эл) Тогда 
            Сооб_ПИОВД(эл, Отказ); 
       Иначе 
            Обр_ДляСТР(эл); 
       КонецЕсли; 
   КонецЦикла 

Генерация комментариев 

Заполни комментарии к коду процедуры на языке 1С:

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

    Для Каждого Значение Из МассивИсточник Цикл 
      Если УникальныеЗначения[Значение] = Неопределено Тогда 
        МассивПриемник.Добавить(Значение); 
        УникальныеЗначения.Вставить(Значение, Истина); 
      КонецЕсли; 
    КонецЦикла; 

  Иначе 
    Для Каждого Значение Из МассивИсточник Цикл 
      МассивПриемник.Добавить(Значение); 
    КонецЦикла; 

  КонецЕсли; 

КонецПроцедуры

Генерация документации 

Дай подробное описание выполняемых действий в процедуре на языке 1С:

Процедура НастроитьОтображениеСпискаВнешнихПользователей(Форма) Экспорт 

  Если ПравоДоступа("Чтение", Метаданные.Справочники.ВнешниеПользователи) Тогда 
    Возврат; 
  КонецЕсли; 
  
  // Удаление отображения недоступных сведений. 
  СхемаЗапроса = Новый СхемаЗапроса; 
  СхемаЗапроса.УстановитьТекстЗапроса(Форма.Список.ТекстЗапроса); 
  Источники = СхемаЗапроса.ПакетЗапросов[0].Операторы[0].Источники; // ИсточникиСхемыЗапроса 
  Индекс = Источники.Количество(); 
  
  Пока Индекс > 0 Цикл 
    Индекс = Индекс - 1; 
    Если Источники[Индекс].Источник.ИмяТаблицы = "Справочник.ВнешниеПользователи" Тогда 
      Источники.Удалить(Индекс); 
    КонецЕсли; 
  КонецЦикла; 
  
  Форма.Список.ТекстЗапроса = СхемаЗапроса.ПолучитьТекстЗапроса(); 
  
  КонецПроцедуры 

Трансформация кода между разными языками 

При подаче на вход комментарии очищались.

Нужно трансформировать код, написанный на Python на язык 1С:

from random import randint 

N = 10  # количество элементов в списке 

a = [] 

for i in range(N): 

    a.append(randint(1, 99)) 

print(a)  # вывод исходного неотсортированного списка 

# Сама сортировка методом "пузырька" 

for i in range(N-1): 

    for j in range(N-1-i): 

        if a[j] > a[j+1]: 

            a[j], a[j+1] = a[j+1], a[j] 

print(a)  # вывод отсортированного списка