Адаптация автоматизированной системы "1С Предприятие 8"

+

9.2

Удержание по инициативе администрации предприятия

9.2.1

Удержание за причиненный предприятию материальный ущерб

+

9.2.2

Удержание за брак

9.2.3

Удержание за форменную одежду

+

9.2.4

Возврат сумм, выплаченных за неотработанные дни отпуска при увольнении до окончания рабочего года

+

9.3

Удержания по заявлению работника

9.3.1

Профсоюзные взносы

+

9.3.2

Удержание ссуды, ссудного процента

+

9.3.3

Прочие удержания по заявлению работника

+

Выплата заработной платы

10.1

Виды выплат заработной платы

10.1.1

Выплата аванса

+

10.1.2

Неполная выплата заработной платы (%)

10.1.3

Межрасчетная выплата

+

10.2

Кассовые и банковские операции по выплате заработной платы

10.2.1

Выплата заработной платы через кассу

+

10.2.2

Выплата заработной платы через банк

10.3.

Депонирование заработной платы

10.3.1

Депонирование заработной платы

+

10.3.2

Выплата с депонента

+

Начисления на заработную плату

11.1

Единый социальный налог

11.1.1

В федеральный бюджет

+

11.1.2

В Фонд социального страхования РФ (ФСС)

+

11.1.3

В Федеральный фонд обязательного медицинского страхования (ФФОМС)

+

11.1.4

В Территориальный фонд обязательного медицинского страхования (ТФОМС)

+

11.2

Страховые взносы в ПФР

11.2.1

Страховая часть пенсии

+

11.2.2

Накопительная часть пенсии.

+

11.3

Страхование от несчастных случаев на производстве

11.3.1

В Фонд социального страхования РФ (по обязательному социальному страхованию от несчастных случаев на производстве и профессиональных заболеваний)

+

11.4

Особые случаи налогообложения

11.4.1

Организация осуществляет деятельность, подпадающую под единый налог на вмененный налог

11.4.2

Организация имеет льготы по ЕСН согласно п. п.2, п.1, ст.239 НК РФ (организации инвалидов и т.д.)

11.4.3

Организация имеет льготы по ЕСН согласно п. п.1, п.1, ст.239 НК РФ (в организации числятся работники-инвалиды)

11.4.4

В организации числятся иностранные граждане (п.2 ст.239 НК РФ)

11.4.5

Организация имеет право на использование регрессивной шкалы ставок ЕСН.

+

ОТЧЕТНОСТЬ, ФОРМЫ, РЕГИСТРЫ

1

ОТЧЕТНОСТЬ В НАЛОГОВЫЕ ОРГАНЫ

"Расчет авансовых платежей по ЕСН"

+

"Налоговая декларация для организаций, выступающих в качестве работодателей по ЕСН"

+

"Индивидуальная карточка учета сумм начисленных выплат и иных вознаграждений, сумм начисленного ЕСН, а также сумм налогового вычета

+

"Налоговая карточка по учету доходов и НДФЛ (Форма 1-НДФЛ)"

+

"Справка о доходах физического лица и ЕСН (Форма 2-НДФЛ)"

+

"Реестр сведений о доходах физических лиц и ЕСН (взносе)"

+

"Заявление в ИМНС"

+

2

отчетность в пенсионный Фонд

"Расчет по авансовым платежам по страховым взносам на обязательное пенсионное страхование"

+

Отчетность и передача данных персонифицированного учета в ПФР

+

3

ОТЧЕТНОСТЬ В ФОНД СОЦИАЛЬНОГО СТРАХОВАНИЯ

Расчетная ведомость по средствам фонда социального страхования по форме ФСС-4

+

4

отчетность по обособленным подразделениям

Организация ведет учет по обособленным подразделениям

5

унифицированные формы отчетности по оплате труд

Расчетно-платежная ведомость по форме Т-49

+

Расчетная ведомость по форме Т-51

+

Платежная ведомость по форме Т-53.

+

Журнал регистрации платежных ведомостей по форме № Т 53-а

+

Лицевой счет по форме № Т-54.

+

Лицевой счет по форме № Т-54а

+

Реестр депонированных сумм

+

Книга аналитического учета депонированной заработной платы и стипендий по форме № 441

+

6

налоговые регистры

Регистр учета налогов, включаемых в состав расходов

+

Учет расходов по оплате труда

+

Таблица А.2 - Кадровый учет.

№	Участок кадрового учета	Ведение в организации	Требуемый уровень автоматизации
			Д	НП	П
1. Договоры
1.1	Трудовые договоры (контракты)
1.1.1	Трудовой договор (контракт)	+			+
1.1.2	Срочный трудовой договор (контракт)	+			+
1.1.3	Оформление трудового договора (контракта) с испытательным сроком	+			+
1.2	Договоры гражданско-правового характера
1.2.1	Договор подряда	+			+
1.2.2	Договор возмездного оказания услуг
1.2.3	Авторский договор
1.2.4	Акт о приемке работ, выполненных по трудовому договору (контракту), заключенному на время выполнения определенной работы	+			+
2. Штатно-должностной учет
2.1	Штатное расписание по форме № Т-3	+			+
3. Движение кадров
3.1	Приказы (распоряжения) и прилагаемые документы
3.1.1	Приказ (распоряжение) о приеме на работу по форме № Т-1	+			+
3.1.2	Приказ (распоряжение) о приеме работников на работу о форме № Т-1а	+			+
3.1.3	Приказ (распоряжение) о переводе на другую работу по форме № Т-5	+			+
3.1.4	Приказ (распоряжение) о переводе работников на другую работу по форме № Т-5а	+			+
3.1.5	Приказ (распоряжение) о предоставлении отпуска по форме № Т-6	+			+
3.1.6	Приказ (распоряжение) о предоставлении отпуска работникам по форме № Т-6а	+			+
3.1.7	Записка-расчет о предоставлении отпуска работнику по форме № Т-60.	+			+
3.1.8	График отпусков по форме № Т-7	+			+
3.1.9	Приказ (распоряжение) о прекращении действия трудового договора (контракта) с работником по форме №Т-8	+			+
3.1.10	Приказ (распоряжение) о прекращении действия трудового договора (контракта) с работниками по форме №Т-8а	+			+
3.1.11	Записка-расчет о прекращении действия трудового договора (контракта) с работником по форме №Т-61	+			+
3.2	Документы поличному составу
3.2.1	Приказ (распоряжение) о поощрении работника по форме № Т-11	+			+
3.2.2	Приказ (распоряжение) о поощрении работников по форме № Т-11а	+			+
3.2.3	Приказ (распоряжение) о направлении работника в командировку по форме № Т-9	+			+
3.2.4	Приказ (распоряжение) о направлении работников в командировку по форме № Т-9а	+			+
3.2.5	Командировочное удостоверение по форме № Т-10	+			+
3.2.6	Служебное задание для направления в командировку и отчет о его выполнении по форме № Т-10 а	+			+
3.2.7	Приказ о взыскании с работника (работников) предприятия	+			+
3.3	Журналы регистрации
3.3.1	Журнал регистрации приема на работу	+			+
3.3.2	Журнал регистрации увольнения с работы	+			+
3.3.3	Журнал регистрации переводов сотрудников	+			+
3.3.4	Журнал регистрации приказов по очередным отпускам	+			+
4. Персональный учет кадров (личное дело)
4.1	Учет персональных данных
4.1.2	Личная карточка (форма № Т-2)	+			+
4.1.3	Опись документов, имеющихся в личном деле	+			+
4.1.4	Журнал регистрации личных дел служащих.	+			+
4.2	Учет трудовых книжек
4.2.1	Приходно-расходная книга по учету бланков трудовых книжек и вкладышей к ним	+			+
4.2.2	Книга учета движения трудовых книжек и вкладышей к ним	+			+
4.3	Учет командировок
4.3.1	Журнал учета лиц, направленных в командировки внутри страны	+			+
4.3.2	Журнал учета лиц, направленных в зарубежные командировки	+			+
4.3.3	Журнал учета выдачи командировочных удостоверений	+			+
4.4	Учет рабочего времени.
4.4.1	Табель учета использования рабочего времени и расчета заработной платы (форма № Т-12)	+			+
4.4.2	Табель учета использования рабочего времени (форма №Т-13)	+			+
4.4.3	Журнал учета больничных листов	+			+
4.5	Справки о работе и заработной плате
4.5.1	Справка о заработной плате	+			+
4.5.2	Справка о стаже	+			+
4.5.3	Справка о месте работы	+			+
4.5.4	Журнал (книга) учета выдачи справок о заработной плате, стаже, месте работы	+			+
4.6	Справки сотрудников
4.6.1	Справка об установлении инвалидности
5. Статистический учет
5.1	Среднесписочная численность работников предприятия	+			+
5.2	Отчет о численности работников по полу и возрасту и рабочих по образованию	+			+
5.3	Сведения о распределении численности работников по размерам заработной платы	+			+
10. Дополнительно
	Дополнительных данных не предоставлено

Приложение Б

Печатная форма документа "Квартальная премия"

"Утверждаю"

Директор ООО "СтройРемонтПодряд"

___________ /Фамилия И.О. /

Предприятие ООО "СтройРемонтПодряд"

Тип документа: квартальная премия

Таб. №	Фамилия Имя Отчество	Сумма начислений	Коэффициент	Базовая сумма	Сумма премии
<табельный номер сотрудника>	<Фамилия, инициалы сотрудника>	<Сумма начислений, базовых для премии>	<Коэффициент трудового участия>	<Сумма начислений с учетом КТУ>	<Начисленная сумма премии>
ИТОГО:	ХХХХХ	ХХХХХХ	ХХХХХХ	ХХХХХХ

Сумма премии для всех работников составляет ААААА. АА рублей

Главный бухгалтер ООО "СтройРемонтПодряд"

__________________/Фамилия И.О. /

Приложение В

Печатная форма документа "Вознаграждение по итогам года"

"Утверждаю"

Директор ООО "СтройРемонтПодряд"

___________ /Фамилия И.О. /

Предприятие ООО "СтройРемонтПодряд"

Тип документа: вознаграждение по итогам года

Таб. №	Фамилия Имя Отчество	Заработок за год	Стаж работы	Коэффициент	Базовая сумма	Сумма вознаграждения
<табельный номер сотрудника>	<Фамилия, инициалы сотрудника>	<Сумма начислений, базовых для премии за истекший календарный год>	<Стаж работы в организации лет и месяцев>	<Коэффициент стажа>	<Сумма начислений с учетом коэффициента стажа>	<Начисленная сумма вознаграждения>
ИТОГО:		ХХХХХ	ХХХХХХ	ХХХХХХ	ХХХХХХ

Сумма премии для всех работников составляет ААААА. АА рублей

Главный бухгалтер ООО "СтройРемонтПодряд"

____________ /Фамилия И.О. /

Приложение Г

31/03/08 11: 04: 38

Предприятие: ООО "СтройРемонтПодряд"

ВЕДОМОСТЬ УЧЕТА РАСЧЕТОВ ПО СЧЕТУ 6001

[Расчеты с поставщиками (с НДС)]

Валюта: РУБ Рубль РФ

Сведения о контрагенте	Всего задолженность [РУБ]
Шифр	Наименование	Дебетовая	Кредитовая
000003	ТО Охрана г. Казань		45,00
000004	Охрана ТО г. Магнитогорск		735,00
000005	Предприниматель Попков И.	51,92
000015	А/Ф ВАМИН-Минзаля'		124 752,15
000027	ФГУЗ 'Набережночел. дезста		10 903, 20
000050	ООО АРСЛАН		23 937,48
000060	ООО'Агава К'		18,90
000062	Челн. предпр. АООТ 'Стройме		4 011 317,82
000063	ОАО'ЧЕЛНЫ-ЛАДА'		65 799,18
000069	ОАО 'ЧЕЛНЫНЕФТЕПРОДУКТ'	73 929,06
000072	АО ПАК		14 816,28
000074	Департамент главн. энергет	62 759,56
000094	ООО'Кран-Сервис' ИДЦ		8 509,64
000096	ОАО 'Камснаб'	25 198,06
000112	ФГУП'Охрана'МВД г. Наб. Чел		41 278,53
000131	Фил. ЗАО'РОСТЭК-Татарстан'		323,47
000133	ЧМУС-2 'Татсантехмонтаж'	10 917,97
000150	ООО'ТатЦентр'	1 727,24
000164	ООО Агроремонтсервис		5 951,92
000165	ООО 'Полет'		13 389,83
000181	ООО'РИД-маркет'	154,89
000182	ОАО'Компания Татглавснаб'	8 000,00
000186	Елаб. 'Стальконструкция'		1 631,91
000202	ООО'Транс-Ойл' г. Казань		94 358,40
000209	ООО'Бау Траст-Комплект'	6 571,45
000215	ООО'Бухгалтер-ПРО'		2 300,00
000236	ООО'НЗС и МК'		455,60
000266	ООО СЭП Экосервис	16 174,01
000306	ОАО 'Прокатмонтаж'		92 580,47
000317	ЗАО'Востокмонтажмеханизац		27 545,28
000331	АО 'Монтажник'г. Магнитог.		9 884,33
000346	ООО 'Мехснаб'г. Магнитогор		3 560,43
000355	ООО ПФ ТрансТехСервис-3	3,00
000360	ОАО 'РМЗ К-700'		19 092,78
000364	ТОО ПКФ 'Гаммон'	158 350,00
000386	ЧМУ ОАО'Татэлектромонтаж'		4 512,01
000399	МСШСП г. Магнитогорск		165 695,73
Итого	363837,16	4743395,34
Директор: Аппаков А.М.
Главный бухгалтер: Минкова Е.А.

Приложение Д

Листинг модуля формы документа "ВводДанныхОВыработкеНаМеханизмах"

Перем мГоловнаяОрганизация;

Перем ОсновнойВидОплаты, ПустойВидОплаты;

Функция ПолучитьДоступныеВидыОплат (Механизм)

ТЗРегистра = РегистрыСведений. лс_ОплатаРаботНаМеханизмах. СрезПоследних (Дата, Новый Структура ("Механизм", Механизм));

Список = Новый СписокЗначений;

Список. ЗагрузитьЗначения (ТЗРегистра. ВыгрузитьКолонку ("ВидОплаты"));

Возврат Список;

КонецФункции // ПолучитьДоступныеВидыОплат (ТекСтрока. Механизм) ()

Функция ЧислоСтрок (Механизм, ВидОплаты, Сотрудник)

Возврат Выработка. НайтиСтроки (Новый Структура ("Механизм, ВидОплаты, Сотрудник", Механизм, ВидОплаты, Сотрудник)). Количество ();

КонецФункции // ЕстьСтрока ()

Функция ПолучитьРазмер (Механизм, ВидОплаты)

Возврат РегистрыСведений. лс_ОплатаРаботНаМеханизмах. ПолучитьПоследнее (Дата, Новый Структура ("Механизм, ВидОплаты", Механизм, ВидОплаты)). Размер;

КонецФункции //

Процедура Пересчет (СтрокаТЧ)

Если СтрокаТЧ. ВидОплаты = ОсновнойВидОплаты Тогда

СтрокаТЧ. Результат = СтрокаТЧ. Размер * СтрокаТЧ. ВыработкаЧас;

Иначе

СтрокаТЧ. Результат = 0;

КонецЕсли;

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

Процедура КоманднаяПанель1Подбор (Кнопка)

ПроцедурыУправленияПерсоналом. ОткрытьФормуВыбораСотрудникаОрганизации (ЭлементыФормы. Выработка, Ссылка, Ложь, Дата, мГоловнаяОрганизация, 1);

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

Процедура ВыработкаСотрудникНачалоВыбора (Элемент, СтандартнаяОбработка)

ПроцедурыУправленияПерсоналом. ОткрытьФормуВыбораСотрудникаОрганизации (Элемент, Ссылка, Истина, Дата, мГоловнаяОрганизация, 1, СтандартнаяОбработка, Элемент. Значение);

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

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

Если ЭтоНовый () Тогда // проверить объект на то, что он еще не внесен в ИБ

// Заполнить реквизиты значениями по умолчанию.

ОбщегоНазначения. ЗаполнитьШапкуДокумента (ЭтотОбъект, глЗначениеПеременной ("глТекущийПользователь"));

КонецЕсли;

РаботаСДиалогами. УстановитьДоступностьПоляВводаНомера (Метаданные (), ЭтаФорма, ЭлементыФормы. ДействияФормы. Кнопки. Подменю1, ЭлементыФормы. Номер);

// Заполним реквизит формы МесяцСтрока.

МесяцСтрока = РаботаСДиалогами. ДатаКакМесяцПредставление (ПериодРегистрации);

// Вывести в заголовке формы статус документа (новый, не проведен, проведен).

РаботаСДиалогами. УстановитьЗаголовокФормыДокумента (, ЭтотОбъект, ЭтаФорма);

// Запомнить текущие значения реквизитов формы.

мТекущаяДатаДокумента = Дата;

// Получим и запомним ссылку на головную организацию

мГоловнаяОрганизация = ОбщегоНазначения. ГоловнаяОрганизация (Организация);

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

Процедура ПериодРегистрацииПриИзменении (Элемент)

РаботаСДиалогами. ДатаКакМесяцПодобратьДатуПоТексту (Элемент. Значение, ПериодРегистрации);

Элемент. Значение = РаботаСДиалогами. ДатаКакМесяцПредставление (ПериодРегистрации);

КонецПроцедуры // ПериодРегистрацииПриИзменении ()

// Процедура - обработчик события "Регулирование" поля ввода периода регистрации.

Процедура ПериодРегистрацииРегулирование (Элемент, Направление, СтандартнаяОбработка)

ПериодРегистрации = ДобавитьМесяц (ПериодРегистрации, Направление);

Элемент. Значение = РаботаСДиалогами. ДатаКакМесяцПредставление (ПериодРегистрации);

КонецПроцедуры // ПериодРегистрацииРегулирование ()

// Процедура - обработчик события "Очистка" поля ввода периода регистрации.

Процедура ПериодРегистрацииОчистка (Элемент, СтандартнаяОбработка)

СтандартнаяОбработка = Ложь;

КонецПроцедуры // ПериодРегистрацииОчистка ()

// Процедура - обработчик события "НачалоВыбораИзСписка" поля ввода периода регистрации.

Процедура ПериодРегистрацииНачалоВыбораИзСписка (Элемент, СтандартнаяОбработка)

РаботаСДиалогами. НачалоВыбораИзСпискаПредставленияПериодаРегистрации (Элемент, СтандартнаяОбработка, ПериодРегистрации, ЭтаФорма);

КонецПроцедуры // ПериодРегистрацииНачалоВыбораИзСписка ()

// Процедура - обработчик события "АвтоПодборТекста" поля ввода периода регистрации.

Процедура ПериодРегистрацииАвтоПодборТекста (Элемент, Текст, ТекстАвтоПодбора, СтандартнаяОбработка)

РаботаСДиалогами. ДатаКакМесяцАвтоПодборТекста (Текст, ТекстАвтоПодбора, СтандартнаяОбработка);

КонецПроцедуры // ПериодРегистрацииАвтоПодборТекста ()

// Процедура - обработчик события "ОкончаниеВводаТекста" поля ввода периода регистрации.

Процедура ПериодРегистрацииОкончаниеВводаТекста (Элемент, Текст, Значение, СтандартнаяОбработка)

РаботаСДиалогами. ДатаКакМесяцОкончаниеВводаТекста (Текст, Значение, СтандартнаяОбработка);

КонецПроцедуры // ПериодРегистрацииОкончаниеВводаТекста ()

Процедура ОбработкаВыбора (ЗначениеВыбора, Источник)

Если ТипЗнч (ЗначениеВыбора) = Тип ("Структура") Тогда

Команда = ""; Реквизиты = "";

Если ЗначениеВыбора. Свойство ("Команда", Команда) и Команда = "ЗаполнитьСписокРаботников" Тогда

ВременнаяТаблица = ЗначениеВыбора. Данные. Выгрузить ();

МассивСотрудников = ВременнаяТаблица. ВыгрузитьКолонку ("Сотрудник");

ВременнаяТаблица. Колонки. Подразделение. Имя = "ПодразделениеОрганизации";

ВременнаяТаблица. Колонки. Добавить ("Авторасчет");

ВременнаяТаблица. ЗаполнитьЗначения (Истина, "Авторасчет");

Выработка. Загрузить (ВременнаяТаблица);

КонецЕсли;

КонецЕсли;

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

Процедура ВыработкаОбработкаВыбора (Элемент, ВыбранноеЗначение, СтандартнаяОбработка)

Если ТипЗнч (ВыбранноеЗначение) <> Тип ("СправочникСсылка. СотрудникиОрганизаций") Тогда

Возврат;

КонецЕсли;

СтандартнаяОбработка = Ложь;

Если Выработка. НайтиСтроки (Новый Структура ("Сотрудник", ВыбранноеЗначение)). Количество () = 0 Тогда

СтрокаТабличнойЧасти = Выработка. Добавить ();

СтрокаТабличнойЧасти. Сотрудник= ВыбранноеЗначение;

СтрокаТабличнойЧасти. Авторасчет= Истина;

ЭлементыФормы. Выработка. ТекущаяСтрока = СтрокаТабличнойЧасти;

ПроцедурыУправленияПерсоналом. ПроставитьДанныеСтроки (ВыбранноеЗначение, Дата, ЭлементыФормы. Выработка);

КонецЕсли;

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

Процедура ВыработкаСотрудникПриИзменении (Элемент)

ПроцедурыУправленияПерсоналом. ПроставитьДанныеСтроки (Элемент. Значение, ПериодРегистрации, ЭлементыФормы. Выработка);

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

Процедура КоманднаяПанель1Заполнить (Кнопка)

Если Выработка. Количество () > 0 Тогда

ТекстВопроса = "Перед заполнением табличные части будут очищены. Заполнить?";

Ответ = Вопрос (ТекстВопроса, РежимДиалогаВопрос. ДаНет,, КодВозвратаДиалога. Да,);

Если Ответ <> КодВозвратаДиалога. Да Тогда

Возврат;

КонецЕсли;

Выработка. Очистить ();

КонецЕсли;

мИмяЗаполняемойТаблицы = "Выработка";

ПроцедурыУправленияПерсоналом. ОткрытьФормуОтбораСпискаРаботников (ЭтаФорма, ПериодРегистрации,, Организация);

// ПроцедурыУправленияПерсоналом. ОткрытьФормуОтбораСпискаРаботников (ЭтаФорма, ПериодРегистрации,, Организация,,,,"РазовыеРасчеты", Новый Структура ("ВидРасчета, Показатель1, ДатаНачала, ДатаОкончания", ПланыВидовРасчета. ОсновныеНачисленияОрганизаций. ПустаяСсылка (),0, Дата (1,1,1), Дата (1,1,1)));

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

Процедура ВыработкаПередНачаломИзменения (Элемент, Отказ)

Если Элемент. ТекущаяКолонка. Имя = "ВидОплаты" Тогда

// проверим, выбран ли механизм

Если Элемент. ТекущаяСтрока. Механизм. Пустая () Тогда

Отказ = истина;

КонецЕсли;

КонецЕсли;

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

Процедура ВыработкаМеханизмПриИзменении (Элемент)

Если ЧислоСтрок (Элемент. Значение, ОсновнойВидОплаты, ЭлементыФормы. Выработка. ТекущаяСтрока. Сотрудник) =0 Тогда

ЭлементыФормы. Выработка. ТекущаяСтрока. ВидОплаты = ОсновнойВидОплаты;

ЭлементыФормы. Выработка. ТекущаяСтрока. Размер = ПолучитьРазмер (ЭлементыФормы. Выработка. ТекущаяСтрока. Механизм, ЭлементыФормы. Выработка. ТекущаяСтрока. ВидОплаты);

Пересчет (ЭлементыФормы. Выработка. ТекущаяСтрока);

Иначе

ЭлементыФормы. Выработка. ТекущаяСтрока. ВидОплаты = ПустойВидОплаты;

КонецЕсли;

ОбработкаИзмененияВидаОплаты (ЭлементыФормы. Выработка. ТекущаяСтрока);

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

Процедура ВыработкаПередОкончаниемРедактирования (Элемент, НоваяСтрока, ОтменаРедактирования, Отказ)

Если не ОтменаРедактирования Тогда

ТекСтрока = Элемент. ТекущаяСтрока;

ТекКолонка = Элемент. ТекущаяКолонка;

Если ЧислоСтрок (ТекСтрока. Механизм, ТекСтрока. ВидОплаты, ТекСтрока. Сотрудник) >1 Тогда

Сообщить ("В строке " + ТекСтрока. НомерСтроки + " дублируется комбинация ключевых полей!");

ТекСтрока. ВидОплаты = ПустойВидОплаты;

Отказ = истина;

Возврат;

КонецЕсли;

Если ТекСтрока. ВидОплаты <> ОсновнойВидОплаты Тогда

Если ЧислоСтрок (ТекСтрока. Механизм, ОсновнойВидОплаты, ТекСтрока. Сотрудник) =0 Тогда

Сообщить ("У сотрудника " + ТекСтрока. Сотрудник + " на механизме " + ТекСтрока. Механизм + " не введен основной вид оплаты!");

ТекСтрока. ВидОплаты = ПустойВидОплаты;

Отказ = истина;

Возврат;

КонецЕсли;

КонецЕсли;

КонецЕсли;

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

Процедура ВыработкаПриНачалеРедактирования (Элемент, НоваяСтрока, Копирование)

ТекСтрока = Элемент. ТекущаяСтрока;

Если Копирование Тогда

ТекКолонка = Элемент. ТекущаяКолонка;

ТекСтрока. ВидОплаты = ПустойВидОплаты;

ТекСтрока. ВыработкаЧас = 0;

ТекСтрока. Результат = 0;

КонецЕсли;

Если НоваяСтрока Тогда

ТекСтрока. Авторасчет = Истина;

КонецЕсли;

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

Процедура КоманднаяПанель1Рассчитать (Кнопка)

Если не РаботаСДиалогами. ЗаписатьДокументПередВыполнениемДействия (ЭтотОбъект, ЭтаФорма, "Перед расчетом документ необходимо записать. Записать документ?") Тогда

Возврат;

КонецЕсли;

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

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

|Выработка. НомерСтроки,

|ВЫБОР

|КОГДА Выработка. ВидОплаты = &Основной

|ТОГДА Выработка. ВыработкаЧас * ОсновнойТариф. Размер

|ИНАЧЕ Выработка. ВыработкаЧас * ОсновнойТариф. Размер * ПрочиеТарифы. Размер / 100

|КОНЕЦ КАК Результат,

|ВЫБОР

|КОГДА Выработка. ВидОплаты = &Основной

|ТОГДА ОсновнойТариф. Размер

|ИНАЧЕ ПрочиеТарифы. Размер

|КОНЕЦ КАК Размер

|ИЗ

|Документ. лс_ВводДанныхОВыработкеНаМеханизмах. Выработка КАК Выработка

|ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ РАЗЛИЧНЫЕ

|лс_ВводДанныхОВыработкеНаМеханизмахВыработка. Механизм КАК Механизм,

|лс_ОплатаРаботНаМеханизмахСрезПоследних. Размер КАК Размер

|ИЗ

|Документ. лс_ВводДанныхОВыработкеНаМеханизмах. Выработка КАК лс_ВводДанныхОВыработкеНаМеханизмахВыработка

|ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений. лс_ОплатаРаботНаМеханизмах. СрезПоследних (&ДатаДок, ВидОплаты = &Основной) КАК лс_ОплатаРаботНаМеханизмахСрезПоследних

|ПО лс_ВводДанныхОВыработкеНаМеханизмахВыработка. Механизм = лс_ОплатаРаботНаМеханизмахСрезПоследних. Механизм) КАК ОсновнойТариф

|ПО Выработка. Механизм = ОсновнойТариф. Механизм

|ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений. лс_ОплатаРаботНаМеханизмах. СрезПоследних (&ДатаДок, ВидОплаты <> &Основной) КАК ПрочиеТарифы

|ПО Выработка. Механизм = ПрочиеТарифы. Механизм

|И Выработка. ВидОплаты = ПрочиеТарифы. ВидОплаты

|ГДЕ

|Выработка. Ссылка = &Ссылка";

Запрос. УстановитьПараметр ("Основной", ОсновнойВидОплаты);

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

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

ТабРезультат = Запрос. Выполнить (). Выгрузить ();

Для каждого СтрТЧ Из Выработка Цикл

СтрТаб = ТабРезультат. Найти (СтрТЧ. НомерСтроки, "НомерСтроки");

Если СтрТаб <> Неопределено Тогда

СтрТЧ. Результат = СтрТаб. Результат;

СтрТЧ. Размер = СтрТаб. Размер;

КонецЕсли;

КонецЦикла;

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

Процедура ВыработкаРезультатПриИзменении (Элемент)

ЭлементыФормы. Выработка. ТекущаяСтрока. Авторасчет = Ложь;

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

Процедура ВыработкаВыработкаПриИзменении (Элемент)

Пересчет (ЭлементыФормы. Выработка. ТекущаяСтрока);

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

Процедура ВыработкаВидОплатыНачалоВыбора (Элемент, СтандартнаяОбработка)

СтандартнаяОбработка = Ложь;

ТекСтрока = ЭлементыФормы. Выработка. ТекущаяСтрока;

СписокВидовОплат = ПолучитьДоступныеВидыОплат (ТекСтрока. Механизм);

ЭлементСписка = ВыбратьИзСписка (СписокВидовОплат, Элемент, СписокВидовОплат. НайтиПоЗначению (Элемент. Значение));

Если ЭлементСписка <> Неопределено Тогда

Элемент. Значение = ЭлементСписка. Значение;

ТекСтрока. Размер = ПолучитьРазмер (ТекСтрока. Механизм, Элемент. Значение);

Пересчет (ТекСтрока);

КонецЕсли;

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

ОсновнойВидОплаты= Справочники. лс_ВидыОплаты. ЧасовойТариф;

ПустойВидОплаты= Справочники. лс_ВидыОплаты. ПустаяСсылка ();

Приложение Е

Листинг модуля документа "Доплата из коллективного фонда по итогам месяца"

// // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // //

// ПЕРЕМЕННЫЕ МОДУЛЯ

Перем мТекущаяДатаДокумента;

Перем мДеревоМакетов; // Хранит дерево макетов печатных форм

Перем мПодменюПечати; // Хранит элемент управления подменю печати

Перем мПечатьПоУмолчанию; // Хранит элемент управления кнопку печать по умолчанию

Перем мКнопкиЗаполненияТЧ; // Хранит дерево кнопок подменю заполнение ТЧ

Перем мСтарыйРезультат; // Хранит "Результат" текущей строки

Перем мСтароеФизлицо; // Хранит ссылку на физлицо, для формирования имени кнопки расчета по работнику

Перем мГоловнаяОрганизация; // Хранит ссылку на головную организацию

Перем мМассивЭУ; // Массив ЭУ видимостью которых необходимо управлять в зависимости от учетной политики по персоналу

Перем ПоправочныйКоэффициент;

// // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // //

// ПРОЦЕДУРЫ И ФУНКЦИИ ОБЩЕГО НАЗНАЧЕНИЯ

Процедура ПриСменеПериодаРегистрации ()

ДатаНачалаБП = НачалоМесяца (ПериодРегистрации);

ДатаОкончанияБП = КонецМесяца (ПериодРегистрации);

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

Функция ПолучитьПремиюВсего ()

Рез = 0;

Для каждого СтрТаб Из Начисления Цикл

ПромРез =? (СтрТаб. База<>0, СтрТаб. База, СтрТаб. Результат);

Рез = Рез + ПромРез*СтрТаб. КТУ;

КонецЦикла;

ВозвратРез;

КонецФункции

// Процедура устанавливает подменю "Заполнить" в командных панелях ТЧ документа при необходимости

Процедура УстановитьКнопкиПодменюЗаполненияТЧ ()

СоответствиеТЧ = Новый Соответствие;

СоответствиеТЧ. Вставить (ЭлементыФормы. Начисления, ЭлементыФормы. КоманднаяПанельНачисления);

мКнопкиЗаполненияТЧ = РаботаСДиалогами. СформироватьПодменюЗаполненияТЧ (Ссылка, СоответствиеТЧ, Новый Действие ("НажатиеНаДополнительнуюКнопкуЗаполненияТЧ"));

КонецПроцедуры // УстановитьКнопкиПодменюЗаполненияТЧ ()

// Процедура устанавливает подменю "Печать" и кнопку "Печать по умолчанию" при необходимости

Процедура УстановитьКнопкиПечати ()

мДеревоМакетов = РаботаСДиалогами. ПолучитьДеревоМакетовПечати (Ссылка, ПолучитьСтруктуруПечатныхФорм (), Новый Действие ("ОсновныеДействияФормыПечать"), Новый Действие ("ОсновныеДействияФормыУстановитьПечатьПоУмолчанию"));

РаботаСДиалогами. УстановитьПодменюПечати (мПодменюПечати, ЭлементыФормы. ОсновныеДействияФормы, мДеревоМакетов. Строки. Количество () > 0);

РаботаСДиалогами. УстановитьПечатьПоУмолчанию (мПечатьПоУмолчанию, ЭлементыФормы. ОсновныеДействияФормы, мДеревоМакетов, Метаданные (). Имя, Новый Действие ("ОсновныеДействияФормыПечатьПоУмолчанию"));

Если Не мПодменюПечати = Неопределено Тогда

РаботаСДиалогами. СформироватьПодменю (мДеревоМакетов, мПодменюПечати, Истина, Истина);

КонецЕсли;

КонецПроцедуры // УстановитьКнопкиПечати ()

// В зависимости от видимости колонок подпись "Итого: " вписывается колонке, предшествующей колонке Результат

Процедура УстановитьТекстИтого ()

КоллекцияКолонок = ЭлементыФормы. Начисления. Колонки;

ИндексКолонкиРезультат = КоллекцияКолонок. Индекс (КоллекцияКолонок. Результат);

// очищаем текст подвала всех колонок

Для каждого Колонка Из КоллекцияКолонок Цикл

Если Колонка. Имя <> "Результат" Тогда

Колонка. ТекстПодвала = ""

КонецЕсли;

КонецЦикла;

// вписывать надпись будем только тогда, когда слева от результатов есть еще одна колонка

Если ИндексКолонкиРезультат > 0 Тогда

ИндексПредшествующейКолонки = ИндексКолонкиРезультат - 1;

// ищем предшествующую видимую колонку

Пока ИндексПредшествующейКолонки >= 0 Цикл

Колонка = КоллекцияКолонок. Получить (ИндексПредшествующейКолонки);

Если Колонка. Видимость Тогда

Прервать;

КонецЕсли;

ИндексПредшествующейКолонки = ИндексПредшествующейКолонки - 1;

КонецЦикла;

// вписывать надпись можем не в любую колонку, а только в некоторые

Если ИндексПредшествующейКолонки >= 0 Тогда

ИмяПредшествующейКолонки = Колонка. Имя;

Если ИмяПредшествующейКолонки = "Авторасчет"

Или ИмяПредшествующейКолонки = "Сотрудник"

Или ИмяПредшествующейКолонки = "Размер" Тогда

Колонка. ТекстПодвала = "Итого: "

КонецЕсли;

КонецЕсли;

КонецЕсли;

КонецПроцедуры // УстановитьТекстИтого ()

// Выставляет автоотметку незаполненного базового периода, если это требуется и

// переписывает название колонки в т.п.

Процедура УправлениеВнешнимВидомФормы (ПриОткрытии = Ложь)

ЭтоПремияПроцентом = ВидРасчета. СпособРасчета = Перечисления. СпособыРасчетаОплатыТруда. Процентом;

НеобходимБазовыйПериод = ЭтоПремияПроцентом Или ВидРасчета. ВидПремии = Перечисления. ВидыПремии. ГодоваяПремия;

ЭлементыФормы. Начисления. Колонки. Размер. ТекстШапки =? (ЭтоПремияПроцентом,"Процент","Сумма");

Если Не ПриОткрытии или Не ЭтоПремияПроцентом Тогда

ЭлементыФормы. Начисления. Колонки. Размер. Видимость = ЭтоПремияПроцентом;

КонецЕсли;

ЭлементыФормы. ДатаНачалаБП. АвтоОтметкаНезаполненного= НеобходимБазовыйПериод;

ЭлементыФормы. ДатаНачалаБП. ОтметкаНезаполненного= ЭлементыФормы. ДатаНачалаБП. АвтоОтметкаНезаполненного И НЕ ЗначениеЗаполнено (ДатаНачалаБП);

ЭлементыФормы. ДатаОкончанияБП. АвтоОтметкаНезаполненного= НеобходимБазовыйПериод;

ЭлементыФормы. ДатаОкончанияБП. ОтметкаНезаполненного= ЭлементыФормы. ДатаОкончанияБП. АвтоОтметкаНезаполненного И НЕ ЗначениеЗаполнено (ДатаОкончанияБП);

УстановитьТекстИтого ();

КонецПроцедуры // УправлениеВнешнимВидомФормы ()

// Удаляет кнопку из набора кнопок, если она существует

Процедура УдалитьКнопкуИзНабора (ИмяКнопки, НаборКнопок)

Кнопка = НаборКнопок. Найти (ИмяКнопки);

Если Кнопка <> Неопределено Тогда

НаборКнопок. Удалить (НаборКнопок. Индекс (Кнопка));

КонецЕсли;

КонецПроцедуры // УдалитьКнопкуИзНабора ()

// Управляет видимостью элементов формы, зависящих от наличия перерассчитываемого документа

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

// Заполнение команд подменю "Заполнить"

КнопкиЗаполнить = ЭлементыФормы. ДействияФормы. Кнопки. ПодменюЗаполнить. Кнопки;

ДействиеПоКнопке = Новый Действие ("ДействияФормыЗаполнить");

Если ЗначениеЗаполнено (ПерерассчитываемыйДокумент) Тогда

УдалитьКнопкуИзНабора ("СписокРаботников", КнопкиЗаполнить);

Если КнопкиЗаполнить. Найти ("ПоПерерассчитываемомуДокументу") = Неопределено Тогда

КнопкиЗаполнить. Вставить (0, "ПоПерерассчитываемомуДокументу", ТипКнопкиКоманднойПанели. Действие,"По перерассчитываемому документу", ДействиеПоКнопке);

КонецЕсли;

Иначе

УдалитьКнопкуИзНабора ("ПоПерерассчитываемомуДокументу", КнопкиЗаполнить);

Если КнопкиЗаполнить. Найти ("СписокРаботников") = Неопределено Тогда

КнопкиЗаполнить. Вставить (0, "СписокРаботников", ТипКнопкиКоманднойПанели. Действие,"Списком работников", ДействиеПоКнопке);

КонецЕсли;

КонецЕсли;

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

// Активизирует строки табличных частей документа после заполнения

Процедура УстановитьТекущуюСтрокуТабличнойЧасти ()

мСтароеФизлицо = Справочники. ФизическиеЛица. ПустаяСсылка ();

// активизируем во всех табличных частях 1-ю строку

Если Начисления. Количество () > 0 Тогда

СтрокаТЧ = Начисления. Получить (0);

ЭлементыФормы. Начисления. ТекущаяСтрока = СтрокаТЧ;

КонецЕсли;

КонецПроцедуры // УстановитьТекущуюСтрокуТабличнойЧасти ()

// // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // //

// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ

// Процедура - обработчик события "ПередОткрытием" формы.

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

// Установка кнопок печати

УстановитьКнопкиПечати ();

// Установка кнопок заполнение ТЧ

УстановитьКнопкиПодменюЗаполненияТЧ ();

КонецПроцедуры // ПередОткрытием ()

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

Если ЭтоНовый () Тогда // проверить объект на то, что он еще не внесен в ИБ

// Заполнить реквизиты значениями по умолчанию.

ОбщегоНазначения. ЗаполнитьШапкуДокумента (ЭтотОбъект, глЗначениеПеременной ("глТекущийПользователь"));

// АБС

ВидРасчета = ВосстановитьЗначение ("ВидРасчетаПремияКРО");

ПоправочныйКоэффициент = 1;

ЧислоМесяцев = 1;

ПриСменеПериодаРегистрации ();

// -АБС

КонецЕсли;

// АБС

НачисленоПремии = ПолучитьПремиюВсего ();

Если НачисленоПремии>0 Тогда

ПоправочныйКоэффициент = Окр (СуммаКРаспределению/НачисленоПремии,4);

ЭлементыФормы. ТекстКоэффициента. Заголовок = "Справочно: коэффициент пересчета = " + ПоправочныйКоэффициент;

Иначе

ПоправочныйКоэффициент = 1;

ЭлементыФормы. ТекстКоэффициента. Заголовок = "";

КонецЕсли;

// -АБС

РаботаСДиалогами. УстановитьДоступностьПоляВводаНомера (Метаданные (), ЭтаФорма, ЭлементыФормы. ДействияФормы. Кнопки. Подменю1, ЭлементыФормы. Номер);

// Заполним реквизит формы МесяцСтрока.

МесяцСтрока = РаботаСДиалогами. ДатаКакМесяцПредставление (ПериодРегистрации);

СтруктураКолонок = Новый Структура ();

// Установить колонки, видимостью которых пользователь управлять не может.

СтруктураКолонок. Вставить ("Сотрудник");

СтруктураКолонок. Вставить ("Размер");

// Установить ограничение - изменять видимость колонок для табличной части Начисления

ОбработкаТабличныхЧастей. УстановитьИзменятьВидимостьКолонокТабЧасти (ЭлементыФормы. Начисления. Колонки, СтруктураКолонок);

// Активизируем табличную часть

ТекущийЭлемент = ЭлементыФормы. Начисления;

// Вывести в заголовке формы статус документа (новый, не проведен, проведен).

РаботаСДиалогами. УстановитьЗаголовокФормыДокумента (, ЭтотОбъект, ЭтаФорма);

// Запомнить текущие значения реквизитов формы.

мТекущаяДатаДокумента = Дата;

// Получим и запомним ссылку на головную организацию

мГоловнаяОрганизация = ОбщегоНазначения. ГоловнаяОрганизация (Организация);

// Установим видимость реквизитов в зависимости от уч. политики по персоналу организаций

мМассивЭУ = Новый Массив ();

мМассивЭУ. Добавить (ЭлементыФормы. Начисления. Колонки. ТабельныйНомерСтрока);

РаботаСДиалогами. УстановитьВидимостьЭУПоУчетнойПолитикеПоПерсоналу (мМассивЭУ, глЗначениеПеременной ("глУчетнаяПолитикаПоПерсоналуОрганизации"), Организация);

УправлениеВнешнимВидомФормы (Истина);

// Установим видимость в зависимости от наличия перерассчитываемого документа

ОбновитьВидимостьПоПерерассчитываемомуДокументу ();

// Установить активный реквизит.

Если Не РаботаСДиалогами. АктивизироватьРеквизитВФорме (ЭтотОбъект, ЭтаФорма) Тогда

ТекущийЭлемент = ЭлементыФормы. Начисления;

КонецЕсли;

КонецПроцедуры // ПриОткрытии ()

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

// Установка кнопок печати

УстановитьКнопкиПечати ();

// Вывести в заголовке формы статус документа (новый, не проведен, проведен).

РаботаСДиалогами. УстановитьЗаголовокФормыДокумента (, ЭтотОбъект, ЭтаФорма);

РаботаСДиалогами. ОбновитьПодсказкуКодНомерОбъекта (ЭтотОбъект. Метаданные (), ЭлементыФормы. ДействияФормы. Кнопки. Подменю1, ЭлементыФормы. Номер);

// АБС

СохранитьЗначение ("ВидРасчетаПремияКРО", ВидРасчета);

// -АБС

КонецПроцедуры // ПослеЗаписи ()

// Процедура - обработчик события "ОбработкаВыбора" формы.

Процедура ОбработкаВыбора (ЗначениеВыбора, Источник)

Если ТипЗнч (ЗначениеВыбора) = Тип ("Структура") Тогда

Команда = "";

Реквизиты = "";

Если ЗначениеВыбора. Свойство ("Команда", Команда) и Команда = "ЗаполнитьСписокРаботников" Тогда

ВременнаяТаблица = ЗначениеВыбора. Данные. Выгрузить ();

Если ЗначениеВыбора. Свойство ("Реквизиты",Реквизиты) Тогда

ИмяКолонки =? (ВидРасчета. СпособРасчета = Перечисления. СпособыРасчетаОплатыТруда. Процентом,"Размер","Результат");

ВременнаяТаблица. Колонки. Добавить (ИмяКолонки);

ВременнаяТаблица. ЗаполнитьЗначения (Реквизиты. Размер, ИмяКолонки);

КонецЕсли;

ВременнаяТаблица. Колонки. Добавить ("Авторасчет");

ВременнаяТаблица. ЗаполнитьЗначения (Истина,"Авторасчет");

// АБС

ВременнаяТаблица. Колонки. Добавить ("КТУ");

ВременнаяТаблица. ЗаполнитьЗначения (1,"КТУ");

ВременнаяТаблица. ЗаполнитьЗначения (100,"Размер");

// -АБС

Начисления. Загрузить (ВременнаяТаблица);

КонецЕсли;

КонецЕсли;

КонецПроцедуры // ОбработкаВыбора ()

// // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // // //

// ПРОЦЕДУРЫ - ДЕЙСТВИЯ КОМАНДНЫХ ПАНЕЛЕЙ ФОРМЫ

// Процедура вызывается при выборе пункта подменю "Движения документа по регистрам" // меню "Перейти" командной панели формы. Процедура отрабатывает печать движений // документа по регистрам.

Процедура ДействияФормыДвиженияДокументаПоРегистрам (Кнопка)

РаботаСДиалогами. НапечататьДвиженияДокумента (Ссылка);

КонецПроцедуры // ДействияФормыДвиженияДокументаПоРегистрам ()

// Процедура-обработчик события нажатия кнопки "Рассчитать"

Процедура ДействияФормыРассчитатьВсе (Кнопка)

Если СуммаКРаспределению=0 Тогда

Предупреждение ("Не задана сумма к распределению. Расчет невозможен");

Возврат;

КонецЕсли;

Если ВидРасчета. СпособРасчета = Перечисления. СпособыРасчетаОплатыТруда. Процентом Тогда

Если НЕ РаботаСДиалогами. ЗаписатьДокументОтменивПроведениеПередВыполнениемДействия (ДокументОбъект, ЭтаФорма, "рассчитать") Тогда

Возврат;

КонецЕсли;

ОбработкаКомментариев = глЗначениеПеременной ("глОбработкаСообщений");

ОбработкаКомментариев. УдалитьСообщения ();

РассчитатьПремию ();

ОбработкаКомментариев. ПоказатьСообщения ();

// АБС

НачисленоПремии = ПолучитьПремиюВсего ();

Если НачисленоПремии>0 Тогда

ПоправочныйКоэффициент = Окр (СуммаКРаспределению/НачисленоПремии,4);

ЭлементыФормы. ТекстКоэффициента. Заголовок = "Справочно: коэффициент пересчета = " + ПоправочныйКоэффициент;

Для каждого СтрТЧ Из Начисления Цикл

СтрТЧ. Результат = Окр (СтрТЧ. База*СтрТЧ. КТУ*ПоправочныйКоэффициент,

2);

КонецЦикла;

Разность = СуммаКРаспределению-Начисления. Итог ("Результат");

Если Разность<>0 Тогда // разницу из-за ошибок округления отнесем на последнюю строку

ПоследняяСтрока = Начисления [Начисления. Количество () - 1];

ПоследняяСтрока. Результат = ПоследняяСтрока. Результат + Разность;

КонецЕсли;

КонецЕсли;

// -АБС

ТекущаяСтрока = ЭлементыФормы. Начисления. ТекущаяСтрока;

Если ТекущаяСтрока <> Неопределено Тогда

мСтарыйРезультат = ТекущаяСтрока. Результат;

КонецЕсли;

Иначе

Сообщить ("Для премий, установленных в фиксированных суммах, расчет не производится!")

КонецЕсли;

КонецПроцедуры // ДействияФормыРассчитатьВсе ()

// Процедура - вызывается при нажатии на кнопку "Заполнить"

Процедура ДействияФормыЗаполнить (Кнопка)