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