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

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

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

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

Raideres

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

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

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

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

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

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

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

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


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

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


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


vitasw

http://v8.1c.ru/metod/faq2/search.jsp?search=%EE%F2%EA%F0%FB%F2%FC+%F4%EE%F0%EC%F3+%E4%EE%EA%F3%EC%E5%ED%F2%E0

Для начинающих разработчиков

Где научиться

Центры Сертифицированного Обучения

(Россия, Беларусь, Казахстан, Кыргызстан, Молдова, Украина)

1С-Учебные Центры:

  • №1 (Москва, Россия)
  • №3 (Москва, Россия)
  • №5 (Алматы, Казахстан)


Теги:

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

Рейтинг@Mail.ru

Поиск