Учебный проект на 1С:
учёт заказов небольшой мастерской

Это авторский учебный проект, а не готовая программа для настоящей мастерской. Нет налогового учёта, складских движений, оплаты, разграничения ролей и фискальных документов. Печать — учебная ведомость заказа, не юридический бланк.

Правила простые: клиент выбран, есть хотя бы одна работа, у каждой работы выбрана услуга, количество больше нуля, цена неотрицательная. Бесплатная работа допустима. Сумма строки округляется до двух знаков; итог складывается из округлённых сумм строк.

Создайте пустую файловую учебную базу и откройте конфигурацию. Выберите управляемое приложение. Добавьте подсистему «Мастерская». Справочники и документ ниже включите в эту подсистему, чтобы их команды были доступны в предприятии.

У справочников оставьте стандартные код и наименование, длину наименования задайте 100. У документа запретите проведение: в этом проекте он только записывается. Не добавляйте регистры, которые потом никто не заполняет.

Создайте основную управляемую форму документа. Перетащите Объект.Клиент и табличную часть Объект.Работы в элементы формы. Выведите четыре колонки работ. Сумму строки и СуммаЗаказа сделайте доступными только для просмотра.

Оставьте штатную команду записи. Добавьте собственную команду «ПечатьЗаказа» и кнопку для неё. Пока не связывайте расчёт только с изменением поля: тогда программная запись могла бы сохранить другой итог. Главная проверка будет в модуле объекта.

В модуле объекта документа создайте обработчик ПередЗаписью с тремя параметрами и вставьте код ниже. Это не модуль формы. Сначала проверяются все строки, и только после успешной проверки пересчитываются суммы.

При любой ошибке Отказ останавливает запись. Итог клиента не принимается на веру: сервер считает его заново. Если в документе уже есть этот обработчик, объедините логику в одной процедуре, а не создавайте вторую с тем же именем.

Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
    Если Не ЗначениеЗаполнено(Клиент) Тогда
        Сообщить("Выберите клиента.");
        Отказ = Истина;
        Возврат;
    КонецЕсли;
    Если Работы.Количество() = 0 Тогда
        Сообщить("Добавьте хотя бы одну работу.");
        Отказ = Истина;
        Возврат;
    КонецЕсли;
    Для Каждого Работа Из Работы Цикл
        Если Не ЗначениеЗаполнено(Работа.Услуга)
            Или Работа.Количество <= 0 Или Работа.Цена < 0 Тогда
            Сообщить("Проверьте услугу, количество и цену в строке "
                + Работа.НомерСтроки);
            Отказ = Истина;
            Возврат;
        КонецЕсли;
    КонецЦикла;
    СуммаЗаказа = 0;
    Для Каждого Работа Из Работы Цикл
        Работа.Сумма = Окр(Работа.Количество * Работа.Цена, 2);
        СуммаЗаказа = СуммаЗаказа + Работа.Сумма;
    КонецЦикла;
КонецПроцедуры

В модуле формы разместите код печати. В свойстве «Действие» команды ПечатьЗаказа выберите одноимённый клиентский обработчик. Сначала документ должен быть записан; несохранённые изменения блокируют печать.

Сервер получает сохранённый объект и формирует табличный документ. Настройку ширины колонок и шрифта можно сделать следующим упражнением. Для первого результата достаточно проверить, что каждая работа появилась один раз, а итог совпал с записанным заказом.

&НаКлиенте
Процедура ПечатьЗаказа(Команда)
    Если Модифицированность Или Не ЗначениеЗаполнено(Объект.Ссылка) Тогда
        Сообщить("Сначала запишите заказ.");
        Возврат;
    КонецЕсли;
    ТабДок = ПечатьНаСервере();
    ТабДок.Показать("Заказ мастерской");
КонецПроцедуры

&НаСервере
Функция ПечатьНаСервере()
    Заказ = Объект.Ссылка.ПолучитьОбъект();
    ТабДок = Новый ТабличныйДокумент;
    ТабДок.Область(1, 1).Текст = "Учебный заказ № " + Заказ.Номер;
    ТабДок.Область(2, 1).Текст = "Клиент: " + Строка(Заказ.Клиент);
    ТабДок.Область(4, 1).Текст = "Работа";
    ТабДок.Область(4, 2).Текст = "Количество";
    ТабДок.Область(4, 3).Текст = "Цена";
    ТабДок.Область(4, 4).Текст = "Сумма";
    Номер = 5;
    Для Каждого Работа Из Заказ.Работы Цикл
        ТабДок.Область(Номер, 1).Текст = Строка(Работа.Услуга);
        ТабДок.Область(Номер, 2).Текст = Строка(Работа.Количество);
        ТабДок.Область(Номер, 3).Текст = Строка(Работа.Цена);
        ТабДок.Область(Номер, 4).Текст = Строка(Работа.Сумма);
        Номер = Номер + 1;
    КонецЦикла;
    ТабДок.Область(Номер, 3).Текст = "Итого";
    ТабДок.Область(Номер, 4).Текст = Строка(Заказ.СуммаЗаказа);
    Возврат ТабДок;
КонецФункции

Обновите конфигурацию базы данных. Добавьте клиента «Учебный клиент» и две услуги: «Чистка» и «Настройка». Создайте заказ: чистка 2 × 500 и настройка 1 × 750. Запишите, закройте и откройте заново. Ожидаются суммы 1000, 750 и итог 1750.

Нажмите печать: обе строки и 1750 должны совпасть. Затем измените количество, не записывая документ: печать должна попросить запись. После записи и повторного открытия проверьте новый итог.

В портфолио напишите: «Учебный проект: заказ мастерской. Создал справочники и документ, форму ввода, серверную проверку перед записью и печатную ведомость. Проверил ошибочный ввод, повторную запись и повторное открытие».

Приложите схему объектов, код двух модулей и список проверок с вашими результатами. Не называйте проект внедрением у заказчика. Для демонстрации используйте только учебные наименования, без телефонов и адресов настоящих людей.

Следующий самостоятельный шаг — добавить состояние заказа и запретить изменение закрытого заказа по согласованному правилу. Сначала запишите переходы состояний и проверки, затем меняйте код.