Разработка ИС "Профсоюз" на платформе "1С: Предприятие 8"

№	ФИО Сотрудника	Дата входа в профсоюз	Должность
{v8 N}	{v8 F}	{v8 D}	{v8 R}

{/v8 Область.СтрокаТаблицы1}

Приложение F

ШАБЛОН МАКЕТА «Данные сотрудника»

{v8 Область.Заголовок}

Информация о сотруднике № {v8 Код}

{/v8 Область.Заголовок}

{v8 Область.Шапка}

ФИО: {v8 Наименование}

Пол: {v8 Пол}

Дата рождения: {v8 ДатаРождения}

Серия паспорта: {v8 СерияПаспорта}

Номер паспорта: {v8 НомерПаспорта}

Когда выдан: {v8 КогдаВыдан}

Кем выдан: {v8 КемВыдан}

{/v8 Область.Шапка}

{v8 Область.ШапкаТаблицы}

Учёт в профсоюзной организации
№	Период	Проф. организация	Принят/снят с учёта	Причина снятия с учёта	Форма уплаты взноса

{/v8 Область.ШапкаТаблицы}

{v8 Область.СтрокаТаблицы}

{v8 Н}	{v8 Д}	{v8 П}	{v8 С}	{v8 М}	{v8 Ф}

{/v8 Область.СтрокаТаблицы}

{v8 Область.ШапкаТаблицы1}

Данные о семье сотрудника
№	ФИО родственника	Дата рождения	Пол	Тип родственности	Место жительства

{/v8 Область.ШапкаТаблицы1}

{v8 Область.СтрокаТаблицы1}

{v8 Н}	{v8 ФИО}	{v8 Д}	{v8 Пол}	{v8 Р}	{v8 Ж}

{/v8 Область.СтрокаТаблицы1}

Приложение G

ЛИСТИНГ КОДА В МОДУЛЕ ФОРМЫ ОБЪЕКТА

&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

ПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);

КонецПроцедуры

&НаСервере

Процедура ПриЧтенииНаСервере(ТекущийОбъект)

ПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект);

КонецПроцедуры

&НаКлиенте

Процедура ПриОткрытии(Отказ)

ПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);

КонецПроцедуры

&НаКлиенте

Процедура ПослеЗаписи(ПараметрыЗаписи)

ПодключаемыеКомандыКлиент.ПослеЗаписи(ЭтотОбъект, Объект, ПараметрыЗаписи);

КонецПроцедуры

// СтандартныеПодсистемы.ПодключаемыеКоманды

&НаКлиенте

Процедура Подключаемый_ВыполнитьКоманду(Команда)

ПодключаемыеКомандыКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда, Объект);

КонецПроцедуры

&НаКлиенте

Процедура Подключаемый_ПродолжитьВыполнениеКомандыНаСервере(ПараметрыВыполнения, ДополнительныеПараметры) Экспорт

ВыполнитьКомандуНаСервере(ПараметрыВыполнения);

КонецПроцедуры

&НаСервере

Процедура ВыполнитьКомандуНаСервере(ПараметрыВыполнения)

ПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, ПараметрыВыполнения, Объект);

КонецПроцедуры

&НаКлиенте

Процедура Подключаемый_ОбновитьКоманды()

ПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект);

КонецПроцедуры

// Конец СтандартныеПодсистемы.ПодключаемыеКоманды

Приложение H

ЛИСТИНГ КОДА В ФОРМЕ СПИСКА ОБЪЕКТА

&НаКлиенте

Процедура СписокПриАктивизацииСтроки(Элемент)

ПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);

КонецПроцедуры

&НаКлиенте

Процедура Подключаемый_ВыполнитьКоманду(Команда)

ПодключаемыеКомандыКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда, Элементы.Список);

КонецПроцедуры

&НаКлиенте

Процедура Подключаемый_ПродолжитьВыполнениеКомандыНаСервере(ПараметрыВыполнения, ДополнительныеПараметры) Экспорт

ВыполнитьКомандуНаСервере(ПараметрыВыполнения);

КонецПроцедуры

&НаСервере

Процедура ВыполнитьКомандуНаСервере(ПараметрыВыполнения)

ПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, ПараметрыВыполнения, Элементы.Список);

КонецПроцедуры

&НаКлиенте

Процедура Подключаемый_ОбновитьКоманды()

ПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Элементы.Список);

КонецПроцедуры

Приложение I

ЛИСТИНГ КОДА МОДУЛЯ МЕНЕДЖЕРА

#Область ПрограммныйИнтерфейс

Процедура ДобавитьКомандыПечати(КомандыПечати) Экспорт

КомандаПечати = КомандыПечати.Добавить();

КомандаПечати.МенеджерПечати = "Документ.ЗаявлениеНаВступлениеВПрофсоюз";

КомандаПечати.Идентификатор = "ЗаявлениОВступленииВПрофсоюз";

КомандаПечати.Представление = НСтр("ru = 'Заявление о вступлении в профсоюз'");

КомандаПечати.Картинка = БиблиотекаКартинок.ФорматWord;

КонецПроцедуры // ДобавитьКомандыПечати()

#КонецОбласти

Процедура Печать(МассивОбъектов, ПараметрыПечати, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт

ПечатнаяФорма = УправлениеПечатью.СведенияОПечатнойФорме(КоллекцияПечатныхФорм, "ЗаявлениОВступленииВПрофсоюз");

Если ПечатнаяФорма <> Неопределено Тогда

ПечатнаяФорма.ОфисныеДокументы = НапечататьЗаявление(МассивОбъектов);

ПечатнаяФорма.СинонимМакета = НСтр("ru = 'Заявление о вступлении в профсоюз'");

КонецЕсли;

КонецПроцедуры // Печать()

Функция НапечататьЗаявление(МассивОбъектов)

ОфисныеДокументы = Новый Соответствие;

Шаблон = "Заявление № [Номер] От [Дата]";

ЗначенияРеквизитов = ОбщегоНазначения.ЗначенияРеквизитовОбъектов(МассивОбъектов, "Номер, Дата, Ссылка");

Для каждого Ссылка Из МассивОбъектов Цикл

РеквизитыДокумента = ЗначенияРеквизитов[Ссылка];

РеквизитыДокумента.Дата = Формат(РеквизитыДокумента.Дата, "ДЛФ=D");

РеквизитыДокумента.Номер = ПрефиксацияОбъектовКлиентСервер.НомерНаПечать(РеквизитыДокумента.Номер);

ИмяДокумента = СтроковыеФункцииКлиентСервер.ВставитьПараметрыВСтроку(Шаблон, РеквизитыДокумента);

АдресДокумента = СформироватьЗаявление(Ссылка);

ОфисныеДокументы.Вставить(АдресДокумента, ИмяДокумента);

КонецЦикла;

Возврат ОфисныеДокументы;

КонецФункции // НапечататьЗаявление()

Функция СформироватьЗаявление(Ссылка)

МакетДокумента = УправлениеПечатью.МакетПечатнойФормы("Документ.ЗаявлениеНаВступлениеВПрофсоюз.ЗаявлениеОВступленииВПрофсоюз");

Макет = УправлениеПечатью.ИнициализироватьМакетОфисногоДокумента(МакетДокумента, Неопределено);

ОписаниеОбластей = Новый Структура;

УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "Заголовок", "Общая");

УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "Шапка", "Общая");

УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "Подвал", "Общая");

ПечатнаяФорма = УправлениеПечатью.ИнициализироватьПечатнуюФорму(Неопределено, Неопределено, Макет);

Запрос = Новый Запрос;

Запрос.Текст = "ВЫБРАТЬ

|ЗаявлениеНаВступлениеВПрофсоюз.Номер КАК Номер,

|ЗаявлениеНаВступлениеВПрофсоюз.Дата КАК Дата,

|ЗаявлениеНаВступлениеВПрофсоюз.Организация КАК Организация,

|ЗаявлениеНаВступлениеВПрофсоюз.ФИОВступающего КАК ФИОВступающего,

|ЗаявлениеНаВступлениеВПрофсоюз.Должность КАК Должность,

|ЗаявлениеНаВступлениеВПрофсоюз.НаименованиеПрофсоюза КАК НаименованиеПрофсоюза

|ИЗ

|Документ.ЗаявлениеНаВступлениеВПрофсоюз КАК ЗаявлениеНаВступлениеВПрофсоюз

|ГДЕ

|ЗаявлениеНаВступлениеВПрофсоюз.Ссылка = &Ссылка";

Запрос.УстановитьПараметр("Ссылка", Ссылка);

ДанныеДляПечати = Запрос.Выполнить();

Шапка = ДанныеДляПечати.Выгрузить();

ДанныеШапка = ОбщегоНазначения.СтрокаТаблицыЗначенийВСтруктуру(Шапка[0]);

ДанныеШапка["Номер"] = ПрефиксацияОбъектовКлиентСервер.НомерНаПечать(ДанныеШапка["Номер"]);

ДанныеШапка["Дата"] = Формат(ДанныеШапка["Дата"], "ДФ=dd.MM.yyyy");

Область = УправлениеПечатью.ОбластьМакета(Макет, ОписаниеОбластей["Заголовок"]);

УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеШапка);

Область = УправлениеПечатью.ОбластьМакета(Макет, ОписаниеОбластей["Шапка"]);

УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеШапка);

Область = УправлениеПечатью.ОбластьМакета(Макет, ОписаниеОбластей["Подвал"]);

УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеШапка);

АдресХранилищаПечатнойФормы = УправлениеПечатью.СформироватьДокумент(ПечатнаяФорма);

УправлениеПечатью.ОчиститьСсылки(ПечатнаяФорма);

УправлениеПечатью.ОчиститьСсылки(Макет);

Возврат АдресХранилищаПечатнойФормы;

КонецФункции // СформироватьЗаявление(ссылка)()

Размещено на Allbest.ru

...