Разработка АРМ менеджера отдела продаж ЗАО «ВПЗ»

КонецЦикла;

 

ОбластьИтог.Параметры.ВсегоПоДокументу = СуммаИтог;

ТабДок.Вывести(ОбластьИтог);

 

Подвал.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Подвал);

 

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

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

 

Процедура заполнения макета Приходный кассовый ордер

Процедура Печать(ТабДок, Ссылка) Экспорт

 

Макет = Документы.ПриходныйКассовыйОрдер.ПолучитьМакет("Печать");

Запрос = Новый  Запрос;

Запрос.Текст =

"ВЫБРАТЬ

|ПриходныйКассовыйОрдер.Дата,

|ПриходныйКассовыйОрдер.Контрагент,

|ПриходныйКассовыйОрдер.Номер,

|ПриходныйКассовыйОрдер.Ответственный,

|ПриходныйКассовыйОрдер.Склад,

|ПриходныйКассовыйОрдер.Товар.(

|НомерСтроки,

|Номенклатура,

|Количество,

|ЕдИзм,

|Цена,

|Сумма

|)

|ИЗ

|Документ.ПриходныйКассовыйОрдер КАК ПриходныйКассовыйОрдер

|ГДЕ

|ПриходныйКассовыйОрдер.Ссылка В (&Ссылка)";

Запрос.Параметры.Вставить("Ссылка", Ссылка);

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

 

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

Шапка = Макет.ПолучитьОбласть("Шапка");

ОбластьТоварШапка = Макет.ПолучитьОбласть("ТоварШапка");

ОбластьТовар = Макет.ПолучитьОбласть("Товар");

ОбластьИтог = Макет.ПолучитьОбласть("Всего");

Подвал = Макет.ПолучитьОбласть("Подвал");

 

ТабДок.Очистить();

 

ВставлятьРазделительСтраниц = Ложь;

 

Пока Выборка.Следующий() Цикл

Если ВставлятьРазделительСтраниц  Тогда

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

КонецЕсли;

 

ТабДок.Вывести(ОбластьЗаголовок);

 

Шапка.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Шапка, Выборка.Уровень());

 

ТабДок.Вывести(ОбластьТоварШапка);

ВыборкаТовар = Выборка.Товар.Выбрать();

СуммаИтог = 0;

 

Пока ВыборкаТовар.Следующий() Цикл

ОбластьТовар.Параметры.Заполнить(ВыборкаТовар);

ТабДок.Вывести(ОбластьТовар, ВыборкаТовар.Уровень());

СуммаИтог = СуммаИтог + ВыборкаТовар.Сумма;

КонецЦикла;

 

ОбластьИтог.Параметры.ВсегоПоДокументу = СуммаИтог;

ТабДок.Вывести(ОбластьИтог);

 

Подвал.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Подвал);

 

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

 

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

 

Процедуры автоматического расчета суммы табличной части

 

Процедура РасчитатьСумму(СтрокаТЧ) Экспорт 

СтрокаТЧ.Сумма = СтрокаТЧ.Количество*СтрокаТЧ.Цена;

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

 

&НаКлиенте

Процедура ТоварЦенаПриИзменении(Элемент)

СтрокаТЧ = Элементы.Товар.ТекущиеДанные;

РаботаСДокументами.РасчитатьСумму(СтрокаТЧ);

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

 

&НаКлиенте

Процедура ТоварКоличествоПриИзменении(Элемент)

СтрокаТЧ = Элементы.Товар.ТекущиеДанные;

РаботаСДокументами.РасчитатьСумму(СтрокаТЧ);

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

 

&НаКлиенте

Процедура ТоварНоменклатураПриИзменении(Элемент)

СтрокаТЧ = Элементы.Товар.ТекущиеДанные;

СтрокаТЧ.Цена = РаботаСоСправочниками.РозничнаяЦена(Объект.Дата, СтрокаТЧ.Номенклатура);

РаботаСДокументами.РасчитатьСумму(СтрокаТЧ);

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

 

Процедура ввода на основании документа  Приходный кассовый ордер

 

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)

 

Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.РеализацияТоваровИУслуг") Тогда

// Заполнение  шапки

Контрагент = ДанныеЗаполнения.Контрагент;

Ответственный = ДанныеЗаполнения.Ответственный;

Склад = ДанныеЗаполнения.Склад;

Для Каждого  ТекСтрокаТовар Из ДанныеЗаполнения.Товар  Цикл

НоваяСтрока = Товар.Добавить();

НоваяСтрока.ЕдИзм = ТекСтрокаТовар.ЕдИзм;

НоваяСтрока.Количество = ТекСтрокаТовар.Количество;

НоваяСтрока.Номенклатура = ТекСтрокаТовар.Номенклатура;

НоваяСтрока.Сумма = ТекСтрокаТовар.Сумма;

НоваяСтрока.Цена = ТекСтрокаТовар.Цена;

КонецЦикла;

КонецЕсли;

 

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