сертифіката повинна бути більше номіналу сертифіката + НоміналСертіфіката + р. );
ИспользуемыйСертификат=Справочники.ИнформационныеКарты.ПустаяСсылка();
Сертіфікати.Очістіть ();
СуммаНоминал=СуммаНоминал-НоминалСертификата;
предСерт=Справочники.ИнформационныеКарты.ПустаяСсылка();
КонецЕсли;
КонецПроцедури
Процедура ОтменитьПересчетТоваров_Сертификаты(СуммаНоминал,СуммаТовары);
Для кожного запис з Товари цикл
запісь.Цена=УправленіеРознічнойТорговлей.ПолучітьПродажнуюЦену (Дата, Запісь.Номенклатура,
запісь.ХарактерістікаНоменклатури, Запісь.ЕдініцаІзмеренія, Склад, УсловіеПродаж);
//запісь.Сумма=(запісь.Цена * запісь.Колічество) - (запись.Цена*запись.Количество)/100*(запись.ПроцентАвтоматическихСкидок+запись.ПроцентСкидкиНаценки);
ОбработкаТабличныхЧастей.РассчитатьСуммуТабЧасти(запись, ЕтотОб'ект);
КонецЦікла;
КонецПроцедури
Процедура ДействіяФормиНазначітьСкідку (Кнопка)
Якщо ЗначеніеЗаполнено (ІспользуемийСертіфікат) тоді
попередження ( Уже був використаний сертифікат !!! Застосування знижки неможливо! );
повернення;
КонецЕсли;
...
КонецПроцедури
Процедура ДісконтнаяКартаПріІзмененіі (Елемент)
//AG
Якщо ЗначеніеЗаполнено (ІспользуемийСертіфікат) тоді
Попередження ( Не можна застосовувати дисконтну карту, оскільки вже вибраний сертифікат !!! );
ДісконтнаяКарта=Не визначено;
КонецЕсли;// Заборонити вибирати ДКарту, оскільки заюзать сертифікат і знижка буде застосовуватися до маленької сумі
Якщо ДісконтнаяКарта.Сертіфікат тоді
Попередження ( Не можна вибирати сертифікат в поле дисконтна карта );
ДісконтнаяКарта=Не визначено;
КонецЕсли;
...
КонецПроцедури
Функція СформіроватьСтруктуруПодбораСертіфікат (Знач ДатаЦен, Знач Номенклатура, Знач Кількість, Знач Валюта,
Знач СерійнийНомер, Знач СкладиВТЧ, Знач ТіпЦен,
Знач Контрагент=Не визначено,
Знач Договір=Не визначено,
Знач УсловіеПродаж=Не визначено,
Знач Склад=Не визначено, знач Номінал, знач Сертифікат)
Результат=Новий Структура ();
Якщо ЗначеніеЗаполнено (СерійнийНомер) Тоді
Номенклатура=СерійнийНомер.Владелец;
Одиниця=Номенклатура.ЕдініцаХраненіяОстатков;
Характеристика=Справочники.ХарактеристикиНоменклатуры.ПустаяСсылка();
Серія=Справочнікі.СерііНоменклатури.ПустаяСсилка ();
Якість=Справочнікі.Качество.Новий;
Кількість=1;
КонецЕсли;
Результат.Вставить(laquo;СпособЗаполненияЦенraquo;, Перечисления.СпособыЗаполненияЦен.ПоЦенамНоменклатуры);
Результат.Вставіть ( ВалютаЦени raquo ;, Валюта);
Результат.Вставіть ( Номенклатура raquo ;, Номенклатура);
Результат.Вставіть ( ЕдініцаІзмеренія raquo ;, Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(laquo;штraquo;));
Результат.Вставіть ( Кількість raquo ;, 1);
Результат.Вставіть ( Ціна raquo ;, Номінал);
Результат.Вставіть ( Характеристика raquo ;, Справочники.ХарактеристикиНоменклатуры.ПустаяСсылка());//Характеристика);
Результат.Вставіть ( Серія raquo ;, Справочники.СерииНоменклатуры.ПустаяСсылка());//Серия);
Результат.Вставіть ( Якість raquo ;, Справочнікі.Качество.Новий);//Якість);
Результат.Вставить(laquo;ЕстьСкладВТабличнойЧастиraquo;, СкладиВТЧ);
Результат.Вставіть ( Команда raquo ;, ПодборВТаблічнуюЧасть );
Результат.Вставіть ( Сертифікат raquo ;, Сертифікат);
Повернення Результат;
КонецФункции
Процедура пСертіфікатОчістка (Елемент, СтандартнаяОбработка)
ІтоговаяСумма=Товари.Ітог ( Сума );
ОтменитьПересчетТоваров_Сертификаты(НоминалСертификатовВсего,И...
