Файл: Разработка конфигурации «Управление документооборотом» в среде 1С:Предприятие 8.3.pdf

ПРИЛОЖЕНИЯ

ПРИЛОЖЕНИЕ 1

ПРИЛОЖЕНИЕ 1.

&НаКлиенте

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

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

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

СтрокаТабличнойЧасти.НДС = СтрокаТабличнойЧасти.Сумма/100*18;

СтрокаТабличнойЧасти.ВСЕГО = СтрокаТабличнойЧасти.СУММА + СтрокаТабличнойЧасти.НДС;

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

ПРИЛОЖЕНИЕ 2

ПРИЛОЖЕНИЕ 3

ПРИЛОЖЕНИЕ 4

&НаКлиенте

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

СтрокаТабличнойЧасти = Элементы.Данные_груза.ТекущиеДанные;

СтрокаТабличнойЧасти.Общая_стоимость = СтрокаТабличнойЧасти.Количество_мест * СтрокаТабличнойЧасти.Цена_за_место;

СтрокаТабличнойЧасти.Налоговая_ставка = СтрокаТабличнойЧасти.Общая_стоимость/100*18;

СтрокаТабличнойЧасти.Общая_стоимость = СтрокаТабличнойЧасти.Общая_стоимость + СтрокаТабличнойЧасти.Налоговая_ставка;

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

ПРИЛОЖЕНИЕ 5

ПРИЛОЖЕНИЕ 6

ПРИЛОЖЕНИЕ 7

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

//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)

Макет = Документы.Товарно_Транспортная_Накладная.ПолучитьМакет("Печать");

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

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

"ВЫБРАТЬ

| Товарно_Транспортная_Накладная.Дата,

| Товарно_Транспортная_Накладная.Договор,

| Товарно_Транспортная_Накладная.Контрагент,

| Товарно_Транспортная_Накладная.Номер,

| Товарно_Транспортная_Накладная.Счет_на_оплату,

| Товарно_Транспортная_Накладная.Данные.(

| Артикул_груза,

| Вес,

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

| Цена,

| Сумма,

| НДС

| )

|ИЗ

| Документ.Товарно_Транспортная_Накладная КАК Товарно_Транспортная_Накладная

|ГДЕ

| Товарно_Транспортная_Накладная.Ссылка В (&Ссылка)";

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

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

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

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

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

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

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

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

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

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

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

КонецЕсли;

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

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

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

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

ВыборкаДанные = Выборка.Данные.Выбрать();

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

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

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

КонецЦикла;

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

КонецЦикла;

//}}

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

ПРИЛОЖЕНИЕ 8

&НаКлиенте

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

СтрокаТабличнойЧасти = Элементы.Данные_груза.ТекущиеДанные;

СтрокаТабличнойЧасти.Общая_стоимость = СтрокаТабличнойЧасти.Количество_мест * СтрокаТабличнойЧасти.Цена_за_место;

СтрокаТабличнойЧасти.Налоговая_ставка = СтрокаТабличнойЧасти.Общая_стоимость/100*18;

СтрокаТабличнойЧасти.Общая_стоимость = СтрокаТабличнойЧасти.Общая_стоимость + СтрокаТабличнойЧасти.Налоговая_ставка;

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

ПРИЛОЖЕНИЕ 9

ПРИЛОЖЕНИЕ 10

ПРИЛОЖЕНИЕ 11

ПРИЛОЖЕНИЕ 12

ПРИЛОЖЕНИЕ 13

ПРИЛОЖЕНИЕ 14

Процедура РассчитатьНачисления(Регистратор, НаборЗаписей) Экспорт

//Оклад

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

Запрос.Текст="ВЫБРАТЬ

| ЕСТЬNULL(ОсновныеНачисленияДанныеГрафика.КоличествоЧасовФактическийПериодДействия, 0) КАК ЧасовФакт,

| ОсновныеНачисленияДанныеГрафика.Параметр,

| ЕСТЬNULL(ОсновныеНачисленияДанныеГрафика.КоличествоЧасовПериодДействия, 0) КАК ЧасовПлан,

| ОсновныеНачисленияДанныеГрафика.НомерСтроки

|ИЗ

| РегистрРасчета.ОсновныеНачисления.ДанныеГрафика(

| Регистратор = &Регистратор

| И ВидРасчета = &ВидРасчетаОклад) КАК ОсновныеНачисленияДанныеГрафика";

Запрос.УстановитьПараметр("Регистратор", Регистратор); // передаём документ регистратор чтобы поиск выполнялся только по текущему документу

Запрос.УстановитьПараметр("ВидРасчетаОклад", ПланыВидовРасчета.ОсновныеНачисления.Оклад); //устанавливаем вид расчёта оклад т.к. рассчитываем оклад

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

СтруктураПоиска=Новый Структура;

СтруктураПоиска.Вставить("НомерСтроки",0);