Есть ли возможность каким-либо образом урезать (сжать) след. говнокод:

// ТабличнаяЧасть расчёта налога ФСП для вкладки "Рилля"
&НаКлиенте
Процедура РилляРасчетПриИзменении(Элемент)
    СтрокаРасчетФСП = Элементы.Рилля.ТекущиеДанные;
    
    Если СтрокаРасчетФСП.ПлощадьЗемли = 0 Тогда
        Сообщение = Новый СообщениеПользователю; 
        Сообщение.Текст = "Не вказані показники площі земель!"; 
        Сообщение.Поле = "Объект.СтавкаНалога";
        Сообщение.Сообщить();
    КонецЕсли;    
    
        Если СтрокаРасчетФСП.БазаНалогооблажения = 0 Тогда
            Сообщение = Новый СообщениеПользователю; 
            Сообщение.Текст = "Не вказані показники бази оподаткування!"; 
            Сообщение.Поле = "Объект.БазаНалогооблажения";
            Сообщение.Сообщить();
        КонецЕсли;
    
            Если СтрокаРасчетФСП.СтавкаНалога = 0 Тогда
                Сообщение = Новый СообщениеПользователю; 
                Сообщение.Текст = "Не вказані показники ставок податку!"; 
                Сообщение.Поле = "Объект.СтавкаНалога";
                Сообщение.Сообщить();
    
                    Если СтрокаРасчетФСП.ПлощадьЗемли = 0 ИЛИ СтрокаРасчетФСП.БазаНалогооблажения = 0 ИЛИ СтрокаРасчетФСП.СтавкаНалога = 0 Тогда
                        Сообщение = Новый СообщениеПользователю; 
                        Сообщение.Текст = "Не можливо розрахувати суму ФСП!"; 
                        Сообщение.Поле = "Объект.СтавкаНалога";
                        Сообщение.Сообщить();
                    КонецЕсли;
                    
Иначе
    РаботаСДокументомФСП.РассчитатьНалогФСП(СтрокаРасчетФСП);    
КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура РилляПлощадьЗемлиПриИзменении(Элемент)
    СтрокаРасчетФСП = Элементы.Рилля.ТекущиеДанные;
    РаботаСДокументомФСП.РассчитатьНалогФСП(СтрокаРасчетФСП);
КонецПроцедуры

&НаКлиенте
Процедура РилляБазаНалогооблаженияПриИзменении(Элемент)
    СтрокаРасчетФСП = Элементы.Рилля.ТекущиеДанные;
    РаботаСДокументомФСП.РассчитатьНалогФСП(СтрокаРасчетФСП);
КонецПроцедуры

&НаКлиенте
Процедура РилляСтавкаНалогаПриИзменении(Элемент)
    СтрокаРасчетФСП = Элементы.Рилля.ТекущиеДанные;
    РаботаСДокументомФСП.РассчитатьНалогФСП(СтрокаРасчетФСП);
КонецПроцедуры

// ТабличнаяЧасть расчёта налога ФСП для вкладки "Насадження"

&НаКлиенте
Процедура НасадженняРасчетПриИзменении(Элемент)
    СтрокаРасчетФСП = Элементы.Насадження.ТекущиеДанные;
    РаботаСДокументомФСП.РассчитатьНалогФСП(СтрокаРасчетФСП);
КонецПроцедуры

&НаКлиенте
Процедура НасадженняПлощадьЗемлиПриИзменении(Элемент)
    СтрокаРасчетФСП = Элементы.Насадження.ТекущиеДанные;
    РаботаСДокументомФСП.РассчитатьНалогФСП(СтрокаРасчетФСП);
КонецПроцедуры

&НаКлиенте
Процедура НасадженняБазаНалогооблаженияПриИзменении(Элемент)
    СтрокаРасчетФСП = Элементы.Насадження.ТекущиеДанные;
    РаботаСДокументомФСП.РассчитатьНалогФСП(СтрокаРасчетФСП);
КонецПроцедуры

&НаКлиенте
Процедура НасадженняСтавкаНалогаПриИзменении(Элемент)
    СтрокаРасчетФСП = Элементы.Насадження.ТекущиеДанные;
    РаботаСДокументомФСП.РассчитатьНалогФСП(СтрокаРасчетФСП);
КонецПроцедуры

// ТабличнаяЧасть расчёта налога ФСП для вкладки "Синожати"
&НаКлиенте
Процедура СиножатиРасчетПриИзменении(Элемент)
    СтрокаРасчетФСП = Элементы.Синожати.ТекущиеДанные;
    РаботаСДокументомФСП.РассчитатьНалогФСП(СтрокаРасчетФСП);
КонецПроцедуры

&НаКлиенте
Процедура СиножатиПлощадьЗемлиПриИзменении(Элемент)
    СтрокаРасчетФСП = Элементы.Синожати.ТекущиеДанные;
    РаботаСДокументомФСП.РассчитатьНалогФСП(СтрокаРасчетФСП);
КонецПроцедуры

&НаКлиенте
Процедура СиножатиБазаНалогооблаженияПриИзменении(Элемент)
    СтрокаРасчетФСП = Элементы.Синожати.ТекущиеДанные;
    РаботаСДокументомФСП.РассчитатьНалогФСП(СтрокаРасчетФСП);
КонецПроцедуры

&НаКлиенте
Процедура СиножатиСтавкаНалогаПриИзменении(Элемент)
    СтрокаРасчетФСП = Элементы.Синожати.ТекущиеДанные;
    РаботаСДокументомФСП.РассчитатьНалогФСП(СтрокаРасчетФСП);
КонецПроцедуры

// ТабличнаяЧасть расчёта налога ФСП для вкладки "Пасовища"
&НаКлиенте
Процедура ПасовищаРасчетПриИзменении(Элемент)
    СтрокаРасчетФСП = Элементы.Пасовища.ТекущиеДанные;
    РаботаСДокументомФСП.РассчитатьНалогФСП(СтрокаРасчетФСП);
КонецПроцедуры

&НаКлиенте
Процедура ПасовищаПлощадьЗемлиПриИзменении(Элемент)
    СтрокаРасчетФСП = Элементы.Пасовища.ТекущиеДанные;
    РаботаСДокументомФСП.РассчитатьНалогФСП(СтрокаРасчетФСП);
КонецПроцедуры

&НаКлиенте
Процедура ПасовищаБазаНалогооблаженияПриИзменении(Элемент)
    СтрокаРасчетФСП = Элементы.Пасовища.ТекущиеДанные;
    РаботаСДокументомФСП.РассчитатьНалогФСП(СтрокаРасчетФСП);
КонецПроцедуры

&НаКлиенте
Процедура ПасовищаСтавкаНалогаПриИзменении(Элемент)
    СтрокаРасчетФСП = Элементы.Пасовища.ТекущиеДанные;
    РаботаСДокументомФСП.РассчитатьНалогФСП(СтрокаРасчетФСП);
КонецПроцедуры

// ТабличнаяЧасть расчёта налога ФСП для вкладки "Вода"
&НаКлиенте
Процедура ЗемлиВодаРасчетПриИзменении(Элемент)
    СтрокаРасчетФСП = Элементы.ЗемлиВода.ТекущиеДанные;
    РаботаСДокументомФСП.РассчитатьНалогФСП(СтрокаРасчетФСП);
КонецПроцедуры

&НаКлиенте
Процедура ЗемлиВодаПлощадьЗемлиПриИзменении(Элемент)
    СтрокаРасчетФСП = Элементы.ЗемлиВода.ТекущиеДанные;
    РаботаСДокументомФСП.РассчитатьНалогФСП(СтрокаРасчетФСП);
КонецПроцедуры

&НаКлиенте
Процедура ЗемлиВодаБазаНалогооблаженияПриИзменении(Элемент)
    СтрокаРасчетФСП = Элементы.ЗемлиВода.ТекущиеДанные;
    РаботаСДокументомФСП.РассчитатьНалогФСП(СтрокаРасчетФСП);
КонецПроцедуры

&НаКлиенте
Процедура ЗемлиВодаСтавкаНалогаПриИзменении(Элемент)
    СтрокаРасчетФСП = Элементы.ЗемлиВода.ТекущиеДанные;
    РаботаСДокументомФСП.РассчитатьНалогФСП(СтрокаРасчетФСП);
КонецПроцедуры

Заранее спасибо!

Есть конечно, 30 или 31-го числа, с утра, в Scorini. С Вас пицца и пиво

Ого запросы))





В Сумах в Скоринни?

Ну не Марсе же, у вас в профиле написано Сумы.

Ок. Вы удаленно будете из Харькове есть ?

Если будете в Сумах 30 марта, с меня пиво и пицца за пояснение кода:)
в 11 утра в Скорини. г Сумы.

logist, так Вы в Сумах планируете быть 30го марта?

Завтра к вечеру буду знать. Телефончик свой киньте в мне в ЛС.

Отправил

Посоны, личную переписку можно вести через ЛС