Предыдущим документом мы запустили производство некоторого количества изделий. И вот, наши работнички все сделали. Нам надо зафиксировать факт сдачи готовой продукции на склад и, разумеется, начислить работникам зарплату за труд, вложенный в изготовление материальных ценностей. Для этой сложной задачи мы создадим очередной документ – Накладная на выпуск из производства.
Проводки по документу (Д 20 – К 70) – начисление зарплаты по факту выпуска продукции, (Д 40 – К 20) – сам выпуск продукции на склад.
Документ будет закрывать производственные партии, сформированные нарядами на сборку. Соответственно работников мы будем брать из этих нарядов, оттуда же мы возьмем и перечень выпускаемых изделий.
Выпуск продукции будет осуществляться на конкретный склад.
Сведем все сведения по документу в таблицу:

Идентификатор: НакладнаяНаВыпуск Журнал: ВыпускИзПроизводства Нумератор: Нет       Периодичность: Год Длина: 5         Тип: число Уникальность: да       Автонумерация: да Может являться основанием для документа любого вида?: нет
Проводить: да Автоматическое удаление движений: да Автоматическая нумерация строк: да				Бухгалтерский учет: да Расчет: нет Оперативный учет: нет
Создавать операцию: Всегда     Редактировать операцию: нет
Является основанием для			Вводится на основании
Шапка
Реквизит	Описание	ТипЗначения			Доп.
Склад		С.Склады
Таблица
Реквизит	Описание	ТипЗначения			Доп.
Наряд		Д.НарядНаСборку

Документ будет храниться в специальном журнале.
Не забудем указать этот документ как тип соответствующего субконто.

Создаем форму документа. Поле АвторДокумента, как обычно делаем недоступным.
Добавляем кнопку [Печать] с формулой Печать(). В модуль формы пишем:
Процедура ПоИзделиям() Далее
Процедура ПоСборщикам() Далее
// Это мы объявили две процедуры, они будут описаны ниже
//==========================================================
Процедура ВводНового()
  АвторДокумента=СокрЛП(ИмяПользователя());
  ФирмаДокумента=Константа.ОснФирма;
  Валюта=Константа.ОснВалюта;
  ДатаКурса=ДатаДок;
  Курс=1;
КонецПроцедуры
//==========================================================
Процедура ПриОткрытии()
  ПриЗаписиПерепроводить(1);
КонецПроцедуры
//==========================================================
Процедура Печать()
  СпЗн=СоздатьОбъект("СписокЗначений");
  СпЗн.ДобавитьЗначение(1,"ПоИзделиям");
  СпЗн.ДобавитьЗначение(2,"ПоСборщикам");
// Создали список значений и заполнили его
  Значение=0;
  Рез=СпЗн.ВыбратьЗначение(Значение,"",1,,1);
// Предлагаем выбрать из списка значение
// Список значения появится в виде выпадающей менюшки
  Если Рез=1 Тогда
    Если Значение=1 Тогда
      ПоИзделиям();
    Иначе
      ПоСборщикам();
    КонецЕсли;
  КонецЕсли;
КонецПроцедуры
//==========================================================
Процедура ПоИзделиям()
// Распечатаем список выпускаемых изделий
  ТабИзд=СоздатьОбъект("ТаблицаЗначений");
  ТабИзд.НоваяКолонка("Изд","Справочник.Изделия");
  ТабИзд.НоваяКолонка("Кол","Число",12,0);
  ВыбратьСтроки();
  Пока ПолучитьСтроку()=1 Цикл
    ДокН=Наряд;
// По каждому наряду
    ДокН.ВыбратьСтроки();
    Пока ДокН.ПолучитьСтроку()=1 Цикл
// По каждой строке наряда
      ТабИзд.НоваяСтрока();
      ТабИзд.Изд=ДокН.Изделие;
      ТабИзд.Кол=ДокН.Кол;
    КонецЦикла;
  КонецЦикла;
  ТабИзд.Свернуть("1","2");
  ТабИзд.Сортировать("1+");
  Таб=СоздатьОбъект("Таблица");
  Таб.ИсходнаяТаблица("ПоИзделиям");
  Таб.ВывестиСекцию("Шапка");
  ТабИзд.ВыбратьСтроки();
  Пока ТабИзд.ПолучитьСтроку()=1 Цикл
    Стр=ТабИзд.НомерСтроки;
    Изд=ТабИзд.Изд;
    Кол=ТабИзд.Кол;
    Таб.ВывестиСекцию("Строка");
  КонецЦикла;
  Таб.ТолькоПросмотр(1);
  Таб.ПараметрыСтраницы(1,100,1);
  Таб.Показать("");
КонецПроцедуры
//==========================================================
Процедура ПоСборщикам()
  ТабСбр=СоздатьОбъект("ТаблицаЗначений");
  ТабСбр.НоваяКолонка("Сбор","Справочник.Сотрудники");
  ТабСбр.НоваяКолонка("Сум","Число",14,2);
  ВыбратьСтроки();
  Пока ПолучитьСтроку()=1 Цикл
    ДокН=Наряд;
    ДокН.ВыбратьСтроки();
    Пока ДокН.ПолучитьСтроку()=1 Цикл
      ТабСбр.НоваяСтрока();
      ТабСбр.Сбор=ДокН.Сборщик;
      Рас=ДокН.Изделие.Расценка;
      Кол=ДокН.Кол;
      ТабСбр.Сум=Окр(Рас*Кол,2,1);
    КонецЦикла;
  КонецЦикла;
  ТабСбр.Свернуть("1","2");
  ТабСбр.Сортировать("1+");
  Таб=СоздатьОбъект("Таблица");
  Таб.ИсходнаяТаблица("ПоСборщикам");
  Таб.ВывестиСекцию("Шапка");
  ТабСбр.ВыбратьСтроки();
  Пока ТабСбр.ПолучитьСтроку()=1 Цикл
    Стр=ТабСбр.НомерСтроки;
    Сбор=ТабСбр.Сбор;
    Сум=ТабСбр.Сум;
    Таб.ВывестиСекцию("Строка");
  КонецЦикла;
  Таб.ТолькоПросмотр(1);
  Таб.ПараметрыСтраницы(1,100,1);
  Таб.Показать("");
КонецПроцедуры
Создадим две таблицы, одна будет называться "ПоИзделиям", вторая "ПоСборщикам":

По изделиям:

По сборщикам:

Переходим к модулю проведения документа. Он не особо сложен:
Процедура ОбработкаПроведения()
  Если Склад.Выбран()=0 Тогда
    Сообщить("Документ Наряд на сборку №"+НомерДок+" от "+ДатаДок+"
    |не проведен.
    |Не выбран склад заготовок");
    НеПроводитьДокумент();
    Возврат;
  КонецЕсли;
  БухИтоги=СоздатьОбъект("БухгалтерскиеИтоги");
  БухИтоги.ИспользоватьПланСчетов(ПланыСчетов.Наш);
  БухИтоги.ИспользоватьРазделительУчета(ФирмаДокумента);
  СумО=0;
  ВыбратьСтроки();
  Пока ПолучитьСтроку()=1 Цикл
    ДокН=Наряд;
    ДокН.ВыбратьСтроки();
    Пока ДокН.ПолучитьСтроку()=1 Цикл
// По каждой строке наряда
      Изд=ДокН.Изделие;
      Кол=ДокН.Кол;
      Сбр=ДокН.Сборщик;
      Рас=ДокН.Изделие.Расценка;
      СумС=Окр(Рас*Кол,2,1);
      БухИтоги.ИспользоватьСубконто(ВидыСубконто.ВидЗатрат,Перечисление.
      ВидыЗатрат.НаКомплектующие,2);
      БухИтоги.ИспользоватьСубконто(ВидыСубконто.Изделие,Изд,2);
      БухИтоги.ИспользоватьСубконто(ВидыСубконто.НарядНаКомплектацию,
      ДокН,2);
      БухИтоги.ВыполнитьЗапрос(,ДатаДок,"20");
      СумК=БухИтоги.СКД(1);
// Определяем сумму на комплектующие по конкретному изделию
// из конкретного наряда
      ПривязыватьСтроку(НомерСтроки);
// Этой преводкой начислим зарплату
      Операция.НоваяПроводка();
      Операция.Дебет.Счет = СчетПоКоду("20",ПланыСчетов.Наш);
      Операция.Кредит.Счет = СчетПоКоду("70",ПланыСчетов.Наш);
      Операция.Дебет.ВидЗатрат = Перечисление.ВидыЗатрат.НаЗарплату;
      Операция.Дебет.Изделие = Изд;
      Операция.Дебет.НарядНаКомплектацию = ДокН;
      Операция.Кредит.Сотрудник = Сбр;
      Операция.Фирма = ФирмаДокумента;
      Операция.Комментарий = "Начислена оплата труда";
      Операция.НомерЖурнала = "10";
      Операция.Сумма = СумС;
      Операция.Количество = Кол;
      ПривязыватьСтроку(НомерСтроки);
// Этой проводкой спишем на 40ой счет затраты на комплектующие
      Операция.НоваяПроводка();
      Операция.Дебет.Счет = СчетПоКоду("40",ПланыСчетов.Наш);
      Операция.Кредит.Счет = СчетПоКоду("20",ПланыСчетов.Наш);
      Операция.Дебет.МестоХранения = Склад;
      Операция.Дебет.Изделие = Изд;
      Операция.Дебет.НакладнаяНаВыпуск = ТекущийДокумент();
      Операция.Кредит.ВидЗатрат = Перечисление.ВидыЗатрат.НаКомплектующие;
      Операция.Кредит.Изделие = Изд;
      Операция.Кредит.НарядНаКомплектацию = ДокН;
      Операция.Фирма = ФирмаДокумента;
      Операция.Комментарий = "Передача на склад готовой продукции";
      Операция.НомерЖурнала = "10";
      Операция.Сумма = СумК;
      Операция.Количество = Кол;
      СумО=СумО+СумК;
      ПривязыватьСтроку(НомерСтроки);
// Этой проводкой спишем на 40ой счет затраты на зарплату
      Операция.НоваяПроводка();
      Операция.Дебет.Счет = СчетПоКоду("40",ПланыСчетов.Наш);
      Операция.Кредит.Счет = СчетПоКоду("20",ПланыСчетов.Наш);
      Операция.Дебет.МестоХранения = Склад;
      Операция.Дебет.Изделие = Изд;
      Операция.Дебет.НакладнаяНаВыпуск = ТекущийДокумент();
      Операция.Кредит.ВидЗатрат = Перечисление.ВидыЗатрат.НаЗарплату;
      Операция.Кредит.Изделие = Изд;
      Операция.Кредит.НарядНаКомплектацию = ДокН;
      Операция.Фирма = ФирмаДокумента;
      Операция.Комментарий = "Передача на склад готовой продукции";
      Операция.НомерЖурнала = "10";
      Операция.Сумма = СумС;
      Операция.Количество = 0;
      СумО=СумО+СумС;
    КонецЦикла;
  КонецЦикла;
  Операция.Содержание = "Выпуск из производства";
  Операция.СуммаОперации = СумО;
  Операция.Автор = АвторДокумента;
  Операция.Записать();
КонецПроцедуры
Проверяем работу документа.

Товар поступил на склад, и это хорошо. Теперь мы можем продать что-нибудь ненужное. А чтобы продать что-нибудь ненужное нам нужно иметь расходную накладную. Проводок в расходной накладной будет богато:
(Д 90.2 – К 40) – списание товара со склада по себестоимости,
(Д 90.3 – К 68.1) – учет НДС,
(Д 90.9 – К 99) – учет прибыли(убытка),
(Д 90.1 – К 90.2) – определение выручки,
(Д 90.1 – К 90.3) – определение выручки,
(Д 90.1 – К 90.9) – определение выручки,
(Д 62 – К 90.1) – начисление долга на покупателя.
Проведем анализ счетов на предмет субконто, по ним мы сможем определить требуемые реквизиты:

1. Счет 40 – МестоХранения, Изделие, НакладнаяНаВыпуск;
2. Счет 62 – Комтрагент, РасходнаяНакладная;
3. Счет 68 – нет;
4. Счет 90 – Изделие;
5. Счет 99 – нет.