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

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

Автор kot_oo, 14 ноя 2013, 21:32

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

kot_oo

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

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

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

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

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


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


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

Besart

создаете в модуе объекта эскпортную функцию, из которой возвращаете ЭтоНовый()
Добавлено: 14 ноя 2013, 23:39


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

kot_oo

Цитата: Besart от 14 ноя 2013, 23:14
создаете в модуе объекта эскпортную функцию, из которой возвращаете ЭтоНовый()
Добавлено: 14 ноя 2013, 23:39


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


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

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

Новенькая

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

КонецЕсли;

Теги:

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

Рейтинг@Mail.ru

Поиск