Тофик Бухгалтерия Аз - расчет и проведение удержаний по безработице и обязательного мед страхования в документе больничного
Функция СформироватьЗапросПоОтражениюВУчете()
Запрос = Новый Запрос();
Если ОтражатьВНалоговомУчете Тогда
ПоказателиДляНУ = "
| ОтражениеЗарплаты.СчетДтНУ КАК СчетДтНУ,
| ОтражениеЗарплаты.СчетДтНУ.Наименование КАК НаименованиеСчетДтНУ,
| ОтражениеЗарплаты.СубконтоДтНУ1 КАК СубконтоДтНУ1,
| ОтражениеЗарплаты.СубконтоДтНУ2 КАК СубконтоДтНУ2,
| ОтражениеЗарплаты.СубконтоДтНУ3 КАК СубконтоДтНУ3,
| ОтражениеЗарплаты.СчетКтНУ КАК СчетКтНУ,
| ОтражениеЗарплаты.СубконтоКтНУ1 КАК СубконтоКтНУ1,
| ОтражениеЗарплаты.СубконтоКтНУ2 КАК СубконтоКтНУ2,
| ОтражениеЗарплаты.СубконтоКтНУ3 КАК СубконтоКтНУ3,";
КонецЕсли;
Процедура ДействияФормыДействиеРассчитатьУдержания(Кнопка)
Если Не РасчетДокументаРазрешен() Тогда
Возврат
КонецЕсли;
Если НЕ РаботаСДиалогами.ЗаписатьДокументОтменивПроведениеПередВыполнениемДействия(ДокументОбъект, ЭтаФорма, НСтр("ru='рассчитать';uk='розрахувати'")) Тогда
Возврат;
КонецЕсли;
КомментироватьРасчет = Ложь;
мСотрудники = Новый СписокЗначений;
// РассчитатьПоРаботнику
Для каждого СтрокаСотрудник Из ЭлементыФормы.РаботникиОрганизации.ВыделенныеСтроки Цикл
мСотрудники.Добавить(СтрокаСотрудник.Сотрудник) ;
КонецЦикла;
Если Кнопка.Имя = "РассчитатьПоРаботникуСКомментарием" Тогда
КомментироватьРасчет = Истина;
КонецЕсли;
ОбработкаКомментариев2=обработки.СообщенияВыполняемыхДействий.Создать();
//ЗаполнитьЗначение(ОбработкаКомментариев2, глЗначениеПеременной("глОбработкаСообщений"));
ОбработкаКомментариев2.УдалитьСообщения();
РассчитатьВсеУдержания(мСотрудники, КомментироватьРасчет);
ОбработкаКомментариев2.ПоказатьСообщения();
Комментариев нет:
Отправить комментарий