vadimka)

Member
Ситуация такова: есть почти готовая база, в которой есть документ ПродажаТоваров в модуле которой описано что при покупке свыше 1000грн доставка бесплатна - есть условие >1000 и задается вопрос ДаНет. Так вот мне нужно чтобы при нажатии Да и последующем проведении форма документа ПродажаТоваров закрывалась и открывалась форма ЗаявкаНаДоставку. Привожу часть модуля документа ПродажаТоваров:
&НаКлиенте
Процедура КоличествоПриИзменении(Элемент)

Стр = Элементы.Товары.ТекущиеДанные;
Стр.Сумма = Стр.Количество * Стр.Цена;
Если Стр.Сумма>1000 Тогда
Режим = РежимДиалогаВопрос.ДаНет;

Текст = "Бесплатная доставка?";
Ответ = Вопрос(НСтр(Текст), Режим, 0);
///ОткрытьФорму("Документ.ЗаявкаНатранспорт.ФормаДокумента"); - вот в это месте немогу понять что сделать или я может вобще не то делаю.

Если Ответ = КодВозвратаДиалога.Нет Тогда
Возврат;
КонецЕсли;

КонецЕсли ;
Объект.СуммаДокумента=Объект.Товары.Итог("Сумма");

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

Буду признательно благодаен за помощь.
ОДЗ нужно до завтра сдать)))
 

Ганнусик

Неуёмная жажда жизни
когда-то так делала эту процедурку.

&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
Для каждого СтрокаТовары Из Объект.Товары Цикл

Если Не ЗначениеЗаполнено(СтрокаТовары.Товар) и не ЗначениеЗаполнено(СтрокаТовары.Цена)
и не ЗначениеЗаполнено(СтрокаТовары.Количество)
Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Заполните";
Сообщение.Сообщить();
Отказ = Истина;
КонецЕсли;

Продолжить;

КонецЦикла;
Если Не ЗначениеЗаполнено(Объект.Контрагент)
Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Заполните";
Сообщение.Сообщить();
Отказ = Истина;
КонецЕсли;

Если Объект.СуммаЗаказа>1000 и Объект.ОплатаДоставки <> 0 Тогда

Режим = РежимДиалогаВопрос.ДаНет;
Текст = "ru = ""Хотите ли вы бесплатную доставку?"";" ;
Ответ = Вопрос(НСтр(Текст), Режим, 0);
Если Ответ = КодВозвратаДиалога.Да Тогда
Объект.ОплатаДоставки=0;
КонецЕсли;

Иначе
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Заполните поле Оплата доставки";
Сообщение.Сообщить();

КонецЕсли;

КонецПроцедуры
 
Зверху