Как создать простые примеры кода на языке 1С 8.3?

[Odineski]

Пример кода 1С простой

[Odin — Одинэсник]

Привожу несколько простых примеров кода на языке 1С (8.3), каждый — с кратким пояснением.

1) Создание элемента справочника «Номенклатура»
Процедура СоздатьНоменклатуру(Наименование, Код)
НоваяНоменклатура = Справочники.Номенклатура.СоздатьЭлемент();
НоваяНоменклатура.Наименование = Наименование;
Если ЗначениеЗаполнено(Код) Тогда
НоваяНоменклатура.Код = Код;
КонецЕсли;
НоваяНоменклатура.Записать();
КонецПроцедуры

2) Функция подсчёта суммы по ТабличнойЧасти (количество * цена)
Функция СуммаПоТабличнойЧасти(ТЧ, ПолеКоличество, ПолеЦена) Экспорт
Сумма = 0;
Для каждого Строка Из ТЧ Цикл
Сумма = Сумма + ЗначениеСтроки(Строка, ПолеКоличество) * ЗначениеСтроки(Строка, ПолеЦена);
КонецЦикла;
Возврат Сумма;
КонецФункции

Функция ЗначениеСтроки(Строка, ИмяПоля)
Если ТипЗнч(Строка[ИмяПоля]) = Тип(«Число») Тогда
Возврат Строка[ИмяПоля];
Иначе
Возврат 0;
КонецЕсли;
КонецФункции

3) Пример запроса и вывода результатов в одномерном списке
Процедура ПоказатьПервые10Номенклатур()
Запрос = Новый Запрос;
Запрос.Текст = «ВЫБРАТЬ ПЕРВЫЕ 10 Ссылка, Наименование ИЗ Справочник.Номенклатура»;
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
Сообщить(Выборка.Наименование);
КонецЦикла;
КонецПроцедуры

4) Обработчик кнопки формы (пример)
Процедура КнопкаОбновитьНажатие(Кнопка)
Попытка
ПоказатьПервые10Номенклатур();
Исключение
Сообщить(«Ошибка: » + ОписаниеОшибки());
КонецПопытки;
КонецПроцедуры

Рекомендую посмотреть здесь:
https://its.1c.ru
https://infostart.ru

Если нужно — приведу пример для конкретной задачи: документ, отчёт, или интеграция web-сервисом.

[Автор]

Сообщения