Имя: Пароль:
1C
1С v8
Заполнить ТЧ документа на основании. 1с УПП
0 deadpuma
 
02.10.12
11:10
Нужно заполнить ТЧ "Материалы" одного документа на основе другого документа. Табличные части обоих документов одинаковые.

что не так делаю? Пишет ошибку при вызове метода ПолучитьФормуВыбора()

помогите плиз

&НаКлиенте
Процедура ЗаполнитьПоМатНеВклВПЛ(Команда)
   Если Объект.Материалы.Количество() > 0 Тогда
       Ответ = Вопрос(НСтр("ru = 'Табличная часть будет очищена! Продолжить выполнение операции?'"), РежимДиалогаВопрос.ДаНет, 0);
       Если Ответ <> КодВозвратаДиалога.Да Тогда
           Возврат;
       КонецЕсли;
   КонецЕсли;

   ЗаполнитьПоМатериаламНеВклВПЛ("Материалы", "Заполнить");
КонецПроцедуры

&НаСервере
Процедура ЗаполнитьПоМатериаламНеВклВПЛ(ИмяТабЧасти, Режим, Основание = Неопределено, ИмяТабЧастиИсточника = Неопределено)
   Если Основание = Неопределено Тогда
       Форма = Документы.ЗаявкаНаНестандартныеМатериалы.ПолучитьФормуВыбора();
       Форма.Заголовок = "Выберите документ для заполнения";
       Форма.РежимВыбора = Истина;
       ДокумМатерНеВклВПЛ = Форма.ОткрытьМодально();
   Иначе
       ДокумМатерНеВклВПЛ = Основание;
   КонецЕсли;

   Если НЕ ЗначениеЗаполнено(ДокумМатерНеВклВПЛ) Тогда
       Возврат;
   КонецЕсли;

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

   Объект.Материалы.Загрузить(Запрос.Выполнить().Выгрузить());

КонецПроцедуры
1 shuhard
 
02.10.12
11:12
(0) открыть форму на сервере модально
2 deadpuma
 
02.10.12
11:25
(1) ошибка возникает выше вот в этом месте
Форма = Документы.ЗаявкаНаНестандартныеМатериалы.ПолучитьФормуВыбора();
3 Aleks73
 
02.10.12
11:29
Отладчик тебе в помощь...если вообще dead что-то поможет.
4 ДенисЧ
 
02.10.12
11:30
&НаСервере
       Форма = Документы.ЗаявкаНаНестандартныеМатериалы.ПолучитьФормуВыбора();

тут ошибка.
5 KabanDeGreat
 
02.10.12
11:30
Доступность:

Толстый клиент.
6 deadpuma
 
02.10.12
11:36
(4) поменял на теперь не компилируется. пишет процедура не определена
Форма=ПолучитьФорму("Документы.ЗаявкаНаНестандартныеМатериалы..ФормаВыбора");
7 DrShad
 
02.10.12
11:39
на сервере нет форм
8 deadpuma
 
02.10.12
11:40
чуть-чуть подкорректировал все равно ошибка осталась


&НаКлиенте
Процедура ЗаполнитьПоМатНеВклВПЛ(Команда)
   Если Объект.Материалы.Количество() > 0 Тогда
       Ответ = Вопрос(НСтр("ru = 'Табличная часть будет очищена! Продолжить выполнение операции?'"), РежимДиалогаВопрос.ДаНет, 0);
       Если Ответ <> КодВозвратаДиалога.Да Тогда
           Возврат;
       КонецЕсли;
   КонецЕсли;

   ФормаЗаполнения = ПолучитьФорму("Документы.ЗаявкаНаНестандартныеМатериалы.ФормаВыбора");
   
   
   ФормаЗаполнения.Заголовок = "Выберите документ для заполнения";
   ФормаЗаполнения.РежимВыбора = Истина;
   ДокумМатерНеВклВПЛ = ФормаЗаполнения.ОткрытьМодально();

   ЗаполнитьПоМатериаламНеВклВПЛ(ДокумМатерНеВклВПЛ);
КонецПроцедуры

&НаСервере
Процедура ЗаполнитьПоМатериаламНеВклВПЛ(ДокумМатерНеВклВПЛ)

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

   Объект.Материалы.Загрузить(Запрос.Выполнить().Выгрузить());

КонецПроцедуры
9 ДенисЧ
 
02.10.12
11:41
ФормаЗаполнения = ПолучитьФорму("Документы.ЗаявкаНаНестандартныеМатериалы.ФормаВыбора.Форма");  ?
10 KabanDeGreat
 
02.10.12
11:42
"Справочник.Контрагенты.Форма.ФормаОбъекта",
ТЕБЕ синтаксис помошник на что
11 KabanDeGreat
 
02.10.12
11:42
тебе следовательно документ, а не документЫ
12 deadpuma
 
02.10.12
11:49
(9) спасибо ошибка прошла, но табличная часть ничего не заполняет? в чем может быть ошибка?
13 deadpuma
 
02.10.12
11:51
(11) да забыл букву Ы убрать
14 Darky
 
02.10.12
11:54
Запрос не выбирает из ТЧ документа
15 hhhh
 
02.10.12
11:57
(12) |ИЗ
   |    Документ.ЗаявкаНаНестандартныеМатериалы.МАТЕРИАЛЫ КАК ЗаявкаНаНестандартныеМатериалы
16 deadpuma
 
02.10.12
12:04
(15) (14) спасибо получилось!