Вайб-кодинг в 1С: Как заставить ИИ БЕСПЛАТНО писать новый код с помощью MCP-серверов

{
  "mcpServers": {
    "my-1c-mcp-server": {
      "url": "http://192.168.1.13:8012/sse",
      "timeout": 60,
      "headers": {
        "x-collection-name": "1cservice_rag"
      },
      "disabled": false,
      "alwaysAllow": [
        "get_document_info",
        "search_1c_documentation"
      ]
    },
    "1c-syntax-helper": {
      "url": "http://192.168.1.13:8002/mcp",
      "timeout": 60,
      "disabled": false,
      "alwaysAllow": [
        "get_syntax_info",
        "find_1c_help"
      ]
    }
  }
}

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

Сегодня был на вебинаре, там консультант рассказывала и показывала кейс, как она за 5 часов решила задачу написания отчёта для клиента которую оценили в 19 часов. (без опыта программирования без MCP и агентов, просто через браузерый чат с клодом) Но у неё было ТЗ которое она составила. Это ТЗ было суперподробным (я таких вообще не помню на своём веку), с указанием имён метаданных, срезов последних и т.п. 

Увиденное натолкнуло меня на мысль:

Голая модель может заменить программиста ( но потребуется очень хороший консультант)

Модель с MCP заменит их всех

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

// Назначение: Обогащение Excel файлы данными из 1С по заказам покупателей
// Параметры (использовать константы внутри кода)
// ПутьКФайлу - путь к $724;исходному Excel файлу
// Возвращаемое: файл с суффиксом _1, содержащий обогащенные данные
// Примечание: Код выполняется без использования функций, простынёй
// Операции с БД: Чтение документов ЗаказПокупателя и регистра КонтактнаяИнформация
// Интеграция: Работа с Excel файлами

// initialization
ТабДокВходящий = Новый ТабличныйДокумент;
ПутьКФайлу = "C:\1C_VSCode\NewCodeMCP\Заказы.xls";
ТабДокВходящий.Прочитать(ПутьКФайлу, СпособЧтенияЗначенийТабличногоДокумента.Значение);

// input_validation
КоличествоСтрок = ТабДокВходящий.ВысотаТаблицы;
КоличествоКолонок = ТабДокВходящий.ШиринаТаблицы;

Если КоличествоСтрок < 2 Тогда
	Сообщить("Файл пуст или содержит только заголовки");
	Возврат;
КонецЕсли;

// data_processing
ТабДокИсходящий = Новый ТабличныйДокумент;
ЗаголовкиИсходный = Новый Массив;
ЗаголовкиИсходный.Добавить("Номер документа");
ЗаголовкиИсходный.Добавить("Дата документа");
ЗаголовкиИсходный.Добавить("Номер заказа из файла");

// creating_header
ТабДокИсходящий.Область(1, 1, 1, 7).Текст = "Номер документа";
ТабДокИсходящий.Область(1, 2, 1, 7).Текст = "Дата документа";
ТабДокИсходящий.Область(1, 3, 1, 7).Текст = "Ответственный";
ТабДокИсходящий.Область(1, 4, 1, 7).Текст = "Контрагент";
ТабДокИсходящий.Область(1, 5, 1, 7).Текст = "Телефон контрагента";
ТабДокИсходящий.Область(1, 6, 1, 7).Текст = "Дата отгрузки";
ТабДокИсходящий.Область(1, 7, 1, 7).Текст = "Дата оплаты";

НомерСтрокиВыход = 2;

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

// loop_processing
Для НомерСтроки = 2 По КоличествоСтрок Цикл
	
	// reading_excel_data
	ЯчейкаНомер = ТабДокВходящий.Область(НомерСтроки, 2, НомерСтроки, 2).Текст;
	ЯчейкаДата  = ТабДокВходящий.Область(НомерСтроки, 3, НомерСтроки, 3).Текст;
	
	// parsing_date
	ДатаИзФайла = ЯчейкаДата;  
	//#Ошибка ДатаИзФайла = ЗначениеИзСтроки(ЯчейкаДата);
	
	// finding_document
	ДокументЗаказ = Документы.ЗаказПокупателя.НайтиПоНомеру(ЯчейкаНомер, ДатаИзФайла);
	
	// default_values
	НомерДокумента = "";
	ДатаДокумента  = "";
	Ответственный  = "";
	Контрагент     = "";
	Телефон        = "";
	ДатаОтгрузки   = "";
	ДатаОплаты     = "";
	
	// filling_document_data
	Если ДокументЗаказ <> Неопределено Тогда
		
		НомерДокумента = ДокументЗаказ.Номер;
		ДатаДокумента  = ДокументЗаказ.Дата;
		
		// getting_responsible
		Если ЗначениеЗаполнено(ДокументЗаказ.Ответственный) Тогда
			Ответственный = ДокументЗаказ.Ответственный.Наименование;
		КонецЕсли;
		
		// getting_contractor
		Если ЗначениеЗаполнено(ДокументЗаказ.Контрагент) Тогда
			Контрагент = ДокументЗаказ.Контрагент.Наименование;
			// database_query - getting_phone
			ЗапросТелефон.УстановитьПараметр("Контрагент", ДокументЗаказ.Контрагент);
			ВыборкаТелефон = ЗапросТелефон.Выполнить().Выбрать();
			Если ВыборкаТелефон.Следующий() Тогда
				Телефон = ВыборкаТелефон.Телефон;
			КонецЕсли;
		КонецЕсли;
		
		// getting_shipment_date
		Если ЗначениеЗаполнено(ДокументЗаказ.ДатаОтгрузки) Тогда
			ДатаОтгрузки = ДокументЗаказ.ДатаОтгрузки;
		КонецЕсли;
		
		// getting_payment_date
		Если ЗначениеЗаполнено(ДокументЗаказ.ДатаОплаты) Тогда
			ДатаОплаты = ДокументЗаказ.ДатаОплаты;
		КонецЕсли;
	КонецЕсли;
	
	// writing_output_data
	ТабДокИсходящий.Область(НомерСтрокиВыход, 1, НомерСтрокиВыход, 7).Текст = НомерДокумента;
	ТабДокИсходящий.Область(НомерСтрокиВыход, 2, НомерСтрокиВыход, 7).Текст = Формат(ДатаДокумента, "ДЛФ=DT");
	ТабДокИсходящий.Область(НомерСтрокиВыход, 3, НомерСтрокиВыход, 7).Текст = Ответственный;
	ТабДокИсходящий.Область(НомерСтрокиВыход, 4, НомерСтрокиВыход, 7).Текст = Контрагент;
	ТабДокИсходящий.Область(НомерСтрокиВыход, 5, НомерСтрокиВыход, 7).Текст = Телефон;
	ТабДокИсходящий.Область(НомерСтрокиВыход, 6, НомерСтрокиВыход, 7).Текст = Формат(ДатаОтгрузки, "ДЛФ=DT");
	ТабДокИсходящий.Область(НомерСтрокиВыход, 7, НомерСтрокиВыход, 7).Текст = Формат(ДатаОплаты, "ДЛФ=DT");
	
	НомерСтрокиВыход = НомерСтрокиВыход + 1;
КонецЦикла;

// database_write - saving_file
ПозицияТочки = СтрНайти(ПутьКФайлу, ".", Истина);
//#Ошибка ПозицияТочки = СтрНайти(ПутьКФайлу, ".", ПоискКонца);

ИмяБезРасширения = Лев(ПутьКФайлу, ПозицияТочки - 1);
ПутьВыходной = ИмяБезРасширения + "1.xls";
ТабДокИсходящий.Записать(ПутьВыходной, ТипФайлаТабличногоДокумента.XLS);

Сообщить("Файл успешно создан: " + ПутьВыходной);