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

как правильно получить форму моего документа в управляемых формах

Автор Raideres, 22 янв 2016, 16:07

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

Raideres

&НаКлиенте
Процедура План(Команда)
ПланНаСервере();
КонецПроцедуры

&НаСервере
Процедура ПланНаСервере()
НовДок =документы.ВЗ_СкользящийПланРеализацияУФ.СоздатьДокумент();
НовДок.Дата= текущаяДата();
//**************************************Признак ДОКУМЕНТА
НайдЭлемент = Справочники.ВЗ_Константы.НайтиПоНаименованию("ПризнакиСкользящегоГрафика");
Если не НайдЭлемент = Справочники.ВЗ_Константы.ПустаяСсылка() Тогда
НайдСтрока = НайдЭлемент.ДоступныеЗначения.Найти("План", "Значение");
Если НЕ НайдСтрока = Неопределено Тогда
НовДок.ПризнакДокумента = НайдСтрока.Значение;
Конецесли;
КонецЕСли;
//**************************************Ответственный и Область
ПользОбласть = Справочники.ВЗ_Константы.НайтиПоНаименованию("СоответсвиеПользователейОбластиПродаж");
НайдРегион = ПользОбласть.ДоступныеЗначения.Найти(ПараметрыСеанса.ТекущийПользователь,"Значение");
Если НайдРегион <> Неопределено тогда
новдок.ПризнакМеста = НайдРегион.Соответствие;
новдок.ОтветственныйКтоСоздал = НайдРегион.Значение;
КонецЕсли;

//******************АлкогольнаяПродукция*****
НайдЭлемент = Справочники.ВЗ_Константы.НайтиПоНаименованию("АлкогольнаяПродукция");
Если Не НайдЭлемент = Справочники.ВЗ_Константы.ПустаяСсылка() Тогда
ТзКонстанты =  НайдЭлемент.ДоступныеЗначения.Выгрузить();
КонецЕсли;

//*******************************************
Запрос = новый запрос;
Запрос.Текст = "ВЫБРАТЬ
| Номенклатура.Родитель,
| Номенклатура.Ссылка,
| Номенклатура.ЕдиницаИзмеренияМест КАК ЕдиницаИзмеренияМест
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.Родитель = &Родитель
|
|УПОРЯДОЧИТЬ ПО
| ЕдиницаИзмеренияМест";
//**************************************
//Кузнецк
ТЧКузнецк = НовДок.Кузнецк;

для каждого стрК из ТзКонстанты цикл
стр1 = ТЧКузнецк.Добавить();
стр1.Наименование = стрК.Значение;
конецЦикла;

//**************************************
ОбработкаПрерыванияПользователя();
новдок.ОстаткиВизит.Очистить();  ///убираем остатки

//***********************Открываем форму

НовДок.ЭтоНовый();


Форма=НовДок.ПолучитьФорму("ФормаДокумента");
Форма.Открыть();

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


на форме списка есть кнопка создать документ,в итоге создаю документ открывается но почему то форма документа ни я которую создал а другая выходит.ПолучитьФорму("ФормаДокумента"); имя правильное



Теги:

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

Рейтинг@Mail.ru

Поиск