117
К=Справочники.Банки.НайтиПоНаименованию(БанкОтправитель).П
олучитьОбъект();
Долж=К.ЦБУ;
Возврат Долж
КонецФункции
Функция получитьреквизит10(Валюта) Экспорт
К=Справочники.Валюта.НайтиПоНаименованию(Валюта).ПолучитьО
бъект();
Код=К.Код;
Возврат Код
КонецФункции
Функция получитьреквизит11(УНППлательщика) Экспорт
К3=Справочники.Клиенты.НайтиПоНаименованию(УНППлательщика)
.ПолучитьОбъект();
Код=К3.УНПОрганизации;
Возврат Код
КонецФункции
Функция получитьреквизит12(УНППлательщика) Экспорт
К3=Справочники.Клиенты.НайтиПоНаименованию(УНППлательщика)
.ПолучитьОбъект();
Код=К3.РасчетныйСчет;
Возврат Код
КонецФункции
Функция получитьреквизит13(Наименование) Экспорт
К=Справочники.Номенклатура.НайтиПоНаименованию(Наименовани
е).ПолучитьОбъект();
Раз=К.Размер;
Возврат Раз;
КонецФункции
Функция получитьреквизит14(Наименование) Экспорт
К=Справочники.Номенклатура.НайтиПоНаименованию(Наименовани
е).ПолучитьОбъект();
Раз=К.Размер;
Возврат Раз
КонецФункции
118
Функция получитьреквизит15(Наименование) Экспорт
К=Справочники.Номенклатура.НайтиПоНаименованию(Наименовани
е).ПолучитьОбъект();
Раз=К.Себестоимость;
Возврат Раз;
КонецФункции
Функция получитьреквизит16(ЮридическийАдрес) Экспорт
К=Справочники.Банки.НайтиПоНаименованию(ЮридическийАдрес).
ПолучитьОбъект();
ЮрАд=К.ЮридическийАдрес;
Возврат ЮрАд
КонецФункции
Функция получитьреквизит17(ЮридическийАдрес) Экспорт
К=Справочники.Банки.НайтиПоНаименованию(ЮридическийАдрес).
ПолучитьОбъект();
БИК=К.БИК;
Возврат БИК
КонецФункции
Функция получитьреквизит18(ЮридическийАдрес) Экспорт
К=Справочники.Банки.НайтиПоНаименованию(ЮридическийАдрес).
ПолучитьОбъект();
ЦБУ=К.ЦБУ;
Возврат ЦБУ
КонецФункции
Функция получитьреквизит19(Наименование) Экспорт
К=Справочники.Материалы.НайтиПоНаименованию(Наименование).
ПолучитьОбъект();
Раз=К.ЦенаЗаЕдиницу;
Возврат Раз
КонецФункции
Функция получитьреквизит20(Наименование) Экспорт
К=Справочники.Клиенты.НайтиПоНаименованию(Наименование).По
лучитьОбъект();
ЮрАдр=К.ЮридическийАдрес;
Возврат ЮрАдр
119
КонецФункции
Функция получитьреквизит21(Наименование) Экспорт
К=Справочники.Клиенты.НайтиПоНаименованию(Наименование).По
лучитьОбъект();
УНПОр=К.УНПОрганизации;
Возврат УНПОр
КонецФункции
Функция получитьреквизит22(Наименование) Экспорт
К=Справочники.Номенклатура.НайтиПоНаименованию(Наименовани
е).ПолучитьОбъект();
Разм=К.Размер;
Возврат Разм
КонецФункции
Функция получитьреквизит23(Наименование) Экспорт
К=Справочники.СтавкаНДС.НайтиПоНаименованию(Наименование).
ПолучитьОбъект();
Чис=К.Число;
Возврат Чис;
КонецФункции
Функция получитьреквизит24(Наименование) Экспорт
К=Справочники.СтавкаНДС.НайтиПоНаименованию(Наименование).
ПолучитьОбъект();
Чис=К.Число;
Возврат Чис;
КонецФункции
Функция получитьреквизит25(Наименование) Экспорт
К=Справочники.Номенклатура.НайтиПоНаименованию(Наименовани
е).ПолучитьОбъект();
Раз=К.Размер;
Возврат Раз;
КонецФункции
Функция получитьреквизит26(Наименование) Экспорт
К=Справочники.Номенклатура.НайтиПоНаименованию(Наименовани
е).ПолучитьОбъект();
Раз=К.Цена;
120
Возврат Раз;
КонецФункци
МОДУЛЬ ФОРМЫ ТОВАРНО-ТРАНСПОРТНОЙ НАКЛАДНОЙ
&НаКлиенте
Процедура ТоварныйРазделКоличествоПриИзменении(Элемент)
С = Элементы.ТоварныйРаздел. ТекущиеДанные;
С.Стоимость=С.Количество*С.Цена;
С.СуммаНДС=С.Стоимость*(С.Ставка/100);
С.СтоимостьСНДС=С.СуммаНДС+С.Стоимость;
КонецПроцедуры
&НаКлиенте
Процедура ТоварныйРазделЦенаПриИзменении(Элемент)
С = Элементы.ТоварныйРаздел. ТекущиеДанные;
С.Стоимость=С.Количество*С.Цена;
С.СуммаНДС=С.Стоимость*(С.Ставка/100);
С.СтоимостьСНДС=С.СуммаНДС+С.Стоимость;
КонецПроцедуры
&НаКлиенте
Процедура ТоварныйРазделСтоимостьПриИзменении(Элемент)
С = Элементы.ТоварныйРаздел. ТекущиеДанные;
С.СуммаНДС=С.Стоимость*(С.Ставка/100);
С.СтоимостьСНДС=С.СуммаНДС+С.Стоимость;
КонецПроцедуры
&НаКлиенте
Процедура ТоварныйРазделСтоимостьСНДСПриИзменении(Элемент)
С = Элементы.ТоварныйРаздел. ТекущиеДанные;
С.СтоимостьСНДС=С.СуммаНДС+С.Стоимость;
КонецПроцедуры
&НаКлиенте
Процедура ТоварныйРазделСтавкаНДСПриИзменении(Элемент)
Стр = Элементы.ТоварныйРаздел.ТекущиеДанные;
121
Нужное1 = ОбщийМодуль1.получитьреквизит23(Стр.СтавкаНДС);
Стр.Ставка = Нужное1;
С = Элементы.ТоварныйРаздел. ТекущиеДанные;
С.СуммаНДС=С.Стоимость*(С.Ставка/100);
С.СтоимостьСНДС=С.СуммаНДС+С.Стоимость;
КонецПроцедуры
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
ПриСозданииНаСервере=ОбщийМодуль1.К1();
Объект.Грузоотправитель=ПриСозданииНаСервере;
ПриСозданииНаСервере=ОбщийМодуль1.К2();
Объект.ЮридическийАдрес2=ПриСозданииНаСервере;
ПриСозданииНаСервере=ОбщийМодуль1.К3();
Объект.УНПГрузоотправитель=ПриСозданииНаСервере;
КонецПроцедуры
&НаКлиенте
Процедура ГрузополучательПриИзменении(Элемент)
ЮрАдр=ОбщийМодуль1.получитьреквизит(Объект.Грузополучатель);
Объект.ЮридическийАдрес=ЮрАдр;
У=ОбщийМодуль1.получитьреквизит1(Объект.Грузополучатель);
Объект.УНПГрузополучатель=У;
Ав=ОбщийМодуль1.получитьреквизит2(Объект.Грузополучатель);
Объект.Автомобиль=Ав;
Пр=ОбщийМодуль1.получитьреквизит3(Объект.Грузополучатель);
Объект.Прицеп=Пр;
КонецПроцедуры
&НаКлиенте
Процедура ТоварныйРазделНаименованиеТовараПриИзменении(Элемент)
Стр = Элементы.ТоварныйРаздел.ТекущиеДанные;
122
Нужное1=ОбщийМодуль1.получитьреквизит13(Стр.НаименованиеТовара
);
Стр.Размер = Нужное1;
КонецПроцедуры
МОДУЛЬ МЕНЕДЖЕРА ТОВАРНО-ТРАНСПОРТНОЙ НАКЛАДНОЙ
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет =
Документы.ТоварноТранспортнаяНакладная.ПолучитьМакет("Печать")
;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ТоварноТранспортнаяНакладная.Автомобиль,
| ТоварноТранспортнаяНакладная.Водитель,
| ТоварноТранспортнаяНакладная.Грузоотправитель,
| ТоварноТранспортнаяНакладная.Грузополучатель,
| ТоварноТранспортнаяНакладная.Дата,
| ТоварноТранспортнаяНакладная.КПутевомуЛисту,
| ТоварноТранспортнаяНакладная.Номер,
| ТоварноТранспортнаяНакладная.ОснованиеОтпуска,
| ТоварноТранспортнаяНакладная.Переадресовка,
| ТоварноТранспортнаяНакладная.Прицеп,
| ТоварноТранспортнаяНакладная.ПунктПогрузки,
| ТоварноТранспортнаяНакладная.ПунктРазгрузки,
| ТоварноТранспортнаяНакладная.УНПГрузоотправитель,
| ТоварноТранспортнаяНакладная.УНПГрузополучатель,
| ТоварноТранспортнаяНакладная.ЮридическийАдрес,
| ТоварноТранспортнаяНакладная.ЮридическийАдрес2,
| ТоварноТранспортнаяНакладная.ДатаИНомерДоговора,
| ТоварноТранспортнаяНакладная.ОтпускРазрешил,
| ТоварноТранспортнаяНакладная.Принял,
| ТоварноТранспортнаяНакладная.ТоварныйРаздел.(
| НомерСтроки,
| НаименованиеТовара,
123
| Количество,
| Цена,
| Стоимость,
| СтавкаНДС,
| СуммаНДС,
| СтоимостьСНДС,
| Размер,
| КоличествоГрузовыхМест,
| МассаГруза,
| Примечание
| )
|ИЗ
| Документ.ТоварноТранспортнаяНакладная КАК
ТоварноТранспортнаяНакладная
|ГДЕ
| ТоварноТранспортнаяНакладная.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьТоварныйРазделШапка=Макет.ПолучитьОбласть("ТоварныйРазд
елШапка");
ОбластьТоварныйРаздел=Макет.ПолучитьОбласть("ТоварныйРаздел");
ОбластьВсего=Макет.ПолучитьОбласть("Всего");
ОбластьНДС=Макет.ПолучитьОбласть("НДС");
ОбластьСНДС=Макет.ПолучитьОбласть("СНДС");
ОбластьОтпуск=Макет.ПолучитьОбласть("Отпуск");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
124
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьТоварныйРазделШапка);
ВыборкаТоварныйРаздел = Выборка.ТоварныйРаздел.Выбрать();
ИтогКоличество=0;
ИтогСтоимость=0;
ИтогСуммаНДС=0;
ИтогСтоимостьСНДС=0;
ИтогКоличествоГрузовыхМест=0;
ИтогМассаГруза=0;
Пока ВыборкаТоварныйРаздел.Следующий() Цикл
ОбластьТоварныйРаздел.Параметры.Заполнить(ВыборкаТоварныйРазде
л);
ТабДок.Вывести(ОбластьТоварныйРаздел,
ВыборкаТоварныйРаздел.Уровень());
ИтогКоличество=ИтогКоличество+ВыборкаТоварныйРаздел.Количество
;
ИтогСтоимость=ИтогСтоимость+ВыборкаТоварныйРаздел.Стоимость;
ИтогСуммаНДС=ИтогСуммаНДС+ВыборкаТоварныйРаздел.СуммаНДС;
ИтогСтоимостьСНДС=ИтогСтоимостьСНДС+ВыборкаТоварныйРаздел.Стои
мостьСНДС;
ИтогКоличествоГрузовыхМест=ИтогКоличествоГрузовыхМест+ВыборкаТ
оварныйРаздел.КоличествоГрузовыхМест;
ИтогМассаГруза=ИтогМассаГруза+ВыборкаТоварныйРаздел.МассаГруза
;
КонецЦикла;
ОбластьВсего.Параметры.ИтогКоличество=ИтогКоличество;
ОбластьВсего.Параметры.ИтогСтоимость=ИтогСтоимость;
ОбластьВсего.Параметры.ИтогСуммаНДС=ИтогСуммаНДС;
ОбластьВсего.Параметры.ИтогСтоимостьСНДС=ИтогСтоимостьСНДС;
125
ОбластьВсего.Параметры.ИтогКоличествоГрузовыхМест=ИтогКоличест
воГрузовыхМест;
ОбластьВсего.Параметры.ИтогМассаГруза=ИтогМассаГруза;
ТабДок.Вывести(ОбластьВсего);
Без = ИтогСуммаНДС;
Всего=ИтогСтоимостьСНДС;
ОбластьНДС.Параметры.Заполнить(Выборка);
ОбластьСНДС.Параметры.Заполнить(Выборка);
Без2=ЧислоПрописью(Без,"Л=ru_RU;ДП=Истина","рубль, рубля,
рублей, м, копейка, копейки, копеек, ж, 2");
Всего=ЧислоПрописью(Всего,"Л=ru_RU;ДП=Истина","рубль, рубля,
рублей, м, копейка, копейки, копеек, ж, 2");
Если Без=0 Тогда
Без2="без НДС";
КонецЕсли;
ОбластьНДС.Параметры.НДС=Без2;
ТабДок.Вывести(ОбластьНДС);
ОбластьСНДС.Параметры.СНДС=Всего;
ТабДок.Вывести(ОбластьСНДС);
ОбластьОтпуск.Параметры.Заполнить(Выборка);
ТабДок.Вывести(ОбластьОтпуск, Выборка.Уровень());
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры