97
Тип("СправочникОбъект.Поставщики"));
Поставщики=Справочники.Поставщики.НайтиПоНаименованию(ФИО)
;
Спр=Поставщик.ПолучитьОбъект();
Спр.Наименование=Поставщик.Наименование;
ЗначениеВДанныеФормы(Спр, ДанныеФормы);
КонецФункции
&НаКлиенте
Процедура ТоварыУслугаПриИзменении(Элемент)
//ТЧТовар=Объект.Товар:
СтрокаТЧ=Элементы.Товар.ТекущиеДанные;
ТоварНаименование=СтрокаТЧ.Товар;
Цена=ПолучитьЦенуТовара(ТоварНаименование);
СтрокаТЧ.Цена=Цена;
Если(ЗначениеЗаполнено(СтрокаТЧ.Количество)=Ложь) Тогда
СтрокаТЧ.Количество=1;
КонецЕсли;
Итого=Цена*СтрокаТЧ.Количество;
СтрокаТЧ.Итого=Итого;
ПересчитатьЦенуДоговора();
КонецПроцедуры
Процедура ПриУстановкеНовогоНомера(СтандартнаяОбработка,
Префикс)
98
Префикс="В-";
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
КоличествоПоставщиков=Число(ЭтотОбъект.КоличествоПоставщиков)
;
КоличествоТовара=Число(ЭтотОбъект.Товар.КоличествоСвободныхМе
ст);
Если(КоличествоПоставщиков>КоличествоТовара)Тогда
Отказ=Истина;
Сообщить("Вы не можете оформить данный договор ");
Иначе
ТоварКод=ЭтотОбъект.Товар.Код;
ТоварВДоговоре=Справочники.ТоварыКПродаже.НайтиПоКоду(Товар
Код).ПолучитьОбъект();
ТоварВДоговоре.КоличествоСвободныхМест=КоличествоСвободныхМ
ест-КоличествоЧеловек;
ТоварВДоговоре.Записать();
99
КонецЕсли;
КонецПроцедуры
Процедура ПослеЗакрытияПредупреждения(Элемент)Экспорт
КонецПроцедуры
Процедура ОбработкаУдаленияПроведения(Отказ)
КоличествоПоставщик=Число(ЭтотОбъект.КоличествоПоставщиков);
КоличествоТовара=Число(ЭтотОбъект.Товар.КоличествоТовара);
ТоварКод=ЭтотОбъект.Товар.Код;
ТоварВДоговоре=Справочники.ТоварыКПродаже.НайтиПоКоду(Товар
Код).ПолучитьОбъект();
ТоварВДоговоре.КоличествоТовара=КоличествоТовара+КоличествоПо
ставщиков;
ТоварВДоговоре.Записать();
КонецПроцедуры
100
&НаСервереБезКонтекста
Функция ПолучитьЦенуТовар(УслугаНаименование)
Товар=Справочники.Товар.НайтиПоНаименованию(ТоварНаименован
ие);
Цена=Услуга.Цена;
Возврат Цена;
// Вставить содержимое обработчика.
КонецФункции
&НаКлиенте
Процедура ТоварКоличествоПриИзменении(Элемент)
// Вставить содержимое обработчика.
СтрокаТЧ=Элементы.Товар.ТекущиеДанные;
Цена=СтрокаТЧ.Цена;
Количество=СтрокаТЧ.Количество;
Итого=Цена*Количество;
СтрокаТЧ.Итого=Итого;
ПересчитатьЦенуДоговора();
КонецПроцедуры
&НаКлиенте
Процедура ТоварЦенаПриИзменении(Элемент)
// Вставить содержимое обработчика.
СтрокаТЧ=Элементы.Товар.ТекущиеДанные;
Цена=СтрокаТЧ.Цена;
Количество=СтрокаТЧ.Количество;
Итого=Цена*Количество;
СтрокаТЧ.Итого=Итого;
101
ПересчитатьЦенуДоговора();
КонецПроцедуры
&НаКлиенте
Процедура ОплаченоПриИзменении(Элемент)
// Вставить содержимое обработчика.
Итого=Число(Объект.Итого);
Оплачено=Число(Объект.Оплачен);
Задолженность=Итого-Оплачено;
Если(Задолженность<0)Тогда
Оповещение=Новый
ОписаниеОповещения("ПослеЗакрытияПредупреждения",ЭтотОбъект);
ПоказатьПредупреждение(Оповещение,"Вы не можете внести
сумму оплаты ",0,"PepsiCo");
Иначе
Объект.Задолженность=Задолженность;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПослеЗакрытияПредупреждения(Элемент)Экспорт
Итого=Число(Объект.Итого);
Задолженность=Число(Объект.Задолженность);
Оплачено=Итого-Задолженность;
Объект.Оплачен=Оплачено;
КонецПроцедуры
102
&НаКлиенте
Процедура ПоказатьСообщение(Команда)
ПоказатьСообщениеНаСервере();
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ПоказатьСообщениеНаСервере()
КонецПроцедуры
&НаСервереБезКонтекста
Функция СписокПоставщиковВыборНаСервере(ДанныеФормы, ФИО)
Спр=ДанныеФормыВЗначение(ДанныеФормы,
Тип("СправочникОбъект.Поставщики"));
Поставщики=Справочники.Поставщики.НайтиПоНаименованию(ФИО)
;
Спр=Поставщик.ПолучитьОбъект();
Спр.Наименование=Поставщик.Наименование;
ЗначениеВДанныеФормы(Спр, ДанныеФормы);
КонецФункции
&НаКлиенте
Процедура ТоварыУслугаПриИзменении(Элемент)
//ТЧТовар=Объект.Товар:
СтрокаТЧ=Элементы.Товар.ТекущиеДанные;
ТоварНаименование=СтрокаТЧ.Товар;
103
Цена=ПолучитьЦенуТовара(ТоварНаименование);
СтрокаТЧ.Цена=Цена;
Если(ЗначениеЗаполнено(СтрокаТЧ.Количество)=Ложь) Тогда
СтрокаТЧ.Количество=1;
КонецЕсли;
Итого=Цена*СтрокаТЧ.Количество;
СтрокаТЧ.Итого=Итого;
ПересчитатьЦенуДоговора();
КонецПроцедуры