92
СтрокаТабличнойЧасти.Коэффициент =
СтрокаЗаказа.Коэффициент;
СтрокаТабличнойЧасти.СтавкаНДС =
СтрокаЗаказа.СтавкаНДС;
СтрокаТабличнойЧасти.Заказ =
Неопределено;
СтрокаТабличнойЧасти.Количество СписатьПоЗаказу * СтрокаТабличнойЧа-
сти.Номенклатура.ЕдиницаХраненияОстатков.Коэффициент / СтрокаЗака-
за.Коэффициент;
СтрокаТабличнойЧасти.Цена
Ценообразование.ПересчитатьЦенуПриИзмененииФлаговНалогов(
МодульВалютногоУче-
та.ПересчитатьИзВалютыВВалюту(СтрокаЗаказа.Цена,
Сделка.ВалютаДокумента, ВалютаДокумента, КурсСделки, КурсДокумента,
КратностьСделки, КратностьДокумента), Перечисле-
ния.СпособыЗаполненияЦен.ПоЦенамНоменклатурыКонтрагентов,
Сделка.СуммаВключаетНДС,
УчитыватьНДС,
уммаВключаетНДС,
УчетНДС.ПолучитьСтавкуНДС(СтрокаТабличнойЧасти.СтавкаНДС));
СтрокаТабличнойЧасти.Сумма = СтрокаТабличнойЧа¬сти.Цена *
СтрокаТабличнойЧасти.Количество;
ОбработкаТабличныхЧа-
стей.ПриИзмененииСуммыТабЧасти(СтрокаТабличнойЧасти, ЭтотОбъект, Тек-
Пользователь, ,
ЕстьРеквизитПроцентСкидкиНаценки, Пересчитывать-
ЕстьРеквизитПроцентАвтоматическихСкидок, "Това-
ОбработкаТабличныхЧа-
стей.РассчитатьСуммуНДСТабЧасти(СтрокаТабличнойЧасти, ЭтотОбъект);
ОбработкаТабличныхЧа-
93
стей.РассчитатьРозничнуюЦенуВСтрокеТабЧасти(ЭтотОбъект, СтрокаТаблич- нойЧасти,
мВалютаРегламентированногоУчета);
СтрокаТабличнойЧасти.ЗаказПоставщикуИзНТТ
Сделка;
КонецЕсли;
СтрокаЗаказа.КоличествоОстатокПоЗаказу = СтрокаЗака- за.КоличествоОстатокПоЗаказу
- СписаноПоСтроке;
КонецЦикла;
КонецЦикла;
КонецПроцедуры
Листинг 6.2
Процедура ОбработкаЗаполнения(Основание)
ИначеЕсли ТипЗнч(Основание) = Тип("ДокументСсылка.ЗаказПоставщикуИзНТТ") Тогда
ЗаполнениеДокумен-
тов.ЗаполнитьШапкуДокументаПоОснованию(ЭтотОбъект, Основание);
Если ТипЗнч(Основание) = Тип("ДокументСсылка.ЗаказПоставщикуИзНТТ") Тогда
Сделка = Основание;
Иначе
Сделка = Неопределено;
КонецЕсли;
Если ЗначениеЗаполнено(Сделка) И Сделка.Проведен Тогда
ЗаполнитьТоварыПоЗаказуНТТ()
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Листинг 6.3
Процедура ДвиженияПоЗаказамИзНТТ(Отказ, РежимПроведения)
Движения.ЗаказыПоставщикамИзНТТ.Очистить();
Для Каждого ТекСтрокаТовары Из Товары Цикл
Движение = Движения.ЗаказыПоставщикамИзНТТ.Добавить(); Движение.ВидДвижения =
94
ВидДвиженияНакопления.Расход; Движение.Период = Дата;
Движение.ДоговорКонтрагента = ДоговорКонтрагента;
Движение.ЗаказПоставщикуИзНТТ = ТекСтрокаТова- ры.ЗаказПоставщикуИзНТТ;
Движение.СтатусПартии = Перечисле- ния.СтатусыПартийТоваров.Купленный;
Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;
Движение.ХарактеристикаНоменклатуры = ТекСтрокаТова-
ры.ХарактеристикаНоменклатуры;
Движение.Цена = ТекСтрокаТовары.Цена;
Движение.ЕдиницаИзмерения = ТекСтрокаТова- ры.ЕдиницаИзмерения;
Движение.СтавкаНДС = ТекСтрокаТовары.СтавкаНДС; Движение.Количество =
ТекСтрокаТовары.Количество; КонецЦикла;
КонецПроцедуры
Листинг 6.4
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
ДвиженияПоЗаказамИзНТТ(Отказ, РежимПроведения); КонецПроцедуры
Листинг 6.5
Процедура ТоварыПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
Если РольДоступна("МенеджерПоПродажам") Тогда СписокИсключений = Новый
СписокЗначений; СписокИсключений.Добавить("Количество”);
ОбщегоНазначения.ДоступностьЯчеекТЧ(СписокИсключений, ОформлениеСтроки);
КонецЕсли;
КонецПроцедуры
Листинг 6.6
Процедура ПриОткрытии()
Если РольДоступна("МенеджерПоПродажам") Тогда
СписокИсключенияЭлементов = Новый СписокЗначений;
СписокИсключенияЭлементов.Добавить(ЭлементыФормы.Комментарий);
СписокИсключенияЭлементов.Добавить(ЭлементыФормы.Товары);
СписокИсключенияЭлемен-
тов.Добавить(ЭлементыФормы.ОсновныеДействияФормы);
95
СписокИсключенияЭлемен-
тов.Добавить(ЭлементыФормы.КоманднаяПанельТовары); СписокИсключенияТипов =
Новый СписокЗначений; СписокИсключенияТипов.Добавить(Тип("РамкаГруппы"));
СписокИсключенияТипов.Добавить(Тип("Панель"));
ОбщегоНазначе-
ния.ДоступностьЭлементовФормы(СписокИсключенияЭлементов, СписокИсклю-
ченияТипов, ЭлементыФормы);
КонецЕсли;
КонецПроцедуры
Листинг 6.7
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
Если РольДоступна("МенеджерПоПродажам") Тогда
Если ЭтотОбъект.Проведен И НЕ ЭтотОбъект.ПометкаУдаления То-гда
Отказ = Истина;
Предупреждение("Нет прав на повторное изменение доку-мента");
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Листинг 6.8
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
Если НЕ ПланыОбмена.ГлавныйУзел() = Неопределено Тогда Отказ = Истина;
Предупреждение("Вы не можете работать с документом в этом
узле");
КонецЕсли;
КонецПроцедуры
Приложение 7
Приложение к отчету «Заказ поставщикам из НТТ»
Листинг 7.1
Функция СформироватьДок() экспорт
ТабДок = Новый ТабличныйДокумент;
96
СКД = ЭтотОбъект.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных"); Настройки =
СКД.НастройкиПоУмолчанию;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета.Выполнить(СКД, Компонов-
щикНастроек.Настройки);
ВнешниеПараметры = Новый Структура;
ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, Внеш-
ниеПараметры);
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанны-
хВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ТабДок);
ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных, Истина); Возврат ТабДок;
КонецФункции
Листинг 7.2
Процедура ДатаПриИзменении(Элемент)
ПараметрДата = КомпоновщикНастро-
ек.Настройки.ПараметрыДанных.Элементы.Найти("Дата");
ПараметрДата.Использование = Истина;
ПараметрДата.Значение = Дата;
КонецПроцедуры
Листинг 7.3
Процедура КонтрагентПриИзменении(Элемент)
ПараметрКонтрагент = КомпоновщикНастро-
ек.Настройки.ПараметрыДанных.Элементы.Найти("Контрагент");
ПараметрКонтрагент.Использование = Истина; ПараметрКонтрагент.Значение =
Контрагент;
КонецПроцедуры
Листинг 7.4
Процедура ПечатьНажатие(Элемент)
97
ТабДок = СформироватьДок();
ТабДок.АвтоМасштаб = Истина;
ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет; ТабДок.Показать();
КонецПроцедуры
Листинг 7.5
Процедура ВыгрузитьВФайлНажатие(Элемент)
ТабДок = СформироватьДок();
Режим = РежимДиалогаВыбораФайла.Сохранение;
ДиалогВыбора = новый ДиалогВыбораФайла(Режим);
ДиалогВыбора.ПолноеИмяФайла = ЭтаФор- ма.Контрагент.Наименование+"
"+Строка(Формат(ЭтаФорма.Дата,"ДЛФ=Д"))+" .xls”;
Фильтр = "Файл данных (*.xls)|*.xls";
ДиалогВыбора.Фильтр = Фильтр;
ДиалогВыбора.Заголовок = "Выберите Каталог";
Если ДиалогВыбора.Выбрать() Тогда
ТабДок.Записать(ДиалогВыбора.ПолноеИмяФайла, ТипФайлаТаблично-
гоДокумента.XLS),•
Иначе
Предупреждение("Файл не сохранен!");
КонецЕсли;
КонецПроцедуры
