Как работает процедура НазначитьВид()
11.08.2006
17:09
#1
"Всем привет. Есть вопрос у новичка.
При создании Нового документа при выборе значения из перечисления (кто покупатель: Контрагент или Сотрудник) устанавливается тип справочника в табличной части документа: Контрагенты или Сотрудники.
В процедуре прописал следующее:
Процедура Вибор ()
Если (КоличествоСтрок() <> 0)Тогда
Предупреждение("Сначала удалите все строки!");
Иначе
Если ВидПр = Перечисление.ВидПр.Знач1 Тогда
НазначитьВид(Покупатель, Контрагенты");
ИначеЕсли ВидПр = Перечисление.ВидПр.Знач2 Тогда
НазначитьВид(Покупатель, "Сотрудники");
КонецЕсли;
Форма.Покупатель.НеИзменятьВид(1);
КонецЕсли;
КонецПроцедуры
"
При создании Нового документа при выборе значения из перечисления (кто покупатель: Контрагент или Сотрудник) устанавливается тип справочника в табличной части документа: Контрагенты или Сотрудники.
В процедуре прописал следующее:
Процедура Вибор ()
Если (КоличествоСтрок() <> 0)Тогда
Предупреждение("Сначала удалите все строки!");
Иначе
Если ВидПр = Перечисление.ВидПр.Знач1 Тогда
НазначитьВид(Покупатель, Контрагенты");
ИначеЕсли ВидПр = Перечисление.ВидПр.Знач2 Тогда
НазначитьВид(Покупатель, "Сотрудники");
КонецЕсли;
Форма.Покупатель.НеИзменятьВид(1);
КонецЕсли;
КонецПроцедуры
"
11.08.2006
19:22
#2
"Во- первых,
- вторых: (с)Пин
Процедура Вибор ()
ВидПР = 1;
Если ВидПр = 1 Тогда
НазначитьВид(Покупатель,"Организации");
ИначеЕсли ВидПр = 0 Тогда
НазначитьВид(Покупатель, "Сотрудники");
КонецЕсли;
Форма.Покупатель.НеИзменятьВид(1);
КонецПроцедуры
Ссылаться туда из процедуры ПриРедактированииНовойСтроки()
"
- вторых: (с)Пин
Процедура Вибор ()
ВидПР = 1;
Если ВидПр = 1 Тогда
НазначитьВид(Покупатель,"Организации");
ИначеЕсли ВидПр = 0 Тогда
НазначитьВид(Покупатель, "Сотрудники");
КонецЕсли;
Форма.Покупатель.НеИзменятьВид(1);
КонецПроцедуры
Ссылаться туда из процедуры ПриРедактированииНовойСтроки()
"
Читают тему
(гостей: 1)