Вайб-кодинг в 1С: Подключаем локальные MCP-сервера к любой нейросети через MCP SuperAssistant

  {                                                                                                                                                                                                            
    "mcpServers": {
      "my-1c-mcp-server": {                                                                                                                                                                                            "type": "streamable-http",                                                                                                                                                                             
        "url": "http://192.168.1.13:8001/jsonrpc",
        "headers": {
          "x-collection-name": "1cservice_rag"
        }
      },
      "_1c-syntax-helper": {
        "url": "http://192.168.1.13:8002/mcp",
        "timeout": 60,
        "disabled": false,
        "alwaysAllow": [
          "get_syntax_info",
          "find_1c_help",
          "search_by_context",
          "list_object_members"
        ]
      },
      "confluence": {
        "type": "streamable-http",
        "url": "http://192.168.1.3:8003/mcp",
        "timeout": 30
      }
    }
  }

У меня есть файл excel в котором три колонки ,  первая строка названия колонок, нужно обрабатывать со второй.  
Во второй колонке номер документа Заказ клиента , например ТК000000007 а в третей дата в виде 03.02.2007 14:00:00   нужно написать код который добавить колонки в файл и сохранит его добавив к имени "_1"   выведет в колонки номер документа Заказ ,  Дата документа, Ответственного, Контрагента, Телефон контрагента , Дату отгрузки, Дату оплаты.
Не нужно форматирования, никаких шрифтов и выделений и пиши все без функций, просто код так чтобы я мог вставить текст в консоль кода и выполнить, чтобы код был одной простынёй. Обязательно используй MCP.
Для понимания структуры конфигурации, реквизитов объектов обязательно используй my-1c-mcp-server  а для понимания синтаксиса языка 1С используй 1c-syntax-helper . Напиши код. Телефон контрагента бери из регистра "Контактная информация ", документ ищи по дате и номеру. 

ПутьКФайлу = "C:\1C_VSCode\NewCodeMCP\Заказы.xls"; // Укажите путь к вашему файлу Excel
Таблица = Новый ТаблицаЗначений;
Таблица.Колонки.Добавить("Колонка1");
Таблица.Колонки.Добавить("НомерДокумента");
Таблица.Колонки.Добавить("ДатаДокументаСтрока");
Excel = Новый COMОбъект("Excel.Application");
Excel.Visible = Ложь;
Книга = Excel.Workbooks.Open(ПутьКФайлу);
Лист = Книга.Worksheets(1);
ВсегоСтрок = Лист.UsedRange.Rows.Count;
Для НомерСтроки = 2 По ВсегоСтрок Цикл
    НоваяСтрока = Таблица.Добавить();
    НоваяСтрока.Колонка1 = Лист.Cells(НомерСтроки, 1).Value;
    НоваяСтрока.НомерДокумента = Лист.Cells(НомерСтроки, 2).Value;
    НоваяСтрока.ДатаДокументаСтрока = Лист.Cells(НомерСтроки, 3).Value;
КонецЦикла;
Книга.Close(Ложь);
Excel.Quit();
Таблица.Колонки.Добавить("НомерЗаказа");
Таблица.Колонки.Добавить("ДатаДокумента");
Таблица.Колонки.Добавить("Ответственный");
Таблица.Колонки.Добавить("Контрагент");
Таблица.Колонки.Добавить("ТелефонКонтрагента");
Таблица.Колонки.Добавить("ДатаОтгрузки");
Таблица.Колонки.Добавить("ДатаОплаты");
Для Каждого СтрокаТаблицы Из Таблица Цикл
    НомерДок = СокрЛП(СтрокаТаблицы.НомерДокумента);
    ДатаСтрока = СтрокаТаблицы.ДатаДокументаСтрока;
    Попытка
        ДатаДок = Дата(Сред(ДатаСтрока, 7, 4), Сред(ДатаСтрока, 4, 2), Сред(ДатаСтрока, 1, 2), Сред(ДатаСтрока, 12, 2), Сред(ДатаСтрока, 15, 2), Сред(ДатаСтрока, 18, 2));
    Исключение
        Попытка
            ДатаДок = Дата(Прав(ДатаСтрока, 4), Сред(ДатаСтрока, 4, 2), Лев(ДатаСтрока, 2));
        Исключение
            ДатаДок = ТекущаяДата();
        КонецПопытки;
    КонецПопытки;
    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1 Док.Ссылка, Док.Номер, Док.Дата, Док.Ответственный.Представление КАК Ответственный, Док.Контрагент.Представление КАК Контрагент, Док.ДатаОтгрузки, Док.ДатаОплаты, Док.Контрагент КАК КонтрагентСсылка ИЗ Документ.ЗаказПокупателя КАК Док ГДЕ Док.Номер = &Номер И Док.Дата МЕЖДУ &ДатаНач И &ДатаКон";
    Запрос.УстановитьПараметр("Номер", НомерДок);
    Запрос.УстановитьПараметр("ДатаНач", НачалоДня(ДатаДок));
    Запрос.УстановитьПараметр("ДатаКон", КонецДня(ДатаДок));
    Результат = Запрос.Выполнить().Выбрать();
    Если Результат.Следующий() Тогда
        СтрокаТаблицы.НомерЗаказа = Результат.Номер;
        СтрокаТаблицы.ДатаДокумента = Результат.Дата;
        СтрокаТаблицы.Ответственный = Результат.Ответственный;
        СтрокаТаблицы.Контрагент = Результат.Контрагент;
        СтрокаТаблицы.ДатаОтгрузки = Результат.ДатаОтгрузки;
        СтрокаТаблицы.ДатаОплаты = Результат.ДатаОплаты;
        ЗапросТелефон = Новый Запрос;
        ЗапросТелефон.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1 Рег.Представление ИЗ РегистрСведений.КонтактнаяИнформация КАК Рег ГДЕ Рег.Объект = &Контрагент И Рег.Тип = &ТипТелефон УПОРЯДОЧИТЬ ПО Рег.ЗначениеПоУмолчанию УБЫВ";
        ЗапросТелефон.УстановитьПараметр("Контрагент", Результат.КонтрагентСсылка);
        ЗапросТелефон.УстановитьПараметр("ТипТелефон", Перечисления.ТипыКонтактнойИнформации.Телефон);
        РезультатТелефон = ЗапросТелефон.Выполнить().Выбрать();
        Если РезультатТелефон.Следующий() Тогда
            СтрокаТаблицы.ТелефонКонтрагента = РезультатТелефон.Представление;
        КонецЕсли;
    КонецЕсли;
КонецЦикла;
ExcelNew = Новый COMОбъект("Excel.Application");
ExcelNew.Visible = Ложь;
КнигаNew = ExcelNew.Workbooks.Add();
ЛистNew = КнигаNew.Worksheets(1);
ЛистNew.Cells(1, 1).Value = "Колонка1";
ЛистNew.Cells(1, 2).Value = "НомерДокументаИсходный";
ЛистNew.Cells(1, 3).Value = "ДатаДокументаИсходная";
ЛистNew.Cells(1, 4).Value = "НомерЗаказа";
ЛистNew.Cells(1, 5).Value = "ДатаДокумента";
ЛистNew.Cells(1, 6).Value = "Ответственный";
ЛистNew.Cells(1, 7).Value = "Контрагент";
ЛистNew.Cells(1, 8).Value = "ТелефонКонтрагента";
ЛистNew.Cells(1, 9).Value = "ДатаОтгрузки";
ЛистNew.Cells(1, 10).Value = "ДатаОплаты";
НомерСтрокиВыход = 2;
Для Каждого СтрокаТаблицы Из Таблица Цикл
    ЛистNew.Cells(НомерСтрокиВыход, 1).Value = СтрокаТаблицы.Колонка1;
    ЛистNew.Cells(НомерСтрокиВыход, 2).Value = СтрокаТаблицы.НомерДокумента;
    ЛистNew.Cells(НомерСтрокиВыход, 3).Value = СтрокаТаблицы.ДатаДокументаСтрока;
    ЛистNew.Cells(НомерСтрокиВыход, 4).Value = СтрокаТаблицы.НомерЗаказа;
    ЛистNew.Cells(НомерСтрокиВыход, 5).Value = СтрокаТаблицы.ДатаДокумента;
    ЛистNew.Cells(НомерСтрокиВыход, 6).Value = СтрокаТаблицы.Ответственный;
    ЛистNew.Cells(НомерСтрокиВыход, 7).Value = СтрокаТаблицы.Контрагент;
    ЛистNew.Cells(НомерСтрокиВыход, 8).Value = СтрокаТаблицы.ТелефонКонтрагента;
   // ЛистNew.Cells(НомерСтрокиВыход, 9).Value = СтрокаТаблицы.ДатаОтгрузки;   #Ошибка
    ЛистNew.Cells(НомерСтрокиВыход, 10).Value = СтрокаТаблицы.ДатаОплаты;
    НомерСтрокиВыход = НомерСтрокиВыход + 1;
КонецЦикла;
ПозицияТочки = СтрНайти(ПутьКФайлу, ".", НаправлениеПоиска.СКонца);
Если ПозицияТочки > 0 Тогда
    ИмяБезРасширения = Лев(ПутьКФайлу, ПозицияТочки - 1);
    Расширение = Сред(ПутьКФайлу, ПозицияТочки);
    НовыйПуть = ИмяБезРасширения + "_1" + Расширение;
Иначе
    НовыйПуть = ПутьКФайлу + "_1";
КонецЕсли;
КнигаNew.SaveAs(НовыйПуть);
КнигаNew.Close(Ложь);
ExcelNew.Quit();
Сообщить("Файл сохранен: " + НовыйПуть);