122
Строка.СуммаСНДС = Строка.Сумма + Строка.СуммаНДС;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура ЦенаВключаетНДСПриИзменении(Элемент)
ЦенаВключаетНДСПриИзмененииНаСервере();
КонецПроцедуры
&НаСервере
Процедура ПересчитатьИтог()Экспорт
Объект.НДС = 0;
Объект.СуммаДокумента = 0;
Для Каждого Строка Из Объект.Товары Цикл
Объект.НДС = Объект.НДС + Строка.СуммаНДС;
Объект.СуммаДокумента = Объект.СуммаДокумента +
Строка.Сумма;
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура СуммаОплатыПриИзменении(Элемент)
ПроцентОплаты = Окр(Объект.СуммаОплаты * 100 /
Объект.СуммаДокумента, 2);
Если Объект.СуммаОплаты = Объект.СуммаДокумента Тогда
Элементы.Декорация1.Видимость = Истина;
Объект.Оплачено = Истина;
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Объект.Продавец = ПараметрыСеанса.ТекущийПользователь;
КонецПроцедуры
123
&НаСервере
Функция ОпределитьРозничнуюЦену (РозничнаяЦена) Экспорт
Для Каждого Строка Из Объект.Товары Цикл
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЦеныНоменклатурыСрезПоследних.Цена КАК Цена
|ИЗ
| РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК
ЦеныНоменклатурыСрезПоследних
|ГДЕ
| ЦеныНоменклатурыСрезПоследних.Номенклатура =
&Номенклатура
| И ЦеныНоменклатурыСрезПоследних.ВидЦены = &ВидЦены
| И ЦеныНоменклатурыСрезПоследних.ЕдиницаИзмерения =
&ЕдиницаИзмерения" ;
Запрос.УстановитьПараметр("Номенклатура",
Строка.Номенклатура);
Запрос.УстановитьПараметр("ВидЦены",
Объект.Склад.ОсновнаяЦенаПродажи);
Запрос.УстановитьПараметр("ЕдиницаИзмерения",
Строка.ЕдиницаИзмерения);
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
РозничнаяЦена = Выборка.Цена;
КонецЦикла;
КонецЦикла;
Возврат РозничнаяЦена
КонецФункции
&НаКлиенте
Процедура ТоварыЕдиницаИзмеренияПриИзменении(Элемент)
ТекДанные = ЭтаФорма.ТекущийЭлемент.ТекущиеДанные;
124
РозничнаяЦена = ОпределитьРозничнуюЦену (РозничнаяЦена);
ТекДанные.Цена = РозничнаяЦена;
КонецПроцедуры
125
Приложение 3. Модуль менеджера документа "Продажа в розницу"
Процедура ПечатьТоварногоЧека(ТабДок, Ссылка) Экспорт
Макет =
Документы.ПродажаВРозницу.ПолучитьМакет("ПФ_MXL_ТоварныйЧек");
Документ = Ссылка[0];
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьЗаголовок.Параметры.Номер = Документ.Номер;
ОбластьЗаголовок.Параметры.Дата = Формат(Документ.Дата,
"ДЛФ=ДД");
ТабДок.Вывести(ОбластьЗаголовок);
ОбластьПоставщик = Макет.ПолучитьОбласть("Поставщик");
ОбластьПоставщик.Параметры.ПредставлениеПоставщика ="" +
Документ.Организация + " , ИНН " +
Документ.Организация.ИНН + " / КПП " + Документ.Организация.КПП +
" " + Документ.Организация.ЮридическийАдрес + ", тел:. " +
Документ.Организация.СтационарныйТелефон + "";
ТабДок.Вывести(ОбластьПоставщик);
ОбластьШапкаТаблицы =
Макет.ПолучитьОбласть("ШапкаТаблицы");
ТабДок.Вывести(ОбластьШапкаТаблицы);
ОбластьСтрока = Макет.ПолучитьОбласть("Строка");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПродажаВРозницуТовары.НомерСтроки КАК НомерСтроки,
| ПродажаВРозницуТовары.Номенклатура КАК Номенклатура,
| ПродажаВРозницуТовары.Количество КАК Количество,
| ПродажаВРозницуТовары.ЕдиницаИзмерения КАК
ЕдиницаИзмерения,
| ПродажаВРозницуТовары.Цена КАК Цена,
126
| ПродажаВРозницуТовары.Сумма КАК Сумма
|ИЗ
| Документ.ПродажаВРозницу.Товары КАК
ПродажаВРозницуТовары
|ГДЕ
| ПродажаВРозницуТовары.Ссылка = &Ссылка
|
|УПОРЯДОЧИТЬ ПО
| НомерСтроки";
Запрос.УстановитьПараметр("Ссылка", Документ);
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
ОбластьСтрока.Параметры.НомерСтроки = Выборка.НомерСтроки;
ОбластьСтрока.Параметры.Товар = Выборка.Номенклатура;
ОбластьСтрока.Параметры.Количество = Выборка.Количество;
ОбластьСтрока.Параметры.Единица =
Выборка.ЕдиницаИзмерения;
ОбластьСтрока.Параметры.Цена = Выборка.Цена;
ОбластьСтрока.Параметры.Сумма = Выборка.Сумма;
ТабДок.Вывести(ОбластьСтрока);
КонецЦикла;
ОбластьИтого = Макет.ПолучитьОбласть("Итого");
ОбластьИтого.Параметры.ИтогоСумма = Документ.СуммаДокумента;
ОбластьИтого.Параметры.КоличествоПозиций =
Документ.Товары.Количество();
ОбластьИтого.Параметры.Сумма = Документ.СуммаДокумента;
ОбластьИтого.Параметры.СуммаПрописью =
ЧислоПрописью(Документ.СуммаДокумента,,
"рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2");
ТабДок.Вывести(ОбластьИтого);
ОбластьПодписи = Макет.ПолучитьОбласть("Подписи");
127
МассивФИО =
СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(Докумен
т.Продавец," ",,);
ОбластьПодписи.Параметры.Кассир = МассивФИО[0] + " " +
Сред(МассивФИО[1],1,1) + "." + Сред(МассивФИО[2],1,1)+ "." ;
ТабДок.Вывести(ОбластьПодписи);
КонецПроцедуры
