Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
12 дек 2024, 23:03

Как добавить новое условие?

Автор GoldMen, 26 мар 2013, 09:38

0 Пользователей и 1 гость просматривают эту тему.

GoldMen


Как добавить в модуль условие "Если толщина (c) 0.5мм <равно 2мм, то допуск (d) = 10 мм, 2 < c < равно 5, то d=16, 5 < c < равно 10, то d=20"
Процедура РассчитатьСумму(СтрокаТабличнойЧасти) Экспорт
   СтрокаТабличнойЧасти.Размер = ((СтрокаТабличнойЧасти.Длина + СтрокаТабличнойЧасти.Допуск) * (СтрокаТабличнойЧасти.Ширина + СтрокаТабличнойЧасти.Допуск)) / 1000000;
КонецПроцедуры




greenLiss

Эм.... ничего не понял, но если я правильно не понял, то...


Процедура РассчитатьСумму(СтрокаТабличнойЧасти) Экспорт
Если СтрокаТабличнойЧасти.Толщина <= 2 Тогда
СтрокаТабличнойЧасти.Допуск = 10;
ИначеЕсли (СтрокаТабличнойЧасти.Толщина > 2) И (СтрокаТабличнойЧасти.Толщина <= 5) Тогда
СтрокаТабличнойЧасти.Допуск = 16;
ИначеЕсли (СтрокаТабличнойЧасти.Толщина > 5) И (СтрокаТабличнойЧасти.Толщина <= 10) Тогда
СтрокаТабличнойЧасти.Допуск = 20;
Иначе
Сообщить("толщина больше 10 мм");
Возврат;
КонецЕсли;
СтрокаТабличнойЧасти.Размер = ((СтрокаТабличнойЧасти.Длина + СтрокаТабличнойЧасти.Допуск) * (СтрокаТабличнойЧасти.Ширина + СтрокаТабличнойЧасти.Допуск)) / 1000000;
КонецПроцедуры


   
только, куда 0.5мм ?
короче, я ничего не понял и написал бред сумасшедшего :D
   

GoldMen

Цитата: greenLiss от 26 мар 2013, 15:32
Эм.... ничего не понял, но если я правильно не понял, то...


Процедура РассчитатьСумму(СтрокаТабличнойЧасти) Экспорт
Если СтрокаТабличнойЧасти.Толщина <= 2 Тогда
СтрокаТабличнойЧасти.Допуск = 10;
ИначеЕсли (СтрокаТабличнойЧасти.Толщина > 2) И (СтрокаТабличнойЧасти.Толщина <= 5) Тогда
СтрокаТабличнойЧасти.Допуск = 16;
ИначеЕсли (СтрокаТабличнойЧасти.Толщина > 5) И (СтрокаТабличнойЧасти.Толщина <= 10) Тогда
СтрокаТабличнойЧасти.Допуск = 20;
Иначе
Сообщить("толщина больше 10 мм");
Возврат;
КонецЕсли;
СтрокаТабличнойЧасти.Размер = ((СтрокаТабличнойЧасти.Длина + СтрокаТабличнойЧасти.Допуск) * (СтрокаТабличнойЧасти.Ширина + СтрокаТабличнойЧасти.Допуск)) / 1000000;
КонецПроцедуры


   
только, куда 0.5мм ?
короче, я ничего не понял и написал бред сумасшедшего :D
   
Посмотрю. Толщина от 0.5 до 2 мм, допуск = 10.

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск