Якщо ПустоеЗначеніе (Посада) = 1 Тоді
Попередження ("Не заповнено поле: Посада");
СтатусВозврата (0);
Повернення;
КонецЕсли;
Якщо ПустоеЗначеніе (Оклад) = 1 Тоді
Попередження ("Не заповнено поле: Оклад");
СтатусВозврата (0);
Повернення;
КонецЕсли;
СпрСотр = СоздатьОб'ект ("Справочник.Сотрудники");
Працюючі = СпрСотр.ТекущійЕлемент ();
СпрСотр.ИспользоватьРодителя (Працюючі);
СпрСотр.Новий ();
СпрСотр.Наіменованіе = ПІБ;
СпрСотр.Должность = Посада;
СпрСотр.ДатаПріема = ДатаДок;
СпрСотр.Оклад = Оклад;
СпрСотр.Запісать ();
// Запис у підлеглий довідник
Співробітник = СпрСотр.ТекущійЕлемент ();
СпрЛіч = СоздатьОб'ект ("Справочнік.ЛічниеДанние");
СпрЛич.ИспользоватьВладельца (Співробітник);
СпрЛіч.ВибратьЕлементи ();
Якщо (СпрЛіч.ПолучітьЕлемент () = 0) Тоді
СпрЛіч.Новий ();
СпрЛіч.ДатаРожденія = ДатаРожденія;
СпрЛіч.Образованіе = Освіта;
СпрЛіч.Телефон = Телефон;
СпрЛіч.Адрес = Адреса;
СпрЛіч.Запісать ();
КонецЕсли;
КонецПроцедури
Документ В«ЗвільнитиВ» модуль форми:
Процедура відкриття ()
ПріЗапісіПерепроводіть (1);
КонецПроцедури
Процедура Друк ()
Якщо Сотруднік.Вибран () = 0 Тоді
Попередження ("Введіть ім'я співробітника, якого необхідно звільнити"); Повернення;
КонецЕсли;
Таб = СоздатьОб'ект ("Таблиця");
Таб.ІсходнаяТабліца ("Таблиця");
Таб.Вивесті ();
Таб.Опціі (0,0);
Таб.ТолькоПросмотр (1);
Таб.Показать ("Таблиця");
КонецПроцедури
Документ В«ЗвільнитиВ» модуль документа:
Процедура ОбработкаПроведенія ()
// Тут слід написати алгоритм проведення документа
Якщо Сотруднік.Вибран () = 0 Тоді
Попередження ("Не заповнено поле: ПІБ");
СтатусВозврата (0);
Повернення;
