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

Расчет на 1С

Автор GoldMen, 14 ноя 2013, 14:25

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

GoldMen

На 1С делал процедуры для расчета в общем модуле

Процедура РассчитатьСумму(СтрокаТабличнойЧасти) Экспорт

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

СтрокаТабличнойЧасти.ОбщПотребность = СтрокаТабличнойЧасти.Размер *
СтрокаТабличнойЧасти.КоличествоДетали;
             
КонецПроцедуры


Процедура РассчитатьСуммуЛ(СтрокаТабличнойЧасти) Экспорт

СтрокаТабличнойЧасти.ПотребностьЛаз =  (СтрокаТабличнойЧасти.ТочПлощадь/0.7);

СтрокаТабличнойЧасти.ОбщПотребностьЛаз =  (СтрокаТабличнойЧасти.ПотребностьЛаз *
СтрокаТабличнойЧасти.КоличествоДетали);

КонецПроцедуры


Процедура РассчитатьСумму1(СтрокаТабличнойЧасти) Экспорт

СтрокаТабличнойЧасти.Размер = (СтрокаТабличнойЧасти.Длина * СтрокаТабличнойЧасти.Ширина) / 1000000;

СтрокаТабличнойЧасти.ОбщПотребность = СтрокаТабличнойЧасти.Размер *
СтрокаТабличнойЧасти.КоличествоДетали;

КонецПроцедуры     


А в форме документе

&НаКлиенте
Процедура ДанныеПриИзменении(Элемент)
СтрокаТабличнойЧасти = Элементы.Данные.ТекущиеДанные;
Если СтрокаТабличнойЧасти.Толщина <> 0 Тогда
РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти);
КонецЕсли;
РаботаСДокументами.РассчитатьСуммуЛ(СтрокаТабличнойЧасти);
РаботаСДокументами.РассчитатьСумму1(СтрокаТабличнойЧасти);
КонецПроцедуры


Выводится один результат один из двух процедур РассчитатьСумму1, а процедура РассчитатьСумму не срабатывается. Мож что нужно добавить туда какое условие?

Kironten

А что у вас в колонке "толщина" табличной части данные указывается?

GoldMen

Цитата: Kironten от 14 ноя 2013, 16:42
А что у вас в колонке "толщина" табличной части данные указывается?
Да, толщины вводятся вручную и автоматически выводятся допуски для обычной резки. Такое условие

Kironten

Ну, на вид вроде все нормально. Проверяйте тогда, если вообще входит в процедуру рассчитатьсумму() то тогда берите отладчик, и смотрите на каком из реквизитов строки  спотыкается.

Теги:

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

Рейтинг@Mail.ru

Поиск