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

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

Автор kot_oo, 11 окт 2013, 13:09

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

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

Цитата: MuI_I_Ika от 11 окт 2013, 13:44
Много кода непонятно куда смотреть. У документа есть метод ЭтоНовый() я думаю его и нужно использовать.
Это опять управляемые формы. Там этот метод не работает...
Ведь недавно такая тема уже была.



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

Besart

Цитата: chuevsf от 11 окт 2013, 13:50Там этот метод не работает...
ЭтоНовый() работает независимо от типа формы, но это к данному случаю не относится, т.к. приведен код модуля формы, начало правильное Процедура ПриОткрытии(Отказ)
Если Объект.Ссылка.Пустая() Тогда     
  Дата = НачалоНедели(Дата);
КонецЕсли;
КонецПроцедуры
а дальше начинатеся нагромождение кода, без скрина формы не разобраться

kot_oo

Цитата: MuI_I_Ika от 11 окт 2013, 13:44
Много кода непонятно куда смотреть. У документа есть метод ЭтоНовый() я думаю его и нужно использовать.

В 8.2 ругается на ЭтоНовый ()
Добавлено: 11 окт 2013, 14:41


Цитата: Besart от 11 окт 2013, 14:31
Цитата: chuevsf от 11 окт 2013, 13:50Там этот метод не работает...
ЭтоНовый() работает независимо от типа формы, но это к данному случаю не относится, т.к. приведен код модуля формы, начало правильное Процедура ПриОткрытии(Отказ)
Если Объект.Ссылка.Пустая() Тогда     
  Дата = НачалоНедели(Дата);
КонецЕсли;
КонецПроцедуры
а дальше начинатеся нагромождение кода, без скрина формы не разобраться

http://vk.com/album74255545_180930296 Здесь выложил скриншоты
Добавлено: 11 окт 2013, 14:42


Цитата: Besart от 11 окт 2013, 14:31
Цитата: chuevsf от 11 окт 2013, 13:50Там этот метод не работает...
ЭтоНовый() работает независимо от типа формы, но это к данному случаю не относится, т.к. приведен код модуля формы, начало правильное Процедура ПриОткрытии(Отказ)
Если Объект.Ссылка.Пустая() Тогда     
  Дата = НачалоНедели(Дата);
КонецЕсли;
КонецПроцедуры
а дальше начинатеся нагромождение кода, без скрина формы не разобраться

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

Dethmontt

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

По вашему вопросу: Слишком много непонятного кода, ЧТО НЕ РАБОТАЕТ ТО?
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

kot_oo

Цитата: Dethmontt от 11 окт 2013, 21:40
Ругается потому что метод ЭтоНовый(), это метод объекта, а не формы! И вызывать его нужно в контексте ОБЪЕКТА.
Не вижу ничего страшного в использовании такой конструкции для проверки записан ли элемент или нет. Если Объект.Ссылка.Пустая() Тогда
Уважаемый(ая) kot_oo, на этом форуме прекрасно прикрепляются скриншоты! (Предварительный просмотр - Вложения и другие параметры - Выберите файл)

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

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

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

Рейтинг@Mail.ru

Поиск