Конфигурирование программы "1С:Предприятие" на основе предприятия сельскохозяйственной отрасли
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
Процедуры // ПриОткрытии
Процедура ПриНачалеВыбораЗначения (ИдентЭлемДиалога, ФлагСтандОбр)
Если ИдентЭлемДиалога = ШаблонПроводки Тогда
ФлагСтандОбр = 0;
Параметр=СоздатьОбъект (СписокЗначений);
Параметр. ДобавитьЗначение (Начисление, ОписательПроводки);
Параметр. ДобавитьЗначение (ШаблонПроводки, ШаблонПроводки);
ОткрытьФормуМодально (Обработка. ВводШаблонаПроводок, Параметр);
Если ТипЗначения(Параметр)=11 Тогда
ШаблонПроводки=Параметр
КонецЕсли;
КонецЕсли;
КонецПроцедуры // ПриНачалеВыбораЗначения()
Если ПроведенВПрошлом=1 Тогда
Предупреждение (Документ проведен в прошлом периоде. Его нельзя редактировать., 10);
СтатусВозврата(0);
КонецЕсли;
Если ПроведенВПрошлом=1 Тогда
Предупреждение (Документ проведен в прошлом периоде. Его нельзя редактировать., 10);
СтатусВозврата(0);
КонецЕсли;
КонецПроцедуры // ПриУдаленииСтроки
СписокДействий = СоздатьОбъект (СписокЗначений);
Модуль документа ВводВремени
Процедура ОбработкаПроведения()
ЖрнЗарплата = СоздатьОбъект (ЖурналРасчетов. Зарплата);
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
Если (Сотрудник. Выбран()=1) Тогда
Если ХО. Выбран()=1 Тогда
ЖрнЗарплата. УстановитьРеквизит (Счет, ХО);
ЖрнЗарплата. УстановитьРеквизит (ДокументомЛи, 1);
КонецЕсли;
Если (Отработанно <> 0) и (ПустоеЗначение(РК) = 1) Тогда
ЖрнЗарплата. УстановитьРеквизит (Дни, Дни);
ЖрнЗарплата. УстановитьРеквизит (Часы, Часы);
ЖрнЗарплата. УстановитьРеквизит (НомерСтрокиДокумента, НомерСтроки);
Если ФлагРКСК = 0 тогда
ЖрнЗарплата. ВвестиРасчетНаОсновании (ТекущийДокумент(), Сотрудник, ВидРасчета. Повременная,? (ПустоеЗначение(Дата1)=0, Дата1, НачМесяца(ДатаДок)),? (ПустоеЗначение(Дата2)=0, Дата2, КонМесяца(ДатаДок)), 0);
Иначе
ЖрнЗарплата. ВвестиРасчетНаОсновании (ТекущийДокумент(), Сотрудник, ВидРасчета. ПовременнаяБезРКСК,? (ПустоеЗначение(Дата1)=0, Дата1, НачМесяца(ДатаДок)),? (ПустоеЗначение(Дата2)=0, Дата2, КонМесяца(ДатаДок)), 0);
КонецЕсли;
ЖрнЗарплата. УстановитьРеквизит (Дни, 0);
ЖрнЗарплата. УстановитьРеквизит (Часы, 0);
ЖрнЗарплата. УстановитьРеквизит (НомерСтрокиДокумента, 0);
КонецЕсли;
Если (Отработанно <> 0) и (ПустоеЗначение(РК) = 0) Тогда
ЖрнЗарплата. УстановитьРеквизит (Дни, Дни);
ЖрнЗарплата. УстановитьРеквизит (Часы, Часы);
ЖрнЗарплата. УстановитьРеквизит (НомерСтрокиДокумента, НомерСтроки);
ЖрнЗарплата. ВвестиРасчетНаОсновании (ТекущийДокумент(), Сотрудник, ВидРасчета. ПовременнаяДляРК,? (ПустоеЗначение(Дата1)=0, Дата1, НачМесяца(ДатаДок)),? (ПустоеЗначение(Дата2)=0, Дата2, КонМесяца(ДатаДок)), 0);
ЖрнЗарплата. ВвестиРасчетНаОсновании (ТекущийДокумент(), Сотрудник, ВидРасчета. РайонныйКоэффициентДляПовременки,? (ПустоеЗначение(Дата1)=0, Дата1, НачМесяца(ДатаДок)),? (ПустоеЗначение(Дата2)=0, Дата2, КонМесяца(ДатаДок)), 0);
ЖрнЗарплата. УстановитьРеквизит (Дни, 0);
ЖрнЗарплата. УстановитьРеквизит (Часы, 0);
ЖрнЗарплата. УстановитьРеквизит (НомерСтрокиДокумента, 0);
КонецЕсли;
Если Премия <> 0 тогда
ЖрнЗарплата. УстановитьРеквизит (НомерСтрокиДокумента, НомерСтроки);
Если ФлагРКСК = 0 тогда
ЖрнЗарплата. ВвестиРасчет (Сотрудник, ВидРасчета. ПремияНовая,? (ПустоеЗначение(Дата1)=0, Дата1, НачМесяца(ДатаДок)),? (ПустоеЗначение(Дата2)=0, Дата2, КонМесяца(ДатаДок)), 0);
Иначе
ЖрнЗарплата. ВвестиРасчет (Сотрудник, ВидРасчета. ПремияНоваяБезРКСК,? (ПустоеЗначение(Дата1)=0, Дата1, НачМесяца(ДатаДок)),? (ПустоеЗначение(Дата2)=0, Дата2, КонМесяца(ДатаДок)), 0);
КонецЕсли;
КонецЕсли;
Если Класность <> 0 тогда
ЖрнЗарплата. УстановитьРеквизит (НомерСтрокиДокумента, НомерСтроки);
Если ФлагРКСК = 0 тогда
ЖрнЗарплата. ВвестиРасчет (Сотрудник, ВидРасчета. ДоплатаЗаКласность,? (ПустоеЗначение(Дата1)=0, Дата1, НачМесяца(ДатаДок)),? (ПустоеЗначение(Дата2)=0, Дата2, КонМесяца(ДатаДок)), 0);
Иначе
ЖрнЗарплата. ВвестиРасчет (Сотрудник, ВидРасчета. ДоплатаЗаКласностьБезРКСК,? (ПустоеЗначение(Дата1)=0, Дата1, НачМесяца(ДатаДок)),? (ПустоеЗначение(Дата2)=0, Дата2, КонМесяца(ДатаДок)), 0);
КонецЕсли;
КонецЕсли;
Если Отгулы <> 0 Тогда
ЖрнЗарплата. УстановитьРеквизит (Дни, Дни);
ЖрнЗарплата. УстановитьРеквизит (Часы, Часы);
ЖрнЗарплата. УстановитьРеквизит (НомерСтрокиДокумента, НомерСтроки);
ЖрнЗарплата. ВвестиРасчетНаОсновании (ТекущийДокумент(), Сотрудник, ВидРасчета. Отгулы,? (ПустоеЗначение(Дата1)=0, Дата1, НачМесяца(ДатаДок)),? (ПустоеЗначение(Дата2)=0, Дата2, КонМесяца(ДатаДок)), 0);
ЖрнЗарплата. УстановитьРеквизит (Дни, 0);
ЖрнЗарплата. УстановитьРеквизит (Часы, 0);
ЖрнЗарплата. УстановитьРеквизит (НомерСтрокиДокумента, 0);
КонецЕсли;
Если (ЧасыНоч <> 0) и (Флаг = 1) Тогда
ЖрнЗарплата. УстановитьРеквизит (НомерСтрокиДокумента, НомерСтроки);
ЖрнЗарплата. УстановитьРеквизит (Часы, ЧасыНоч);
ЖрнЗарплата. ВвестиРасчет (Сотрудник, ВидРасчета. ЗаНочныеЧасыНов,? (ПустоеЗначение(Дата1)=0, Дата1, НачМесяца(ДатаДок)),? (ПустоеЗначение(Дата2)=0, Дата2, КонМесяца(ДатаДок)), 0);
КонецЕсли;
Если (ЧасыВеч <> 0) и (Флаг = 1) Тогда
ЖрнЗарплата. УстановитьРеквизит (НомерСтрокиДокумента, НомерСтроки);
ЖрнЗарплата. УстановитьРеквизит (Часы, ЧасыВеч);
ЖрнЗарплата. Вве?/p>