Будущее программирования 1С с помощью ИИ

29.04.25

✎

14:23

Например, программист русским языком пишет:
1) взять телефон и e-mail контактного лица контрагента и вывести их через запятую в поле "Контакты".

Система генерирует какую-то процедуру, которая скрыта под кат.

ПоказатьКонтактыЛица

Процедура ПоказатьКонтактыЛица()

    СтрокаКонтактов = "";

    Если НЕ КонтактноеЛицоКонтрагента.Пустая() Тогда

        Запрос = Новый Запрос("ВЫБРАТЬ
                              |    КИ.Представление,
                              |    КИ.Объект,
                              |    КИ.Тип,
                              |    КИ.Вид
                              |ИЗ
                              |    РегистрСведений.КонтактнаяИнформация КАК КИ
                              |ГДЕ
                              |    КИ.Объект = &Лицо
                              |    И (КИ.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Телефон)
                              |            ИЛИ КИ.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.АдресЭлектроннойПочты))");

        Запрос.УстановитьПараметр("Лицо", КонтактноеЛицоКонтрагента);
        тзКонтакты = Запрос.Выполнить().Выгрузить();

        разд = "";
        Для Каждого КИ Из тзКонтакты Цикл
            СтрокаКонтактов = СтрокаКонтактов + разд + КИ.Представление;
            разд = "   ";
        КонецЦикла;

    КонецЕсли;

    ЭлементыФормы.Контакты.Значение = СтрокаКонтактов;

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

Потом пишем:
2) в кнопку "Файлы" верхней командной панели вывести количество присоединенных файлов и скрепку, если они есть.

Система опять там что-то сгенерировала:

НастроитьКнопкуФайлы

Процедура НастроитьКнопкуФайлы()

    кнопкаФайлы = ЭлементыФормы.ДействияФормы.Кнопки.Файлы;
    КоличествоФайлов = 0;

    Запрос = Новый Запрос("ВЫБРАТЬ
                       |    КОЛИЧЕСТВО(Х.Ссылка) КАК Кол
                       |ИЗ
                       |    Справочник.ХранилищеДополнительнойИнформации КАК Х
                       |ГДЕ
                       |    Х.Объект = &Объект
                       |    И НЕ Х.ПометкаУдаления");

    Запрос.УстановитьПараметр("Объект", Объект);

    Выборка = Запрос.Выполнить().Выбрать();
    Если Выборка.Следующий() Тогда
        КоличествоФайлов = Выборка.Кол;
    КонецЕсли;

    кнопкаФайлы.Текст = "Файлы (" + Формат(КоличествоФайлов,"ЧГ=0") + ")";
    кнопкаФайлы.Картинка = ?(КоличествоФайлов > 0, БиблиотекаКартинок.Скрепка, Новый Картинка());

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

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

153 Garykom

гуру

02.05.25

✎