управляемая форма 1с (ПОМОЩЬ)

[kot_oo]

В конфигурации есть две процедуры, это расчет пробега и начальные данные

&НаСервере
Процедура РасчетаПробега()
   
     Объект.КонечныйСпидометр =  Объект.НачальныйСпидометр + Объект.ПробегЗаПутевку;
    Объект.Расход = Объект.ПробегЗаПутевку * Объект.РасходНа100Км / 100;
    Объект.ОстатокТопливаПриВозвращении = Объект.ОстатокТопливаПриВыезде - Объект.Расход;
   
   
КонецПроцедуры

&НаСервере
Процедура НачальныеДанныеНаСервере(ТранспортноеСредство,Дата)
....
....
....
    Если Выборка.Количество()>0 Тогда
       Выборка.Следующий();
       Объект.Водитель = Выборка.Водитель;
       Объект.НачальныйСпидометр =Выборка.КонечныйСпидометрОстаток;
       Объект.ОстатокТопливаПриВыезде  = Выборка.ОстатокГСМ;
       Объект.РасходНа100Км = Выборка.НормаРасхода;
       НомерАвтомобиля = Выборка.НомерАвтомобиля;
       НомерПрицепа = Выборка.НомерПрицепа;
       Объект.Механик = Выборка.Механик;
       Объект.МедРаботник = Выборка.МедРаботник;
Объект.Заправлено = Выборка.Заправлено;

Объект.ОстатокТопливаПриВыезде = Объект.Заправлено;
      

       КонецЕсли;   
КонецПроцедуры


К этой строчке нужно сделать проверку (если новый документ тогда выполнять присвоение иначе не выполнять)(строчка ниже)
Объект.ОстатокТопливаПриВыезде = Объект.Заправлено;


Не могу понять как это осуществить 1с 8.2

[Besart]

создаете в модуе объекта эскпортную функцию, из которой возвращаете ЭтоНовый()

Добавлено: 14 ноя 2013, 23:39

забыл добавить: вызов экспортной функции из модуля формы делайте так

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

ДокОбъект = РеквизитФормыВЗначение("Объект");
ДокОбъект.Проверить();// вернет истину или ложь. ставьте этот флаг в нужное место
ЗначениеВРеквизитФормы(ДокОбъект, "Объект")


[kot_oo]

создаете в модуе объекта эскпортную функцию, из которой возвращаете ЭтоНовый()

Добавлено: 14 ноя 2013, 23:39

забыл добавить: вызов экспортной функции из модуля формы делайте так

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

ДокОбъект = РеквизитФормыВЗначение("Объект");
ДокОбъект.Проверить();// вернет истину или ложь. ставьте этот флаг в нужное место
ЗначениеВРеквизитФормы(ДокОбъект, "Объект")


Спасибо, на проверку вывел через пустой ключ, чу чуть что то не получилось, сегодня-завтра плотно займусь фомой,

Спасибо за ответ

[Новенькая]

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

КонецЕсли;