Установить значение при записи документа

[kot488]

Есть документ, в зависимости от города получателя и города отправителя нужно что бы проставлялся тип доставки.
В форме прописал функцию:

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


Функция ПолучитьЗону()
Если Объект.Отправитель.Город.ЗонаДоставки = Объект.Получатель.Город.ЗонаДоставки Тогда  
Возврат Справочники.ЗонаДоставки.ВнутригородскаяДоставка;
Иначе

Если Объект.Отправитель.Город.ЗонаДоставки = Справочники.ЗонаДоставки.НайтиПоКоду("000000002")
ИЛИ
  Объект.Получатель.Город.ЗонаДоставки = Справочники.ЗонаДоставки.НайтиПоКоду("000000002") Тогда
    Возврат Справочники.ЗонаДоставки.НайтиПоКоду("000000002");
Иначе
Возврат Объект.Отправитель.Город.ЗонаДоставки;
КонецЕсли;


КонецЕсли;

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


Но ее конечно не отрабатывает, подскажите пожалуйста, как правильно реальзовать подстановку реквизита?

[oleg-x]

Что значит не отрабатывает? Не так как тебе хотелось бы?))
Функция тебе же возвращает какое то значение?
Пройдись отладчиком и поймешь в чем ошибка или недоработка.

[kot488]

Что значит не отрабатывает? Не так как тебе хотелось бы?))
Функция тебе же возвращает какое то значение?
Пройдись отладчиком и поймешь в чем ошибка или недоработка.

Ставлю точку остановки на Функция ПолучитьЗону(), но остановка не срабатывает, по идее же в какую то процедуру, нужно запистаь, например при записи или при закрытии?

Добавлено: 17 окт 2017, 13:41

Сделал остановку по уловию на этой строке
Если Объект.Отправитель.Город.ЗонаДоставки = Справочники.ЗонаДоставки.НайтиПоКоду("000000002"
Условие
Документ.Пересылка.Форма.ФормаДокумента.Форма 000000002
Ошибок не возникает, но и значение не подставляет
Вот код при закрытии

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

&Насервере
Функция ПолучитьЗону();
Если Объект.Отправитель.Город.ЗонаДоставки = Объект.Получатель.Город.ЗонаДоставки Тогда  
Возврат Справочники.ЗонаДоставки.ВнутригородскаяДоставка;
Иначе

Если Объект.Отправитель.Город.ЗонаДоставки = Справочники.ЗонаДоставки.НайтиПоКоду("000000002")
ИЛИ
  Объект.Получатель.Город.ЗонаДоставки = Справочники.ЗонаДоставки.НайтиПоКоду("000000002") Тогда
    Возврат Справочники.ЗонаДоставки.НайтиПоКоду("000000002");
Иначе
Возврат Объект.Отправитель.Город.ЗонаДоставки;
КонецЕсли;


КонецЕсли;

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


&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
ПолучитьЗону();

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


[oleg-x]

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

&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
    ПолучитьЗону(); //Данная функция возвращает тебе значение, а потом пропадает, так как оно ничему не присваивается.
Зона = ПолучитьЗону(); //Так правильно
КонецПроцедуры

[kot488]

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

&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
    ПолучитьЗону(); //Данная функция возвращает тебе значение, а потом пропадает, так как оно ничему не присваивается.
Зона = ПолучитьЗону(); //Так правильно
КонецПроцедуры

Я уже понял где натупил, у меня вышло вот так:

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


&Насервере
Функция ПолучитьЗону();
Если Объект.Отправитель.Город.ЗонаДоставки = Объект.Получатель.Город.ЗонаДоставки Тогда  
Возврат Справочники.ЗонаДоставки.ВнутригородскаяДоставка;
Иначе

Если Объект.Отправитель.Город.ЗонаДоставки = Справочники.ЗонаДоставки.НайтиПоКоду("000000002")
ИЛИ
  Объект.Получатель.Город.ЗонаДоставки = Справочники.ЗонаДоставки.НайтиПоКоду("000000002") Тогда
    Возврат Справочники.ЗонаДоставки.НайтиПоКоду("000000002");
Иначе
Возврат Объект.Отправитель.Город.ЗонаДоставки;
КонецЕсли;


КонецЕсли;

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


&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
НоваяЗона = ПолучитьЗону();
Объект.ЗонаДоставки = НоваяЗона;
КонецПроцедуры