Помощь с процедурами

[kot_oo]

Есть код модуля документа,
Суть помощи в том, нужно проверить новый ли это документ или нет,
если новый тогда сделать не доступным поля "ОбОрганизации" "Группа3" "Группа2" "ОЗаказе", до выбора вида ТС.

А если открыт для редактирования все нужные поля были видны если были скрыты и были доступны для редактирования

Вроде все работает но как то не так как нужно

Скину скриншоты на почту, сюда не разобрался как загружать

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

Процедура ПриОткрытии(Отказ)
Если Объект.Ссылка.Пустая() Тогда     
  Дата = НачалоНедели(Дата);
КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
ТабДок = Новый ТабличныйДокумент;
Печать (ТабДок,ПараметрКоманды);
ТабДок.Показать();
//}}
КонецПроцедуры
&НаСервере
Процедура Печать(ТабДок, ПараметрПечать)
Справочники.Номенклатура.Печать(ТабДок.ПараметрКоманды);
КонецПроцедуры


&НаКлиенте
Процедура АвтобусПриИзменении(Элемент)
Если Объект.Автобус тогда
Элементы.Легковой.Доступность = Ложь;
Элементы.Грузовой.Доступность = Ложь;
Элементы.ГрузовойСПрицепом.Доступность = Ложь;
Элементы.СпецТехника.Доступность = Ложь;
Элементы.ВыборАвтобус.Видимость = Истина;
Элементы.ОбОрганизации.Доступность = Истина;
Элементы.ОЗаказе.Доступность = Истина;
Элементы.Группа3.Доступность = Истина;
Элементы.Группа2.Доступность = Истина;

Иначе
Элементы.ОбОрганизации.Доступность = Ложь;
Элементы.Группа3.Доступность = Ложь;
Элементы.Группа2.Доступность = Ложь;
Элементы.ОЗаказе.Доступность = Ложь;
Элементы.ВыборАвтобус.Видимость = Ложь;
Элементы.Легковой.Доступность = Истина;
Элементы.Грузовой.Доступность = Истина;
Элементы.ГрузовойСПрицепом.Доступность = Истина;
Элементы.СпецТехника.Доступность = Истина;
КонецЕсли;

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

&НаКлиенте
Процедура ЛегковойПриИзменении(Элемент)
Если Объект.Легковой тогда
Элементы.Автобус.Доступность = Ложь;
Элементы.Грузовой.Доступность = Ложь;
Элементы.ГрузовойСПрицепом.Доступность = Ложь;
Элементы.СпецТехника.Доступность = Ложь;
Элементы.ВыборЛегковой.Видимость = Истина;
Элементы.ОбОрганизации.Доступность = Истина;
Элементы.ОЗаказе.Доступность = Истина;
Элементы.Группа3.Доступность = Истина;
Элементы.Группа2.Доступность = Истина;

Иначе
Элементы.ОбОрганизации.Доступность = Ложь;
Элементы.Группа3.Доступность = Ложь;
Элементы.Группа2.Доступность = Ложь;
Элементы.ОЗаказе.Доступность = Ложь;

Элементы.ВыборЛегковой.Видимость = Ложь;
Элементы.Автобус.Доступность = Истина;
Элементы.Грузовой.Доступность = Истина;
Элементы.ГрузовойСПрицепом.Доступность = Истина;
Элементы.СпецТехника.Доступность = Истина;
КонецЕсли;

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

&НаКлиенте
Процедура ГрузовойПриИзменении(Элемент)
Если Объект.Грузовой тогда
Элементы.Легковой.Доступность = Ложь;
Элементы.Автобус.Доступность = Ложь;
Элементы.ГрузовойСПрицепом.Доступность = Ложь;
Элементы.СпецТехника.Доступность = Ложь;
Элементы.ВыборГрузовойСПрицепом.Видимость = Истина;

Элементы.ОбОрганизации.Доступность = Истина;
Элементы.ОЗаказе.Доступность = Истина;
Элементы.Группа3.Доступность = Истина;
Элементы.Группа2.Доступность = Истина;

Иначе
Элементы.ОбОрганизации.Доступность = Ложь;
Элементы.Группа3.Доступность = Ложь;
Элементы.Группа2.Доступность = Ложь;
Элементы.ОЗаказе.Доступность = Ложь;

Элементы.ВыборГрузовойСПрицепом.Видимость = Ложь;
Элементы.Легковой.Доступность = Истина;
Элементы.Автобус.Доступность = Истина;
Элементы.ГрузовойСПрицепом.Доступность = Истина;
Элементы.СпецТехника.Доступность = Истина;
КонецЕсли;

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

&НаКлиенте
Процедура ГрузовойСПрицепомПриИзменении(Элемент)
Если Объект.ГрузовойСПрицепом тогда
Элементы.Легковой.Доступность = Ложь;
Элементы.Грузовой.Доступность = Ложь;
Элементы.Автобус.Доступность = Ложь;
Элементы.СпецТехника.Доступность = Ложь;
Элементы.ВыборГрузовойСПрицепом.Видимость = Истина;

Элементы.ОбОрганизации.Доступность = Истина;
Элементы.ОЗаказе.Доступность = Истина;
Элементы.Группа3.Доступность = Истина;
Элементы.Группа2.Доступность = Истина;

Иначе
Элементы.ОбОрганизации.Доступность = Ложь;
Элементы.Группа3.Доступность = Ложь;
Элементы.Группа2.Доступность = Ложь;
Элементы.ОЗаказе.Доступность = Ложь;

Элементы.ВыборГрузовойСПрицепом.Видимость = Ложь;
Элементы.Легковой.Доступность = Истина;
Элементы.Грузовой.Доступность = Истина;
Элементы.Автобус.Доступность = Истина;
Элементы.СпецТехника.Доступность = Истина;
КонецЕсли;

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

&НаКлиенте
Процедура СпецТехникаПриИзменении(Элемент)
Если Объект.СпецТехника тогда
Элементы.Легковой.Доступность = Ложь;
Элементы.Грузовой.Доступность = Ложь;
Элементы.ГрузовойСПрицепом.Доступность = Ложь;
Элементы.Автобус.Доступность = Ложь;
Элементы.ВыборСпецТехника.Видимость = Истина;

Элементы.ОбОрганизации.Доступность = Истина;
Элементы.ОЗаказе.Доступность = Истина;
Элементы.Группа3.Доступность = Истина;
Элементы.Группа2.Доступность = Истина;

Иначе
Элементы.ОбОрганизации.Доступность = Ложь;
Элементы.Группа3.Доступность = Ложь;
Элементы.Группа2.Доступность = Ложь;
Элементы.ОЗаказе.Доступность = Ложь;

Элементы.ВыборСпецТехника.Видимость = Ложь;
Элементы.Легковой.Доступность = Истина;
Элементы.Грузовой.Доступность = Истина;
Элементы.ГрузовойСПрицепом.Доступность = Истина;
Элементы.Автобус.Доступность = Истина;
КонецЕсли;

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



[MuI_I_Ika]

Много кода непонятно куда смотреть. У документа есть метод ЭтоНовый() я думаю его и нужно использовать.

[chuevsf]

Много кода непонятно куда смотреть. У документа есть метод ЭтоНовый() я думаю его и нужно использовать.

Это опять управляемые формы. Там этот метод не работает...
Ведь недавно такая тема уже была.



Автор! Вам сюда: https://forum-baza.ru/index.php?topic=32092.msg95071#msg95071

[Besart]

Там этот метод не работает...

ЭтоНовый() работает независимо от типа формы, но это к данному случаю не относится, т.к. приведен код модуля формы, начало правильное

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

Процедура ПриОткрытии(Отказ)
Если Объект.Ссылка.Пустая() Тогда     
  Дата = НачалоНедели(Дата);
КонецЕсли;
КонецПроцедуры а дальше начинатеся нагромождение кода, без скрина формы не разобраться

[kot_oo]

Много кода непонятно куда смотреть. У документа есть метод ЭтоНовый() я думаю его и нужно использовать.

В 8.2 ругается на ЭтоНовый ()

Добавлено: 11 окт 2013, 14:41

Там этот метод не работает...

ЭтоНовый() работает независимо от типа формы, но это к данному случаю не относится, т.к. приведен код модуля формы, начало правильное

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

Процедура ПриОткрытии(Отказ)
Если Объект.Ссылка.Пустая() Тогда     
  Дата = НачалоНедели(Дата);
КонецЕсли;
КонецПроцедуры а дальше начинатеся нагромождение кода, без скрина формы не разобраться

http://vk.com/album74255545_180930296 Здесь выложил скриншоты

Добавлено: 11 окт 2013, 14:42

Там этот метод не работает...

ЭтоНовый() работает независимо от типа формы, но это к данному случаю не относится, т.к. приведен код модуля формы, начало правильное

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

Процедура ПриОткрытии(Отказ)
Если Объект.Ссылка.Пустая() Тогда     
  Дата = НачалоНедели(Дата);
КонецЕсли;
КонецПроцедуры а дальше начинатеся нагромождение кода, без скрина формы не разобраться

http://vk.com/album74255545_180930296 вот тут скриншоты

[Dethmontt]

Ругается потому что метод ЭтоНовый(), это метод объекта, а не формы! И вызывать его нужно в контексте ОБЪЕКТА.
Не вижу ничего страшного в использовании такой конструкции для проверки записан ли элемент или нет.

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

Если Объект.Ссылка.Пустая() Тогда
Уважаемый(ая) kot_oo, на этом форуме прекрасно прикрепляются скриншоты! (Предварительный просмотр - Вложения и другие параметры - Выберите файл)

По вашему вопросу: Слишком много непонятного кода, ЧТО НЕ РАБОТАЕТ ТО?

[kot_oo]

Ругается потому что метод ЭтоНовый(), это метод объекта, а не формы! И вызывать его нужно в контексте ОБЪЕКТА.
Не вижу ничего страшного в использовании такой конструкции для проверки записан ли элемент или нет.

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

Если Объект.Ссылка.Пустая() Тогда
Уважаемый(ая) kot_oo, на этом форуме прекрасно прикрепляются скриншоты! (Предварительный просмотр - Вложения и другие параметры - Выберите файл)

По вашему вопросу: Слишком много непонятного кода, ЧТО НЕ РАБОТАЕТ ТО?

Уже все работает)))