Помогите найти ошибку

[beztrud]

1с 8.2 управляемое приложение. Вот код который работает:

Код Выделить Развернуть


&НаКлиенте
Процедура Расчет(Команда)
Элементы.Результат.ДобавитьСтроку();
СтрокаТабличнойЧасти=Элементы.Результат.ТекущиеДанные;
СтрокаТабличнойЧасти.ВысотаВставки=Объект.ВысотаШкафа-
Объект.Цоколь-Объект.Подпятник-
Объект.Горизонталь-Объект.Крышка-
Объект.Треки-Объект.ГоризонтальныйПрофиль;
Если Объект.КоличествоСтворок=2 Тогда
СтрокаТабличнойЧасти.ШиринаВставки=
Цел(((Объект.ШиринаШкафа-
Объект.ТолщинаБоков+Объект.Перехлест)/2)-
КонецЕсли;
Если Объект.КоличествоСтворок=4 Тогда
СтрокаТабличнойЧасти.ШиринаВставки=
Цел((((Объект.ШиринаШкафа-
Объект.ТолщинаБоков+(Объект.Перехлест*2))/3))-
Объект.ВертикальныйПрофиль);
КонецЕсли;
КонецПроцедуры

Если добавить в форму реквизит ТипКупе - Перечисления ТипКупе и написать условие при котором данный код отрабатывается только при условии, что Объекту ТипКупе присвоено значение перечисления Обычный и сделать отработку на сервере, то ошибок не выдает, но и табличная часть не заполняется. Вот пример неработающего кода:

Код Выделить Развернуть


&НаСервере
Процедура Расчет(Команда)
Если Объект.ТипКупе=Перечисления.ТипКупе.Обычный Тогда
Элементы.Результат.ДобавитьСтроку();
СтрокаТабличнойЧасти=Элементы.Результат.ТекущиеДанные;
СтрокаТабличнойЧасти.ВысотаВставки=Объект.ВысотаШкафа-
Объект.Цоколь-Объект.Подпятник-
Объект.Горизонталь-Объект.Крышка-
Объект.Треки-Объект.ГоризонтальныйПрофиль;
Если Объект.КоличествоСтворок=2 Тогда
СтрокаТабличнойЧасти.ШиринаВставки=
Цел(((Объект.ШиринаШкафа-
Объект.ТолщинаБоков+Объект.Перехлест)/2)-
КонецЕсли;
Если Объект.КоличествоСтворок=4 Тогда
СтрокаТабличнойЧасти.ШиринаВставки=
Цел((((Объект.ШиринаШкафа-
Объект.ТолщинаБоков+(Объект.Перехлест*2))/3))-
Объект.ВертикальныйПрофиль);
КонецЕсли;
КонецЕсли;
КонецПроцедуры


[chuevsf]

ну правильно. На сервере вы заполнили, а на форму, что на клиенте, не передали.
Смотреть функцию "ЗначениеВРеквизитФормы"

пример: ЗначениеВРеквизитФормы(ДокОбъект, "Объект");

[Dethmontt]

Код Выделить Развернуть

ТекущиеДанные не доступны на сервере

Может как то так?

Код Выделить Развернуть

&НаКлиенте
Процедура Расчет(Команда)
Если Объект.ТипКупе = ПолучитьЗначениеПеречисления("ТипКупе","Обычный") Тогда
Элементы.Результат.ДобавитьСтроку();   
СтрокаТабличнойЧасти=Элементы.Результат.ТекущиеДанные;
СтрокаТабличнойЧасти.ВысотаВставки=Объект.ВысотаШкафа-
Объект.Цоколь-Объект.Подпятник-
Объект.Горизонталь-Объект.Крышка-
Объект.Треки-Объект.ГоризонтальныйПрофиль;
Если Объект.КоличествоСтворок=2 Тогда
СтрокаТабличнойЧасти.ШиринаВставки=
Цел(((Объект.ШиринаШкафа-
Объект.ТолщинаБоков+Объект.Перехлест)/2)-
КонецЕсли;       
Если Объект.КоличествоСтворок=4 Тогда
СтрокаТабличнойЧасти.ШиринаВставки=
Цел((((Объект.ШиринаШкафа-
Объект.ТолщинаБоков+(Объект.Перехлест*2))/3))-
Объект.ВертикальныйПрофиль);
КонецЕсли;
КонецЕсли;
КонецПроцедуры

&НаСервереБезКонтекста
Функция ПолучитьЗначениеПеречисления(Менеджер,ЗначениеПеречисления)

    Возврат Перечисления[Менеджер][ЗначениеПеречисления];

КонецФункции