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

Как открыть форму нового не записанного документа?

Автор mashencev_anton, 30 мар 2015, 22:56

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

mashencev_anton


blackmoon89

пример

ОткрытьФорму("Документ.ЗаказКлиента.ФормаОбъекта");

mashencev_anton

Цитата: blackmoon89 от 30 мар 2015, 23:25ОткрытьФорму("Документ.ЗаказКлиента.ФормаОбъекта");
немного разобрался)))

вот что получилось:&НаСервере
Процедура   ПредзаказПоставщикуНаСервере(ДанныеФормы)

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

Запрос.УстановитьПараметр("Номенклатура",Стр.Номенклатура);

РезультатЗапроса = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();


Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

Док = ДанныеФормыВЗначение(ДанныеФормы, Тип("ДокументОбъект.ПредзаказПоставщику"));
Док.ЗаказПокупателя=Объект.Ссылка;
Док.Поставщик=ВыборкаДетальныеЗаписи.Поставщик;
Док.Дата=ТекущаяДата();
ЗаполнитьЗначенияСвойств(Док,Объект);
ЗаполнитьЗначенияСвойств(Док.Товары.Добавить(),стр);
ЗначениеВДанныеФормы(Док,ДанныеФормы);

КонецЦикла;
КонецЦикла;



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


&НаКлиенте
Процедура ПредзаказПоставщику(Команда)   

Форма = ПолучитьФорму("Документ.ПредзаказПоставщику.ФормаОбъекта");
ДанныеФормы = Форма.Объект;
ПредзаказПоставщикуНаСервере(ДанныеФормы);
КопироватьДанныеФормы(ДанныеФормы, Форма.Объект);
Форма.Открыть();

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

чет тут я запорол(((.. в итоге мне нужно, чтобы создались и открылись несколько документов(должно создаться столько документов сколько у номенклатуры из документа"ЗаказПокупателя" поставщиков)


Добавлено: 31 мар 2015, 21:27


Друзья ну подскажите мне как открыть несколько форм??
Добавлено: 01 апр 2015, 22:42


помогите же....товагищи

Теги:

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

Рейтинг@Mail.ru

Поиск