На каком языке программирования работает 1С Бухгалтерия: разбор для пользователей и разработчиков

Примеры кода на встроенном языке 1С

Чтобы лучше понять, как выглядит программирование в 1С, рассмотрим несколько практических примеров.

1. Создание нового документа

Допустим, нам нужно создать документ РеализацияТоваровУслуг с одной позицией:

// Создаём новый документ
Док = Документы.РеализацияТоваровУслуг.СоздатьДокумент();
// Заполняем реквизиты
Док.Дата = ТекущаяДата();
Док.Контрагент = Справочники.Контрагенты.НайтиПоНаименованию("ООО Ромашка");
// Добавляем товарную позицию
СтрокаТоваров = Док.Товары.Добавить();
СтрокаТоваров.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию("Стул офисный");
СтрокаТоваров.Количество = 5;
СтрокаТоваров.Цена = 2000;
СтрокаТоваров.Сумма = СтрокаТоваров.Количество * СтрокаТоваров.Цена;
// Сохраняем документ
Док.Записать();

2. Запрос к базе данных

Получим список товаров, которые не продавались в течение последнего месяца:

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

Запрос.УстановитьПараметр("НачалоМесяца", НачалоМесяца(ТекущаяДата()));
Запрос.УстановитьПараметр("КонецМесяца", КонецМесяца(ТекущаяДата()));

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

Пока Выборка.Следующий() Цикл
Сообщить(Выборка.Наименование + " (" + Выборка.Артикул + ") не продавался");
КонецЦикла;

3. Обмен данными через HTTP (REST API)

Отправим JSON-запрос на внешний сервер и получим ответ:

// Формируем данные для отправки
Данные = Новый Структура();
Данные.Вставить("clientId", "12345");
Данные.Вставить("date", Формат(ТекущаяДата(), "ДФ=yyyy-MM-dd"));

// Преобразуем в JSON
ТекстJSON = ЗаписатьJSON(Данные);

// Настраиваем HTTP-запрос
HTTPСоединение = Новый HTTPСоединение("api.example.com", 80);
HTTPЗапрос = Новый HTTPЗапрос("/get_data");
HTTPЗапрос.УстановитьТелоИзСтроки(ТекстJSON);
HTTPЗапрос.УстановитьЗаголовок("Content-Type", "application/json");

// Отправляем запрос
HTTPОтвет = HTTPСоединение.ОтправитьДляОбработки(HTTPЗапрос);

// Обрабатываем ответ
Если HTTPОтвет.КодСостояния = 200 Тогда
Результат = ЧтениеJSON(HTTPОтвет.ПолучитьТелоКакСтроку());
Сообщить("Получен ответ: " + Результат.Свойство("status"));
Иначе
Сообщить("Ошибка: " + HTTPОтвет.КодСостояния);
КонецЕсли;

Где применяется программирование в 1С Бухгалтерии?

Рассмотрим подробнее ключевые сценарии:

1. Доработка типовых конфигураций

Даже если вы используете типовую 1С:Бухгалтерию, часто требуется:

• 🔧 Добавить новые реквизиты в документы (например, поле "Ответственный менеджер" в счете).
• 📝 Изменить логику проведения документов (например, автоматическое распределение расходов по центрам затрат).
• 📋 Создать дополнительные отчёты (например, еженедельный отчёт по оплатам от клиентов).

Пример доработки: добавление проверки на минимальную сумму заказа:

Процедура ПередЗаписью(Отказ)
Если СуммаДокумента() < 1000 Тогда
Сообщить("Минимальная сумма заказа — 1000 руб!");
Отказ = Истина;
КонецЕсли;
КонецПроцедуры

2. Интеграция с внешними системами

Часто 1С нужно связать с:

• 🌐 Интернет-магазинами (обмен товарами, заказами, остатками).
• 🏦 Банками (загрузка выписок, отправка платёжных поручений).
• 📦 Складами (обмен данными с WMS-системами).
• 📱 Мобильными приложениями (например, курьерская доставка).

Для этого используются:

• 📁 Файловый обмен (CSV, Excel, JSON).
• 🌐 HTTP/REST API.
• 🔌 COM-соединение (для Windows-приложений).
• 🔄 1С:Интеграция (специальный инструмент от 1С).

3. Автоматизация отчётности

С помощью программирования можно:

• 📅 Настроить автоматическую отправку отчётов по email (например, ежедневный отчёт о продажах).
• 📊 Создать интерактивные дашборды с визуализацией данных.
• 🔍 Настроить уведомления о критических событиях (например, превышение кредитного лимита клиента).

Пример кода для отправки отчёта по email:

// Формируем отчёт
Отчет = ПолучитьОтчетПоПродажам(НачалоМесяца(ТекущаяДата()), КонецМесяца(ТекущаяДата()));
Таблица = Новый ТаблицаЗначений;
Отчет.Вывести(Таблица);

// Сохраняем в Excel
Excel = Новый ExcelДокумент;
Excel.ЗаписатьТаблицу(Таблица);
Excel.СохранитьКак("C:\Отчеты\Продажи_за_месяц.xlsx");

// Отправляем по email
Почта = Новый Почта;
Сообщение = Почта.СоздатьСообщение();
Сообщение.Адресат = "director@company.ru";
Сообщение.Тема = "Отчёт по продажам за " + Формат(ТекущаяДата(), "ММММ yyyy");
Сообщение.Текст = "Во вложении отчёт по продажам.";
Сообщение.Вложения.Добавить("C:\Отчеты\Продажи_за_месяц.xlsx");
Почта.Отправить(Сообщение);

Частые ошибки при программировании в 1С

Даже опытные разработчики иногда допускают ошибки, которые ведут к сбоям в работе 1С. Вот наиболее распространённые из них:

• 🔄 Неправильная работа с транзакциями: если не закрыть транзакцию, это может заблокировать базу данных.
• 🗃️ Избыточные запросы к базе: вместо одного оптимизированного запроса делают десятки мелких, что тормозит систему.
• 🔐 Игнорирование прав доступа: код выполняется от имени пользователя, и если не проверить права, это может привести к ошибкам.
• 📝 Жёсткое кодирование значений: вместо использования справочников в коде прописывают конкретные наименования (например, Если Наименование = "Стул" вместо ссылки на справочник).
• 🔄 Отсутствие обработки ошибок: если не использовать Попытка...Исключение, программа может аварийно завершиться.

Рассмотрим подробнее, как избежать этих ошибок:

1. Работа с транзакциями

Транзакции в 1С нужно открывать и закрывать явно. Если забыть закрыть транзакцию, это может привести к блокировке таблиц в базе данных.

Неправильно:

НачатьТранзакцию();
Док1.Записать();
Док2.Записать();
// Забыли закрыть транзакцию!

Правильно:

НачатьТранзакцию();
Попытка
Док1.Записать();
Док2.Записать();
ЗафиксироватьТранзакцию();
Исключение
ОтменитьТранзакцию();
Сообщить("Ошибка при записи документов: " + ОписаниеОшибки());
КонецПопытки;

2. Оптимизация запросов

Частая ошибка — выполнение лишних запросов к базе. Например, вместо одного запроса с JOIN делают несколько вложенных циклов.

Неоптимально:

// Получаем все документы
Докuments = Документы.РеализацияТоваровУслуг.Выбрать();
Пока Документы.Следующий() Цикл
// Для каждого документа получаем товары
Товары = Документы.Товары.Выбрать();
Пока Товары.Следующий() Цикл
// Обрабатываем товар
КонецЦикла;
КонецЦикла;

Оптимально:

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|   Реализация.Ссылка КАК Документ,
|   РеализацияТовары.Товар КАК Товар,
|   РеализацияТовары.Количество КАК Количество
|ИЗ
|   Документ.РеализацияТоваровУслуг КАК Реализация
|ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТовары
|   ПО Реализация.Ссылка = РеализацияТовары.Ссылка";

Результат = Запрос.Выполнить();

3. Обработка ошибок

Всегда используйте конструкцию Попытка...Исключение, чтобы программа не "падала" при ошибках.

Пример:

Попытка
// Код, который может вызвать ошибку
Док.Записать();
Исключение
Сообщить("Ошибка: " + ОписаниеОшибки());
// Логируем ошибку или предлагаем пользователю альтернативное действие
КонецПопытки;

⚠️ Внимание: В типовой 1С:Бухгалтерии некоторые объекты могут иметь ограничения на изменение. Перед доработкой конфигурации всегда проверяйте, не нарушит ли ваш код работу стандартных механизмов (например, автоматическое формирование проводок).

FAQ: Частые вопросы о программировании в 1С Бухгалтерии