Заказы на доработку 1С (сервис удаленной работы)
Хранилище
База знаний
Неназначенных незавершенных заказов: 1
 Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Оптимизация говнокода          
Гущин Артём Подменю пользователя
сообщение 22.03.13, 19:03
Сообщение #1

Общительный
**
Группа: Пользователи
Сообщений: 49
Из: Сумы
Спасибо сказали: 1 раз
Рейтинг: 0

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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

logist Подменю пользователя
сообщение 22.03.13, 20:22
Сообщение #2

Про1С-ник
Иконка группы
Квалифицированный бухгалтерГений телепатии и социального моделированияЗа заслуги на форуме в 2010 годуМодератору Про1С (за заслуги в 2011 году)
 Группа: Местный
Сообщений: 9564
Из: Kharkiv, UA
Спасибо сказали: 2536 раз
Рейтинг: 0

Цитата(Гущин Артём @ 22.03.13, 19:03) *
Есть ли возможность каким-либо образом урезать (сжать) след. говнокод:

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


Signature
Личные бесплатные консультации не даю, для этого есть форум!

Гущин Артём Подменю пользователя
сообщение 22.03.13, 20:53
Сообщение #3

Общительный
**
Группа: Пользователи
Сообщений: 49
Из: Сумы
Спасибо сказали: 1 раз
Рейтинг: 0

Цитата(logist @ 22.03.13, 20:22) *
Есть конечно, 30 или 31-го числа, с утра, в Scorini. С Вас пицца и пиво wink.gif


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


 ! 

Правила, п.13
 



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

Сообщение отредактировал logist - 22.03.13, 21:00

logist Подменю пользователя
сообщение 22.03.13, 21:00
Сообщение #4

Про1С-ник
Иконка группы
Квалифицированный бухгалтерГений телепатии и социального моделированияЗа заслуги на форуме в 2010 годуМодератору Про1С (за заслуги в 2011 году)
 Группа: Местный
Сообщений: 9564
Из: Kharkiv, UA
Спасибо сказали: 2536 раз
Рейтинг: 0

Цитата(Гущин Артём @ 22.03.13, 20:53) *
В Сумах в Скоринни?

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


Signature
Личные бесплатные консультации не даю, для этого есть форум!

Гущин Артём Подменю пользователя
сообщение 24.03.13, 10:44
Сообщение #5

Общительный
**
Группа: Пользователи
Сообщений: 49
Из: Сумы
Спасибо сказали: 1 раз
Рейтинг: 0

Цитата(logist @ 22.03.13, 21:00) *
Ну не Марсе же, у вас в профиле написано Сумы.



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

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

Гущин Артём Подменю пользователя
сообщение 28.03.13, 23:27
Сообщение #6

Общительный
**
Группа: Пользователи
Сообщений: 49
Из: Сумы
Спасибо сказали: 1 раз
Рейтинг: 0

Цитата(logist @ 22.03.13, 21:00) *
Ну не Марсе же, у вас в профиле написано Сумы.


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

logist Подменю пользователя
сообщение 28.03.13, 23:44
Сообщение #7

Про1С-ник
Иконка группы
Квалифицированный бухгалтерГений телепатии и социального моделированияЗа заслуги на форуме в 2010 годуМодератору Про1С (за заслуги в 2011 году)
 Группа: Местный
Сообщений: 9564
Из: Kharkiv, UA
Спасибо сказали: 2536 раз
Рейтинг: 0

Цитата(Гущин Артём @ 28.03.13, 23:27) *
logist, так Вы в Сумах планируете быть 30го марта?

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


Signature
Личные бесплатные консультации не даю, для этого есть форум!

Гущин Артём Подменю пользователя
сообщение 29.03.13, 15:38
Сообщение #8

Общительный
**
Группа: Пользователи
Сообщений: 49
Из: Сумы
Спасибо сказали: 1 раз
Рейтинг: 0

Цитата(logist @ 28.03.13, 23:44) *
Завтра к вечеру буду знать. Телефончик свой киньте в мне в ЛС.

Отправил

Vofka Подменю пользователя
сообщение 29.03.13, 16:01
Сообщение #9

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13955
Из: Киев
Спасибо сказали: 4520 раз
Рейтинг: 3642.8

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

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.

 

Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 05.05.24, 1:11
Форум IP.Board © 2024  IPS, Inc.
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!